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

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

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


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

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("")
        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?mod=viewthread&tid=7128&highlight=ie%2B%B5%E3%BB%F7        解决了
       $oForm = _IEFormGetObjByName ($oIE1, "WarForm")
        $oText = _IEFormElementGetObjByName ($oForm, "DelSelect")
        $hwnd = _IEPropertyGet($oIE1, "hwnd")
        _IEAction ($oText, "focus")
        ControlSend($hwnd, "", "", "{Enter}")
        WinWait("Microsoft Internet Explorer", "")
        ControlClick("Microsoft Internet Explorer", "", "")

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

标记下 JAVASCRIPT ALERT CONFIRM 弹出框 点击 卡住 脚本 IE
页: [1]
查看完整版本: 求助:如何执行ie弹出窗口按扭[已解决]