V
Local $aData = StringSplit(BinaryToString(StringToBinary($sData,4),1),"")
Local $nChar
$sData=""
For $i = 1 To $aData[0]
$nChar = Asc($aData[$i])
Switch $nChar
Case 120
Case 45, 46, 48 To 57, 65 To 90, 95, 97 To 122, 126
$sData &= $aData[$i]
Case 32
$sData &= "+"
Case Else
$sData &= "%"; & Hex($nChar,2)
EndSwitch
Next
Return $sData
EndFunc;==> _URIEncode