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

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

//在论坛里找来的，首先要感谢那位兄弟的贡献，然后我进行了试验，并加了自己的理解
线程ID=BeginThread(检测网页)//开始一个新线程，其中线程ＩＤ可以自己取名字，“检测网页”是过程名，可以自己取名字
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)//这个按下后，那个窗口才能弹出来，每个的情况不一样，可不加