如何点击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

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

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

lyscser

前面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

Set Wshshell = CreateObject("Wscript.Shell")
模拟键盘