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