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

liucqa

我大约知道为什么WB在IE9下面不能查询了


网页代码似乎有问题，在ie9的WB下面 订票张数始终为undefined张

说明代码不太兼容wb，在IE9页面下没有这个问题，不知道是哪里的差错

xmyjk

liucqa 发表于 2012-1-18 00:59
我大约知道为什么WB在IE9下面不能查询了

在公司测试了下，公司这里是IE7
首先，关于网页的验证码错误阿，登录的人太多啦，这些提示，不需要模拟点击，它其实是个ALERT，用

1. pDisp.Document.parentWindow.execScript "window.alert=null;"

复制代码

就可以关闭了。

其次，注销的时候也没有出现脚本错误的提示，查询的时候也一切正常，我想，会不会是你的IE的设置或者一些安全软件，是不是限制了你IE脚本执行导致的错误

再次NavigateComplete2里面留上面那句话就可以，可以避免什么调试器的错误警告。

1. Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
   
2. pDisp.Document.parentWindow.execScript "window.alert=null;"
   
3. 
   
4. End Sub

复制代码

liucqa

12306 submit提交-推荐IE8.rar (81.85 KB, 下载次数: 98)

2012-1-18 12:10 上传

点击文件名下载附件

更新1月18日版，增加WB状态的调试信息。

问题出来：为什么用submit提交表单，WebBrowser1.ReadyState和WebBrowser1.Busy两个状态不正确呢？
前者大部分时候都是直接就=4，后者要等一小会才变成True，不是实时的。导致我的计时器屡屡判断错误

临时解决只好加上计时器超时判定。

反正这个程序基本能用了。

liucqa

xmyjk 发表于 2012-1-18 09:36
在公司测试了下，公司这里是IE7
首先，关于网页的验证码错误阿，登录的人太多啦，这些提示，不需要模拟点 ...

我靠计时器的窗口检查来判断是不是需要重新提交submit，所以不能直接屏蔽这类信息。昨天有JS脚本报错的时候，试过如下语句
        'pDisp.Document.parentWindow.execScript "window.open = null;", "javaScript"
        'pDisp.Document.parentWindow.execScript "window.alert = null;", "javaScript"
        'pDisp.Document.parentWindow.execScript "window.confirm = null;", "javaScript"
        'pDisp.Document.parentWindow.execScript "window.showModalDialog = null;", "javaScript"
都不管用。

原本是希望能够屏蔽JS脚本错误，不过今天运行程序居然网页没有脚本错误的提示了，也许12306今天吃药了

只是submit提交的.ReadyState和.Busy结束标志很不准确，你还有别的什么方法吗？

liucqa

我C，看来只有用计时器和INNERTEXT了，我在程序里面就是这么对付的。

大虾有空研究一下POST方法吧，这个方法结束判断是准的

liucqa

俺的程序终于发挥功效了，在用IE人工登录12306网站忙活5分钟不果之后，换程序1分钟登录成功，在IE8的WB里面完全可以查询、下单、支付，一切正常。

liucqa

按F12快捷键调出IE开发者工具栏 >>> Script（脚本）选项卡 >>> 复制如下图代码到内容文本框中 >>>  点击 Run Script（运行脚本） 按钮

            var page = "https://dynamic.12306.cn/otsweb/loginAction.do?method=init";
            var url = "https://dynamic.12306.cn/otsweb/loginAction.do?method=login";
            var queryurl = "https://dynamic.12306.cn/otsweb/order/querySingleAction.do?method=init";

            function submitForm() {
                var _ifrMain = document.getElementById('main');
                var userName = _ifrMain.contentWindow.document.getElementById('UserName');
                var password = _ifrMain.contentWindow.document.getElementById('password');
                var randCode = _ifrMain.contentWindow.document.getElementById('randCode');

                var subLink = _ifrMain.contentWindow.document.getElementById('subLink');

                var submitUrl = url;
                $.ajax({
                    type: "POST",
                    url: submitUrl,
                    data: {
                        "loginUser.user_name": userName.value
                      , "user.password": password.value
                      , "randCode": randCode.value
                    },
                    timeout: 30000,
                    success: function (msg) {
                        if (msg.indexOf('请输入正确的验证码') > -1) {
                            alert('请输入正确的验证码！');
                        };
                        if (msg.indexOf('当前访问用户过多') > -1) {
                            reLogin(msg);
                        }
                        else {
                            location.replace(queryurl);
                        };
                    },
                    error: function (msg) {
                        reLogin(msg);
                    },
                    beforeSend: function (XHR) {
                        ;
                    }
                });
            }

            var count = 1;
            function reLogin(msg) {
                count++;
                subLink.innerHTML = "(" + count + ")次登录中..." + msg;
                setTimeout(submitForm, 500);
            }

            submitForm();

用IE的脚本登录  http://www.cnblogs.com/cnshangsha/archive/2012/01/12/12306cnautologin.html

eyeshot

vba如何捕获页面IE对象弹出的消息窗口？（不是屏蔽）？趁热打铁追问到

liucqa

eyeshot 发表于 2012-1-18 15:20
vba如何捕获页面IE对象弹出的消息窗口？（不是屏蔽）？趁热打铁追问到

看代码，VBA捕获窗口很容易，用API就可以

eyeshot

那个closeMSG模块。。。？