Вверх ↑
Ответов: 678
Рейтинг: 142
#1: 2023-01-16 22:09:40 ЛС | профиль | цитата
egorhay писал(а):
как конвертировать кириллицу в строку url

Add(MainForm,8915929,238,182)
{
Width=425
Height=151
link(onCreate,12347137:doWork2,[])
}
Add(Edit,1914024,308,140)
{
Left=10
Top=30
Width=240
Text="https://mozilla.org/?x=шеллы"
ClearAfterEnter=1
link(onEnter,12347137:doWork1,[(347,153)(347,181)(291,181)])
}
Add(Edit,622226,406,196)
{
Left=10
Top=65
Width=390
Text=""
}
Add(VBJScript,2515807,357,196)
{
@Hint=#14:escape( Data )|
WorkPoints=#6:doWork|
EventPoints=#7:onEvent|
Language=1
Script=#31:function doWork( Data, Index ){|34: sys.onEvent( encodeURI( Data ) );|1:}|
UseName=0
link(onEvent,622226:doText,[])
}
Add(DoData,7532872,308,196)
{
link(onEventData,2515807:doWork,[])
link(Data,1914024:Text,[])
}
Add(HubEx,12347137,287,196)
{
link(onEvent,7532872:doData,[])
}


или сразу с проверкой
Add(MainForm,6336462,217,126)
{
Width=907
Height=107
link(onCreate,12347137:doWork2,[])
}
Add(Edit,1914024,287,84)
{
Left=5
Top=15
Width=360
Text="https://www.google.com/search?q=Конструктор программ Hiasm"
ClearAfterEnter=1
link(onEnter,12347137:doWork1,[(326,97)(326,125)(270,125)])
}
Add(Edit,622226,427,140)
{
Top=48
Width=891
Align=4
Text=""
}
Add(VBJScript,2515807,336,140)
{
@Hint=#14:escape( Data )|
WorkPoints=#6:doWork|
EventPoints=#7:onEvent|
Language=1
Script=#31:function doWork( Data, Index ){|34: sys.onEvent( encodeURI( Data ) );|1:}|
UseName=0
link(onEvent,3108002:doEvent1,[])
}
Add(DoData,7532872,287,140)
{
link(onEventData,2515807:doWork,[])
link(Data,1914024:Text,[])
}
Add(HubEx,12347137,266,140)
{
link(onEvent,7532872:doData,[])
}
Add(WinExec,446283,427,175)
{
}
Add(Hub,3108002,385,140)
{
link(onEvent1,622226:doText,[])
link(onEvent2,446283:doShellExec,[(417,153)(417,188)])
}

карма: 14

0
Редактировалось 3 раз(а), последний 2023-01-17 15:45:19