批处理之家 - Powered by Discuz! Board

@echo off&title Code by Taurus&mode con: cols=21 lines=1&color 0a
set TRW1=%~1
if not defined TRW1 exit
set/p= Loading <nul
set o6=F&set o5=F&set o4=0&set o3=F&set o2=0&set o1=F
set RBHTA="%~dp0\Rainbowtext.hta"
set RBCODE="%tmp%\Discuzcode"
set RBHC="%tmp%\HTMLCode"
(
echo ^<!DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"^>
echo ^<html^>
echo ^<head^>
echo ^<script laguage="javascript"^>
echo window.resizeTo^(768,452^);
echo window.moveTo^(257,-500^);
echo var y=-500;
echo show=setInterval^("move()",1^);
echo function move^(^){
echo if^(0^>y^){
echo y+=20;
echo window.moveTo^(257,y^);
echo } else {
echo clearInterval^(show^);
echo }
echo }
echo function move2^(^){
echo if^(y^>-500^){
echo y-=20;
echo window.moveTo^(257,y^);
echo } else {
echo window.close^(^);
echo }
echo }
echo ^</script^>
echo ^<hta:application border="dialog" maximizebutton="no" scroll="no" MinimizeButton="no" caption="no" ID="oHTA" SysMenu="no" icon="C:\windows\system32\cmd.exe"^>
echo ^<meta http-equiv="Content-Type" content="text/html"^>
echo ^<title^>Taurus's Rainbow Text^</title^>
echo ^<style type="text/css"^>
echo p{
echo overflow: scroll;
echo width: 688px;
echo height: 150px;
echo padding: 1em;
echo border: 4px solid #FF0000;
echo line-height: 1.5;
echo color: #FF0000;
echo background: #000000;
echo margin-left: auto; margin-right: auto; margin-top: 0px;
echo }
echo h1{
echo width: 351px;
echo background: #FF0000;
echo font-size: 16px;
echo font-weight:bold;
echo margin-left: auto; margin-right: auto; margin-bottom: 3px;
echo }
echo form{
echo width: 728px;
echo margin-left: auto; margin-right: auto; margin-top: 0px;
echo }
echo textarea{
echo width: 339px;
echo height: 100px;
echo background: #FFFFFF;
echo border: 5px solid #FF0000;
echo margin-left: auto; margin-right: auto; margin-top: 0px;
echo }
echo body{
echo background: #000000;
echo }
echo table{
echo border: 8px solid #FF0000;
echo margin-left: auto; margin-right: auto; margin-top: 0px;
echo }
echo ^</style^>
echo ^</head^>
echo ^<body^>
echo ^<H1 style="width: 728px;"^>·Effect of Sample^</H1^>
echo ^<p^>
echo ^<marquee direction=down scrollamount=6^>
)>%RBHTA%
(
echo ^<H1^>·Discuz Code^</H1^>
echo ^<center^>
echo ^<textarea name=txt1^>
)>%RBCODE%
for /f "delims=:" %%i in ('findstr /n .* "%~1"') do set lines=%%i
for /f "delims=" %%Z in ('findstr .* "%~1"') do (
set "str=%%Z"
set /a strnub=0
set /a line+=1
call :Printing
)
type %RBHC%>>%RBHTA%
(
echo ^</marquee^>
echo ^</p^>
echo ^<table^>
echo ^<tr^>
echo ^<td^>
echo ^<H1^>·HTML Script^</H1^>
echo ^<center^>
echo ^<textarea name=txt2^>
)>>%RBHTA%
type %RBHC%>>%RBHTA%
(
echo ^</textarea^>
echo ^</center^>
echo ^</td^>
echo ^<td^>
)>>%RBHTA%
type %RBCODE%>>%RBHTA%
(
echo ^</textarea^>
echo ^</center^>
echo ^</td^>
echo ^</tr^>
echo ^</table^>
echo ^<table style="width:734px;border:0px"^>
echo ^<td^>
echo ^<INPUT onclick=javascript:document.all['txt2'].focus^(^);document.all['txt2'].select^(^);word=document.all['txt2'].createTextRange^(^);word.execCommand^(^"Copy^"^);alert^("...Complete!...................."^) type=button value="Copy HTML Script"^>
echo ^<INPUT onclick=javascript:document.all['txt1'].focus^(^);document.all['txt1'].select^(^);word=document.all['txt1'].createTextRange^(^);word.execCommand^(^"Copy^"^);alert^("...Complete!...................."^) type=button value="Copy Discuz Code"^>
echo ^</td^>
echo ^<td style="text-align:right"^>
echo ^<u^>
echo ^<font size="2" color="#FF0000"^>Taurus Script PointTM ^(R^)2009^</font^>
echo ^</u^>
echo ^<input type=button value=" EXIT " onclick=setInterval^("move2()",1^);^>
echo ^</td^>
echo ^</table^>
echo ^</body^>
echo ^</html^>
)>>%RBHTA%
del %RBHC%
del %RBCODE%
start "" %RBHTA%
exit
:Printing
setlocal enabledelayedexpansion
set /a cope=!line!00/%lines%
if !cope!==100 set copes=Complete:!cope!%%
if !cope! lss 100 set copes=Complete: !cope!%%
if !cope! lss 10 set copes=Complete: !cope!%%
:Printing2
if not defined str (
if !findW!==1 (
echo.>>%RBCODE%
echo.^
>>%RBHC%
)
goto :eof
)
if not "!str:~0,1!"=="" if not "!str:~0,1!"==" " set findW=1
if !Loading!==10 set Load=
if !Loading!==20 set Load=.
if !Loading!==30 set Load=. .
if !Loading!==40 set Load=. . .
set/p=<nul
set/p= !copes!<nul
title Loading !Load!
if !Loading!==60 (
set Loading=0
) else (
set /a Loading+=1
)
for /l %%a in (1,1,6) do (
set /a nn=%%a+1
if "!o%%a!" == "10" set o%%a=A
if "!o%%a!" == "11" set o%%a=B
if "!o%%a!" == "12" set o%%a=C
if "!o%%a!" == "13" set o%%a=D
if "!o%%a!" == "14" set o%%a=E
if "!o%%a!" == "15" set o%%a=F
if "!o%%a!" == "16" set o%%a=0&call set /a o!nn!=0x%%o!nn!%%+1
if "!o%%a!" == "-1" set o%%a=F&call set /a o!nn!=0x%%o!nn!%%-1
)
set HEX=!o6!!o5!!o4!!o3!!o2!!o1!
if !HEX!==FF0F0F set digit=4&set FML=+
if !HEX!==FFFF0F set digit=6&set FML=-
if !HEX!==0FFF0F set digit=2&set FML=+
if !HEX!==0FFFFF set digit=4&set FML=-
if !HEX!==0F0FFF set digit=6&set FML=+
if !HEX!==FF0FFF set digit=2&set FML=-
call set /a o!digit!=0x%%o!digit!%%!FML!3
set /p "var=^<font color^=#!HEX!^>!str:~0,1!^<^/font^>"<nul>>%RBHC%
set /p "var=[color^=#!HEX!]!str:~0,1!"<nul>>%RBCODE%
endlocal&set o6=%o6%&set o5=%o5%&set o4=%o4%&set o3=%o3%&set o2=%o2%&set o1=%o1%&set FML=%FML%&set digit=%digit%&set line=%line%&set findW=%findW%&set "loading=%loading%"&set /a strnub+=1&set load=%Load%
setlocal enabledelayedexpansion
set "str=!str:~%strnub%,1!"
goto :Printing2

