e语言 读取http 不运行html,不懂html也来学网抓（xmlhttp/winhttp+fiddler）

Sub Main()

Const username As String = "vbatest"

Const password As String = "12341234"

Dim strText As String

Dim sid As String

With CreateObject("MSXML2.XMLHTTP") 'CreateObject("WinHttp.WinHttpRequest.5.1") '

.Open "POST", "https://mail.163.com/entry/cgi/ntesdoor?df=mail163_letter&funcid=loginone&iframe=1&passtype=1&product=mail163&race=63_31_31_gz&uid=" & username & "@163.com", False

.setrequestheader "Content-Type", "application/x-www-form-urlencoded"

.send "username=" & username & "&password=" & password

sid = Split(Split(.responsetext, "sid=")(1), "&")(0)

.Open "POST", "http://mail.163.com/js6/s?sid=" & sid & "&func=mbox:listMessages&topNav_mobileIcon_show=1&TopTabReaderShow=1&TopTabReaderTipsShow=1&FrameMasterMailPopupClose=1&welcome_welcomemodule_mailrecom_click=1&LeftNavfolder1Click=1&mbox_folder_enter=1", False

.setrequestheader "Content-Type", "application/x-www-form-urlencoded"

.setrequestheader "Accept", "text/javascript" '不加这句的话返回的不是json是xml数据

.send "var=" & encodeURI("<?xml version=""1.0""?>" _

& "" _

& "1" _

& "date" _

& "true" _

& "20" _

& "0" _

& "false" _

& "top" _

& "true" _

& "true" _

& "")        Debug.Print .responsetext

End With

End Sub