Вверх ↑
Ответов: 438
Рейтинг: 78
#1: 2022-01-08 13:48:42 ЛС | профиль | цитата
Если не желать чего-то особенного, то можно вызвать InputBox стандартными компонентами.

Add(MainForm,2953706,182,168)
{
link(onCreate,6654860:doString,[])
}
Add(FormatStr,6654860,245,182)
{
Mask="sys.onValue InputBox("%1", "%2")\r\n\r\n"
link(onFString,4900988:##SetScript,[])
link(Str1,6398593:Text,[])
link(Str2,9583772:Text,[(258,152)(265,152)])
}
Add(VBJScript,4900988,301,182)
{
WorkPoints=#11:##SetScript|
EventPoints=#7:onValue|
Script=#0:|0:|
UseName=0
link(onValue,2996465:doText,[])
}
Add(VisualStrings,9583772,259,126)
{
Lines=#9:Заголовок|
Width=67
}
Add(VisualStrings,6398593,245,98)
{
Lines=#16:Текст сообщения |
Width=144
}
Add(Label,2996465,357,182)
{
Left=45
Top=35
Height=28
Font=[MS Sans Serif,14,0,0,1]
Caption=""
}

Или чуть посложнее

Add(MainForm,2953706,217,133)
{
link(onCreate,1827648:doString,[])
}
Add(WinExec,3485469,329,133)
{
FileName="powershell.exe"
Mode=0
Point(doConsoleExec)
Point(onConsoleResult)
Point(onConsoleError)
link(onConsoleResult,13069838:doCharset,[])
}
Add(FormatStr,1827648,273,147)
{
Mask="$credential = Get-Credential\r\n# $credential = Get-Credential -Username "MyDomain\MyUsername" -Message "Inform your password"\r\n$UserName = $credential.UserName\r\n$password = [System.Runtime.InteropServices.Marshal]::PtrToStringAuto([System.Runtime.InteropServices.Marshal]::SecureStringToBSTR($credential.Password))\r\n\r\n-join('User - ', $UserName, ';', 'Password - ', $password) "
link(onFString,3485469:doConsoleExec,[])
}
Add(Charset,13069838,392,147)
{
link(onCharset,1188660:doEnum,[])
}
Add(Memo,1351460,504,147)
{
Left=550
Top=160
Align=5
Font=[MS Sans Serif,14,0,0,1]
ScrollBars=3
}
Add(Str_Enum,1188660,448,147)
{
link(onEnum,1351460:doAdd,[])
}

карма: 9

0