找回密码
 加入我们

QQ登录

只需一步,快速开始

搜索
查看: 9920|回复: 13

【求助】老马,帮忙啊,谢谢啦

[复制链接]

90

主题

473

回帖

2

精华

钻石会员

积分
3261
发表于 2009-5-17 00:28:57 | 显示全部楼层 |阅读模式
<p>老马啊</p>
<p>怎么才能用vb取得</p>
<p>这个网站的验证码?不用识别,只要得到</p>
<p>谢谢啦</p>
<p>&nbsp;</p>
<p><font face="Verdana"><a href="http://www2.10010.com/simPwdReset/simPwdResetMain.jsp">http://www2.10010.com/simPwdReset/simPwdResetMain.jsp</a></font></p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>就这个网站</p>

275

主题

3017

回帖

1

精华

管理员

嗷嗷叫的老马

积分
17064

论坛牛人贡献奖关注奖最佳版主进步奖人气王疯狂作品奖精英奖赞助论坛勋章乐于助人勋章

QQ
发表于 2009-5-17 15:21:08 | 显示全部楼层
<div class="msgheader">QUOTE:</div><div class="msgborder"><b>&nbsp;&nbsp;&nbsp; For Each X In WebBrowser1.Document.All&nbsp;&nbsp; '枚举所有元素<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; I = "": I = X.src&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '发现图片元素了,就创建选区,复制粘贴......<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If I = "http://www2.10010.com/getImage.jsp" Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set ctrlRange = WebBrowser1.Document.body.createControlRange()&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '创建选区<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ctrlRange.Add X&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '添加对象到选区<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Clipboard.Clear<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ctrlRange.execCommand "Copy"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '复制<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set Picture1.Picture = Clipboard.GetData&nbsp;&nbsp;&nbsp; '粘贴<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit For<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; Next</b></div>
<p></p>
我就是嗷嗷叫的老马了......

275

主题

3017

回帖

1

精华

管理员

嗷嗷叫的老马

积分
17064

论坛牛人贡献奖关注奖最佳版主进步奖人气王疯狂作品奖精英奖赞助论坛勋章乐于助人勋章

QQ
发表于 2009-5-17 15:21:55 | 显示全部楼层
<p>啥无所不能啊,太夸张了吧.....正好有收藏这种方案而已........</p>
我就是嗷嗷叫的老马了......

90

主题

473

回帖

2

精华

钻石会员

积分
3261
 楼主| 发表于 2009-5-17 23:24:46 | 显示全部楼层
<p>谢谢老马</p>
<p>明白了</p>
<p>&nbsp;</p>
<p>再次感谢</p>

90

主题

473

回帖

2

精华

钻石会员

积分
3261
 楼主| 发表于 2009-5-17 01:32:52 | 显示全部楼层
<p>老马,为啥看看又出去了?</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>3q</p>

275

主题

3017

回帖

1

精华

管理员

嗷嗷叫的老马

积分
17064

论坛牛人贡献奖关注奖最佳版主进步奖人气王疯狂作品奖精英奖赞助论坛勋章乐于助人勋章

QQ
发表于 2009-5-17 02:12:53 | 显示全部楼层
<div class="msgheader">QUOTE:</div><div class="msgborder"><b>
<p><font face="Verdana">Option Explicit</font></p>
<p><font face="Verdana">Private Sub Command1_Click()<br/>&nbsp;&nbsp;&nbsp; On Error Resume Next<br/>&nbsp;&nbsp;&nbsp; Dim X As Object, ctrlRange As Object, I As String<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; For Each X In WebBrowser1.Document.All<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; I = "": I = X.src<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If I = "http://www2.10010.com/getImage.jsp" Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set ctrlRange = WebBrowser1.Document.body.createControlRange()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ctrlRange.Add X<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Clipboard.Clear<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ctrlRange.execCommand "Copy"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set Picture1.Picture = Clipboard.GetData<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit For<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; Next<br/>End Sub</font></p>
<p><font face="Verdana">Private Sub Form_Load()<br/>&nbsp;&nbsp;&nbsp; WebBrowser1.Navigate "http://www2.10010.com/simPwdReset/simPwdResetMain.jsp"<br/>End Sub</font></p></b></div>
<p>一个WEB控件,一个按钮,一个图片,名称都是默认.</p>
我就是嗷嗷叫的老马了......

