Вверх ↑
Ответов: 698
Рейтинг: 143
#1: 2021-09-25 22:40:46 ЛС | профиль | цитата
envoy_sky писал(а):
И что это мне даст?
Непонятная писанина в окне и всё.



Add(MainForm,1998830,343,147)
{
Width=504
Height=83
}
Add(Button,15347235,399,147)
{
Left=12
Top=10
Width=75
Caption="Порты"
link(onClick,14810329:doString,[])
}
Add(FormatStr,13519124,539,63)
{
Mask="%1 COM%2"
}
Add(ComboBox,861826,609,147)
{
Left=110
Top=9
Width=363
Height=21
Text=""
DataType=1
ReadOnly=0
}
Add(KE_DetectDevices,10942688,462,63)
{
link(onSearch,13519124:doString,[])
}
Add(Charset,9621626,560,147)
{
link(onCharset,861826:doAdd,[])
}
Add(WinExec,13023946,511,133)
{
FileName="powershell"
Mode=0
Point(doConsoleExec)
Point(onConsoleResult)
link(onConsoleResult,9621626:doCharset,[])
}
Add(FormatStr,14810329,455,147)
{
Mask="Get-WmiObject Win32_PnPEntity | Where Name -match 'COM\d+' | Select-Object -Property Name | fl"
link(onFString,13023946:doConsoleExec,[])
}

карма: 15

0