Вверх ↑
Ответов: 783
Рейтинг: 168
#1: 2022-09-24 13:49:00 ЛС | профиль | цитата
Stalevar писал(а):
Вот что получилось:

Попробуй эту схему.
Add(MainForm,14189840,336,182)
{
Width=874
Height=471
Color=-16777204
Caption="Windows Authenticate"
BorderStyle=3
Position=1
}
Add(Button,2266488,399,182)
{
Left=5
Top=10
Width=105
Caption="Получить JSON"
link(onClick,4794102:doString,[])
}
Add(Memo,2538246,622,182)
{
Left=4
Top=40
Width=860
Height=400
Color=-16777201
Ctl3D=1
ScrollBars=3
}
Add(WinExec,11401622,511,168)
{
FileName="powershell"
Mode=0
Action="runas"
Point(doConsoleExec)
Point(onConsoleResult)
Point(onConsoleError)
link(onConsoleResult,8409020:doCharset,[])
}
Add(FormatStr,4794102,455,182)
{
DataCount=1
Mask="$wc = New-Object System.Net.WebClient\r\n$wc.UseDefaultCredentials = $true\r\n\r\n$Text = $wc.DownloadString('%1')\r\n$enc = [Text.Encoding]::Default.GetBytes($Text)\r\n[Text.Encoding]::UTF8.GetString($enc)\r\n# [Text.Encoding]::ASCII.GetString($enc)\r\n\r\n$wc.DownloadFile('%1','test.json')"
link(onFString,11401622:doConsoleExec,[])
link(Str1,11141527:Text,[])
}
Add(VisualStrings,817807,469,105)
{
Lines=#60:http://10.2.19.193:83/api/Agregates/ReadAgregateSummaryAsync|
Width=340
}
Add(VisualStrings,11141527,455,77)
{
Lines=#42:https://www.cbr-xml-daily.ru/daily_json.js|
Width=249
}
Add(Charset,8409020,567,182)
{
link(onCharset,2538246:doAdd,[])
}

После запуска рядом с программой появится файл test.json. Там нормальная кодировка?
карма: 15

1
Голосовали:Stalevar
Редактировалось 1 раз(а), последний 2022-09-24 13:49:35