解密——验证码识别:比较弱智的验证码

发布时间:2017-3-27 1:04:12 编辑:www.fx114.net 分享查询网我要评论
本篇文章主要介绍了"解密——验证码识别:比较弱智的验证码",主要涉及到解密——验证码识别:比较弱智的验证码方面的内容,对于解密——验证码识别:比较弱智的验证码感兴趣的同学可以参考一下。

Sub 验证码识别() ActiveSheet.Shapes.SelectAll Selection.Delete Cells.Clear Columns("b").NumberFormatLocal = "@" For i = 1 To 10 yzm = Format(Int(Rnd() * 10000), "0000") yzm1 = "" For j = 1 To 4 a = Val(Mid(yzm, j, 1)) - j If a < 0 Then a = a + 10 yzm1 = yzm1 & a Next j Cells(i, 1).RowHeight = 15 Cells(i, 1).ColumnWidth = 5.25 ML = Cells(i, 1).Left MT = Cells(i, 1).Top MW = Cells(i, 1).Width MH = Cells(i, 1).Height Cells(i, 1).Select ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select Selection.ShapeRange.Fill.UserPicture "http://www.gdltax.gov.cn/wssw/checkcode/checkcode" & yzm & ".png" Selection.ShapeRange.Line.Visible = False Cells(i, 2) = yzm1 Next i End Sub   Private Sub Command1_Click() '新型农村合作医疗管理平台_用户登陆 On Error Resume Next With CreateObject("internetexplorer.application") .Visible = True .Navigate "http://125.46.57.85/hnxnh/login/login.aspx" Do Until .ReadyState = 4 DoEvents Loop .document.All("TB_userid").Value = "用户名" .document.All("TB_userpwd").Value = "密 码" .document.All("Tb_yzm").Value = .document.getelementbyid("checkCode").innerText '验证码 .document.All("ImageButton1").Click End With End Sub

上一篇:Linux 的启动流程
下一篇:ASP.NET页面主要事件执行顺序

相关文章

相关评论

本站评论功能暂时取消,后续此功能例行通知。

一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家社会集体的和公民的合法权益,不得利用本站制作、复制和传播不法有害信息!

二、互相尊重,对自己的言论和行为负责。

好贷网好贷款