Вверх ↑
Ответов: 786
Рейтинг: 168
#1: 2022-09-27 11:06:39 ЛС | профиль | цитата
Stalevar писал(а):
А без сохранения в файл не как?

Попробуй.
Add(MainForm,14189840,147,189)
{
Width=916
Height=471
Color=-16777204
Caption="Windows Authenticate"
BorderStyle=3
Position=1
Point(onClose)
link(onCreate,4794102:doString,[])
link(onClose,11401622:doConsoleTerminate,[])
}
Add(Memo,2538246,426,196)
{
Width=465
Height=442
Align=1
Color=-16777201
Ctl3D=1
ModeSp=1
ScrollBars=2
}
Add(WinExec,11401622,266,189)
{
FileName="powershell"
Mode=0
Action="runas"
Point(doConsoleExec)
Point(onConsoleError)
Point(onConsoleTerminate)
Point(doConsoleTerminate)
Point(onConsoleResult)
link(onConsoleResult,14419945:doCharset,[])
}
Add(FormatStr,4794102,210,203)
{
DataCount=3
Mask="$wc = New-Object System.Net.WebClient\r\n$wc.UseDefaultCredentials = $true\r\n\r\nwhile ($true)\r\n{\r\n$Text = $wc.DownloadString('%1')\r\n$enc = [Text.Encoding]::Default.GetBytes($Text)\r\n-join('AgregateSummary', '',([Text.Encoding]::UTF8.GetString($enc)))\r\n\r\n$Text = $wc.DownloadString('%2')\r\n$enc = [Text.Encoding]::Default.GetBytes($Text)\r\n-join('CraneInstant', '',([Text.Encoding]::UTF8.GetString($enc)))\r\n\r\nStart-Sleep -Seconds %3\r\n}\r\n\r\n"
link(onFString,11401622:doConsoleExec,[])
link(Str1,817807:Text,[])
link(Str2,8287956:Text,[])
link(Str3,15545818:Value,[])
}
Add(VisualStrings,817807,210,77)
{
Lines=#60:http://10.2.19.193:83/api/Agregates/ReadAgregateSummaryAsync|
Width=340
}
Add(VisualStrings,8287956,217,112)
{
Lines=#54:http://10.2.19.193/api/Agregates/ReadCraneInstantAsync|
Width=333
}
Add(Memory,15545818,224,147)
{
@Hint=#30:Интервал обновления в секундах|
Default=Integer(5)
AddHint(74,1,185,13,@Hint)
}
Add(Memo,3720170,426,245)
{
Left=465
Width=445
Height=442
Align=5
Color=-16777201
Ctl3D=1
ScrollBars=2
}
Add(Charset,14419945,315,217)
{
link(onCharset,13098383:doCompare,[])
}
Add(StrMask,13098383,364,217)
{
Mask="CraneInstant*"
link(onFalse,2538246:doText,[])
link(onTrue,3720170:doText,[(417,230)(417,272)])
}

Или
Add(MainForm,14189840,329,238)
{
Width=916
Height=471
Color=-16777204
Caption="Windows Authenticate"
BorderStyle=3
Position=1
Point(onClose)
link(onCreate,4794102:doString,[])
link(onClose,11401622:doConsoleTerminate,[])
}
Add(Memo,2538246,608,245)
{
Width=465
Height=442
Align=1
Color=-16777201
Ctl3D=1
ModeSp=1
ScrollBars=2
}
Add(WinExec,11401622,448,238)
{
FileName="powershell"
Mode=0
Action="runas"
Point(doConsoleExec)
Point(onConsoleError)
Point(onConsoleTerminate)
Point(doConsoleTerminate)
Point(onConsoleResult)
link(onConsoleResult,14419945:doCharset,[])
}
Add(FormatStr,4794102,392,252)
{
DataCount=3
Mask="$wc = New-Object System.Net.WebClient\r\n$wc.UseDefaultCredentials = $true\r\n\r\nwhile ($true)\r\n{\r\n$Text = $wc.DownloadString('%1')\r\n$enc = [Text.Encoding]::Default.GetBytes($Text)\r\n'AgregateSummary'+([Text.Encoding]::UTF8.GetString($enc))\r\n\r\n$Text = $wc.DownloadString('%2')\r\n$enc = [Text.Encoding]::Default.GetBytes($Text)\r\n'CraneInstant'+([Text.Encoding]::UTF8.GetString($enc))\r\n\r\nStart-Sleep -Seconds %3\r\n}\r\n\r\n"
link(onFString,11401622:doConsoleExec,[])
link(Str1,817807:Text,[])
link(Str2,8287956:Text,[])
link(Str3,15545818:Value,[])
}
Add(VisualStrings,817807,392,126)
{
Lines=#60:http://10.2.19.193:83/api/Agregates/ReadAgregateSummaryAsync|
Width=340
}
Add(VisualStrings,8287956,399,161)
{
Lines=#54:http://10.2.19.193/api/Agregates/ReadCraneInstantAsync|
Width=333
}
Add(Memory,15545818,406,196)
{
@Hint=#30:Интервал обновления в секундах|
Default=Integer(5)
AddHint(74,1,185,13,@Hint)
}
Add(Memo,3720170,608,294)
{
Left=465
Width=445
Height=442
Align=5
Color=-16777201
Ctl3D=1
ScrollBars=2
}
Add(Charset,14419945,497,266)
{
link(onCharset,13098383:doCompare,[])
}
Add(StrMask,13098383,546,266)
{
Mask="CraneInstant*"
link(onFalse,2538246:doText,[])
link(onTrue,3720170:doText,[(599,279)(599,321)])
}

карма: 15

1
Голосовали:Stalevar
Редактировалось 2 раз(а), последний 2022-09-27 11:15:03