WebBrowser控件登录12306订票小助手--抓验证码图片、API关闭弹窗，更新0.53版

eyeshot · 发表于 2012-1-18 16:11

受教了最近也一直受困与弹出窗口和网页JS脚本
看了你们讨论的帖子启发很大
感受到pDisp.Document.parentWindow.execScript "window.xxxx;", "javaScript"的神器之处可以借用网页自身的js函数
弹出窗口正在研究代码中
谢谢

eyeshot · 发表于 2012-1-18 16:14

Private Sub ClickMessageBox(ByVal phwnd As Long)
这条正适合我现在的情况
其实原来我是想直接找到弹出对话框确认后续的 get、post 网址或者后续的JS函数现在不用啦

eyeshot · 发表于 2012-1-18 16:20

还有一个问题就是IE对象的 IE.ReadyState <> READYSTATE_COMPLETE问题一般第一次可以使用一旦submit或者跳转后ReadyState就无效了

这里难道只能重新set一下IE?

xmyjk · 发表于 2012-1-18 16:30

liucqa 发表于 2012-1-18 15:17
按F12快捷键调出IE开发者工具栏 >>> Script（脚本）选项卡 >>> 复制如下图代码到内容文本框中 >>> 点击 Ru ...

依据我的思路也写了个简易的，没有管证书加载那块，只写了登录的。

Dim FLAG As Boolean
Dim i&
Private Sub LoginCbn_Click()
Dim T As Single, T1 As Single
If FLAG = True Then
With WebBrowser1.Document.frames(0).Document
.all("loginUser.user_name").Value = userTbx.Value
.all("user.password").Value = PsdTbx.Value
.all("randCode").Value = RndcodeTbx.Value
T1 = Timer
Do Until Timer > T1 + 30
On Error GoTo ERRT
.all("subLink").Click
T = Timer
Do Until Timer > T + 2
DoEvents
Loop
Loop
End With
End If
ERRT:
If ERR.Number = 70 Then MsgBox "请更换验证码或已经登录成功了！": Exit Sub
End Sub
Private Sub UserForm_Activate()
Dim T As Single
With WebBrowser1
.Silent = True
.Navigate "https://dynamic.12306.cn/otsweb/main.jsp"
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
T = Timer
On Error Resume Next
Do Until InStr(.Document.frames(0).Document.BODY.innertext, "忘记用户名/密码？") > 0 Or Timer > T + 8
DoEvents
Loop
On Error GoTo 0
If Timer < T + 8 Then
MsgBox "网页加载完毕！"
FLAG = True
Else
MsgBox "登陆超时！"
FLAG = False
End If
End With
End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
If URL Like "*method=*" Then
i = i + 1
Label4.Caption = "提交第" & i - 1 & "次" & vbCrLf & URL
pDisp.Document.parentWindow.execScript "window.alert=null;"
End If
End Sub

复制代码

liucqa · 发表于 2012-1-18 17:41

嗯，简单就是美。

顺便说一下，63楼的代码有点错误，我忘记处理验证码错误了，等晚上看看有没有时间改一个用计时器完整处理网页信息的版本

liucqa · 发表于 2012-1-18 17:43

eyeshot 发表于 2012-1-18 16:20
还有一个问题就是IE对象的 IE.ReadyState READYSTATE_COMPLETE问题一般第一次可以使用一旦submit或者跳转 ...

那个状态判断不好使，这就是为什么我的代码里面同时有计时器和计数器的原因。IE自带的WB是个残缺不全的控件

eyeshot · 发表于 2012-1-19 10:46

改良版的控件？

liucqa · 发表于 2012-1-20 12:08

12306 submit提交-推荐IE8 v0.4.rar (119.72 KB, 下载次数: 89)

1月20日版正式出炉，更新如下：
1、支持获得验证码图片，哪个牛人给弄个OCR识别？
2、验证码输入4位自动登录
3、页面状态的监测更加完善（可以识别用户名、密码、验证码各种错误提示。在一些特定操作下，计时器偶尔会提前终止，务请淡定）
4、隐藏EXcel界面。

使用方法，打开窗体之后，输入用户名密码、验证码。然后耐心等登录（只要看着提示耐心输入验证码就行）。

xmyjk · 发表于 2012-1-20 12:40

本帖最后由 xmyjk 于 2012-1-20 12:44 编辑

liucqa 发表于 2012-1-20 12:08
1月20日版正式出炉，更新如下：
1、支持获得验证码图片，哪个牛人给弄个OCR识别？
2、验证码输入4位自 ...

程序很不错

好像有点不稳定，密码还没输完就光标就跑掉验证码去了，好像验证码换了，程序还在不停的登录。

就是感觉有点异步，然后有点控制不住。

liucqa · 发表于 2012-1-20 12:46

xmyjk 发表于 2012-1-20 12:40
好像有点不稳定，密码还没输完就光标就跑掉验证码去了，好像验证码换了，程序还在不停的登录。

程序很 ...

哦，忘记说了

输入顺序是先输入用户名和密码。然后再输入验证码。
否则验证码检测到有4位，且密码用户名不为空，就开始登录了。

验证码换了还在登录是因为API定时器先检测的信息是用户多，页面如果在反馈用户多的提示，程序是不去检测验证码错误的。耐心等不反馈用户多的时候，验证码错误就能够检测到了。

第二个问题我研究一下

		自动登录	找回密码
密码			免费注册

WebBrowser控件登录12306订票小助手--抓验证码图片、API关闭弹窗，更新0.53版

点评