Dim xmlhttp
Set xmlhttp = CreateObject("msxml2.xmlhttp")
With xmlhttp
.open "POST", "http://www.hnlib.com/", False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.send "tbUid=000&tbPwd=59"
MsgBox .responseText '显示POST之后网页返回的结果
End With
Set xmlhttp = Nothing
Set xmlhttp = CreateObject("msxml2.xmlhttp")
With xmlhttp
.open "POST", "http://www.hnlib.com/", False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.send "tbUid=000&tbPwd=59"
MsgBox .responseText '显示POST之后网页返回的结果
End With
Set xmlhttp = Nothing