au3的编码参数是什么 我想把中文变成编码

ipxf

比如http://www.baidu.com/s?wd=草泥马
变成http://www.baidu.com/s?wd=%B2%DD%C4%E0%C2%ED 要怎么弄啊
我现在的代码是这样的 但是只能在IE下正常 用其他浏览器就是乱码 需要编码才能正常访问

#NoTrayIcon
Dim $I, $str
If $CmdLineRaw = "" Then
Exit
Else
$CmdNub = StringSplit($CmdLineRaw, " ")
Switch $cmdline[1]
Case "g"
For $I = 2 To $CmdNub[0]
$str &= $cmdline[$I] & " "
Next
ShellExecute("http://www.google.com/search?hl=zh-CN&ie=GB2312&q=" & $str)
Case "b"
For $I = 2 To $CmdNub[0]
$str &= $cmdline[$I] & " "
Next
ShellExecute("http://www.baidu.com/s?wd=" & $str)
Case "y"
For $I = 2 To $CmdNub[0]
$str &= $cmdline[$I] & " "
Next
ShellExecute("http://one.cn.yahoo.com/s?p=" & $str)
Case "w"
For $I = 2 To $CmdNub[0]
$str &= $cmdline[$I] & " "
Next
ShellExecute("http://www.youdao.com/search?q=" & $str)
EndSwitch
EndIf

78391493

Func UrlEncode($Url)
        Local $string, $string_1, $string_2, $iret, $i, $j
        $string = StringSplit($Url, "")
        For $i = 1 To $string[0]
                Switch AscW($string[$i])
                        Case 33, 34, 36, 38 To 126
                                $iret &= $string[$i]
                        Case Else
                                $string_1 = StringSplit(StringTrimLeft(StringToBinary($string[$i], 4), 2), "")
                                $string[$i] = ""
                                For $j = 1 To $string_1[0] Step 2
                                        $string[$i] &= "%" & $string_1[$j] & $string_1[$j + 1]
                                Next
                                $iret &= $string[$i]
                EndSwitch
        Next
        Return $iret
EndFunc   ;==>UrlEncode

ipxf

怎么用 加在哪里？