Вверх ↑
Ответов: 5227
Рейтинг: 587
#1: 2018-01-13 20:25:20 ЛС | профиль | цитата
Evg, скорей всего вы пытаетесь засунуть результат в Memo у которого есть ограничения, пробуйте в RichEdit. Если не пойдёт то как вариант этот код. Кстати может не заработать, тогда нужно проделать некоторые манипуляции над VBJScript. UseName=False->Сохранить схему ->UseName=True, после этого должно сработать

Add(MainForm,2953706,84,84)
{
Width=839
Height=540
Position=1
}
Add(VBJScript,10179006,147,140)
{
WorkPoints=#6:doWork|
EventPoints=#5:onRes|
DataPoints=#3:Url|
Script=#18:Sub doWork(dt,idx)|12: Dim Https |50: Set Https = CreateObject("MSXML2.ServerXMLHTTP")|34: Https.Open "GET", sys.Url, False|26: Https.SetOption 2, 13056|12: Https.Send|30: sys.onRes Https.responseText|7:End Sub|
link(onRes,13426251:doAdd,[])
link(Url,16271115:Text,[])
}
Add(Button,16737238,84,140)
{
Left=20
Top=15
Caption="GET"
link(onClick,10179006:doWork,[])
}
Add(RichEdit,13426251,217,140)
{
Left=20
Top=50
Width=785
Height=435
ScrollBars=3
}
Add(Edit,16271115,147,84)
{
Left=95
Top=15
Width=710
Text="https://worldofwarcraft.com/ru-ru/character/borean-tundra/Маруман"
}

карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0