如何用socket向网页post信息?
8620 2004-03-02 08:14:09 用httpWebRequest类post信息简直是垃圾
向一个网页post是方便,但向同网站多个网页post信息简直是垃圾,碰到错误(如网页不存在,拒绝链接)的话反应超慢,用try方式捕捉错误也没有用,用timeout也没有用,简直是垃圾,还不如用WebBrowser高效.
以下是向一个网页post代码,多网页就不行,
如果用Socket类来写,如何改写如下代码??????????????????????
Dim req As HttpWebRequest
Dim regInfo As String = "bookname=250006&name=happyyear&passwd=happygood&sayface=01&attr=2&subject=good&body=fine&midi=http://www.csdn.net&img=http://www.csdn.net&url_title=test&url=http://www.csdn.net&email=csdn@163.com&emailme=2"
Dim regUrl As String = "http://goal28.ziqu.com/cgi-bin/wwwboardm.cgi?" & regInfo
req = CType(WebRequest.Create(regUrl), HttpWebRequest)
req.Method = "POST"
req.ContentType = "application/x-www-form-urlencoded"
req.Referer = "http://goal28.ziqu.com/cgi-bin/wwwboardm.cgi?"
Dim bytesData() As Byte = System.Text.Encoding.ASCII.GetBytes(regInfo)
req.ContentLength = bytesData.Length
Dim postStream As Stream = req.GetRequestStream()
postStream.Write(bytesData, 0, bytesData.Length)
Dim res As HttpWebResponse = CType(req.GetResponse(), HttpWebResponse)
Dim reader As StreamReader = _
New StreamReader(res.GetResponseStream, System.Text.Encoding.GetEncoding("GB2312"))
Dim respHTML As String = reader.ReadToEnd()
MsgBox(respHTML)