请求出一个 JS 点击网页中某个元素 的教程

黄非红 2021-6-14 833

         请求出一个 JS 点击网页中某个元素 的教程。 因为老是用鼠标模拟点击有个弊端, 一不小心碰到鼠标,就点击错误地方了。非常恼火。 

        比如咱们数据抓取功能里面的翻页功能,不用鼠标点击就实现翻页了。请求官方老师们出个教程。。

最新回复 (6)
  • 果子哩 2021-6-15
    2
    已反馈给相关工作人员~~
  • 何必轻薄自己 2021-7-24
    3
    这个功能我也好想要!持续关注中!
  • 拾月 2021-7-24
    4
    何必轻薄自己 这个功能我也好想要!持续关注中!

    可以这样写,使用执行JS命令

    以百度一下为例(针对存在id的元素)



    Dim sRet = ""
    Dim hWeb = ""
    hWeb = WebBrowser.BindBrowser("chrome",10000,{"bContinueOnError":False,"iDelayAfter":30,"iDelayBefore":20})
    #icon("@res:default.png")
    Keyboard.InputText({"wnd":[{"cls":"Chrome_WidgetWin_1","title":"*","app":"chrome"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"html":[{"tag":"INPUT","id":"kw"}]},"uibot",True,20,10000,{"bContinueOnError":False,"iDelayAfter":30,"iDelayBefore":50,"bSetForeground":True,"sSimulate":"message","bValidate":False,"bClickBeforeInput":False})
    sRet = WebBrowser.RunJS(hWeb,'''function(){
    btn_obj = document.getElementById("su")
    if(btn_obj){
    btn_obj.click()
    return "点击"
    }else{
    return "ID不存在"
    }}''',True,{"bContinueOnError":False,"iDelayAfter":30,"iDelayBefore":20})
    TracePrint(sRet)


  • 5
    鼠标点击  组件 参数属性里面有点击方式 你试下后台点击 
  • 凯哥 2023-4-20
    6
    绑定浏览器:
    hWeb = WebBrowser.BindBrowser("chrome",10000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200})
    执行以下任意一句都无法执行:
    sRet = WebBrowser.RunJS(hWeb,'''function(){document.querySelector("#confirmWorkBeginDate > div > div:nth-child(1) > input").removeAttribute("readonly");document.querySelector("#confirmWorkBeginDate > div > div:nth-child(3) > input").removeAttribute("readonly");return "完成"}''',True,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200})
    或这句:
    sRet = WebBrowser.RunJS(hWeb,'''function(){return document.getElementById("confirmWorkBeginDate");}''',True,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200})
    返回执行JS异常,但在控制台执行正常,单双引号都换过,不行
  • 陈旭_17231 2023-4-23
    7
    js就不是元素了 得先获取js路径
返回
发新帖