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

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

如图：
我用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", "登录成功", "[CLASS:Button; INSTANCE:1]")

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

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

谢谢！可俺还是没试验成功啊！~~~郁闷！

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

原帖由 雨林GG 于 2009-3-30 14:02 发表
谢谢！可俺还是没试验成功啊！~~~郁闷！

,...我...这里可以啊- -+

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

ControlClick("Windows Internet Explorer", "登录成功", "[CLASS:Button; INSTANCE:1]", "left", 2)

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

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

AdlibEnable（myadlib）
这样可以！

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

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

这个问题困扰我好几天，今天解决了

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

是要点两下，才可以

		自动登录	找回密码
密码			加入

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

本帖子中包含更多资源

谢谢楼上诸位