部分省市中高考成绩查询帖汇总

qcw911 · 发表于 2020-7-27 15:39

高考成绩批量查询代码分享2020
http://club.excelhome.net/thread-1548736-1-1.html
(出处: ExcelHome技术论坛)

dsxcf · 发表于 2020-7-30 19:57

权限太低不能查看，怎么办

fxxz82hj · 发表于 2020-7-31 08:13

汉字编码改成GB2312就行了

dsxcf · 发表于 2020-8-3 11:11

在哪儿换号汉字编码请教代码

dsxcf · 发表于 2020-8-3 11:31

在哪儿修改这个GB2312编码

mxf21cn · 发表于 2020-8-25 18:54

fxxz82hj 发表于 2020-7-23 10:59
目前安徽的如何修改查询?
cx.ahzsks.cn

发几个测试数据我试试看

mxf21cn · 发表于 2020-8-25 18:55

xiaoqiangchem 发表于 2020-7-16 09:56
@mxf21cn 牛啊，满眼的小星星。如何实现湖北高考成绩查询，现在2020湖北高考成绩还没出来，用艺术类成绩 ...

Public Sub 湖北查询()
'该验证码为文本格式，不是图片，比较好处理
'Cells(rowi, 1),Cells(rowi, 2)分别对应考生号，身份证号

   Dim strURL As String
   Dim strData As String
   Dim XmlHttp As Object
   Dim B() As Byte
   'Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
   Set XmlHttp = CreateObject("WinHttp.WinHttpRequest.5.1")

   strURL = "http://cx.ahzsks.cn/pugao/pgcj2018_in.php"

   Set oDoc = CreateObject("htmlfile")

   'With CreateObject("WinHttp.WinHttpRequest.5.1")
   arr = Range("D2:G61")
   'MsgBox arr(1, 2)
   With XmlHttp
      For rowi = 2 To 61

         .Open "GET", "http://119.36.213.60/gk/mstk2020?token=9d97cdb7bddd8f9e1c77ebbe0dfc8fc2", False
         .send

         .Open "GET", "http://119.36.213.60/Validate/GetValidateCode", False
         .setRequestHeader "If-Modified-Since", "0"
         .send
         strText = .getAllResponseHeaders
         'YZMX = Split(Split(strText, "=")(1), ";")(0)
         YZMX = "11111"

         .Open "POST", "http://119.36.213.60/gk/mstk2020", False
         .setRequestHeader "X-Requested-With", "XMLHttpRequest"
         .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
         .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/84.0.4147.135 Safari/537.36 Edg/84.0.522.63"
         .setRequestHeader "Referer", "http://119.36.213.60/gk/mstk2020?token=9d97cdb7bddd8f9e1c77ebbe0dfc8fc2"
         .setRequestHeader "Cookie", "ValidateCode=" & YZMX
         .send "ksbh=" & Cells(rowi, 1) & "&zjhm=" & Cells(rowi, 2) 'Cells(rowi, 1) 为高考报名号， Cells(rowi, 2)为身份证号


         strText = .responseText
         Debug.Print .responseText

         oDoc.body.innerHTML = Replace(StrConv(.ResponseBody, vbUnicode), " ", "")
         Set tr = oDoc.all.tags("Table")(0).Rows

         arr(rowi - 1, 1) = tr(1).Cells(3).innerText
         arr(rowi - 1, 2) = tr(1).Cells(4).innerText
         arr(rowi - 1, 3) = tr(1).Cells(5).innerText
         arr(rowi - 1, 4) = tr(1).Cells(6).innerText

      Next


      Range("D2:G61") = arr
   End With

End Sub

mxf21cn · 发表于 2020-8-30 23:26

