VBCoding Библиотека кодов Visual Basic 6 Интернет и сеть Преобразовать строку в HEX-вид для передачи серверу в URL

Visual Basic 6
Преобразовать строку в HEX-вид для передачи серверу в URL
Данная функция преобразовывает "привет" в "%EF%F0%E8%E2%E5%F2".

Public Function URLToHex(ByVal URL$) As String
On Error Resume Next
Dim s$, s1$, i As Long
If Len(URL) > 0 Then
For i = 1 To Len(URL)
s1 = Asc(Mid(URL, i, 1))
s = s & "%" & Hex(s1)
Next
End If
URLToHex = s
End Function
 

Добавить комментарий


Защитный код
Обновить

 
VBCoding Библиотека кодов Visual Basic 6 Интернет и сеть Преобразовать строку в HEX-вид для передачи серверу в URL  
Powered by Exponenta -