Вверх ↑
Этот топик читают: Гость
Ответов: 721
Рейтинг: 154
#61: 2024-03-04 07:59:39 ЛС | профиль | цитата
Панель управления.
ПКМ – открыть пункт меню.

Add(WinExec,13614633,371,119)
{
Mode=0
Point(doConsoleExec)
Point(onConsoleResult)
link(FileName,11795667:Value,[])
link(onConsoleResult,12271718:doCharset,[])
}
Add(Charset,12271718,427,133)
{
link(onCharset,8136444:doConvert,[])
}
Add(FormatStr,3924364,308,133)
{
DataCount=1
Mask="Get-ControlPanelItem | Select Name,Description | ConvertTo-Csv -Delimiter ';' -NoTypeInformation"
link(onFString,11496177:doWork2,[])
}
Add(MainForm,16686635,259,119)
{
Width=867
Height=380
Caption="Open control panel items"
link(onCreate,3924364:doString,[])
}
Add(Memory,11795667,371,70)
{
Default=String(c:\Windows\Sysnative\WindowsPowerShell\v1.0\powershell.exe)
}
Add(MTStrTbl,7496713,112,168)
{
Width=851
Height=341
Align=5
Name="tabl"
ColumnWidth=500
ColorItems=0
Redaction=0
Grid=0
Point(onMouseDown)
link(CodePageSet,201824:GetData,[])
link(onMouseDown,4871043:doEvent,[])
}
Add(MST_Load,8506660,525,126)
{
MSTControl="tabl"
link(onLoadFromStream,8509457:doData,[])
}
Add(StreamConvertor,8136444,476,133)
{
Mode=7
link(onResult,8506660:doLoadFromStream,[])
}
Add(MST_ColAction,12432857,672,133)
{
Action=9
MaxColWidth=500
Index=-2
MSTControl="tabl"
}
Add(EventFromData,201824,112,119)
{
link(onEvent,6070792:doTrim,[])
}
Add(Trim,6070792,161,119)
{
Char="""
link(onTrim,201824:doData,[(200,125)(200,111)(102,111)(102,125)])
}
Add(IndexToChanel,4871043,168,196)
{
link(onEvent2,9174882:doPopupHere,[])
}
Add(PopupMenu,9174882,217,203)
{
Menu=#7:Открыть|
link(onClick,3658561:doSeparateMT,[])
}
Add(MT_MultiData,3658561,259,203)
{
Count=1
Point(Data)
link(onData1,849200:doString,[])
link(Data,7496713:Select,[(265,187)(160,187)(160,215)(118,215)])
}
Add(FormatStr,849200,308,203)
{
DataCount=1
Mask="Show-ControlPanelItem -Name '%1'"
link(onFString,11496177:doWork3,[(354,209)])
}
Add(MST_SortInCol,2531736,623,133)
{
MSTControl="tabl"
link(onChange,12432857:doColAction,[])
}
Add(DoData,8509457,574,133)
{
Data=Integer(0)
link(onEventData,2531736:doSort,[])
}
Add(HubEx,11496177,350,133)
{
link(onEvent,13614633:doConsoleExec,[])
}

Проверено на
- Windows 10 (x64)
- Hiasm v4.05 build 186 (delphi) rev - 2405
- MS Office 365
карма: 15

0
Ответов: 721
Рейтинг: 154
#62: 2024-03-04 11:01:33 ЛС | профиль | цитата
Получение списка скриптовых движков на языках VBScript и JScript, а также других, если их обработчики установлены в системе.

Add(MainForm,2953706,35,105)
{
Width=325
Height=485
Caption="Windows Script Host"
link(onCreate,4433528:doEnumKeys,[])
}
Add(Registry,4433528,84,105)
{
Key="CLSID"
Point(doEnumKeys)
Point(onEnumKey)
link(onEnumKey,5349046:doValue,[])
}
Add(Memo,1962165,581,126)
{
Width=309
Height=446
Align=5
ScrollBars=3
}
Add(Registry,6922578,273,112)
{
Point(doEnumKeys)
Point(onEnumKey)
Point(doEnumValues)
Point(onEnumValue)
link(onRead,10123519:doValue,[(312,118)(312,111)(389,111)(389,69)])
link(onEnumKey,12903208:doCompare,[])
}
Add(StrCatDelim,2771630,182,112)
{
Delimiter="\"
Str1="CLSID"
link(onStrCatDlm,5916141:doEvent1,[])
}
Add(StrMask,12903208,322,119)
{
Mask="Implemented Categories"
link(onTrue,506904:doStrCatDlm,[])
}
Add(Registry,4107532,427,112)
{
Point(doExistsKey)
Point(onExistsKey)
link(onExistsKey,3856968:doEvent,[])
}
Add(StrCatDelim,506904,378,126)
{
Delimiter="\"
Str2="Implemented Categories\{F0B7A1A1-9847-11CF-8F20-00805F2CD064}"
link(onStrCatDlm,4107532:doExistsKey,[])
link(Str1,2771630:Result,[(384,117)(370,117)(370,159)(188,159)])
}
Add(IndexToChanel,3856968,476,119)
{
link(onEvent2,12491801:doString,[])
}
Add(FormatStr,12491801,525,126)
{
DataCount=3
Mask="Description: %1\r\nProgram ID: %2\r\nCLSID: %3\r\n-----------------------------------"
link(onFString,1962165:doAdd,[])
link(Str1,10123519:Value,[])
link(Str2,9339482:Value,[(538,103)(566,103)])
link(Str3,5349046:Value,[(545,117)(517,117)(517,166)(139,166)])
}
Add(Hub,5916141,231,112)
{
OutCount=3
link(onEvent1,933872:doStrCatDlm,[(256,118)(256,62)])
link(onEvent2,6922578:doRead,[(263,125)(263,118)])
link(onEvent3,6922578:doEnumKeys,[])
}
Add(Memory,10123519,525,63)
{
}
Add(Memory,5349046,133,112)
{
link(onData,2771630:doStrCatDlm,[])
}
Add(Registry,13982380,329,56)
{
Point(doEnumKeys)
Point(onEnumKey)
Point(doEnumValues)
Point(onEnumValue)
link(onRead,9339482:doValue,[])
}
Add(StrCatDelim,933872,273,56)
{
Delimiter="\"
Str2="ProgID"
link(onStrCatDlm,13982380:doRead,[])
}
Add(Memory,9339482,560,56)
{
}


JScript, получение списка используемых библиотек.

Add(MainForm,14913934,98,154)
{
Width=325
Height=485
Caption="JScript Language"
link(onCreate,4433528:doEnumKeys,[])
}
Add(Registry,4433528,154,154)
{
Key="CLSID"
Point(doEnumKeys)
Point(onEnumKey)
link(onEnumKey,5349046:doValue,[])
}
Add(Memo,1962165,504,175)
{
Width=309
Height=446
Align=5
ScrollBars=3
}
Add(Registry,6922578,343,168)
{
Point(doEnumKeys)
Point(onEnumKey)
Point(doEnumValues)
Point(onEnumValue)
link(onRead,12903208:doCompare,[])
}
Add(StrCatDelim,2771630,252,161)
{
Delimiter="\"
Str1="CLSID"
link(onStrCatDlm,5916141:doEvent1,[])
}
Add(Hub,5916141,301,161)
{
OutCount=3
link(onEvent1,506904:doStrCatDlm,[(326,167)(326,118)])
link(onEvent2,6922578:doRead,[])
}
Add(Memory,5349046,203,161)
{
link(onData,2771630:doStrCatDlm,[])
}
Add(StrMask,12903208,392,168)
{
Mask="JScript Language*"
link(onTrue,12491801:doString,[])
}
Add(FormatStr,12491801,448,175)
{
DataCount=3
Mask="Description: %1\r\nInprocServer32: %2\r\nCLSID: %3\r\n-----------------------------------"
link(onFString,1962165:doAdd,[])
link(Str2,15133872:Value,[])
link(Str3,5349046:Value,[(468,166)(440,166)(440,208)(209,208)])
}
Add(Registry,8603243,392,112)
{
Point(doEnumKeys)
Point(onEnumKey)
Point(doEnumValues)
Point(onEnumValue)
link(onRead,15133872:doValue,[])
}
Add(StrCatDelim,506904,343,112)
{
Delimiter="\"
Str2="InprocServer32"
link(onStrCatDlm,8603243:doRead,[])
}
Add(Memory,15133872,455,112)
{
}


Далее только для обладателей Windows10.

jscript.dll – обработчик(интерпретатор) сценариев JScript
jscript9.dll - текущий (устаревший) движок Chakra. Обратная совместимость существующих скриптов jscript
chakra.dll - новый движок Chakra (в Windows 10 / Edge)

Сравнение быстродействия JScript и JScript9 (после запуска JScript дождитесь окончания ~90 сек)

Add(Label,13557726,140,518)
{
Width=375
Height=30
Align=2
Caption=""
AutoSize=1
}
Add(MainForm,16417920,140,469)
{
Width=391
Height=546
Point(onClose)
link(onCreate,927093:doConvert,[])
}
Add(Memo,6453024,448,546)
{
Top=30
Width=375
Height=477
Align=5
Font=[Consolas,12,0,0,204]
ScrollBars=3
}
Add(WinExec,8827366,336,532)
{
FileName="cscript"
Mode=0
Point(doConsoleExec)
Point(onConsoleResult)
Point(onConsoleError)
link(onConsoleResult,9033456:doWork2,[])
link(onConsoleError,9033456:doWork3,[(382,559)])
}
Add(TempFileStream,8761983,245,483)
{
Extention=".js"
}
Add(StreamConvertor,927093,196,483)
{
Mode=7
Point(Data)
link(onResult,8761983:doCreate,[])
link(Data,8853506:Text,[])
}
Add(Charset,15836611,399,546)
{
link(onCharset,6453024:doAdd,[])
}
Add(FormatStr,13415778,245,588)
{
DataCount=1
Mask="/nologo /E:{16d51579-a30b-4c8b-a276-0ff4dc41e755} %1 "
link(onFString,9244536:doEvent2,[(291,594)(291,559)])
link(Str1,7863614:Var2,[])
}
Add(Hub,9244536,308,546)
{
InCount=2
OutCount=1
link(onEvent1,8827366:doConsoleExec,[])
}
Add(FormatStr,15633364,252,546)
{
DataCount=1
Mask="/nologo %1 "
link(onFString,9244536:doEvent1,[])
link(Str1,7863614:Var3,[(258,537)])
}
Add(Button,10080432,189,546)
{
Left=40
Top=5
Caption="JScript"
link(onClick,15633364:doString,[])
}
Add(Button,1557168,189,588)
{
Left=120
Top=5
Caption="JScript9"
link(onClick,13415778:doString,[])
}
Add(GetDataEx,7863614,245,532)
{
link(Data,8761983:TempFName,[])
}
Add(VisualStrings,8853506,196,14)
{
Lines=#37:WScript.Echo( ScriptEngine() + ": " +|48: ScriptEngineMajorVersion() + "." +|48: ScriptEngineMinorVersion() + "." +|42: ScriptEngineBuildVersion());|0:|17:function foo(o) {|16: var total = 0;|38: for (var i = 0; i < 10000000; i++) {|29: total += o.x + o.y + o.z;|3: }|15: return total;|1:}|0:|25:function Point(x, y, z) {|13: this.x = x;|13: this.y = y;|13: this.z = z;|1:}|0:|17:function main() {|18: var counter = 0;|32: for (var i = 0; i < 20; i++) {|27: var start = new Date();|33: var p1 = new Point(2, 5, 11);|25: var result = foo(p1);|25: var end = new Date();|68: WScript.Echo(++counter + ": " + (end - start) + "ms " + result);|3: }|1:}|0:|7:main();|
Width=347
Height=431
}
Add(HubEx,9033456,378,546)
{
link(onEvent,15836611:doCharset,[])
}

Тест Chakra

Add(MainForm,16417920,63,133)
{
Width=579
Height=326
Point(onClose)
link(onCreate,927093:doConvert,[])
}
Add(Memo,6453024,378,147)
{
Width=563
Height=287
Align=5
Font=[Consolas,12,0,0,204]
ScrollBars=3
}
Add(WinExec,8827366,273,133)
{
FileName="cscript"
Mode=0
Point(doConsoleExec)
Point(onConsoleResult)
Point(doConsoleTerminate)
Point(onConsoleError)
link(onConsoleResult,85276:doWork2,[])
link(onConsoleError,85276:doWork3,[(319,160)])
}
Add(TempFileStream,8761983,168,147)
{
Extention=".js"
link(onCreate,5028372:doString,[])
}
Add(StreamConvertor,927093,119,147)
{
Mode=7
Point(Data)
link(onResult,8761983:doCreate,[])
link(Data,5232254:Text,[])
}
Add(HubEx,85276,315,147)
{
link(onEvent,15836611:doCharset,[])
}
Add(Charset,15836611,329,147)
{
link(onCharset,6453024:doAdd,[])
}
Add(FormatStr,5028372,224,147)
{
DataCount=1
Mask="/nologo /E:{1B7CD997-E5FF-4932-A7A6-2A9E636DA385} %1 "
link(onFString,8827366:doConsoleExec,[])
}
Add(VisualStrings,5232254,119,56)
{
Lines=#78:let json ='{"response":{"count":39,"items":[{"mob":51,"drop":458701246}]}}';|59:let pretty = JSON.stringify(JSON.parse(json), null, '\t');|17:WSH.Echo(pretty);|
Width=389
Height=53
}


Проверено на
- Windows 10 (x64)
- Hiasm v4.05 build 186 (delphi) rev - 2405
- MS Office 365

Всё одним архивом - https://forum.hiasm.com/getfile/39662
карма: 15

0
файлы: 1JScript tests.zip [3.6KB] [131]
Ответов: 2214
Рейтинг: 676
#63: 2024-03-05 10:48:56 ЛС | профиль | цитата
Gunta, схема с панелью управления у меня заработала когда изменил путь к файлу:
c:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe
Но отображает в таблице только одну строку Java Control Panel, при клике открывает. Так и должно быть или больше должно отображать?
Сравнение быстродействия JScript и JScript9:
testJScript.png

Редактировалось 1 раз(а), последний 2024-03-05 11:36:43
карма: 11

0
Ответов: 721
Рейтинг: 154
#64: 2024-03-05 11:50:50 ЛС | профиль | цитата
sla8a писал(а):
схема с панелью управления у меня заработала

Какая разрядность операционной системы? (случайно не 7-ка?) Схема будет работать только в 64 bit-ной Windows10.
Для того чтобы запустить из 32 битной программы 64 битный powershell нужно запускать из %SystemRoot%\sysnative\WindowsPowerShell\v1.0\powershell.exe
У меня это выглядит так:
панель управления.PNG

Редактировалось 1 раз(а), последний 2024-03-05 11:51:09
карма: 15

0
Ответов: 2214
Рейтинг: 676
#65: 2024-03-05 12:32:25 ЛС | профиль | цитата
Windows 10 21H2 Pro 64-разрядная операционная система, процессор x64
Но у меня нет папки Sysnative
Схема панель управления писал(а):
c:\Windows\Sysnative\WindowsPowerShell\v1.0\powershell.exe

Странно, но заработала схема (без изменения пути к powershell.exe), правда долго думает прежде чем отобразить. А первый раз не отобразило.
карма: 11

0
Ответов: 721
Рейтинг: 154
#66: 2024-03-05 13:09:49 ЛС | профиль | цитата
sla8a писал(а):
Но у меня нет папки Sysnative

Странно..
https://trtrmitya.wordpress.com/2008/02/25/sysnative-%D0%B8%D0%BB%D0%B8-%D0%BA%D0%B0%D0%BA-%D0%B4%D0%BE%D1%81%D1%82%D1%83%D1%87%D0%B0%D1%82%D1%8C%D1%81%D1%8F-%D0%B4%D0%BE-system32/

https://learn.microsoft.com/ru-ru/windows/win32/winprog64/file-system-redirector
карма: 15

0
Ответов: 295
Рейтинг: 25
#67: 2024-03-05 13:44:28 ЛС | профиль | цитата
sla8a писал(а):
правда долго думает

У меня тоже долго думает на компе, на нем обновлял повер шел.
На ноутбуке быстро запускается, повер шел не обновлял.
Система одинаковая 10 LTSC 64 bit.

Редактировалось 1 раз(а), последний 2024-03-05 13:45:23
карма: 2
0
Ответов: 721
Рейтинг: 154
#68: 2024-03-06 21:53:39 ЛС | профиль | цитата
Программа конвертирует исполняемый (exe) файл в файл командного процессора (bat), сжимая его внутренним упаковщиком Windows, после этого bat файл можно запускать как обычный exe, он распакуется во временную папку (%temp%) и запустится.
Add(MainForm,2953706,105,77)
{
Width=377
Height=160
Caption="exe2bat"
Point(onClose)
link(onCreate,9991397:doExecute,[])
link(onClose,3596279:doClose,[(158,104)(158,216)(439,216)(439,265)])
}
Add(WinExec,10099217,406,147)
{
FileName="makecab.exe"
Mode=0
RunEvent=1
link(onFinished,3596279:doOpen,[(445,160)(445,258)])
}
Add(ODialog,9991397,168,91)
{
Filter="Программы(*.exe)|*.exe"
FileName=""
link(onExecute,9152570:doEvent1,[])
}
Add(FormatStr,9592272,357,147)
{
Mask=""%1" "%2"\r\n"
link(onFString,10099217:doExec,[])
link(Str1,7762073:Value,[])
}
Add(Hub,9152570,217,91)
{
link(onEvent1,7762073:doValue,[])
link(onEvent2,7175731:doReplace,[(249,104)(249,153)])
}
Add(Memory,7762073,357,91)
{
link(onData,2991786:doPart,[])
}
Add(FileStream,3596279,455,252)
{
Mode=2
AutoCopy=0
Point(doPosition)
Point(doCopyFromStream)
link(onLoad,11044859:doConvert,[])
link(FileName,14785923:getVar,[])
}
Add(StreamConvertor,11044859,504,252)
{
link(onResult,5537819:doReplace,[])
}
Add(StreamConvertor,11651509,602,252)
{
Mode=1
link(onResult,15444450:In,[])
}
Add(Memory,14419925,560,91)
{
Default=String(This program must be run under Win32)
link(onData,4210091:doConvert,[])
}
Add(StreamConvertor,3077251,511,91)
{
Mode=2
Point(Data)
link(onResult,14419925:doValue,[])
}
Add(Replace,5537819,553,252)
{
link(onReplace,11651509:doConvert,[])
link(Sub_str,14419925:Value,[])
link(Dest,11115230:Value,[(573,131)(664,131)])
}
Add(Memory,11115230,658,91)
{
Default=String(This program must be run under Win32)
}
Add(StreamConvertor,4210091,609,91)
{
Mode=2
Point(Data)
link(onResult,11115230:doValue,[])
link(Data,10332340:Text,[])
}
Add(Message,6222676,406,504)
{
Caption="Выполнено"
Icon=4
link(onMessage,4571091:In,[])
}
Add(FormatStr,12257923,357,504)
{
DataCount=1
Mask="Создан файл - \r\n%1\r\n"
link(onFString,6222676:doMessage,[])
link(Str1,7890703:getVar,[])
}
Add(Memory,9620082,308,147)
{
link(onData,9592272:doString,[])
}
Add(FilePartElm,2991786,462,91)
{
link(onPart,3077251:doConvert,[])
}
Add(Replace,7175731,259,147)
{
SubStr=".exe"
DestStr=".bat"
link(onReplace,9620082:doValue,[])
}
Add(DoData,11954363,357,266)
{
Data=Integer(0)
link(onEventData,3596279:doPosition,[])
}
Add(Hub,10373124,287,266)
{
OutCount=7
link(onEvent1,11954363:doData,[])
link(onEvent2,3596279:doCopyFromStream,[])
link(onEvent3,15832707:doData,[(347,286)(347,314)])
link(onEvent4,7449459:doData,[(340,293)(340,356)])
link(onEvent5,6844697:doData,[(333,300)(333,398)])
link(onEvent6,12681225:doData,[(326,307)(326,447)])
link(onEvent7,12257923:doString,[(319,314)(319,510)])
}
Add(DoData,12681225,357,441)
{
link(onEventData,1630265:doWork3,[(403,447)])
link(Data,3596279:Size,[(363,432)(468,432)])
}
Add(DoData,6844697,357,392)
{
Data=Integer(8)
link(onEventData,10038843:doWork2,[])
}
Add(DoData,15832707,357,308)
{
Data=Integer(36)
link(onEventData,10038843:doWork1,[(410,314)])
}
Add(DataToFileEx,5404667,427,378)
{
DataSize=4
Point(doPosition)
link(Stream,3596279:Stream,[(433,292)(461,292)])
}
Add(DoData,7449459,357,350)
{
Data=Integer(138)
link(onEventData,1630265:doWork1,[(403,356)])
}
Add(StrList,10332340,609,42)
{
Strings=#0:|0:|3:cls|9:@echo off|18:set t=%temp%\x.exe|15:extrac32 %0 %t%|3:%t%|7:del %t%|4:exit|0:|
}
Add(HubEx,1630265,399,385)
{
link(onEvent,5404667:doPut,[])
}
Add(HubEx,10038843,406,392)
{
link(onEvent,5404667:doPosition,[])
}
Add(LineBreak,13521266,238,266)
{
link(Out,10373124:doEvent1,[])
Primary=[15444450,413,-14]
}
Add(LineBreak,5898911,49,98)
{
link(Out,2953706:doClose,[])
Primary=[4571091,413,406]
}
Add(LineBreakEx,7890703,357,483)
{
Type=2
}
Add(LineBreakEx,14785923,455,224)
{
Type=2
}
Add(LineBreakEx,4783898,308,196)
{
Type=3
link(_Data,9620082:Value,[])
}

Неплохое описание заголовка САВ-файла - https://www.file-recovery.com/cab-signature-format.htm
Makecab - https://learn.microsoft.com/ru-ru/windows-server/administration/windows-commands/makecab
Extract32 - https://learn.microsoft.com/ru-ru/windows-server/administration/windows-commands/extract

Редактировалось 1 раз(а), последний 2024-03-14 13:42:10
карма: 15

0
Ответов: 721
Рейтинг: 154
#69: 2024-03-07 21:54:07 ЛС | профиль | цитата
Простые bat-часы
Add(MainForm,4786198,196,161)
{
Visible=1
link(onCreate,5465620:doConvert,[])
}
Add(TempFileStream,13032543,301,175)
{
Extention=".bat"
link(onCreate,6551185:doExec,[])
}
Add(WinExec,6551185,357,175)
{
RunEvent=1
Point(onConsoleResult)
Point(doConsoleExec)
link(onFinished,4786198:doClose,[(396,188)(396,216)(186,216)(186,188)])
}
Add(StreamConvertor,5465620,252,175)
{
Mode=7
Point(Data)
link(onResult,13032543:doCreate,[])
link(Data,261563:Text,[])
}
Add(StrList,261563,252,119)
{
Strings=#9:@echo off|13:chcp 1251>nul|18:title Простые часы|25:@mode con cols=32 lines=6|8:color 03|6::clock|34:echo ---------------------------|31:echo Время: %time:~0,8%|26:echo -------------|25:echo Дата: %date%|35:echo ----------------------------|26:timeout /t 1 /nobreak >nul|3:cls|10:goto clock|
}


Редактировалось 1 раз(а), последний 2024-03-14 19:15:19
карма: 15

0
Ответов: 721
Рейтинг: 154
#70: 2024-04-09 07:03:59 ЛС | профиль | цитата
Полностью консольная змейка. Управление стрелками. Немного изменил логику и убрал звуки для уменьшения размера. https://forum.hiasm.com/getfile/39668
карма: 15

0
файлы: 1Snake-console 2.zip [3.6KB] [118]
Ответов: 721
Рейтинг: 154
#71: 2024-04-10 15:06:52 ЛС | профиль | цитата
Netspirit писал(а):
Aziz писал(а):
С чем это связано? Постоянно ошибка сервера 500 писало.

Вроде, место на сервере закончилось.


Решил почистить свой файловый архив на этом сайте. Буду удалять всё что больше 250 kb.
Если кому-то что-то понадобится пишите, выложу повторно.
карма: 15

0
Ответов: 295
Рейтинг: 25
#72: 2024-04-10 19:03:53 ЛС | профиль | цитата
Я думаю не плохо будет в Яндекс диске всё выкладывать.
Последнее время сервер работает с перебоями.
карма: 2
0
Ответов: 721
Рейтинг: 154
#73: 2024-06-17 20:28:57 ЛС | профиль | цитата
Запуск программ сделанных в Hiasm(delphi) на Android
Скачиваем и устанавливаем на телефон Winlator - https://github.com/brunodev85/winlator
Копируем несколько скомпилированных в HiAsm программ на телефон. Настраиваем рабочий стол и запускаем.
Всё работает.
Screenshot_20240617-200532.png
карма: 15

2
Голосовали:Noor, sla8a
Ответов: 721
Рейтинг: 154
#74: 2024-06-18 13:28:58 ЛС | профиль | цитата
Простой парсинг html таблиц и вывод в разные форматы.
Используется модуль – PSParseHTML (https://github.com/EvotecIT/PSParseHTML)

Add(MainForm,2953706,105,105)
{
link(onCreate,10721369:doString,[])
}
Add(WinExec,10162556,224,154)
{
FileName="powershell"
Mode=0
Action="runas"
Point(doConsoleExec)
Point(onConsoleResult)
Point(onConsoleError)
Point(onConsoleTerminate)
link(onConsoleResult,2938005:doWork2,[])
link(onConsoleError,2938005:doWork3,[(277,181)])
}
Add(MTStrTbl,9835431,490,168)
{
Left=405
Top=210
Align=5
Name="asd"
link(CodePageSet,7984739:GetData,[])
}
Add(MST_Load,1712622,392,161)
{
MSTControl="asd"
link(onLoadFromStream,5983438:doColAction,[])
}
Add(StreamConvertor,8921203,343,168)
{
Mode=7
link(onResult,1712622:doLoadFromStream,[])
}
Add(MST_ColAction,5983438,441,168)
{
Action=9
Index=-2
MSTControl="asd"
}
Add(HubEx,2938005,273,168)
{
link(onEvent,8806724:doCharset,[])
}
Add(Charset,8806724,294,168)
{
link(onCharset,8921203:doConvert,[])
}
Add(FormatStr,10721369,161,119)
{
@Hint=#30:Установка модуля - PSParseHTML|39:https://github.com/EvotecIT/PSParseHTML|22:Выполняется один раз. |22:Потом не используется.|0:|0:|0:|
Mask="If(-not(Get-InstalledModule PSParseHTML -ErrorAction silentlycontinue))\r\n{\r\nInstall-PackageProvider NuGet -Force -Confirm:$False\r\nSet-PSRepository PSGallery -InstallationPolicy Trusted\r\nInstall-Module PSParseHTML -Confirm:$False -AllowClobber -Force\r\n}"
link(onFString,10162556:doShellExec,[(214,125)(214,167)])
AddHint(70,-97,213,91,@Hint)
}
Add(Menu,15885269,98,182)
{
Menu=#11:to MTStrTbl|6:to CSV|11:to GridView|
Point(onSelectNum)
link(onSelectNum,13642003:doGetString,[])
}
Add(EventFromData,7984739,490,112)
{
link(onEvent,11980298:doReplace,[])
}
Add(Replace,11980298,546,112)
{
SubStr="""
link(onReplace,7984739:doData,[(585,118)(585,104)(480,104)(480,118)])
}
Add(StrList,13642003,161,161)
{
Strings=#113:(ConvertFrom-HtmlTable -Url 'https://forum.hiasm.com/forum/0') | ConvertTo-Csv -Delimiter ';' -NoTypeInformation |174:(ConvertFrom-HtmlTable -Url 'https://forum.hiasm.com/main/')[4] | Export-Csv -Delimiter ';' -NoTypeInformation -Path 'forumHiasm.csv' -Encoding UTF8 | Start 'forumHiasm.csv'|107:(ConvertFrom-HtmlTable -Url 'https://forum.hiasm.com/main/')[1] | Out-GridView -Title 'Пакет Windows' -Wait|
Point(doGetString)
Point(onGetString)
link(onGetString,10162556:doConsoleExec,[])
}
Add(LinkTip,13514694,616,35)
{
Link="https://github.com/EvotecIT/PSParseHTML"
Font=[MS Sans Serif,8,0,16711680,1]
}

Если захотите удалить модуль просто удалите папку - c:\Program Files (x86)\WindowsPowerShell\Modules\PSParseHTML\

Проверено на
- Windows 10 (x64)
- Hiasm v4.05 build 186 (delphi) rev - 2407
- MS Office 365
карма: 15

0
Ответов: 2214
Рейтинг: 676
#75: 2024-06-18 13:29:22 ЛС | профиль | цитата
Gunta, а HiAsm не пробовали запускать? )
карма: 11

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)