51Testing软件测试论坛

标题: 如何点击windows弹出窗口中的“打开”或“取消”？ [打印本页]

作者: 开朗幽默 时间: 2010-10-13 10:10
标题: 如何点击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
[attach]65749[/attach]

作者: TIB 时间: 2010-10-13 11:43
前面4行可以合并到一行，在文件名输入框直接输入文件路径

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

作者: lyscser 时间: 2010-10-13 22:05

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

如果打开按钮点击有问题，可以尝试：
1、重新 ...
TIB 发表于 2010-10-13 11:43

方法二的代码翻译：

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
Set Wshshell = CreateObject("Wscript.Shell")
模拟键盘

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)