求助:如何执行ie弹出窗口按扭[已解决]

xjxcd · 发表于 2012-4-13 09:50:50

本帖最后由 xjxcd 于 2012-4-16 14:59 编辑

执行_Ieaction($otext,"click")弹如上图对话框,如何发送命令确定点击,用send("{Enter}")、controlclick("Microsoft Inernet Explorer","您要删除此信息吗","[CLASS:button;INSTANCE:1]")都未能执行

haijie1223 · 发表于 2012-4-13 11:22:28

WinActivate("Microsoft Inernet Explorer")
send("{Enter}")

xjxcd · 发表于 2012-4-13 12:20:06

回复 2# haijie1223

试过WinActivate("Microsoft Inernet Explorer"),不启作用

风行者 · 发表于 2012-4-13 13:44:04

可以尝试使用timer消息

haijie1223 · 发表于 2012-4-13 15:17:34

回复 3# xjxcd

Opt("WinTitleMatchMode",1)

风行者 · 发表于 2012-4-13 18:00:12

测试使用timer消息是有效果的

#include <IE.au3>
#include <Timers.au3>
$oIE = _IECreateEmbedded()
$gui = GUICreate("测试",600,600)
GUICtrlCreateObj($oIE,0,0,600,600)
GUISetState()

_IENavigate($oIE,@ScriptDir&"\test.html")
$iid = _Timer_SetTimer(0,250,"click")
_IELinkClickByText($oIE,"百度")

Do
Until GUIGetMsg()=-3

Func click($hwnd,$msg,$wPlate,$lPlate)
        $handle = WinWait("[class:#32770]")
        ControlClick($handle,"","Button1")
        _Timer_KillTimer(0,$iid)
EndFunc

test.html

<html>
  <body>
    <a href="http://www.baidu.com" onclick=alert("ok")>百度</a>                 
  </body>
</html>

xjxcd · 发表于 2012-4-13 20:23:34

谢谢两位的帮助，星期一上班后回去测试，结果将报告.

xjxcd · 发表于 2012-4-16 14:50:21

参考了http://www.autoitx.com/forum.php ... t=ie%2B%B5%E3%BB%F7解决了
$oForm = _IEFormGetObjByName ($oIE1, "WarForm")
$oText = _IEFormElementGetObjByName ($oForm, "DelSelect")
$hwnd = _IEPropertyGet($oIE1, "hwnd")
_IEAction ($oText, "focus")
ControlSend($hwnd, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "{Enter}")
WinWait("Microsoft Internet Explorer", "")
ControlClick("Microsoft Internet Explorer", "", "[CLASS:Button; Instance:1;]")

快雪时晴 · 发表于 2013-4-10 15:39:32

标记下 JAVASCRIPT ALERT CONFIRM 弹出框点击卡住脚本 IE

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

[IE类操作] 求助:如何执行ie弹出窗口按扭[已解决]

本帖子中包含更多资源

评分

相关帖子

评分

评分