90

主题

473

回帖

2

精华

钻石会员

积分
3261
 楼主| 发表于 2009-5-17 08:07:50 | 显示全部楼层
<p>谢谢老马,</p>
<p>老马真是无所不能</p>
<p>一有困难就来找你</p>
<p>基本都能解决!</p>
<p>&nbsp;</p>
<p>谢谢~~</p>
<p>&nbsp;</p>
<p>另外,能不能注释一下这段代码?</p>
<p>呵呵,有点得寸进尺了~~</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>3q</p>

0

主题

6

回帖

0

精华

铜牌会员

积分
170
发表于 2009-5-21 12:41:24 | 显示全部楼层
<p>请问这种JSP的验证码用INET或者WINSOCK或者API要怎么获得?</p>
<p>在CSDN看到了可以用INET获得ASP的验证码,但是好像JSP的不能</p>
<p>老马讲解一下好吗?</p>

0

主题

6

回帖

0

精华

铜牌会员

积分
170
发表于 2009-5-21 12:43:46 | 显示全部楼层
是不是JSP的验证码不是用GET方法读取的?

0

主题

6

回帖

0

精华

铜牌会员

积分
170
发表于 2009-5-21 16:54:30 | 显示全部楼层
<p>上面的问题修正一下</p>
<p>是SSL加密的网页内的JSP验证码 要怎么获取?</p>

0

主题

6

回帖

0

精华

铜牌会员

积分
170
发表于 2009-5-22 12:37:46 | 显示全部楼层
顶起来 望老马解答

275

主题

3017

回帖

1

精华

管理员

嗷嗷叫的老马

积分
17064

论坛牛人贡献奖关注奖最佳版主进步奖人气王疯狂作品奖精英奖赞助论坛勋章乐于助人勋章

QQ
发表于 2009-5-22 15:54:03 | 显示全部楼层
<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>hieiyukina</i>在2009-5-21 12:41:24的发言:</b><br/>
<p>请问这种JSP的验证码用INET或者WINSOCK或者API要怎么获得?</p>
<p>在CSDN看到了可以用INET获得ASP的验证码,但是好像JSP的不能</p>
<p>老马讲解一下好吗?</p></div>
<p>&nbsp;</p>
<p>使用INET与WINSOCK下载,不清楚是否能有效.</p>
<p>&nbsp;</p>
<p>因为当前页面的验证码是临时生成的,当次有效.</p>
<p>&nbsp;</p>
<p>如果自己单独下载,当然是可以的,但是应该不会给自动登录带来意义.</p>
我就是嗷嗷叫的老马了......

0

主题

6

回帖

0

精华

铜牌会员

积分
170
发表于 2009-5-22 22:57:18 | 显示全部楼层
<p>哦 原理大致问到了</p>
<p>先用INET读取网页内容,然后SSL解密</p>
<p>得出验证码图片解密后的数据</p>
<p>再判断验证码</p>
<p>开始补习SSL方面</p>
<p>还是谢谢老马了</p>

1214

主题

352

回帖

11

精华

管理员

菜鸟

积分
93755

贡献奖关注奖人气王精英奖乐于助人勋章

发表于 2009-5-22 23:14:26 | 显示全部楼层
<font face="Verdana">用这个地址登录速度快:<a href="http://www2.10010.com/login_sub.jsp">http://www2.10010.com/login_sub.jsp</a></font>
【VB】QQ群:1422505加的请打上VB好友
【易语言】QQ群:9531809  或 177048
【FOXPRO】QQ群:6580324  或 33659603
【C/C++/VC】QQ群:3777552
【NiceBasic】QQ群:3703755
您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

快速回复 返回顶部 返回列表