Add(MainForm,2953706,182,112)
{
 Width=839
 Height=540
 Position=1
}
Add(VBJScript,10179006,301,203)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:onRes|
 DataPoints=#3:Url|4:User|8:Password|
 Script=#18:Sub doWork(dt,idx)|12:  Dim Https |50:  Set Https = CreateObject("MSXML2.ServerXMLHTTP")|60:  Https.Open "GET", sys.Url, vbFalse, sys.User, sys.Password|26:  Https.SetOption 2, 13056|12:  Https.Send|30:  sys.onRes Https.responseText|7:End Sub|
 link(onRes,13426251:doText,[])
 link(Url,16271115:Text,[])
 link(User,9769461:Text,[(314,166)(356,166)])
 link(Password,9781356:Text,[(321,178)(405,178)])
}
Add(Button,16737238,182,196)
{
 Left=20
 Top=15
 Caption="GET"
 link(onClick,8774512:doStart,[])
}
Add(RichEdit,13426251,399,189)
{
 Left=20
 Top=50
 Width=785
 Height=435
 ScrollBars=3
}
Add(Edit,16271115,301,112)
{
 Left=95
 Top=15
 Width=405
 Text="https://worldofwarcraft.com/ru-ru/character/borean-tundra/Маруман"
}
Add(Thread,8774512,245,196)
{
 FastStop=0
 link(onSyncExec,10179006:doWork,[])
}
Add(Edit,9769461,350,112)
{
 Left=545
 Top=15
 Width=90
 Text=""
}
Add(Edit,9781356,399,112)
{
 Left=715
 Top=15
 Width=90
 Text=""
}
Add(Label,622562,245,119)
{
 Left=505
 Top=15
 Width=36
 Height=20
 Caption="User:"
}
Add(Label,5374013,238,112)
{
 Left=645
 Top=15
 Width=67
 Height=20
 Caption="Password:"
}