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 ! "