'//////////直接放入模块调用即可
Dim xmlhttp
Set xmlhttp = CreateObject("msxml2.xmlhttp")
With xmlhttp
.open "POST", "填写上面假设的网址", False '////填网址
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.send "MENU=200&code=1540&JOB=VOTE" '////填写所需send的内容
MsgBox .responseText '显示POST之后网页返回的结果
End With
Set xmlhttp = Nothing
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024