批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

[问题求助] [已解决]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

评分人数

用 ahk 吧

TOP

回复 2# CrLf


      cn-dos上我存着他当年问我问题的私信。
去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

TOP

试试发送TAB切换焦点。
去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

TOP

回复 4# codegay


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

TOP

本帖最后由 Nsqs 于 2016-4-24 13:57 编辑
  1. sub click(win,subwin,s,c)
  2. dim BM_CLICK,h,api,hwnd,save_win,bh
  3. set api=CreateObject("VBScript.API")
  4. with api
  5. h=.FindWindow (vbNullString,win):BM_CLICK=&HF5
  6. save_win=.GetForegroundWindow
  7. for each Hwnd in .EnumSubHwnd(h,"*button*",subwin):bh=hwnd:next
  8. do
  9. if .isWindow(bh)=0 then _
  10. exit do
  11. if .GetForegroundWindow<>bh then _
  12. .SetForegroundWindow h
  13. count=count+1
  14. .sendmessage bh,BM_CLICK ,0,0
  15. wsh.sleep int(s&"E+3")
  16. loop while count<c
  17. .SetForegroundWindow save_win
  18. end with
  19. set api=nothing
  20. end sub
  21. call click("window","确定",1,1000) '调用过程click 1秒执行一次,持续1000次
复制代码
双击注册
附件: 您需要登录才可以下载或查看附件。没有帐号?注册

TOP

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

回复 7# ygqiang


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

TOP

回复 8# Nsqs


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

TOP

回复 8# ygqiang


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

TOP

回复 9# Nsqs


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

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

TOP

回复 9# Nsqs


    xp系统下,你的6楼最新的代码,出现错误提示。
附件: 您需要登录才可以下载或查看附件。没有帐号?注册

TOP

你没有下载最新的exe?

TOP

回复 12# Nsqs


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

TOP

回复  Nsqs


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



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

TOP

回复 14# Nsqs


替换旧exe?

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

TOP

返回列表