ygqiang

回复 9# Nsqs


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

ygqiang

回复 9# Nsqs


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

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

Nsqs

回复 8# ygqiang


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

ygqiang

回复 8# Nsqs


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

Nsqs

回复 7# ygqiang


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

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次
复制代码

ygqiang

回复 4# codegay


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

codegay

试试发送TAB切换焦点。

codegay

回复 2# CrLf


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

CrLf

用 ahk 吧