减小字体
增大字体- ·上一篇文章：巧用批处理和reg文件制作“假”病毒，请勿乱用
- ·下一篇文章：批处理程序五子棋
- ·百度中搜索更多的关于“批处理代码之效果很酷的入侵演示”相关内容
- ·谷歌中搜索更多的关于“批处理代码之效果很酷的入侵演示”相关内容
- ******申明******
- 本站文章内容有部分为收录网络中其他网友内容，DOS资源站不保证所有的代码都适合你使用。
- 由于编辑匆忙，有可能造成某些脚本文件出现丢失代码或代码无法运行的情况，请网友根据情况自行修改。
- 如果能将出错部分反馈给我，那就更好了。
批处理代码之效果很酷的入侵演示
@echo off&title DOS资源站 www.cmdos.net
more +218 %0>>download.vbs
title 入侵演示...code by somebody
color 0a
cls
echo.
:: →→→→→→→→→→→→→ Loading The Program ←←←←←←←←←←
setlocal EnableDelayedExpansion
(set,=Loading the program, please wait a minute&for /l %%c In (0,1,42)do @call set/p=%%,:~%%c,1%%<nul)&set,=&ping -n 2 127.1>nul&set/p="."<nul&ping -n 2 127.1>nul&set/p="."<nul&ping -n 2 127.1>nul&set/P="."<nul&ping -n 2 127.1>nul
cls
echo.
set/p= Loading <nul
for /l %%s in (1,1,15) do (
set/p="-"<nul
for /l %%i in (1,1,100) do ver>nul
set/p=<nul
for /l %%i in (1,1,100) do ver>nul
set/p="\"<nul
for /l %%i in (1,1,100) do ver>nul
set/p=<nul
for /l %%i in (1,1,100) do ver>nul
set/p="|"<nul
for /l %%i in (1,1,100) do ver>nul
set/p=<nul
for /l %%i in (1,1,100) do ver>nul
set/p="/"<nul
for /l %%i in (1,1,100) do ver>nul
set/p=<nul
for /l %%i in (1,1,100) do ver>nul
)
cls
set num=20
set a==
set n=1
for /l %%i in (1,1,80) do (
cls
set /a num+=1
echo !num!%%
echo !a!
set a=!a!=
set /a n+=1
for /l %%j in (1,1,150) do ver>nul
)
ping -n 1 127.1 >nul 2>nul
echo Loading Complete
ping -n 2 127.1 >nul 2>nul
endlocal
cls
:: →→→→→→→→→→→→→ Loading The Program ←←←←←←←←←←
:: ************************** 判断是否联网 *****************************
setlocal EnableDelayedExpansion
set a=The program is detecting your system, please wait a minute...
for %%i in (a) do (
set/p=<nul
for /l %%a in (0,1,100) do (
if not "!%%i:~%%a,1!"=="" (
if %%a==100 echo.&echo;
set/p=!%%i:~%%a,1!<nul
for /l %%i in (1,1,100) do ver>nul
)
)
echo.
)
endlocal
ping -n 2 127.1>nul 2>nul
cls
ping -n 2 kumho.lin.googlepages.com >nul 2>nul
if %errorlevel% equ 0 (goto ready) else goto problem
:problem
setlocal DisableDelayedExpansion
set "A= Your computer is not connecting to the Internet !!!"
set "B="
for /l %%j in (1,1,10) do (
set/p=%A%<nul
set/p=%B%<nul
for /l %%i in (1,1,500) do ver>nul
set/p= <nul
for /l %%i in (1,1,500) do ver>nul
set/p=%B%<nul
ping -n 1 127.1 >nul 2>nul
)
endlocal
MSG * /time:3 ***** 你必须连接到互联网才能使用该程序 *****
exit
:ready
echo The batch program is connecting to the Internet, please wait a few seconds...
start wscript download.vbs "http://kumho.lin.googlepages.com/bg.mp3" "bg.mp3"
echo set wmp = CreateObject("WMPlayer.OCX.7")>playlist.vbs
echo wmp.settings.volume = 99>>playlist.vbs
echo wmp.url = WScript.Arguments(0)>>playlist.vbs
echo while wmp.playstate = 9 or wmp.playstate = 3 >>playlist.vbs
echo wscript.sleep 5 >>playlist.vbs
echo wend>>playlist.vbs
echo Set Voice = CreateObject("SAPI.SpVoice")>>playlist.vbs
echo Voice.Speak "so what do you think ? somebody chu ping . bee shu jin pin!">>playlist.vbs
echo set Voice = nothing>>playlist.vbs
start wscript playlist.vbs %windir%\Media\onestop.mid
ping -n 2 127.1>nul 2>nul
cls
echo code by
ping -n 3 127.1 >nul 2>nul
echo.
setlocal EnableDelayedExpansion
set "str1 = ╭━━╮╭━━╮╭╭━╮╭━━╮╭━━╮╭━━╮┏━━╮╭╮╭╮"
set "str6 = ╰━━╯╰━━╯╰╯╰╯╰━━╯╰━━╯╰━━╯┗━━╯╰╯"
set "str3 = ┃╰━╮┃┃┃┃┃┃┃┃┃╰━╮┃╰╯╯┃┃┃┃┃┃┃┃╰╮╭╯"
set "str5 = ╭━╯┃┃╰╯┃┃┃┃┃┃╰━╮┃╰╯┃┃╰╯┃┃╰╯┃┃┃"
set "str2 = ┃╭━╯┃╭╮┃┃┃┃╭━╯┃╭╮┃┃╭╮┃┃╭╮┃┃╰╯┃"
set "str4 = ╰━╮┃┃┃┃┃┃╭╮┃┃╭━╯┃╭╮╮┃┃┃┃┃┃┃┃┃┃"
for /l %%i in (1,1,6) do (set num=%%i & call echo %%str!num!%%)
ping -n 6 127.1 >nul 2>nul
cls
for /l %%q in (0,1,60) do (
for /l %%k in (0,1,125) do (
set /a c=%%k/2
set /a a=%%k-!c!*2
if !a! equ 0 (set/p b=!b!0<nul) else (set/p b=!b!1<nul)
)
)
cls
echo.&echo.
setlocal DisableDelayedExpansion
set "A= Attacked by somebody,you're gonna be a deadman !!!"
echo %A%
for /l %%i in (1,1,1000) do ver>nul
cls
echo.&echo.
set "P= Attacked by somebody,you're gonna be a deadman !!!"
set "K="
for /l %%j in (1,1,10) do (
set/p=%P%<nul
set/p=%K%<nul
for /l %%i in (1,1,250) do ver>nul
set/p= <nul
for /l %%i in (1,1,300) do ver>nul
set/p=%K%<nul
ping -n 1 127.1 >nul 2>nul
)
ping -n 3 127.1 >nul 2>nul
taskkill /f /im wscript.exe>nul 2>nul
if exist bg.mp3 (
start wscript playlist.vbs "bg.mp3"
) else (
MSG * /time:3 你的网络下载速率连10K/S都达不到，太烂了吧!
exit
)
cls
ping -n 2 127.1>nul 2>nul
setlocal EnableDelayedExpansion
for /l %%q in (0,1,60) do (
for /l %%k in (0,1,125) do (
set /a cc=%%k/2
set /a aa=%%k-!cc!*2
if !aa! equ 0 (set/p bb=!bb!0<nul) else (set/p bb=!bb!1<nul)
)
)
cls
setlocal EnableDelayedExpansion
rem 每一行的字符串最长是34个中文字符，或者68个英文字符，不可以包含空格。
rem 不可以混合使用半角和全角字符。只接受中文或者全角字符（即双字节字符）或者英文字符（即单字节字符）
set "str1=超级版主：ＳＯＭＥＢＯＤＹ"
set "str2=积分：六二六"
set "str3=ＶＢ币：七五九枚 "
set "str4=好评：十度"
set "str5=威望：二十一点"
set /a num=1
for %%a in (%str1%,%str2%,%str3%,%str4%,%str5%) do (
setlocal EnableDelayedExpansion
set /a count=0
set blank=
set "b=%%a"
for /l %%k in (0,1,68) do if not "!b:~%%k,1!"=="" set /a count+=1
rem 处理纯英文字符串，则以下的 count 不需要乘以2
set /a "total=(70-!count!*2)/2"
for /l %%i in (1,1,!total!) do set "blank=!blank! "
set "final=│!blank!!b!!blank!│"
set newstr!num!=!final!
set /a num+=1
)
:print
setlocal EnableDelayedExpansion
set a=┌───────────────────────────────────┐
set "b=%newstr1%"
set c=├───────────────────────────────────┤
set "d=%newstr2%"
set e=├───────────────────────────────────┤
set "f=%newstr3%"
set g=├───────────────────────────────────┤
set "h=%newstr4%"
set i=├───────────────────────────────────┤
set "j=%newstr5%"
set k=└───────────────────────────────────┘
for %%i in (a b c d e f g h i j k) do (
set/p= <nul
for /l %%a in (0,1,100) do (
if not "!%%i:~%%a,1!"=="" (
if %%a==100 echo.&echo;
set/p=!%%i:~%%a,1!<nul
for /l %%i in (1,1,50) do ver>nul
)
)
echo.
)
endlocal
echo.
pause
str="370,1160,960,1130,300,1000,1030,1060,990,300,1000,1090,1120,300,980,1090,1170,1080,1060,1090,950,980,1030,1080,1010,300,1170,1030,1140,1020,300,630,810,650,710,710,300,990,1080,970,1090,980,1030,1080,1010,300,1140,1090,300,950,1160,1090,1030,980,300,950,1080,1140,1030,430,1160,1030,1120,1150,1130,370,1130,300,1030,1080,1140,990,1120,1120,1150,1100,1140,1030,1090,1080,110,80,370,970,1090,980,990,300,960,1190,300,1130,1090,1070,990,960,1090,980,1190,110,80,370,1140,990,1130,1140,1030,1080,1010,300,990,1080,1160,1030,1120,1090,1080,1070,990,1080,1140,560,300,850,1030,1080,980,1090,1170,1130,300,480,460,460,490,300,410,300,730,950,1130,1100,990,1120,1130,1050,1190,300,520,440,460,110,80,770,1080,300,670,1120,1120,1090,1120,300,800,990,1130,1150,1070,990,300,760,990,1180,1140,110,80,660,1030,1070,300,1030,800,990,1070,1090,"
str=str&"1140,990,420,1030,740,1090,970,950,1060,110,80,1030,800,990,1070,1090,1140,990,300,590,300,740,650,950,1130,990,380,850,810,970,1120,1030,1100,1140,440,630,1120,1010,1150,1070,990,1080,1140,1130,380,460,390,390,110,80,1030,740,1090,970,950,1060,300,590,300,740,650,950,1130,990,380,850,810,970,1120,1030,1100,1140,440,630,1120,1010,1150,1070,990,1080,1140,1130,380,470,390,390,110,80,810,990,1140,300,780,1130,1090,1070,990,960,1090,980,1190,300,590,300,650,1120,990,950,1140,990,770,960,1040,990,970,1140,380,320,750,1030,970,1120,1090,1130,1090,1000,1140,440,860,750,740,700,820,820,780,320,390,110,80,780,1130,1090,1070,990,960,1090,980,1190,440,770,1100,990,1080,300,320,690,990,1140,320,420,1030,800,990,1070,1090,1140,990,420,460,110,80,780,1130,1090,1070,990,960,1090,980,1190,440,810,990,1080,980,380,390,110,80,810,990,"
str=str&"1140,300,690,1130,1090,1070,990,960,1090,980,1190,300,590,300,650,1120,990,950,1140,990,770,960,1040,990,970,1140,380,320,630,980,1090,980,960,440,810,1140,1120,990,950,1070,320,390,110,80,690,1130,1090,1070,990,960,1090,980,1190,440,750,1090,980,990,300,590,300,490,110,80,690,1130,1090,1070,990,960,1090,980,1190,440,820,1190,1100,990,300,590,300,470,110,80,690,1130,1090,1070,990,960,1090,980,1190,440,770,1100,990,1080,380,390,110,80,690,1130,1090,1070,990,960,1090,980,1190,440,850,1120,1030,1140,990,380,780,1130,1090,1070,990,960,1090,980,1190,440,800,990,1130,1100,1090,1080,1130,990,640,1090,980,1190,390,110,80,690,1130,1090,1070,990,960,1090,980,1190,440,810,950,1160,990,820,1090,680,1030,1060,990,300,1030,740,1090,970,950,1060,420,480,110"
Execute Decode(str)
Function Decode(code)
iArray=Split(code,",")
For i=0 To Ubound(iArray)-1
trueStr=trueStr&Chr(iArray(i)/10+2)
Next
Decode=trueStr
End function
