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