johnss74 发表于 2009-7-7 16:54:44

请问如何自动click 网页中对话方框内的"确定"钮

本帖最后由 johnss74 于 2009-7-9 08:15 编辑


#include <IE.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$GUI = GUICreate("Autoit3.3", 1020, 715,0,0)
GUISetFont(9, 400, -1, "MS Sans Serif")
$oIE2 = ObjCreate("Shell.Explorer.2")
$Breaktime = GUICtrlCreateObj($oIE2, 0, 120, 1020, 600)
$login = GUICtrlCreateButton("&Login", 305,70, 100)

GUISetState(@SW_SHOW)

While 1
        $nMsg = GUIGetMsg()
        Select
                Case $nMsg = $GUI_EVENT_CLOSE
                ExitLoop
                Case $nMsg = $login


                $oIE2.navigate ("http://member.eccn.com/mbr_reg.asp")
                _IELoadWait ($oIE2)

                $oForm = _IEFormGetObjByName ($oIE2, "form1")
                $oQuery1 = _IEFormElementGetObjByName ($oForm, "Submit")
                _IEAction($oQuery1 ,"click")
                ;请问接下来,如何自动click 对话方框内的"确定"钮
                               

        EndSelect
               
WEnd

kn007 发表于 2009-7-7 19:22:22

这个网页只有 提交按钮

如果要注册的话，我可不注册，给个另类方法，
WinWait("窗口名","")
WinWaitActive("窗口名","")
Send("{Enter}");或ControlClick("窗口名","确定","Button？")

johnss74 发表于 2009-7-7 23:15:56

你误会我的意思
请你复制我的程式码后
执行后该程式码,
按下'login'按钮
会跳出一个对话框
我是要自动取消对话框内的"确定"钮

我发现用GUI+IE去写出来的程式
没办法控制IE对话框内的物件

liongodmien 发表于 2009-7-8 11:50:33

内嵌ＩＥ弹出的对话框会使程序停止执行，需外加一进程去除！

johnss74 发表于 2009-7-8 12:01:25

请问如何外加一些进程呢?
因為弹出的对话框会使程序停止执行,那要写哪些东西CONTROL?
谢谢

rho123 发表于 2009-7-8 15:48:37

AU3 内嵌IE 中 一旦出现JS信息框 脚本就中断了 暂停了
解决方法就是写另外的脚本 监视信息框 出现了就点确定
While 1
$n = WinExists ( "Windows Internet Explorer" , "确定" )
if $n = 1 then ControlClick ( "Windows Internet Explorer", "确定","","left")
Sleep(200)
WEnd

很傻的办法 {:3_87:}

rho123 发表于 2009-7-8 15:49:14

忘了说了 我的是ie7.0好像和6.0弹出来的标题不一样

johnss74 发表于 2009-7-8 22:08:22

rho123大大
说的方式
确实可行

而且看来
是无法在同一脚本内做完同一件事

PS.
另外感谢你的提醒
7.0为
Windows Internet Explorer

6.0为
Microsoft Internet Explorer

谢谢

zxhou1 发表于 2014-5-6 14:25:16

不好用啊，放到子程序里面就点不了了
页: [1]
查看完整版本: 请问如何自动click 网页中对话方框内的"确定"钮