Конвертировать в URL

Форумы Помощь по пакетуКонвертировать в URL ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 253

Рейтинг: 0

#1: 2023-01-16 19:02:26 ЛС | профиль | цитата

Доброго времени суток, не знаю была такая тема или нет. не понимаю как конвертировать кириллицу в строку url. тот принцип что предлагает элемент Charset как-то не правильно конвертирует.
частично решил вот таким вот способом. получилось то что нужно. но такие символы как "?" он почему-то конвертирует в цифры.
Я пытаюсь отправить get запрос. c текстовым сообщением на кирилици, если делать вовсе без перекодировки отправляет пустое сообщение.


Add(Edit,1914024,364,98)
{
 Left=40
 Top=20
 Width=240
 link(onEnter,3001035:doCharset,[(412,111)(412,118)])
}
Add(Edit,622226,651,105)
{
 Left=40
 Top=80
 Width=250
}
Add(Charset,3001035,441,112)
{
 Type=6
 link(onCharset,1855174:doCharset,[])
}
Add(Charset,1855174,490,112)
{
 Type=12
 link(onCharset,622226:doText,[(586,118)(586,111)])
}

карма: 0

Google vip	#1.1контекстная реклама от партнеров

Ответов: 700

Рейтинг: 145

#2: 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)])
}

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

карма: 15

Ответов: 253

Рейтинг: 0

#3: 2023-01-17 13:38:04 ЛС | профиль | цитата

Gunta, Привет спасибо большое, но что-то он у меня всё декодирует в символы %20%20%20%20%20 меняется только их количество

карма: 0

Ответов: 700

Рейтинг: 145

#4: 2023-01-17 13:45:06 ЛС | профиль | цитата

egorhay писал(а):

всё декодирует в символы %20%20%20%20%20 меняется только их количество

Первую схему поправил. Сейчас всё должно работать
~~Очень странно. У меня всё работает.~~

encodeURI.PNG

И декодирует обратно.

Add(MainForm,905116,147,112)
{
 Width=783
 Height=208
 link(onCreate,12347137:doWork2,[])
}
Add(Edit,1914024,217,70)
{
 Left=10
 Top=30
 Width=240
 Text="https://mozilla.org/?x=шеллы"
 link(onEnter,12347137:doWork1,[(256,83)(256,111)(200,111)])
}
Add(Edit,622226,364,126)
{
 Left=10
 Top=65
 Width=680
 Text=""
}
Add(VBJScript,2515807,273,126)
{
 @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,2227761:doEvent1,[])
}
Add(DoData,7532872,217,126)
{
 link(onEventData,2515807:doWork,[])
 link(Data,1914024:Text,[])
}
Add(HubEx,12347137,196,126)
{
 link(onEvent,7532872:doData,[])
}
Add(Edit,12421908,411,177)
{
 Left=10
 Top=110
 Width=680
 Text=""
}
Add(VBJScript,14573840,362,177)
{
 @Hint=#14:escape( Data )|
 WorkPoints=#6:doWork|
 EventPoints=#7:onEvent|
 Language=1
 Script=#31:function doWork( Data, Index ){|34: sys.onEvent( decodeURI( Data ) );|1:}|
 UseName=0
 link(onEvent,12421908:doText,[])
}
Add(Hub,2227761,329,126)
{
 link(onEvent1,622226:doText,[])
 link(onEvent2,14573840:doWork,[(354,139)(354,183)])
}

Редактировалось 2 раз(а), последний 2023-01-17 15:47:22

карма: 15

Голосовали: ric

Ответов: 253

Рейтинг: 0

#5: 2023-01-17 18:08:35 ЛС | профиль | цитата

Gunta, Огромное спасибо !!!

карма: 0

Форумы Помощь по пакетуКонвертировать в URL ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)