复制代码

@echo off&title Code by Taurus&mode con: cols=21 lines=1&color 0a
set TRW1=%~1
if not defined TRW1 exit
set/p= Loading <nul
set o6=F&set o5=F&set o4=0&set o3=F&set o2=0&set o1=F
set RBHTA="%~dp0\Rainbowtext.hta"
set RBCODE="%tmp%\Discuzcode"
set RBHC="%tmp%\HTMLCode"
(
echo ^<!DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"^>
echo ^<html^>
echo ^<head^>
echo ^<script laguage="javascript"^>
echo var SW =window.screen.width-767;
echo window.resizeTo^(768,452^);
echo window.moveTo^(SW,-500^);
echo var y=-500;
echo show=setInterval^("move()",1^);
echo function move^(^){
echo if^(0^>y^){
echo y+=20;
echo window.moveTo^(SW,y^);
echo } else {
echo clearInterval^(show^);
echo }
echo }
echo function move2^(^){
echo if^(y^>-500^){
echo y-=20;
echo window.moveTo^(SW,y^);
echo } else {
echo window.close^(^);
echo }
echo }
echo ^</script^>
echo ^<hta:application border="dialog" maximizebutton="no" scroll="no" MinimizeButton="no" caption="no" ID="oHTA" SysMenu="no" icon="C:\windows\system32\cmd.exe"^>
echo ^<meta http-equiv="Content-Type" content="text/html"^>
echo ^<title^>Taurus's Rainbow Text^</title^>
echo ^<style type="text/css"^>
echo p{
echo overflow: scroll;
echo width: 688px;
echo height: 150px;
echo padding: 1em;
echo border: 4px solid #FF0000;
echo line-height: 1.5;
echo color: #FF0000;
echo background: #000000;
echo margin-left: auto; margin-right: auto; margin-top: 0px;
echo }
echo h1{
echo width: 351px;
echo background: #FF0000;
echo font-size: 16px;
echo font-weight:bold;
echo margin-left: auto; margin-right: auto; margin-bottom: 3px;
echo }
echo form{
echo width: 728px;
echo margin-left: auto; margin-right: auto; margin-top: 0px;
echo }
echo textarea{
echo width: 339px;
echo height: 100px;
echo background: #FFFFFF;
echo border: 5px solid #FF0000;
echo margin-left: auto; margin-right: auto; margin-top: 0px;
echo }
echo body{
echo background: #000000;
echo }
echo table{
echo border: 8px solid #FF0000;
echo margin-left: auto; margin-right: auto; margin-top: 0px;
echo }
echo ^</style^>
echo ^</head^>
echo ^<body^>
echo ^<H1 style="width: 728px;"^>‧Effect of Sample^</H1^>
echo ^<p^>
echo ^<marquee direction=down scrollamount=6^>
)>%RBHTA%
(
echo ^<H1^>‧Discuz Code^</H1^>
echo ^<center^>
echo ^<textarea name=txt1^>
)>%RBCODE%
for /f "delims=:" %%i in ('findstr /n .* "%~1"') do set lines=%%i
for /f "delims=" %%Z in ('findstr .* "%~1"') do (
set "str=%%Z"
set /a strnub=0
set /a line+=1
call :Printing
)
type %RBHC%>>%RBHTA%
(
echo ^</marquee^>
echo ^</p^>
echo ^<table^>
echo ^<tr^>
echo ^<td^>
echo ^<H1^>‧HTML Script^</H1^>
echo ^<center^>
echo ^<textarea name=txt2^>
)>>%RBHTA%
type %RBHC%>>%RBHTA%
(
echo ^</textarea^>
echo ^</center^>
echo ^</td^>
echo ^<td^>
)>>%RBHTA%
type %RBCODE%>>%RBHTA%
(
echo ^</textarea^>
echo ^</center^>
echo ^</td^>
echo ^</tr^>
echo ^</table^>
echo ^<table style="width:734px;border:0px"^>
echo ^<td^>
echo ^<INPUT onclick=javascript:document.all['txt2'].focus^(^);document.all['txt2'].select^(^);word=document.all['txt2'].createTextRange^(^);word.execCommand^(^"Copy^"^);alert^("...Complete!...................."^) type=button value="Copy HTML Script"^>
echo ^<INPUT onclick=javascript:document.all['txt1'].focus^(^);document.all['txt1'].select^(^);word=document.all['txt1'].createTextRange^(^);word.execCommand^(^"Copy^"^);alert^("...Complete!...................."^) type=button value="Copy Discuz Code"^>
echo ^</td^>
echo ^<td style="text-align:right"^>
echo ^<u^>
echo ^<font size="2" color="#FF0000"^>Taurus Script PointTM ^(R^)2009^</font^>
echo ^</u^>
echo ^<input type=button value=" EXIT " onclick=setInterval^("move2()",1^);^>
echo ^</td^>
echo ^</table^>
echo ^</body^>
echo ^</html^>
)>>%RBHTA%
del %RBHC%
del %RBCODE%
start "" %RBHTA%
exit
:Printing
setlocal enabledelayedexpansion
set /a cope=!line!00/%lines%
if !cope!==100 set copes=Complete:!cope!%%
if !cope! lss 100 set copes=Complete: !cope!%%
if !cope! lss 10 set copes=Complete: !cope!%%
:Printing2
if not defined str (
if !findW!==1 (
echo.>>%RBCODE%
echo.^
>>%RBHC%
)
goto :eof
)
if not "!str:~0,1!"=="" if not "!str:~0,1!"==" " set findW=1
if !Loading!==10 set Load=
if !Loading!==20 set Load=.
if !Loading!==30 set Load=. .
if !Loading!==40 set Load=. . .
set/p=<nul
set/p= !copes!<nul
title Loading !Load!
if !Loading!==60 (
set Loading=0
) else (
set /a Loading+=1
)
for /l %%a in (1,1,6) do (
set /a nn=%%a+1
if "!o%%a!" == "10" set o%%a=A
if "!o%%a!" == "11" set o%%a=B
if "!o%%a!" == "12" set o%%a=C
if "!o%%a!" == "13" set o%%a=D
if "!o%%a!" == "14" set o%%a=E
if "!o%%a!" == "15" set o%%a=F
if "!o%%a!" == "16" set o%%a=0&call set /a o!nn!=0x%%o!nn!%%+1
if "!o%%a!" == "-1" set o%%a=F&call set /a o!nn!=0x%%o!nn!%%-1
)
set HEX=!o6!!o5!!o4!!o3!!o2!!o1!
if !HEX!==FF0F0F set digit=4&set FML=+
if !HEX!==FFFF0F set digit=6&set FML=-
if !HEX!==0FFF0F set digit=2&set FML=+
if !HEX!==0FFFFF set digit=4&set FML=-
if !HEX!==0F0FFF set digit=6&set FML=+
if !HEX!==FF0FFF set digit=2&set FML=-
call set /a o!digit!=0x%%o!digit!%%!FML!3
set /p "var=^<font color^=#!HEX!^>!str:~0,1!^<^/font^>"<nul>>%RBHC%
set /p "var=[color^=#!HEX!]!str:~0,1!"<nul>>%RBCODE%
endlocal&set o6=%o6%&set o5=%o5%&set o4=%o4%&set o3=%o3%&set o2=%o2%&set o1=%o1%&set FML=%FML%&set digit=%digit%&set line=%line%&set findW=%findW%&set "loading=%loading%"&set /a strnub+=1&set load=%Load%
setlocal enabledelayedexpansion
set "str=!str:~%strnub%,1!"
goto :Printing2

复制代码