开朗幽默 发表于 2010-10-13 10:10:39

如何点击windows弹出窗口中的“打开”或“取消”？

正在编辑一个脚本，需要在WINDOWS弹出窗口中选择F盘一个文件夹目录下的两个文件，然后打开。录制的时候获取的是“打开”按钮的坐标，要求是不使用坐标，即在任意一台电脑上都能使用该脚本。尝试用了GetTextLocation，但无法点击到“打开”。详细脚本如下：
Window("nmon analyser v33C.xls").Window("Select NMON file(s) to").WinListView("SysListView32").Activate "本地磁盘 (F:)"
Window("nmon analyser v33C.xls").Window("Select NMON file(s) to").WinListView("SysListView32").Activate "zjzl"
Window("nmon analyser v33C.xls").Window("Select NMON file(s) to").WinListView("SysListView32").Activate "100930"
Window("nmon analyser v33C.xls").Window("Select NMON file(s) to").WinListView("SysListView32").Select "acc1_100929_0000.nmon"
Window("nmon analyser v33C.xls").Window("Select NMON file(s) to").WinListView("SysListView32").Type micCtrlDwn + "a" + micCtrlUp
Window("nmon analyser v33C.xls").Window("Select NMON file(s) to").GetTextLocation "打开",L,T,R,B,True
Window("nmon analyser v33C.xls").Window("Select NMON file(s) to").Click (L+R)/2, (T+B)/2

TIB 发表于 2010-10-13 11:43:42

前面4行可以合并到一行，在文件名输入框直接输入文件路径

如果打开按钮点击有问题，可以尝试：
1、重新添加文件对话框到对象库中
2、用键盘操作（TAB键+ENTER键，或者用快捷键）

lyscser 发表于 2010-10-13 22:05:49

前面4行可以合并到一行，在文件名输入框直接输入文件路径

如果打开按钮点击有问题，可以尝试：
1、重新 ...
TIB 发表于 2010-10-13 11:43 http://bbs.51testing.com/images/common/back.gif

方法二的代码翻译：

Set Wshshell = CreateObject("Wscript.Shell")
Dim isAct,windowTit
isAct = False
windowTit = Window("nmon analyser v33C.xls").GetProperty("title")                '伪码，自己想办法去获取窗口的标题，其实大约应该是等于“Select NMON file(s) to be processed”
While isAct = False
If Wshshell.AppActive(windowTit) Then
        …………'此处请书写选择文件的代码
        Wait(1)
        Wshsehll.SendKeys "%O"        '模拟ALT+O(open)
        Wshsehll.SendKeys "%O"
        isAct = True
Else
        Wait(1)
End If
Wend

traning 发表于 2010-10-14 10:51:11

Set Wshshell = CreateObject("Wscript.Shell")
模拟键盘
页: [1]
查看完整版本: 如何点击windows弹出窗口中的“打开”或“取消”？