[已解决]vbs如何点击弹出框上的指定按钮？

ygqiang · 发表于 2016-4-23 19:29:24

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

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

——————————————————————————————————
更新下：

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

多谢Nsqs的帮忙。

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

扩展第三方程序,可以调用里面的方法向系统直接发送消息,
按下窗口里面的按钮。用sendmessage是向系统发送系统指令
系统接收什么就执行什么非模拟键盘操作。。

Const strWindowTitle = "窗口标题" ' 监控的窗口标题
Do
Main
WScript.Sleep 2000
Loop
Sub Main()
Dim wso, fso
Set wso = CreateObject("Wscript.Shell")
Set fso=CreateObject("Scripting.FileSystemObject")
'一直检查窗口，直到指定窗口出现
Do While wso.AppActivate(strWindowTitle) = False
WScript.sleep 1000 ' 延时 1 秒
Loop
'激活窗口
Call WindowActive(strWindowTitle)
WScript.sleep 1000 ' 延时 1 秒
'(发送 left左箭头)
wso.SendKeys "{left}"
WScript.sleep 1000 ' 延时 1 秒
'(发送回车)
wso.sendkeys "{enter}"
Set wso = NoThing
End Sub
'激活窗口
Sub WindowActive(ByVal strWindowTitle)
Dim objWord, objTasks
Set objWord = CreateObject("word.Application")
Set objTasks = objWord.Tasks
If objTasks.Exists(strWindowTitle) Then
objTasks(strWindowTitle).Activate '激活窗口
objTasks(strWindowTitle).WindowState = 0 '0平常模式、1最大化模式、2最小化模式
End If
objWord.Quit
End Sub

复制代码

CrLf · 发表于 2016-4-23 20:07:38

用 ahk 吧

codegay · 发表于 2016-4-23 21:11:11

回复 2# CrLf

cn-dos上我存着他当年问我问题的私信。

codegay · 发表于 2016-4-23 21:13:37

试试发送TAB切换焦点。

ygqiang · 发表于 2016-4-23 21:44:23

回复 4# codegay

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

Nsqs · 发表于 2016-4-24 02:44:33

sub click(win,subwin,s,c)
dim BM_CLICK,h,api,hwnd,save_win,bh
set api=CreateObject("VBScript.API")
with api
h=.FindWindow (vbNullString,win):BM_CLICK=&HF5
save_win=.GetForegroundWindow
for each Hwnd in .EnumSubHwnd(h,"*button*",subwin):bh=hwnd:next
do
if .isWindow(bh)=0 then _
exit do
if .GetForegroundWindow<>bh then _
.SetForegroundWindow h
count=count+1
.sendmessage bh,BM_CLICK ,0,0
wsh.sleep int(s&"E+3")
loop while count<c
.SetForegroundWindow save_win
end with
set api=nothing
end sub
call click("window","确定",1,1000) '调用过程click 1秒执行一次,持续1000次

复制代码

Nsqs · 发表于 2016-4-24 10:10:54

本帖最后由 Nsqs 于 2016-4-24 13:50 编辑

回复 7# ygqiang

更新了一下,优化了方法,直接调用click就可以循环了

ygqiang · 发表于 2016-4-24 20:40:00

回复 8# Nsqs

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

Nsqs · 发表于 2016-4-24 21:54:42

回复 8# ygqiang

1是的
2是的
3自己改…我都写了注释

ygqiang · 发表于 2016-4-25 10:18:52

回复 9# Nsqs

——————————————————————————————————
更新下：

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

ygqiang · 发表于 2016-4-25 10:19:39

回复 9# Nsqs

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

Nsqs · 发表于 2016-4-25 13:04:28

你没有下载最新的exe？

ygqiang · 发表于 2016-4-25 13:16:42

回复 12# Nsqs

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

Nsqs · 发表于 2016-4-25 13:25:23

回复 Nsqs

哦。没下载。回头下载最新exe再测试下。谢谢
ygqiang 发表于 2016-4-25 13:16

如果是已经有旧exe并且你注册过了你就不需要再注册一次直接替换旧exe就可以了.如果没注册过就把新exe替换以后再双击打开注册就能用最新代码了

ygqiang · 发表于 2016-4-25 14:56:34

回复 14# Nsqs

替换旧exe?

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

		自动登录	找回密码
密码			注册

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

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

评分

浏览过的版块