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)
posted on 2011-08-10 10:30
张志松 阅读(650)
评论(0) 编辑 收藏 引用 所属分类:
VB/VBS