自动查询网页信息

wooddy

我有一个企业名单列表，想自动抽取http://wsnj.gdgs.gov.cn/aiccps/jsp/pub/searchBase.jsp?returnUP=true 这个网页上的信息。

比如：东莞银行股份有限公司，我能直接获取里面的名称、法定代表人、地址、注册资本。

因为有验证码，我的想法是，我只需要一个一个手动输入验证码即可，而不用去网页上输入。

谢谢了。

liucqa

验证码
http://wsnj.gdgs.gov.cn/aiccps/util/images.jsp?t=0.4645552583329856

http://wsnj.gdgs.gov.cn/aiccps/util/queryCodeCheck.jsp?t=0.941206549179317


http://wsnj.gdgs.gov.cn/aiccps/SearchServlet?service=getEntityInfoByPage&corpName=东莞银行股份有限公司®isterNo=

没看懂服务器怎么识别验证码的，貌似按顺序这么提交可以得到数据

wooddy

liucqa 发表于 2012-5-14 11:41 http://wsnj.gdgs.gov.cn/aiccps/util/images.jsp?t=0.4645552583329856

有点懂了。前面那个一出现，第二个网页就会识别出来。厉害啊。但我还是不会编程。。。哭

wooddy

求高人指导啊！

wooddy

有没有人可以写代码啊

xmyjk

liucqa 发表于 2012-5-14 11:41
验证码
http://wsnj.gdgs.gov.cn/aiccps/util/images.jsp?t=0.4645552583329856

function loginAC() {
    var code = __get("keycode").value;
    var sessionCode = ExecServerPrgm("/aiccps/util/queryCodeCheck.jsp?t=0.4332422221938954", "get");//获得查询码
    if (code == "" || sessionCode.indexOf(code) < 0 || code.length < 4) {
        alert("请输入正确的查询码!");
        return;
    }

提交表单时候，往服务器获取验证码，然后和验证码的文本框的对比

实在是一个很可爱的验证方式。。。

wooddy

xmyjk 发表于 2012-5-14 21:09
function loginAC() {
    var code = __get("keycode").value;
    var sessionCode = ExecServerPrgm ...

还是不懂。。。

liucqa

多好的网站呀，验证码都给你明文了，压根就不用识别图片，爽死了

wooddy

liucqa 发表于 2012-5-14 22:56
多好的网站呀，验证码都给你明文了，压根就不用识别图片，爽死了

但是对于不懂VBA的人来说，还丫一鸟样。书到用时方恨少啊

蓝天630902

看看吧，方法不是很好，对付着用吧：

Sub 企业个体工商户基本登记信息查询()
    On Error Resume Next
    With CreateObject("internetexplorer.application")
        .Visible = True
        .Navigate "http://wsnj.gdgs.gov.cn/aiccps/jsp/pub/searchBase.jsp?returnUP=true"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        With CreateObject("internetexplorer.application")
                .Navigate "http://wsnj.gdgs.gov.cn/aiccps/util/queryCodeCheck.jsp"
                Do Until .ReadyState = 4
                    DoEvents
                Loop
                temp = .Document.all(0).innerText
                .Quit
        End With
        .Document.all("corpName").Value = "111"
        .Document.all("registerNo").Value = "222"
        .Document.all("keycode").Value = temp
        .Document.all("Image9").Click
    End With
End Sub