Question

高手请进!!按键精灵如何识别弹出对话框如有对话框将执行以下操作，

如果没有对话框将不执行以下操做。的代码如何写？

Answer 1

用抓抓，把对话框的类抓到，然后取弹出窗口的Hwnd，如果Hwnd大于0就说明有对话框。

例如：

Hwnd = Plugin.Window.Find("#32770", "来自网页的消息")
Delay 200
If Hwnd > 0 Then 
sRect = Plugin.Window.GetWindowRect(Hwnd)
a = split(sRect, "|")
    If a(2) - a(0) > 300 Then 
    Delay 200
    KeyPress "Enter", 1
    Goto GoOn
    End if
End If

这个#32770就是编辑界面的抓抓，抓到的类名，来自网页的消息 也是抓到的对话框标题。上面代码是检测是否有弹出窗口，如果弹出窗口宽度大于300像素（弹出不同对话框执行不同操作，一般成功和失败对应的对话框大小不同），goto跳转到指定位置去执行相关的功能代码。

Answer 2

[list=1]
[*]选择 = Lib.窗口.弹出对话框("请选择一个并按下它!", 0, "狂练提示:", 0)
[*]If 选择 = 1 Then
[*]MessageBox "选择确定或点关闭都返回值:" & 选择
[*]End If
[*]//↑只有确定和关闭,确定或关闭对话框都返回"1"
[*]选择 = Lib.窗口.弹出对话框("请选择一个并按下它!", 0, "狂练提示:", 1)
[*]If 选择 = 1 Then
[*]MessageBox "选择确定,返回值:" & 选择
[*]ElseIf 选择 = 2 Then
[*]MessageBox "选择取消或点关闭都返回值:" & 选择
[*]End If
[*]//↑只有确定/取消和关闭,点确定返回"1",取消或关闭返回"2"
[*]选择 = Lib.窗口.弹出对话框("请选择一个并按下它!", 0, "狂练提示:", 2)
[*]If 选择 = 3 Then
[*]MessageBox "选择终止,返回值:" & 选择
[*]ElseIf 选择 = 4 Then
[*]MessageBox "选择重试,返回值:" & 选择
[*]ElseIf 选择 = 5 Then
[*]MessageBox "选择忽略,返回值:" & 选择
[*]End If
[*]//↑只有终止/重试和忽略,终止返回"3",重试返回"4",忽略返回"5"
[*]选择 = Lib.窗口.弹出对话框("请选择一个并按下它!", 0, "狂练提示:", 3)
[*]If 选择 = 6 Then
[*]MessageBox "选择是,返回值:" & 选择
[*]ElseIf 选择 = 7 Then
[*]MessageBox "选择否,返回值:" & 选择
[*]ElseIf 选择 = 2 Then
[*]MessageBox "选择取消或关闭都返回值:" & 选择
[*]End If
[*]//↑只有是/否/取消和关闭,是返回"6",否返回"7",取消或关闭返回"2"
[*]选择 = Lib.窗口.弹出对话框("请选择一个并按下它!", 0, "狂练提示:", 4)
[*]If 选择 = 6 Then
[*]MessageBox "选择是,返回值:" & 选择
[*]ElseIf 选择 = 7 Then
[*]MessageBox "选择否,返回值:" & 选择
[*]End If
[*]//↑只有是和否,是返回"6",否返回"7"
[*]选择 = Lib.窗口.弹出对话框("请选择一个并按下它!", 0, "狂练提示:", 5)
[*]If 选择 = 4 Then
[*]MessageBox "选择重试,返回值:" & 选择
[*]ElseIf 选择 = 2 Then
[*]MessageBox "选择取消或关闭,返回值:" & 选择
[*]End If
[*]//↑只有重试/取消和关闭,重试返回"4",取消和关闭返回"2"
[*]选择 = Lib.窗口.弹出对话框("请选择一个并按下它!", 0, "狂练提示:", 6)
[*]If 选择 = 2 Then
[*]MessageBox "选择取消或关闭都返回值:" & 选择
[*]ElseIf 选择 = 10 Then
[*]MessageBox "选择重试返回值:" & 选择
[*]ElseIf 选择 = 11 Then
[*]MessageBox "选择继续返回值:" & 选择
[*]End If
[*]//↑只有取消/重试/继续和关闭,重试返回"10",继续返回"11",取消和关闭返回"2"
[/list]

Answer 3

对话框总有些特征,比如有确定按钮,取消按钮或者关闭按钮,那么利用这些特征来作为代码判断弹窗是否出现的条件.可以适用找图命令或者找色命令,加入判断即可,参考代码如下:

FindPic 0,0,1024,768,"Attachment:\关闭按钮.bmp",0.9,intX,intY
If intX > 0 Then//判断返回坐标大于0则说明有弹窗出现 
 //此处填写你要操作的代码
End If

如果需要重复操作的话,可加入循环命令,即可重复运行

Answer 4

如果是普通窗口,可以用查找窗口的方式如:
While true
Hwnd = Plugin.Window.Find("SciCalc", "计算器")
Delay 100
If Hwnd > 0 Then
Call Plugin.Window.Close(Hwnd)//关闭窗口
End If
Wend
如果是游戏中的窗口,那么就要通过找色,找图之类的命令完成了