Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte aplikáciu Visual Basic Editor .
2
Vytvorenie novej aplikácie Visual Basic projekt
3
Pridať nasledujúce funkcie : .
Public Function urldecode ( StringToDecode As String ) As String Dim
TempAns As String
Dim CurChr As Integer
CurChr = 1
Do Do CurChr - 1 = Ľan ( StringToDecode )
Select Case Mid ( StringToDecode , CurChr , 1 )
Prípad " + "
TempAns = TempAns & " "
Prípad " % "
TempAns = TempAns & Chr ( Val ( " & H " & _
Mid ( StringToDecode , CurChr + 1 , 2 ) ) )
CurChr = CurChr + 2
Case Else
TempAns = TempAns & Mid ( StringToDecode , CurChr , 1 )
End Select
CurChr = CurChr + 1
Loop
urldecode = TempAns
End Function
4
Pridať kód pre volanie funkcie urldecode , a zadajte text , ktorý bol už zakódovaný pre reťazec " Hello World " :
MsgBox urldecode ( " Hello % 20World % 21 % 20 % 3A % 2D % 29 " )
5
Uložte súbor VB projektu kliknutím na tlačidlo " súbor " a potom " Uložiť " .
6
Stlačte " F5 " na spustiť VB projektu . Okno so správou sa pop - up kódovaný text sa vráti na nekódované texte " Hello world ! "