Apri editor di Visual Basic .
2
Creare un nuovo Visual Basic . progetto
3
Aggiungere la seguente funzione :
Public Function UrlDecode ( StringToDecode As String ) As String Dim
TempAns As String
Dim CurChr As Integer
CurChr = 1
Do Until CurChr - 1 = Len ( StringToDecode ) per
Select Case Mid ( StringToDecode , CurChr , 1 ) per
Case " + "
TempAns = TempAns & " "
caso " % "
TempAns = TempAns & Chr ( Val ( "& h " & _ < br
metà> ( StringToDecode , CurChr + 1 , 2) ) ) per
CurChr = CurChr + 2
Case Else
TempAns = TempAns & Mid ( StringToDecode , CurChr , 1 ) per
End Select
CurChr = CurChr + 1
loop
UrlDecode = TempAns
End Function
4
aggiungere il codice per chiamare la funzione UrlDecode , e immettere il testo , che è già stato codificato , per la stringa " Ciao mondo " :
UrlDecode MsgBox ( " Ciao % 20World % 21 % 20 % 3A % 2D % 29 " ) economici
5 Salvare il file di progetto VB , fare clic su" File "e poi" Salva ".
6
Premere" F5 "per eseguire il progetto VB . Un messaggio pop-up di testo codificato restituirà il testo in chiaro " Ciao mondo ! "
Programmazione © www.354353.com