问题描述
ptuiCB('7','0','','0','很遗憾，网络连接出现异常，请您稍后再试。(2182087640)');看了N遍代码没发现哪里有错帮指点下。。。。PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDim读取文件AsHttpWebRequest=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返回文件AsHttpWebResponse=读取文件.GetResponseDim读取文本AsNewStreamReader(返回文件.GetResponseStream,Encoding.GetEncoding("UTF-8"))Dim返回文本AsString=读取文本.ReadToEnd读取文本.Close()TextBox3.Text=返回文本EndSubPrivateSubComboBox1_LostFocus(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesComboBox1.LostFocusTextBox2.Text=KEY()EndSubPrivateFunctionPASS()AsStringDim读取文本AsNewStreamReader(My.Application.Info.DirectoryPath&"JScript1.js")Dim返回文本AsString=读取文本.ReadToEnd读取文本.Close()Dim脚本组件AsNewMSScriptControl.ScriptControl脚本组件.Language="JScript"脚本组件.AddCode(返回文本)Dim密码AsString=脚本组件.Run("md5_3",TextBox1.Text)密码=脚本组件.Run("md5",密码+TextBox2.Text)Return(密码)EndFunctionPrivateFunctionKEY()AsStringDim读取文件AsHttpWebRequest=HttpWebRequest.Create("http://check.ptlogin2.qq.com/check?uin="&ComboBox1.Text&"&appid=39000301&r=0.555688550328813")Dim返回文件AsHttpWebResponse=读取文件.GetResponseDim读取文本AsNewStreamReader(返回文件.GetResponseStream(),Encoding.GetEncoding("GB2312"))Dim返回文本AsString=读取文本.ReadToEnd读取文本.Close()Dim起始位置AsInteger=InStr(返回文本,"!")Dim返回位置AsInteger=InStrRev(返回文本,"'")Dim验证码AsString=Mid(返回文本,起始位置,返回位置-起始位置)Return(验证码)EndFunction
解决方案
解决方案二：
占一层楼……弄QQ空间最难弄了，自动填写表单会出现验证码的