'
' UrlUnescape - Converts escape sequences back into ordinary characters.
'
' Author: Joe Strazzere
'
Dim OldURL as unsigned
Dim NewURL as unsigned
Dim count as unsigned
Dim flags as unsigned
OldURL=Allocate(100)
NewURL=Allocate(100)
Count=Allocate(100)
Flags=Allocate(100)
PokeString(OldURL,"http://www.zerble.com/arg=A%20B%20C",1)
'PokeString(OldURL,"This is a test",1)
PokeString(NewURL," ",1)
PokeInteger(Count,100,4) ' the intial length of NewURL goes here, the new length is returned here
PokeInteger(Flags,0,4)
ret=External("shlwapi.dll","UrlUnescapeA",OldURL,NewURL, count, flags)
msgbox(ret)
ret=PeekInteger(count,4)
NewURL$=PeekString$(NewURL)
msgbox(Str$(ret)+" characters ="+NewURL$)
