分享

网页弹出窗口自动点击“确定”

 spzxxjf 2015-10-29
 本帖最后由 roadgo 于 2014-3-19 21:08 编辑

//在论坛里找来的,首先要感谢那位兄弟的贡献,然后我进行了试验,并加了自己的理解
线程ID=BeginThread(检测网页)//开始一个新线程,其中线程ID可以自己取名字,“检测网页”是过程名,可以自己取名字
Sub 检测网页//过程开始了
    Rem ss//定义一个目标
Hwnd = Plugin.Window.Find(0, "Microsoft Internet Explorer")//找一个名为"Microsoft Internet Explorer"窗口句柄
    If Hwnd=0// 没找到
Delay 300//延时
Goto ss//重来,再找
Else
HwndEx = Plugin.Window.FindEx(Hwnd, 0, "Button", "确定")//找一个名叫"确定"的按钮
Call Plugin.Window.SendKeyPress(HwndEx,13)//在"确定"的按钮上敲回车

EndIf
    Delay 1000 //延时一秒
    Goto ss//再重来一次,看来“确定 ”很多啊。
Return
Call Plugin.Web.LeftClick(1282, 16)//这个按下后,那个窗口才能弹出来,每个的情况不一样,可不加 

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多