利用WinHttpReques进行URL编码

利用WinHttpReques进行URL编码

Const WinHttpRequestOption_URL = 1

Const WinHttpRequestOption_URLCodePage = 2

Dim WinHttpReq

Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")

WinHttpReq.Option(WinHttpRequestOption_URLCodePage) = 936 ‘国标GB2312

WinHttpReq.Open "GET", "http://www.baidu.com/s?wd=嘟嘟牛"

MsgBox WinHttpReq.Option(WinHttpRequestOption_URL)