sid = "XXXXXXX" 'sid
With CreateObject("Msxml2.ServerXMLHTTP")
.open "POST", "http://pt.3g.qq.com/s?aid=nLogin3gqqbysid&r=1111", False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.send "auto=1&loginType=1&3gqqsid=" & sid
End With
最近闲聊无事研究了下VBS,研究了下POST,,就有这个代码叻,很简单
利用VBS简单的登录3GQQ,,