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

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

VBScript.exe /unregserver
复制代码

taskkill /f /im "wscript.exe"
复制代码