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

ygqiang

[已解决]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

用 ahk 吧

codegay

回复 2# CrLf


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

codegay

试试发送TAB切换焦点。

ygqiang

回复 4# codegay


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

Nsqs

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

回复 7# ygqiang


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

ygqiang

回复 8# Nsqs


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

Nsqs

回复 8# ygqiang


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

ygqiang

回复 9# Nsqs


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

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

ygqiang

回复 9# Nsqs


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

Nsqs

你没有下载最新的exe？

ygqiang

回复 12# Nsqs


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

Nsqs

回复  Nsqs


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

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

ygqiang

回复 14# Nsqs


替换旧exe?

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