雨林GG 发表于 2009-3-30 09:39:55

请教如何点击JS的弹出对话框?

如图：
    我用WinWaitActive("Windows Internet Explorer","登录成功")
        Send("{Enter}")
      不好使！

[ 本帖最后由 雨林GG 于 2009-4-1 14:13 编辑 ]

javarike 发表于 2009-3-30 09:58:33

Func myadlib()
If WinExists("Windows","确定") Then
ControlClick("Windows","确定","Button1")

EndIf
EndFunc

试试这个。。后台发送点击那个窗口的"确定"

[ 本帖最后由 javarike 于 2009-3-30 09:59 编辑 ]

雨林GG 发表于 2009-3-30 10:33:32

还是不好用！

补充：登录网页中有个FORM ，两个Input.一个submit。 好像是点击确定后再执行后面的代码！
$oIE = _IECreate ("http://这里省略/index.asp",0,0) ;网址这里省略
$Form = _IEFormGetCollection ($oIE, 0)
$adminname = _IEFormElementGetCollection ($Form, 0)
$password = _IEFormElementGetCollection ($Form, 1)       
$setadminname =_IEFormElementSetValue ($adminname, "admin")
$setpassword =_IEFormElementSetValue ($password, "admin")       
_IEFormSubmit ($Form)
;Sleep(5000)       

myadlib()

[ 本帖最后由 雨林GG 于 2009-3-30 10:49 编辑 ]

rolaka 发表于 2009-3-30 13:46:08

ControlClick("Windows Internet Explorer", "登录成功", "")

咳咳...貌似点两下才能消掉- -+

雨林GG 发表于 2009-3-30 14:02:21

谢谢！ 可俺还是没试验成功啊！~~~郁闷 ！:face (36):

rolaka 发表于 2009-3-30 15:06:58

原帖由 雨林GG 于 2009-3-30 14:02 发表 http://www.autoitx.com/images/common/back.gif
谢谢！ 可俺还是没试验成功啊！~~~郁闷 ！:face (36):
,...我...这里可以啊- -+

rolaka 发表于 2009-3-30 15:31:11

ControlClick("Windows Internet Explorer", "登录成功", "", "left", 2)

我这里这么写才能管...点两下要

雨林GG 发表于 2009-4-1 14:13:27

AdlibEnable（myadlib）
这样可以 ！

[ 本帖最后由 雨林GG 于 2009-4-1 14:59 编辑 ]

mumuyu1215 发表于 2009-4-7 14:40:22

谢谢楼上诸位

这个问题困扰我好几天，今天解决了:face (23):

lynfr8 发表于 2009-5-15 02:42:29

例子


AdlibEnable("myadlib")
;...
Exit

Func myadlib()
    If WinActive("错误") Then
      ;...
    EndIf
EndFunc

maoying 发表于 2009-5-17 12:47:13

2# javarike

……
有点启发

knelia 发表于 2014-6-12 09:12:56

回复 7# rolaka


    是要点两下，才可以
页: [1]
查看完整版本: 请教如何点击JS的弹出对话框?