Public Sub 安徽2020查询()
'该验证码为文本格式，不是图片，比较好处理
'Cells(rowi, 1),Cells(rowi, 2)分别对应考生号，身份证号

   Dim strURL As String
   Dim strData As String
   Dim XmlHttp As Object
   Dim a() As Byte


   'Set XmlHttp = CreateObject("MSXML2.XMLHTTP")
   Set XmlHttp = CreateObject("WinHttp.WinHttpRequest.5.1")

   'strURL = "http://cx.ahzsks.cn/pugao/pgcj2018_in.php"

   Set oDoc = CreateObject("htmlfile")

   'With CreateObject("WinHttp.WinHttpRequest.5.1")
   arr = Range("D2:O61")
   'MsgBox arr(1, 2)
   With XmlHttp
      For rowi = 2 To 2

         .Open "GET", "http://cx.ahzsks.cn/pugao/pgcj2020_in.php", False
         .send
         strText = .getAllResponseHeaders

         cookieText = Split(Split(strText, "=")(3), ";")(0)
         yzm = Split(Split(Split(.responseText, "yzm")(2), ">")(1), "<")(0)


         'Debug.Print yzm

         .Open "POST", "http://cx.ahzsks.cn/pugao/pgcj2020_out.php", False
         .setRequestHeader "Host", "cx.ahzsks.cn"
         .setRequestHeader "Connection", "keep-alive"
         .setRequestHeader "Content-Length", "73"
         .setRequestHeader "Cache-Control", "max-age=0"
         .setRequestHeader "Upgrade-Insecure-Requests", "1"
         .setRequestHeader "Origin", "http://cx.ahzsks.cn"
         .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
         .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/85.0.4183.83 Safari/537.36 Edg/85.0.564.41"
         .setRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9"
         .setRequestHeader "Referer", "http://cx.ahzsks.cn/pugao/pgcj2020_in.php"
         .setRequestHeader "Accept-Encoding", "gzip, deflate"
         .setRequestHeader "Accept-Language", "zh-CN,zh;q=0.9,en;q=0.8,en-GB;q=0.7,en-US;q=0.6"
         .setRequestHeader "Cookie", "PHPSESSID=" & cookieText


         txt = Cells(rowi, 2)
         a = StrConv(txt, vbFromUnicode, &H804)
         For i = 0 To UBound(a)
            Url = Url & "%" & Right("0" & Hex(a(i)), 2)
         Next
         xm = Url

         .send "sfzh=" & Cells(rowi, 1) & "&xm=" & xm & "&ksh=" & Cells(rowi, 3) & "&yzm=" & yzm
         '.send "sfzh=340503200210040619&xm=%CD%F5%D3%EE%BA%BD&ksh=20340501110240&yzm=" & yzm


         strText = .responseText

         oDoc.body.innerHTML = Replace(StrConv(.responseBody, vbUnicode), " ", "")
         Set tr = oDoc.all.tags("Table")(0).Rows

         arr(rowi - 1, 1) = tr(1).Cells(1).innerText
         arr(rowi - 1, 2) = tr(1).Cells(3).innerText

         arr(rowi - 1, 3) = tr(3).Cells(1).innerText
         arr(rowi - 1, 4) = tr(3).Cells(2).innerText

         arr(rowi - 1, 5) = tr(4).Cells(1).innerText
         arr(rowi - 1, 6) = tr(4).Cells(2).innerText

         arr(rowi - 1, 7) = tr(5).Cells(1).innerText
         arr(rowi - 1, 8) = tr(5).Cells(2).innerText

         arr(rowi - 1, 9) = tr(6).Cells(1).innerText
         arr(rowi - 1, 10) = tr(6).Cells(2).innerText

         arr(rowi - 1, 11) = tr(7).Cells(1).innerText
         arr(rowi - 1, 12) = tr(8).Cells(1).innerText
      Next


      Range("D2:O61") = arr
   End With

End Sub

chinazrm · 发表于 2020-8-31 06:44

大侠，有内蒙古的查询代码吗？

qcw911 · 发表于 2020-8-31 09:09

chinazrm 发表于 2020-8-31 06:44
大侠，有内蒙古的查询代码吗？

网址贴出来

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

[分享] 部分省市中高考成绩查询帖汇总

评分