vb 实现关于QQ验证码
我想做一个小程序 可以在VB程序中登录 网页 http://my.qq.com/可以自动填写 帐号和密码 但是验证码 不知道如何解决
用这个WebBrowser 控件 验证码还是必须在 网页上输入 不能在 VB 的 text中输入
我是个新手 希望知道的 回答的答案 可以详细点 最好能列出程序 呵呵
我的目的是 在VB窗口 建立3个TEXT 可以输入 帐号 密码 和 验证码 但是 我不知道如何实现
帐号-------
密码-------
验证码
输入------- --------------------编程问答-------------------- 我的目的 不是 能够识别验证码 我只是要求 能够在VB的 窗口里TEXT中 输入 并能够登录 --------------------编程问答-------------------- 给偶票票,偶给你写。
呵呵,开玩笑的,你上百度吧,不要一来就上CSDN --------------------编程问答-------------------- Dim vDoc, vTag
Dim I As Integer
Set vDoc = WebBrowser1.Document
For I = 0 To vDoc.All.Length - 1
If UCase(vDoc.All(I).tagName) = "INPUT" Then
Set vTag = vDoc.All(I)
Select Case vTag.Name
Case "u" '用户名
vTag.value = 用户名
Case "p" '密码
vTag.value = 密码
Case "verifycode" '验证码
vTag.value = 验证码
End Select
Select Case vTag.Type
Case "submit" 'NEXT
vTag.Click
End Select
End If
Next I
--------------------编程问答-------------------- 回帖是一种美德!每天回帖即可获得 10 分可用分! --------------------编程问答--------------------
每天回帖即可获得10分可用分!小技巧:教您如何更快获得可用分
--------------------编程问答-------------------- 验证码识别貌似比较难噻 --------------------编程问答--------------------
分析底层的hTTP请求,然后重构请求,
至于验证码,下载到本地,手工识别,
验证码的原理就是 session或cookie 只要在向服务器提交之前 想怎么折腾都行,,,
知道“打码”么?。。就是这个道理。。 --------------------编程问答-------------------- 每天回帖即可获得10分可用分!小技巧:教您如何更快获得可用分,我没分下东西了 --------------------编程问答-------------------- 每天回帖即可获得10分可用分! --------------------编程问答-------------------- 借用AutoHotKey软件 --------------------编程问答-------------------- 验证码可以用图片链接。。。 --------------------编程问答-------------------- qq哪个,没哪么简单,在WebBrowser1_DocumentComplete(网页加载完成时),哪几个文本档仍没有加载,而且再加载时,也不会激发WebBrowser1_DocumentComplete,我曾在vbgood里写过登录http://my.qq.com/代码,可是,今天上不去vbgood --------------------编程问答-------------------- 路过......... --------------------编程问答-------------------- 不知,帮顶 --------------------编程问答-------------------- 这方面的问题我也遇到过,但没解决. --------------------编程问答-------------------- 这和登录校友的原理是不是一样?
我有一个源代码
就是把验证码的图片下载来,在窗口上显示 --------------------编程问答-------------------- 回你的贴,增加我的美德 --------------------编程问答-------------------- 还是没有代码哦 --------------------编程问答-------------------- 直接用WebBrowser打开页面分析源码把图取出来就好了!不过要先判断是否加载完了! --------------------编程问答-------------------- 验证码识别貌似比较难验证码识别貌似比较难验证码识别貌似比较难验证码识别貌似比较难验证码识别貌似比较难验证码识别貌似比较难验证码识别貌似比较难验证码识别貌似比较难验证码识别貌似比较难验证码识别貌似比较难验证码识别貌似比较难验证码识别貌似比较难验证码识别貌似比较难 --------------------编程问答-------------------- 第一次来 学习下 --------------------编程问答-------------------- 回答一下验证码的问题。
楼主可以先嗅探一下验证码的图片链接,假设为URL,WebBrowser1.Navigate Url,验证码图片可以在VB窗体上显示出来。要获得正确的验证码可能涉及正确的来路问题。可参考我的提问
http://topic.csdn.net/u/20100321/00/d4a996af-6acd-4b53-a7dd-d47b08880003.html --------------------编程问答-------------------- 学习学 习来 --------------------编程问答--------------------
用INET 下载验证码 在post数据吧 方便得多 --------------------编程问答-------------------- 这个问题我问过,了,http://topic.csdn.net/u/20100329/16/1f9c1bb9-bb3c-4dce-abf8-5daa71e8ef3c.html 你可以参考一下,我也正在编写,验证码识别,不过我看QQ那个验证码是用分割法布好解决的,http://ptlogin2.qq.com/getimage?aid=8000203&0.10352970155699564 你可以看一下,都是斜着的,难呀,难,进行图像二值化之类的处理吧,哎如果你只是想用程序登陆可直接用我帖子上的那两种方法,都很不错,直接把图片显示到picturebox上面;; --------------------编程问答-------------------- 验证码识别本来就是比较难的,TX的验证码识别不是一般的难.
想当年,洗信的达到了疯狂的地步.TX在这方面估计是下了不少功夫 --------------------编程问答-------------------- 看看这个,是不是有帮助
http://topic.csdn.net/u/20100412/22/b18655c9-eeed-4bb4-8bb0-2d225624341a.html?24567 --------------------编程问答-------------------- lz的问题很简单呀,早该结贴了 --------------------编程问答-------------------- 回帖是一种美德!每天回帖即可获得 10 分可用分! --------------------编程问答-------------------- 直接把图加载到窗体上的PICTURE 控件上,让它显示出来, --------------------编程问答-------------------- 每天回帖即可获得10分可用分!小技巧:教您如何更快获得可用分,我没分下东西了 --------------------编程问答-------------------- 创建3个标签,三个文本框,两个按钮:一个为确定,一个为取消,再分别编程 --------------------编程问答-------------------- UP,看看帖子 --------------------编程问答-------------------- 如果再加个无限循环的话..... --------------------编程问答-------------------- 来学习一下 --------------------编程问答-------------------- .......楼主没说识别,只是自动填表而已貌似.............................. --------------------编程问答-------------------- 不是多复杂的问题,手工填写验证码登陆而已。 --------------------编程问答-------------------- 路过
学习下 --------------------编程问答--------------------
那验证码就不一样了 --------------------编程问答-------------------- 帮顶,呵呵 /cy
每天回帖即可获得10分可用分 --------------------编程问答-------------------- 帮顶,呵呵 /cy
每天回帖即可获得10分可用分 --------------------编程问答-------------------- 回你的贴,增加我的美德 --------------------编程问答-------------------- gh
看下
每天回帖即可获得10分可用分! --------------------编程问答-------------------- --------------------编程问答-------------------- 来学习一下 --------------------编程问答-------------------- 共同学习,共同进步
--------------------编程问答-------------------- 路过看看,看帖就回。 --------------------编程问答-------------------- 飘过···顺便学习下 --------------------编程问答-------------------- 验证码估计弄不了 其它好办 --------------------编程问答-------------------- 每天回帖即可获得10分可用分!小技巧:教您如何更快获得可用分,我没分下东西了 --------------------编程问答-------------------- 每天回帖即可获得10分可用分 --------------------编程问答-------------------- 每天回帖即可获得10分可用分 --------------------编程问答--------------------
挖坟赚分? --------------------编程问答-------------------- 我正好在做 也已经实现了 提取验证码到程序的IMAGE控件 但是 但是 你不给分还没票子 我怎么好意思呢 --------------------编程问答-------------------- --------------------编程问答-------------------- 这个有难度的。 --------------------编程问答-------------------- 楼主想问的是怎么发送吧,不是怎么提取图片吧 --------------------编程问答-------------------- 听说初学vb 会有成就感哦
难道这就是?
--------------------编程问答-------------------- 路过,学习下 --------------------编程问答--------------------
Dim vDoc, vTag '网页添表申明
Private Sub Form_Load()
WebBrowser1.Navigate "http://ui.ptlogin2.qq.com/cgi-bin/login?s_url=http%3A%2F%2Faq.qq.com%2Fcn%2Fservices%2Fabnormal%2Fabnormal_index&appid=2001601&f_url=loginerroralert&hide_title_bar=1&no_verifyimg=1&qlogin_jumpname=jump&qlogin_param=u1%3Dhttp%253A%252F%252Faq.qq.com%252Fcn%252Fservices%252Fabnormal%252Fabnormal_index"
WebBrowser2.Navigate "http://ptlogin2.qq.com/getimage?aid=2001601&0.21076988801148538"
WebBrowser3.Navigate "http://aq.qq.com/cn/services/abnormal/abnormal_index"
End Sub
Private Sub Command1_Click()
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase$(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then
Select Case vTag.Name
Case "u"
vTag.Value = Text1 '用户名
End Select
End If
If vTag.Type = "password" Then
Select Case vTag.Name
Case "p"
vTag.Value = Text2 '密码
End Select
End If
If vTag.Type = "text" Then
Select Case vTag.Name
Case "verifycode"
vTag.Value = Text3 '验证码
End Select
End If
If vTag.Type = "submit" Then '如果不要点击按钮登陆,把此if的代码删除
vTag.Click
End If
End If
Next i
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub Image1_Click()
WebBrowser2.Refresh
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) '判断帐号密码是否正确
If InStr(1, WebBrowser1.Document.body.innertext, "欢迎您") <> 0 Then
MsgBox "OK成功登陆"
WebBrowser3.Visible = False
WebBrowser1.Visible = True
Else
WebBrowser2.Refresh
End If
End Sub
Private Sub WebBrowser2_DocumentComplete(ByVal pDisp As Object, URL As Variant) '当网页下载完毕后,刷新一次验证码
If (pDisp Is WebBrowser2.Object) Then
WebBrowser2.Refresh
End If
End Sub
Private Sub WebBrowser3_DocumentComplete(ByVal pDisp As Object, URL As Variant) '当网页下载完毕后,刷新一次验证码
If (pDisp Is WebBrowser3.Object) Then
WebBrowser2.Refresh
End If
End Sub
--------------------编程问答-------------------- 这里就是传说中的过验证码? --------------------编程问答-------------------- 雪山飞蛇 高人啊 怎么交个朋友啊 --------------------编程问答-------------------- 顶起。。。。 --------------------编程问答-------------------- 每天回帖即可获得10分可用分!小技巧:教您如何更快获得可用分 --------------------编程问答-------------------- 网上有源码的,自己找找。 --------------------编程问答-------------------- 顶起。 --------------------编程问答-------------------- 学习一下
--------------------编程问答-------------------- 重金求腾讯5位验证码识别插件,能达到10%就可以了,能做的联系我,QQ932680235
图片地址: http://captcha.qq.com/getimage?aid=615002001&vc_type=&uin=-1&ts=0.5034930369537773 --------------------编程问答-------------------- 学习一下 --------------------编程问答-------------------- 学习一下 --------------------编程问答-------------------- 回了此贴得到30分 --------------------编程问答-------------------- 都是考古专家 --------------------编程问答-------------------- 顶起~~~~~
补充:VB , 网络编程