怎样用VBS脚本写一个使程序关闭并又自动开启? 50
展开全部
=========VBS团队=========
拿记事本为例:
Set a=WScript.CreateObject("WScript.Shell")
a.Run "notepad"
这就运行了记事本,不保存关闭就是
a.SendKeys " %{f4}"
WScript.Sleep 50
a.SendKeys "{tab}"
WScript.Sleep 50
a.SendKeys "{enter} "
如果还要打开一个空记事本:
Set b=WScript.CreateObject("WScript.Shell")
b.Run "notepad"
第二个建立起来的记事本就没有了第一个记事本的内容。
如果需要第一个记事本的内容,就不能真正意义上的关闭,应该是隐藏到后台,需要的时候在调用出来:
这个是一个后台音乐播放器隐藏代码(记事本隐藏根本看不到,也听不到所以用这个给你演示)
strComputer = "."
Set f=CreateObject("Wscript.Shell")
f.Run("wmplayer.exe d:\123.mp3"),0
wscript.sleep 100
Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = wmplayer.exe ")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
如果不明白就追问
=========VBS团队=========
拿记事本为例:
Set a=WScript.CreateObject("WScript.Shell")
a.Run "notepad"
这就运行了记事本,不保存关闭就是
a.SendKeys " %{f4}"
WScript.Sleep 50
a.SendKeys "{tab}"
WScript.Sleep 50
a.SendKeys "{enter} "
如果还要打开一个空记事本:
Set b=WScript.CreateObject("WScript.Shell")
b.Run "notepad"
第二个建立起来的记事本就没有了第一个记事本的内容。
如果需要第一个记事本的内容,就不能真正意义上的关闭,应该是隐藏到后台,需要的时候在调用出来:
这个是一个后台音乐播放器隐藏代码(记事本隐藏根本看不到,也听不到所以用这个给你演示)
strComputer = "."
Set f=CreateObject("Wscript.Shell")
f.Run("wmplayer.exe d:\123.mp3"),0
wscript.sleep 100
Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = wmplayer.exe ")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
如果不明白就追问
=========VBS团队=========
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询