JS Alert 导致语句未完成超时错误 【已解决.结贴.】

WANDY

web页面有一个如下的checkbox事件

<input type="checkbox" name="txtAnnuity" class="content"5onclick1=T"AnnuityAction(true)e;UpdateCalc()s;UpdateSave()t;">

//以上代码做过特殊处理，不然BBS不然上传= =

自动化代码如下：
getPage("").getElement("").checkboxOperation ("No")      ’取消checkbox选中状态
hasAlert "Microsoft Internet Explorer", "确定"          ‘调用hasAlert方法，模拟用户点击弹出 alert窗口的“确定”按钮

问题如下：
TesterAction(true)会弹出alert框，alert框没消失前不会执行UpdateCalc();UpdateSave();
而在这一行TesterAction(true)的alert对话框没确定或者取消之前，UpdateCalc();UpdateSave();无法被执行

因为UpdateCalc();UpdateSave();无法被执行，则该getPage("").getElement("").checkboxOperation ("No")语句未完成，程序会继续等待.. 直到超时...

寻求解决办法。望各位大虾不吝指点。

park_p

不知道你用的是什么工具，如果是selenium,可以修改源代码加入这个筐的处理我想。
但现行的解决办法，可以用第三方脚本程序处理掉这个窗口的。比如:autoit脚本.
在click checkbox 前调用监听脚本，在该语句结束后关闭脚本即可。

WANDY

回复 2# park_p


感谢Park_P, 已经用AUTOIT脚本暂时解决了该问题。
附上解决代码：

VBA调用函数

1. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
   
2. 
   
3. 'Author:
   
4. 'Create Data:
   
5. 'Description: OpenScript to close Window
   
6. Public Sub OpenScript(DirScriptName)
   
7. Dim ScriptName As String
   
8. ScriptName = getLocalPath + DirScriptName ' this is AU3Script Path
   
9. ShellExecute 0, vbNullString, ScriptName, vbNullString, vbNullString, vbNormalFocus
   
10. End Sub

复制代码

脚本代码如下：

1. WinWait("Microsoft Internet Explorer", "") ; Pauses execution of the script until the requested window "Microsoft Internet Explorer" exists.
   
2. If Not WinActive("Microsoft Internet Explorer", "") Then WinActivate("Microsoft Internet Explorer", "")
   
3. WinWaitActive("Microsoft Internet Explorer", "");WinActive  window "Microsoft Internet Explorer"
   
4. ControlClick("Microsoft Internet Explorer", "", "[CLASS:Button;INSTANCE:1]","left",1); Click Button which is "INSTANCE:1"

复制代码