由于有的网站接受数据时 是用request("")
所以我想用 提交 cookie的方式 提交 参数 所以写了下面的 内容
Dim Http
Set Http = CreateObject("msxml2.serverXMLHTTP")
Http.Open "POST",Url,False
Http.SetRequestHeader "Content-Type","application/x-www-form-urlencoded"
Http.SetRequestHeader "Cookie",data
Http.Send ()
GetHTTPPage=Bytes2bStr(Http.responsebody)
Set Http = Nothing
End Function
可我发现 我如何改变cookie后面的值都没反映
完全由send里的内容决定
如果send里面内容正确 网站就能正常显示 如果send里错误 访问的内容就会出错
所以我想用 提交 cookie的方式 提交 参数 所以写了下面的 内容
Dim Http
Set Http = CreateObject("msxml2.serverXMLHTTP")
Http.Open "POST",Url,False
Http.SetRequestHeader "Content-Type","application/x-www-form-urlencoded"
Http.SetRequestHeader "Cookie",data
Http.Send ()
GetHTTPPage=Bytes2bStr(Http.responsebody)
Set Http = Nothing
End Function
可我发现 我如何改变cookie后面的值都没反映
完全由send里的内容决定
如果send里面内容正确 网站就能正常显示 如果send里错误 访问的内容就会出错