瑞星卡卡安全论坛

画面相信大家都见过，可你知道如何写代码吗？
不同人有不同方法实现，我用DOS命令。



@echo off
::::::::::::::::::::::::::
:生成vbs脚本，用来显示动画
echo CD=Wscript.Arguments(1)>showplan.vbe
echo Str=Wscript.Arguments(0)>>showplan.vbe
echo Time_Delay=Wscript.Arguments(2)>>showplan.vbe
echo Switch1=Wscript.Arguments(3)>>showplan.vbe
echo Switch2=Wscript.Arguments(4)>>showplan.vbe
echo Str_Len=len(Str)>>showplan.vbe
echo Show_Str Str,Str_Len,CD,Time_Delay,Switch1,Switch2>>showplan.vbe
echo wscript.stdout.write vbcrlf>>showplan.vbe
echo Function Show_Str(str,strlen,CD,Speed,Switch1,Switch2)>>showplan.vbe
echo IF Ucase(Switch2)=^"Y^" then>>showplan.vbe
echo Show_Cursor 8,CD>>showplan.vbe
echo End if>>showplan.vbe
echo IF str^<^>^"^" then>>showplan.vbe
echo For i=1 to strlen>>showplan.vbe
echo if i mod 2=0 then>>showplan.vbe
echo Cursor=^" ^">>showplan.vbe
echo else>>showplan.vbe
echo Cursor=^"_^">>showplan.vbe
echo end if>>showplan.vbe
echo IF i=strlen then>>showplan.vbe
echo Cursor=^" ^">>showplan.vbe
echo End if>>showplan.vbe
echo IF Ucase(Switch1)=^"Y^" then>>showplan.vbe
echo str1=str1 ^& ^"^>^">>showplan.vbe
echo wscript.stdout.write chr(13) ^& CD ^& str1^&Left(str,79-i) ^& chr(8)>>showplan.vbe
echo Else>>showplan.vbe
echo wscript.stdout.write chr(13) ^& CD ^& Left(str,i)^&Cursor^& chr(8)>>showplan.vbe
echo End if>>showplan.vbe
echo wscript.sleep Speed>>showplan.vbe
echo Next>>showplan.vbe
echo Else>>showplan.vbe
echo Exit Function>>showplan.vbe
echo End if>>showplan.vbe
echo End Function>>showplan.vbe
echo Function Show_Cursor(Num,CD)>>showplan.vbe
echo for i=1 to Num>>showplan.vbe
echo if i mod 2=0 then>>showplan.vbe
echo Cursor=^" ^">>showplan.vbe
echo else>>showplan.vbe
echo Cursor=^"_^">>showplan.vbe
echo end if>>showplan.vbe
echo wscript.stdout.write chr(13) ^& CD ^& Cursor ^& chr(8)>>showplan.vbe
echo wscript.sleep 200>>showplan.vbe
echo Next>>showplan.vbe
echo End Function>>showplan.vbe
:初始设置;
set str1=开机
set str2=快开机
set str3=他妈的开机
set str4=你他妈到底开不开机
set str5=操!!再不开机老子砸了你!!
set str6=不是内部或外部命令，也不是可运行的程序
set str7=或批处理文件。
set str8================================================================================
:::::::::::::::::::::::::::::::::::::::::::::::
:主控程序；
cscript.exe showplan.vbe %str1% "%~dp0>" 120 "" "Y" //nologo
call :Msg %str1%
cscript.exe showplan.vbe %str2% "%~dp0>" 100 "" "Y" //nologo
call :Msg %str2%
cscript.exe showplan.vbe %str3% "%~dp0>" 180 "" "Y" //nologo
call :Msg %str3%
cscript.exe showplan.vbe %str4% "%~dp0>" 180 "" "Y" //nologo
call :Msg %str4%
cscript.exe showplan.vbe %str5% "%~dp0>" 80 "" "Y" //nologo
cscript.exe showplan.vbe "" "" 100 "" "Y" //nologo
echo Loading Windows XP ...
echo.
cscript.exe showplan.vbe %str8% "" 50 "Y" "" //nologo
del showplan.vbe
echo.
echo 小蝴蝶燕燕----纯DOS命令，可用记事本打开查看命令代码。
echo 按任意键退出本程序，有任何意见请提出交流。
pause>NUL
:Msg
ping -n 2 127.0.0.1>nul
echo '%1'%str6%
echo %str7%
echo.
将红色代码复制到记事本，以bat格式保存即可



附件: 8108472007529212029.jpg

头

先赚个5分

不懂

按照上面提示做再运行就知道了

批处理文件，不敢玩

怕什么啊

毫不犹豫地再拿2分。

拿分最重要

说得有理，拿2分

可不能枉费我的一片苦心啊

收藏可以吧

你自己做得还是转的

总得试一下吧

又不会出什么错

我的画面都截下来了，总不会错吧

好

路过

试过了，呵呵

怎么样

没骗你吧

试过了，

水多

我相信你

我也试过了,没啥大问题,就是:


拼命地重启了三十五次.


黑屏五次,

严重死机三十六次

键盘无效七十二秒.

引用:

【过客2007的贴子】我也试过了,没啥大问题,就是: 拼命地重启了三十五次. 黑屏五次, 严重死机三十六次 键盘无效七十二秒. ………………

你可以去买台好一点的了

好大的水阿

口渴

。

附件: 7516622007529215555.jpg

黑客帝国