如何自动填入考生号等自动批量查询四川高考成绩，并把查询结果自动填入表格

hdx8912

如何自动填入考生号等自动批量查询四川高考成绩，并把查询结果自动填入表格

查询地址1：https://cx.sceea.cn/html/GKCJ.htm
查询地址2：https://gaokao.baidu.com/okam/pa ... 7%9D&tabIndex=1
（地址1为官网，要输验证码。地址2不输验证码）

pjiang

验证码吓跑我了，也想看看其他大神杰作

ycsgtzn

验证码头大

hdx8912

pjiang 发表于 2022-7-15 16:04
验证码吓跑我了，也想看看其他大神杰作

可以设置手动输入验证码？
关键是提取数据

hdx8912

ycsgtzn 发表于 2022-7-27 15:15
验证码头大

可以设置手动输入验证码？
关键是提取数据

hdx8912

pjiang 发表于 2022-7-15 16:04
验证码吓跑我了，也想看看其他大神杰作

Option Explicit
Sub IE()
    Dim arrBM, arrZKZ, arrSFZ, cnt As Long
    arrBM = Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row)
    arrZKZ = Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row)
    arrSFZ = Range("E2:E" & Range("E" & Rows.Count).End(xlUp).Row)
    Dim IE As Object, link As String
    Set IE = CreateObject("InternetExplorer.Application")
    link = "http://cx.sceea.cn/html/GKCJ.htm"
    With IE
        .Visible = True
        .navigate link
        IEWait IE
        For cnt = 1 To UBound(arrBM)
            .document.getelementbyid("ksh").Value = arrBM(cnt, 1)
            .document.getelementbyid("zkzh").Value = arrZKZ(cnt, 1)
            .document.getelementbyid("sfzh").Value = arrSFZ(cnt, 1)
            .document.getelementbyid("kbq").Click
            Do
                Application.Wait Now + TimeValue("00:00:01")
            Loop While .document.getelementbyid("ksh").Value <> ""
        Next cnt
    End With
    IE.Quit: Set IE = Nothing
End Sub
Function IEWait(ByRef objIE As Object)
    Do While objIE.Busy = True Or objIE.readyState <> 4
        DoEvents
    Loop
End Function

hdx8912

hdx8912 发表于 2022-7-30 15:42
可以设置手动输入验证码？
关键是提取数据

代码中可以加一句click，点击看不清换一张，然后手动填写验证码。
查询完一条数据以后，手动清除考生号栏位中的内容，代码会继续填写下一条数据

huang1314wei

测试附件,对接的是打码平台


实验号码.rar (31.02 KB, 下载次数: 52)

2022-7-30 21:53 上传

点击文件名下载附件

ycsgtzn

服务器做了限制，连续查三个就会禁IP，要用代理

hdx8912

ycsgtzn 发表于 2022-11-11 14:40
服务器做了限制，连续查三个就会禁IP，要用代理

怎么修改？麻烦你看一下