12
返回列表 发帖
ygqiang

Rank: 5Rank: 5

帖子
1366 
积分
837 
技术
15  
捐助
50  
注册时间
2010-4-18 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2016-4-23 19:29 | 只看该作者

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

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

评分人数

收藏 分享

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
2楼
发表于 2016-4-23 20:07 | 只看该作者
用 ahk 吧
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

codegay

Rank: 6Rank: 6

帖子
1266 
积分
1775 
技术
162  
捐助
0  
注册时间
2015-12-12 
3楼
发表于 2016-4-23 21:11 | 只看该作者
回复 2# CrLf


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

TOP

codegay

Rank: 6Rank: 6

帖子
1266 
积分
1775 
技术
162  
捐助
0  
注册时间
2015-12-12 
4楼
发表于 2016-4-23 21:13 | 只看该作者
试试发送TAB切换焦点。
去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

TOP

ygqiang

Rank: 5Rank: 5

帖子
1366 
积分
837 
技术
15  
捐助
50  
注册时间
2010-4-18 
5楼
发表于 2016-4-23 21:44 | 只看该作者
回复 4# codegay


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

TOP

Nsqs

Rank: 5Rank: 5

帖子
318 
积分
546 
技术
57  
捐助
0  
注册时间
2016-4-11 
6楼
发表于 2016-4-24 02:44 | 只看该作者 
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次COPY

TOP

Nsqs

Rank: 5Rank: 5

帖子
318 
积分
546 
技术
57  
捐助
0  
注册时间
2016-4-11 
7楼
发表于 2016-4-24 10:10 | 只看该作者
本帖最后由 Nsqs 于 2016-4-24 13:50 编辑

回复 7# ygqiang


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

TOP

ygqiang

Rank: 5Rank: 5

帖子
1366 
积分
837 
技术
15  
捐助
50  
注册时间
2010-4-18 
8楼
发表于 2016-4-24 20:40 | 只看该作者
回复 8# Nsqs


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

TOP

Nsqs

Rank: 5Rank: 5

帖子
318 
积分
546 
技术
57  
捐助
0  
注册时间
2016-4-11 
9楼
发表于 2016-4-24 21:54 | 只看该作者
回复 8# ygqiang


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

TOP

ygqiang

Rank: 5Rank: 5

帖子
1366 
积分
837 
技术
15  
捐助
50  
注册时间
2010-4-18 
10楼
发表于 2016-4-25 10:18 | 只看该作者
回复 9# Nsqs


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

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

TOP

ygqiang

Rank: 5Rank: 5

帖子
1366 
积分
837 
技术
15  
捐助
50  
注册时间
2010-4-18 
11楼
发表于 2016-4-25 10:19 | 只看该作者
回复 9# Nsqs


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

TOP

Nsqs

Rank: 5Rank: 5

帖子
318 
积分
546 
技术
57  
捐助
0  
注册时间
2016-4-11 
12楼
发表于 2016-4-25 13:04 | 只看该作者
你没有下载最新的exe？

TOP

ygqiang

Rank: 5Rank: 5

帖子
1366 
积分
837 
技术
15  
捐助
50  
注册时间
2010-4-18 
13楼
发表于 2016-4-25 13:16 | 只看该作者
回复 12# Nsqs


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

TOP

Nsqs

Rank: 5Rank: 5

帖子
318 
积分
546 
技术
57  
捐助
0  
注册时间
2016-4-11 
14楼
发表于 2016-4-25 13:25 | 只看该作者
回复  Nsqs


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



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

TOP

ygqiang

Rank: 5Rank: 5

帖子
1366 
积分
837 
技术
15  
捐助
50  
注册时间
2010-4-18 
15楼
发表于 2016-4-25 14:56 | 只看该作者
回复 14# Nsqs


替换旧exe?

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

TOP

12
返回列表