vbs启动程序，点击按钮等

最新推荐文章于 2022-12-31 11:32:55 发布

highvision25

最新推荐文章于 2022-12-31 11:32:55 发布

阅读量2.7k

点赞数

分类专栏： vbscript 文章标签： vbscript

本文链接：https://blog.csdn.net/ZSMDEV/article/details/108872331

版权

vbscript 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

这是一个VBScript脚本，用于循环启动计算器应用并输入特定数值。脚本首先定义计算器的标题，然后通过WScript.Shell对象运行计算器并激活窗口。在窗口激活后，脚本会发送键盘输入'123456789'到计算器。此外，还有一个子程序WindowActive用于激活指定标题的窗口。

摘要由CSDN通过智能技术生成

Const strCalc = "计算器"   '计算器，工具title
'可以循环，也可以不用循环
Do
  RunCalc
  WScript.Sleep 1000
  WScript.quit
Loop

Sub RunCalc()
	Dim Wsh,fso
	Set Wsh = WScript.CreateObject("WScript.Shell")
	Set fso=CreateObject("Scripting.FileSystemObject")
	
	WScript.Sleep(1000)
	
	'Wsh.Run "C:\01_工具\工具.exe"
	Wsh.Run "calc"
	
	'检查窗口是否出现
	Do While Wsh.AppActivate(strCalc) = False
	WScript.sleep 1000
	'MsgBox "启动成功"
	Loop

	'激活窗口
	Call WindowActive(strCalc)
	WScript.sleep 1000
	Wsh.sendkeys "123456789"
	'下面两个命令分别用来点击tab键和回车键
	'Wsh.sendkeys "{tab}"
	'Wsh.sendkeys "{enter}"
	Set Wsh=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:normal、1:最大化、2:最小化
  End If 
  objWord.Quit
End Sub