本群的登录器代码！需要软件请留言

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

Dim http As Object, q_post As String, User As String, Pass As String
Set http = CreateObject("Microsoft.XMLHTTP")
http.open "POST", "http://www.pinggu.org/bbs/logging.php?action=login", False
http.setRequestHeader "Accept",image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, */*"
http.setRequestHeader "Referer", "http://www.pinggu.org/bbs/logging.php?action=login"'
http.setRequestHeader "Accept-Language", "zh-cn"
http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
http.setRequestHeader "User-Agent",  "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727)"
http.setRequestHeader "Host", "www.pinggu.org"
http.setRequestHeader "Content-Length", "115"
http.setRequestHeader "Cache-Control", "no-cache"
http.setRequestHeader "Connection", "Keep-Alive"
q_post = formhash=1c7e1443&mylailu=&loginfield=username&username="& User & "&password="& Pass & "&questionid=0&answer=&loginsubmit=%B5%C7%C2%BC
User=text1.text
Pass=text2.text
http.send (q_post)
WebBrowser1.Navigate"http://www.pinggu.org/bbs/"
Set http = Nothing

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Application compatible connection Microsoft Language 软件 代码 留言 登录