如何在inet控件件指定Location和保持Session

来源：百度知道 编辑：UC知道 时间：2024/07/12 17:07:18
想通过OA网站自动生成一些报表，需要用inet控件登录并记录获得的Session，且资料页面还需指定引用（跳转前）的页面，如何实现？

指定引用页可构造SendHeader实现：
strSendHeader = strSendHeader & "Accept: */*" & vbCrLf
strSendHeader = strSendHeader & "Referer: " & 原地址 & vbCrLf
strSendHeader = strSendHeader & "Accept-Language: zh-cn" & vbCrLf
strSendHeader = strSendHeader & "Accept-Encoding: gzip, deflate" & vbCrLf
strSendHeader = strSendHeader & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)" & vbCrLf
strSendHeader = strSendHeader & "Host: "& 主机 & vbCrLf
strSendHeader = strSendHeader & "Connection: Keep -Alive" & vbCrLf

Inet1.Execute 目标文件地址, "GET", strSendData, strSendHeader