[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] [已解决]vbs如何点击弹出框上的指定按钮?

[已解决]vbs如何实现:点击弹出框/提示框上的指定按钮?

vbs循环监控特定标题的窗口,如果弹出来窗口,就点击窗口上的指定按钮

——————————————————————————————————
更新下:

经过反复测试:
1、某个exe软件运行的时候,有时候会弹出某个特定标题的窗口。
默认是取消框。如果先按1次键盘的左箭头/TAB按键,再按1次键盘的回车/空格键,
都可以达到预期效果(都可以选中确定按钮,然后让窗口关闭)。
2、vbs代码,无论如何修改,都不能实现选中确定按钮、并点击确定让窗口关闭。
每次都只能点击到“取消”按钮。


多谢Nsqs的帮忙。


sendkeys的方法是模拟键盘,如果窗口内的按钮不支持快捷键,sendkeys就不能用了

扩展第三方程序,可以调用里面的方法向系统直接发送消息,
按下窗口里面的按钮。用sendmessage是向系统发送系统指令
系统接收什么就执行什么 非模拟键盘操作。。
  1. Const strWindowTitle = "窗口标题"   ' 监控的窗口标题
  2. Do
  3.   Main
  4.   WScript.Sleep 2000
  5. Loop
  6. Sub Main()
  7.   Dim wso, fso
  8.   Set wso = CreateObject("Wscript.Shell")
  9.   Set fso=CreateObject("Scripting.FileSystemObject")
  10.   
  11.   '一直检查窗口,直到指定窗口出现
  12.   Do While wso.AppActivate(strWindowTitle) = False
  13.     WScript.sleep 1000    ' 延时 1 秒
  14.    
  15.   Loop
  16.   
  17.   '激活窗口
  18.   Call WindowActive(strWindowTitle)
  19.   WScript.sleep 1000    ' 延时 1 秒  
  20.   '(发送 left左箭头)
  21.   wso.SendKeys "{left}"
  22.   WScript.sleep 1000    ' 延时 1 秒
  23.   '(发送 回车)
  24.   wso.sendkeys "{enter}"  
  25.   Set wso = NoThing
  26.   
  27. End Sub
  28. '激活窗口
  29. Sub WindowActive(ByVal strWindowTitle)
  30.   Dim objWord, objTasks
  31.   Set objWord = CreateObject("word.Application")
  32.   Set objTasks = objWord.Tasks
  33.   If objTasks.Exists(strWindowTitle) Then
  34.     objTasks(strWindowTitle).Activate         '激活窗口
  35.     objTasks(strWindowTitle).WindowState = 0  '0平常模式、1最大化模式、2最小化模式
  36.   End If
  37.   objWord.Quit
  38. End Sub
复制代码
1

评分人数

回复 4# codegay


    用键盘,就只能是1次左箭头+1次回车,才能满足要求。。
tab键好像没效果。

TOP

回复 8# Nsqs


    1、VBScript.exe,双击注册。是否适合xp系统下使用?
2、代码直接保存为vbs运行吗?
3、能否修改下代码,实现一直循环2-3秒监控?

TOP

回复 9# Nsqs


——————————————————————————————————
更新下:

经过反复测试:
1、特定标题的窗口弹出来,默认是取消框。如果先按1次键盘的左箭头/TAB按键,再按1次键盘的回车/空格键,
都可以达到预期效果(都可以选中确定按钮,然后让窗口关闭)。
2、vbs代码,无论如何修改,都不能实现选中确定按钮、并点击确定让窗口关闭。
每次都只能点击到“取消”按钮。

TOP

回复 9# Nsqs


    xp系统下,你的6楼最新的代码,出现错误提示。

TOP

回复 12# Nsqs


    哦。没下载。回头下载最新exe再测试下。谢谢

TOP

回复 14# Nsqs


替换旧exe?

exe文件存放在系统哪个目录下?

TOP

回复 12# Nsqs


    一直用的是:你提供的最开始的旧版本exe。最新的没下载。

TOP

回复 18# Nsqs


    多谢。下载了你的最新exe,以及最新vbs代码。
刚开始测试了几次都好用。后来再运行vbs代码,就有错误提示窗口。不能用了。

TOP

回复 20# Nsqs


    类似11楼

第4行的

TOP

VBScript注销.bat
  1. VBScript.exe /unregserver
复制代码
kill-vbs.bat
  1. taskkill /f /im "wscript.exe"
复制代码
附件是最新VBScript.exe

TOP

返回列表