VB.NET 登录空间

ptuiCB('7','0','','0','很遗憾，网络连接出现异常，请您稍后再试。(2182087640)');  看了N遍代码没发现哪里有错  帮指点下。。。。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim 读取文件 As HttpWebRequest = HttpWebRequest.Create("http://ptlogin2.qq.com/login?u=" & ComboBox1.Text & "&p=" & PASS() & "&verifycode=" & TextBox2.Text & "&aid=39000301&u1=http%3A%2F%2F7.qq.com%2Fserver%2FindexLogined.shtml&h=1&ptredirect=1&ptlang=2052&from_ui=1&dumy=&fp=loginerroralert&action=12-45-3378409&mibao_css=")

        读取文件.Method = "GET"

        Dim 返回文件 As HttpWebResponse = 读取文件.GetResponse

        Dim 读取文本 As New StreamReader(返回文件.GetResponseStream, Encoding.GetEncoding("UTF-8"))

        Dim 返回文本 As String = 读取文本.ReadToEnd

        读取文本.Close()

        TextBox3.Text = 返回文本

    End Sub

    Private Sub ComboBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.LostFocus

        TextBox2.Text = KEY()

    End Sub

    Private Function PASS() As String

        Dim 读取文本 As New StreamReader(My.Application.Info.DirectoryPath & "\JScript1.js")

        Dim 返回文本 As String = 读取文本.ReadToEnd

        读取文本.Close()

        Dim 脚本组件 As New MSScriptControl.ScriptControl

        脚本组件.Language = "JScript"

        脚本组件.AddCode(返回文本)

        Dim 密码 As String = 脚本组件.Run("md5_3", TextBox1.Text)

        密码 = 脚本组件.Run("md5", 密码 + TextBox2.Text)

        Return (密码)

    End Function

    Private Function KEY() As String

        Dim 读取文件 As HttpWebRequest = HttpWebRequest.Create("http://check.ptlogin2.qq.com/check?uin=" & ComboBox1.Text & "&appid=39000301&r=0.555688550328813")

        Dim 返回文件 As HttpWebResponse = 读取文件.GetResponse

        Dim 读取文本 As New StreamReader(返回文件.GetResponseStream(), Encoding.GetEncoding("GB2312"))

        Dim 返回文本 As String = 读取文本.ReadToEnd

        读取文本.Close()

        Dim 起始位置 As Integer = InStr(返回文本, "!")

        Dim 返回位置 As Integer = InStrRev(返回文本, "'")

        Dim 验证码 As String = Mid(返回文本, 起始位置, 返回位置 - 起始位置)

        Return (验证码)

    End Function --------------------编程问答-------------------- 占一层楼……
弄QQ空间最难弄了，自动填写表单会出现验证码的

补充：.NET技术 ,  VB.NET