用以下代码:
Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Namespace Examples.System.Net
Public Class WebRequestPostExample
Public Shared Sub Main()
' Create a request using a URL that can receive a post.
Dim request As WebRequest = WebRequest.Create("http://ptlogin2.qq.com/login")
' Set the Method property of the request to POST.
request.Method = "POST"
' Create POST data and convert it to a byte array.
Dim u, p, y As String
u = "XXXXX" 'QQ号码
p = "XXXXX" '加密后的QQ密码
y = "XXX" '验证码
Dim postData As String = "u=" & u & "&p=" & p & "&verifycode=" & y & "&aid=15000101&u1=http%3A%2F%2Fimgcache.qq.com%2Fqzone%2Fv5%2F