vbs如何后台运行程序
我想要后台运行Thunder.exe,但脚本每次运行都是直接激活窗口,没有后台运行代码如下:Setobjshell=createobject("wscript.shell...
我想要后台运行Thunder.exe,但脚本每次运行都是直接激活窗口,没有后台运行
代码如下:
Set objshell=createobject("wscript.shell")
objShell.Run "C:\Progra~1\Thunde~1\Thunder\Program\Thunder.exe", 0 展开
代码如下:
Set objshell=createobject("wscript.shell")
objShell.Run "C:\Progra~1\Thunde~1\Thunder\Program\Thunder.exe", 0 展开
1个回答
展开全部
Set objWord = CreateObject("Word.Application")
Set colTasks = objWord.Tasks
If colTasks.Exists("我的下载 - 迅雷7") = flash Then
Set objshell=createobject("wscript.shell")
objShell.Run "C:\Progra~1\Thunde~1\Thunder\Program\Thunder.exe", 0
End If
do until j = 1
If colTasks.Exists("我的下载 - 迅雷7") Then
colTasks("我的下载 - 迅雷7").visible = flase
j=1
End If
loop
objWord.Quit
End If
loop
objWord.Quit
直接用run有好多程序不会后台启动的
本程序是先运行再进行后台隐藏。 所以会看到迅雷窗口一闪而过
Set colTasks = objWord.Tasks
If colTasks.Exists("我的下载 - 迅雷7") = flash Then
Set objshell=createobject("wscript.shell")
objShell.Run "C:\Progra~1\Thunde~1\Thunder\Program\Thunder.exe", 0
End If
do until j = 1
If colTasks.Exists("我的下载 - 迅雷7") Then
colTasks("我的下载 - 迅雷7").visible = flase
j=1
End If
loop
objWord.Quit
End If
loop
objWord.Quit
直接用run有好多程序不会后台启动的
本程序是先运行再进行后台隐藏。 所以会看到迅雷窗口一闪而过
追问
……可我按你的文本运行后,成这个样子……
追答
晕 ,不知道怎么回事,上代码的时候多了三行。
最后三行重复的去掉
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询