找到一段用VB做论坛发帖机的代码

以下内容转自：http://cgzcgb.bokee.com/，感谢这哥们。

　用HttpWebRequest类做论坛快速发帖器

　　用HttpWebRequest类做论坛发贴机就简单多了。
　　我们始终不能忘记，最好的教程是MSDN，在Microsoft Visual Studio .NET 2003“搜索”中敲入HttpWebRequest，抄来一些东东（事实上许多教程书籍都是从MSDN上抄的)：
　　 命名空间: System.Net
　　 HttpWebRequest 类对 WebRequest 中定义的属性和方法提供支持，也对使用户能够直接与使用 HTTP 的服务器交互的附加属性和方法提供支持。
　　 不要使用 HttpWebRequest 构造函数。使用 WebRequest.Create 方法初始化 HttpWebRequest 的一个新实例。如果 URI 的方案是 http:// 或 https:// ，则 Create 将返回 HttpWebRequest 实例。
　　 GetResponse 方法向 RequestUri 属性中指定的 Internet 资源发出同步请求并返回包含该响应的 HttpWebResponse 实例。可以使用 BeginGetResponse 和 EndGetResponse 方法对 Internet 资源发出异步请求。
　　 当要向 Internet 资源发送数据时， GetRequestStream 方法返回用于发送数据的 Stream 实例。　　BeginGetRequestStream 和 EndGetRequestStream 方法提供对发送数据流的异步访问。　　
　　 如果在访问 Internet 资源时发生错误，则 HttpWebRequest 类将引发 WebException 。 WebException.Status 属性是 WebExceptionStatus 值之一，它指示错误源。当 WebException.Status 为 WebExceptionStatus.ProtocolError 时， Response 属性包含从 Internet 资源接收的 HttpWebResponse 。
　　

Shared Sub postData()
　　Dim httpUrl As New System.Uri("http://www.tuenhai.com/?" & "name=yourName&pass=yourPass&cardnumber=yourCardNumber")
　　Dim req As HttpWebRequest
　　'req.Timeout = 10000 '设置超时值10秒
　　req = CType(WebRequest.Create(httpUrl2), HttpWebRequest)
　　req.Method = "POST"
　　req.ContentType = "application/x-www-form-urlencoded"
　　Dim bytesData() As Byte = 　　System.Text.Encoding.ASCII.GetBytes(""name=yourName&pass=yourPass&cardnumber=yourCardNumber")
　　req.ContentLength = bytesData.Length
　　Dim postStream As Stream = req.GetRequestStream()
　　postStream.Write(bytesData, 0, bytesData.Length) 　　'以上向服务器post信息。

　　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) 　'这就是向网络服务器post后返回的信息
　　　　MsgBox(res.StatusCode.ToString)　　'向网络服务器post后返回的状态码
　　res.Close()　'关闭

End Sub

作为菜鸟，我并不知道这些能不能在脚本语言中实现。但是先收了再说。感谢这哥们。我并不需要到论坛里狂轰乱炸，不过有时这种东西是很有用的。