网页表单自动填写并传递参数？

horse0918

如何自动填写表单与传递网页参数，帮忙，在线等。
某网页https://113187.yichafen.com/public/queryscore/sqcode/MsTcAn4mMzAyMHw3MDdiOWMzYmE0NTFmODRhZmFhYmFhOWMwZDg4MWU2YXwxMTMxODcO0O0O.html
如下图需要自动填写：姓名 李四  手机号：13757756620
查询其考勤数据或得分情况，POST参数如何编写，请大侠们帮个忙，谢谢。

表单

Set oDom = CreateObject("htmlfile")
    Set oWindow = oDom.parentWindow
    Set oHttp = CreateObject("winHttp.winHttpRequest.5.1")
     URL = "https://113187.yichafen.com/public/queryscore/sqcode/MsTcAn4mMzAyMHw3MDdiOWMzYmE0NTFmODRhZmFhYmFhOWMwZDg4MWU2YXwxMTMxODcO0O0O.html"
        oHttp.Open "GET", URL
        oHttp.setRequestheader "Accept-Language", "zh-CN,zh;q=0.8,en-US;q=0.5,en;q=0.3"
        oHttp.send
        oDom.body.innerHtml = oHttp.responseText
       ' pd1 = oDom.getElementById("s_xingming").Value
       pd1 = Sheet1.Cells(4, 2): pd2 = Sheet1.Cells(4, 3)  ’--PD1=李四  PD2=手机号
         oDom.getElementById("s_xingming").Value = pd1
         oDom.getElementById("s_shoujihaoma").Value = pd2


         PostData = "" 请完善参数传递，如何编写？？？？
        oHttp.Open "POST", URL, False
        oHttp.setRequestheader "Content-Type", "application/x-www-form-urlencoded"
        oHttp.send (PostData)
        stext = oHttp.responseText
        Sheet1.Cells(1, 1) = stext '页面已拷贝至剪切板，可粘贴到记事本中查看

结果返回
才是正确！

changhong8

horse0918

谢谢代码，可是安装多次CHROMEDRIVER失败，

chis3

horse0918 发表于 2020-11-28 12:46
谢谢代码，可是安装多次CHROMEDRIVER失败，

你有下載selenium嗎?

duquancai

如何编写POST？你都不登录，查询啥哦？从登录入口开始。。。

https://www.yichafen.com/public/login.html

changhong8

horse0918 发表于 2020-11-28 12:46
谢谢代码，可是安装多次CHROMEDRIVER失败，

https://imba.lanzous.com/iWOdWiu1nkh

horse0918

changhong8 发表于 2020-11-29 07:57
https://imba.lanzous.com/iWOdWiu1nkh

谢谢，提示有病毒文件。唉，。

horse0918

谢谢，提示这个下载有病毒，自动拦截了。唉，郁闷中。。。

horse0918

changhong8 发表于 2020-11-29 07:57
https://imba.lanzous.com/iWOdWiu1nkh

安装后，如何引用，我查了引用这块，VBA内没有相应的模块，用dim cm as new chromedrive也是错误的，如何应用，能教一二吗。

changhong8

引用selenium开头的