【plp626】P--学习笔记 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

提前声明,请不要回帖，我还没写完呢
AoGo汇编小站

---------------------------------------------------------------------------------------------------
CMD【学习】
汇编学习笔记
c语言学习
批如何量提取文件？
文件整理
cmd下有关变量延迟及命令扩展的控制试验
带点畸形目录批量非空判断访问删除
一句话 "全盘"查找指定日期内的指定文件
多重if判断 VS 逻辑关系运算
剔除重复行
日期转换星期
对变量进行截取
如何搜索硬盘上“Temp”的文件夹
怎样批量替换字符串
不用for将输出结果赋给指点变量
【闲来无事]】发个电子书玩玩
这个batch在干? 运行常用命令 rundll32 调用
在（）内的调用批处理
输出100以内的【互质的】勾股数
把文件的“修改时间”，批量改为“创建时间”？
右对齐输出
------------------------------------------------------------------------------------------------------------
cn-dos的wiki
运行及dos命令全集
Debug命令详解
正则表达式Regex文章收集

怎样用bat对齐文本？
天涯

reg add "HKCR\*\shell\OpenInMsdos" /ve /d cmd /f
reg add "HKCR\*\shell\OpenInMsdos\command" /ve /d "cmd /s/k\"prompt $g\"" /f

[ Last edited by plp626 on 2010-3-4 at 16:37 ]

整理链接：

@goto code
Application:adding a hyperlink to title
Object:(url.txt)title and http are interlaced

:code
@echo off&setlocal ENABLEDELAYEDEXPANSION
cd.>url_2.txt
for /f "eol= tokens=*" %%i in ('findstr . url.txt^|findstr /vrc:"^ * $"') do (
    if "!str!" == "" ( 
         set str=%%i
                         ) else (
         echo !str! >>url_2.txt
         set "str="
    )
)
goto :eof

[ Last edited by plp626 on 2008-4-27 at 03:13 PM ]

网络三十六计，太绝了！真阴险
http://www.cn-dos.net/forum/viewthread.php?tid=34314
杀毒
http://www.shadu007.com/

code 1:
@if %1* neq 0* mshta vbscript:createobject("wscript.shell").run("%~s0 0",0)(window.close)&exit
code 2:
@if %1* neq 0* (goto c) else mshta vbscript:createobject("wscript.shell").run("%~s0 0",0)(window.close)&exit
code 3:(这个最短,嘿嘿,my code)
@if exist .vbs (del .vbs) else echo createobject("wscript.shell").run "%~s0",0 >.vbs&.vbs&exit

调用：

@echo off
if not %1.==. call%*
pause
goto:hid

:code
set set1=ping -n 2 127.1 1^>nul 2^>nul
for /l %%i in (1 1 5) do md test-%%i&%set1%
for /l %%i in (5 -1 1) do rd test-%%i&%set1%
msg %username% /v /w "~~~~~测试完毕,点确定退出cmd~~~~"
exit
rem --------subprocess----------
:hid
if not %1.==. (goto:code) else mshta vbscript:createobject("wscript.shell").run("%~s0 :hid 0",0)(window.close)

[ Last edited by plp626 on 2008-4-27 at 03:13 PM ]

@echo off
::测试
for /f "delims=" %%i in (dic.txt) do (
   title %%i
   unrar t -p%%i bl.rar>nul 2>nul&&(
   echo %%i>psw.txt&pause
   )
)
title failure
pause

::解压
for /f "delims=" %%i in (dic.txt) do (
   title %%i
   rar e -p%%i bl.rar>nul 2>nul&&(
   echo %%i>psw.txt&pause
   )
)
title failure
pause

@echo off||by plp626@cn-dos.net
::六为纯数字
set file=6位破解
if not "%1"=="" call:%1&exit
for /l %%a in (0 1 9) do start/b %~s0 %%a
exit
:0
:1
:2
:3
:4
:5
:6
:7
:8
:9
echo 进程%0 开始时间：%time%
for /l %%a in (0 1 9)do if "%0"==":%%a" set p=%%a
for /l %%a in (0 1 9)do for /l %%b in (0 1 9)do for /l %%c in (0 1 9)do for /l %%d in (0 1 9)do for /l %%e in (0 1 9)do call:key %%a %%b %%c %%d %%e %0
echo 进程%0 结束时间：%time%
goto:eof

:key
title 进程%6 正在试探：%p%%1%2%3%4%5  当前时间：%time%
unrar t -p%p%%1%2%3%4%5 "%file%.rar">nul 2>nul &&(
    echo %p%%1%2%3%4%5 >key.txt
    msg %username% /v "密码为%p%%1%2%3%4%5"
    tskill /a cmd
    
)
goto:eof

-----------------------------------------------------------------------------

@echo off
if not %1.==. goto%*&exit/b

for /f "delims=" %%a in ('%~s0 :a 1 2 3')do echo %%a
pause

for /f "delims=" %%a in ('%~s0 :b')do echo %%a
pause
::多进程
start/b %~s0 :a + - * /
pause

:a
echo %*
exit/b
:b
echo ---b
exit/b

批处理当做exe文件运行。

1，右键添加到压缩文件，
2，创建自解压格式压缩文件，
3，高级，
4，自解压选项，
5，【解压路径处填】%tmp%，(也可以填其他绝对路径)
6，【在绝对路径，保存与恢复路径处打上勾】，
7【解压后运行处填】你要运行的批处理文件名，
8，模式，在全部隐藏，覆盖所有文件处打上勾，
（你若不在乎图标下面的可以省略）
9，文本和图标，从文件加载自解压文件和图标处添加将要加载的ico图标绝对路径。

[ Last edited by plp626 on 2008-4-28 at 07:20 PM ]

:: 月历查询工具 最初发表于CN-DOS
:: 原创：foxjl  更新：namejm, qzwqzw，foxjl
:: 计算农历日期部分思路及算法来自"趣味东"
:: 输入的日期格式为：年-月-日(-可以替换为:、/，可以混用)
:: 在日历里面，★=当天
:: 支持多种格式的日期输入：
:: ① 若只输入一个数，则认为是查询当年月份，自动截取后两位数字查询，★标在1日上；
:: ② 若输入两个数，则认为是查询年和月，★标在1日上；
:: ③ 输全的话，★标在指定日期上 
:: 关于年份的转换：
:: ① 若年份上输入的数字少于三位，则作如下转换： 
::     50~99判定为19xx
::     0~49判定为20xx
:: ② 若输入的年份数字超过两位，则截取后四位字符(不足部分在高位补0)，
::    按 ① 的规则计算该年份的日期； 
:: 07-08-04 增加针对农历的生肖及干支年计算；修改错误日期循环提示的BUG.
:: 08-01-13 增加推算农历日期的功能.
@echo off
color 1f
mode con cols=40 lines=21
setlocal enabledelayedexpansion
set str=日一二三四五六七八九
set sdate=%date%
:Main
cls&echo.
:: 日期提取、格式化与校验
for /f "tokens=1,2,3 delims=-/: " %%i in ("%sdate%") do (
    (set sy=%%i) && (set sm=%%j) && (set sd=%%k)
)
if not defined sd set sd=1
if not defined sm set sm=%sy%&set sy=%date:~0,4%
(set sy=0000%sy%) && (set sm=00%sm%) && (set sd=00%sd%)
(set sy=%sy:~-4%) && (set sm=%sm:~-2%) && (set sd=%sd:~-2%)
set /a y=1%sy%-10000, m=1%sm%-100, d=1%sd%-100 2>nul
if errorlevel 9167 goto Error
if %y% lss 100 (
    if %y% lss 50 (set /a y+=2000) else (set /a y+=1900)
    set sy=!y!
)
if %m% lss 13 if %d% lss 32 goto Calc
:Error
echo.错误的日期.
pause>nul
cd.
set sdate=%date%
goto Main
:Calc
::计算农历部分
set/a Q=(y-1901)/4
set/a R=y-1901-4*Q
set n=0
for %%i in (0,31,59,90,120,151,181,212,243,273,304,334) do (
set /a n+=1
if %m% equ !n! set z=%%i)
set /a leap="^!(y%%4) & ^!(^!(y%%100)) | ^!(y%%400)"
if %m% gtr 2 (if %leap% equ 0 (set /a z-=1) else (set /a z+=leap))
set/a n=(140*Q+106*(R+1)+z*10+d*10)/295,H=(140*Q+106*(R+1)+z*10+d*10-295*n)/10
if %h% equ 0 set h=29
if %h% leq 10 (if %h% equ 10 (set h=初十) else (set h=初%h%)) else (set h=%h:~0,1%十%h:~-1%号)
for /l %%i in (1,1,9) do (call set h=%%h:%%i=!str:~%%i,1!%%)
set h=%h:0=%
:: 计算生肖及干支年
set sx=猴鸡狗猪鼠牛虎兔龙蛇马羊
set tg=庚辛壬癸甲乙丙丁戊己
set dz=申酉戌亥子丑寅卯辰巳午未
set /a sxnum=%sy% %% 12
set /a tgnum=%sy:~-1%
title 农历!tg:~%tgnum%,1!!dz:~%sxnum%,1!年 生肖:!sx:~%sxnum%,1! 农历:%h%
:: 计算每个月的天数
set days=31
for %%i in (4 6 9 11) do if %m% equ %%i set days=30
:: 计算2月份的偏差
set /a leap="^!(y%%4) & ^!(^!(y%%100)) | ^!(y%%400)"
if %m% equ 2 set /a days=28+%leap%
if %m% leq 2 (set /a y-=1& set /a m+=12)
:: 计算指定日期的星期数
set /a w=(d+2*m+3*(m+1)/5+y+y/4-y/100+y/400+1)%%7
echo.  %sy%年%sm%月   日期:%sy%-%sm%-%sd%,星期!str:~%w%,1!
echo.
:: 生成月历
set /a wb=(w+35-d) %% 7, we=wb+days+1, day=1
echo.    日   一   二   三   四   五   六
echo. ━━━━━━━━━━━━━━━━━━━
set /p= <nul
for /l %%i in (0,1,37) do (
    set "temp=  "
    if %%i GTR %wb% if %%i LSS %we% (
        set temp= !day!
        set temp=!temp:~-2!
        if !d! EQU !day! set temp=★
        set /a day+=1
    )
    set /p=   !temp!<nul
    set /a "wm=(%%i+1)%%7"
    if !wm! equ 0 echo.&echo.&set /p= <nul
)
echo.
echo  ━━━━━━━━━━━━━━━━━━━
echo.  输入日期可查询当日星期并显示当月月历
echo.
set sdate=
set /p sdate=格式如:2007-02-03,退出:
if defined sdate goto Main
exit
-------------------------------------------------------------------------------
计算星期:
基姆拉尔森计算公式
      W= (d+2*m+3*(m+1)/5+y+y/4-y/100+y/400) mod 7
      在公式中d表示日期中的日数＋1，m表示月份数，y表示年数。
注意：在公式中有个与其他公式不同的地方：
              把一月和二月看成是上一年的十三月和十四月，
例：如果是2004-1-10则换算成：2003-13-10来代入公式计算。
复制内容到剪贴板代码:
生肖及干支年计算方法是：
出生公元年数÷１２，然后根据除得的商的余数，对照生肖排列就马上可以知道。
生肖排列是：猴（０）、鸡（１）、狗（２）、猪（３）、鼠（４）、牛（５）、虎（６）、兔（７）、龙（８）、蛇（９）、马（１０）、羊（１１）。

天干地支算法:
首先要能记住十大天干和十二地支，
十天干：甲、乙、丙、丁、戊、己、庚、辛、壬、癸；
十二地支：子、丑、寅、卯、辰、巳、午、未、申、酉、戌、亥； 
天干地支纪年法首先是天干在前，地支在后，比如今年2005就为－乙酉年，先来算算天干，有个公式： 
4、 5、 6、 7、 8、 9、 0、 1、 2、 3 对应的十天干就是 
甲、乙、丙、丁、戊、己、庚、辛、壬、癸， 
数字为年代的最后的一位数字，比如今年是2005，最后一位是5，对应的天干就是乙； 
地支的算法：用年代数除以12，后面的余数就代表某个地支，余数分别为：
            4、 5、 6、 7、 8、 9、 10、 11、 0、 1、 2、 3，
代表地支为：子、丑、寅、卯、辰、巳、午、 未、 申、酉、戌、亥，
比如2005年为例：年代末尾数为5，对应的天干为乙，2005除以12，余数为1，对应的地支为酉，所以2005年为乙酉年。
复制内容到剪贴板代码:
农历日期部分的算法是:
阴历日期是以月亮的圆缺为计月单位，其以逢朔为初一，以月望为十五（大月为十六日），以月晦为二十 九日（大月为三十日）。然而目前记时通常用阳历日期表达，如欲将阳历日期换算成阴历日期可以用以下两种方法：其一是查《新编万年历》，如查1984年6月8日是阴历几日？翻开万年历6月10日是阴历十一，则逆推6月8日是阴历初九。其二可以利用公式推算阴历日期： 
设：公元年数－1977（或1901）＝4Q＋R 
则：阴历日期=14Q+10.6(R+1)+年内日期序数-29.5n 
（注:式中Q、R、n均为自然数，R<4） 
例：1994年5月7日的阴历日期为： 
1994－1977＝17＝4×4＋1 
故：Q＝4，R＝1 则：5月7日的阴历日期为： 
14×4+10.6(1+1)+(31+28+31+30+7)-29.5n 
=204.2- 29.5n 
然后用29.5去除204.2得商数6......27.2，6即是n值，余数27即是阴历二十七日。

-------------------------------------------------------------------------------

[ Last edited by plp626 on 2008-5-5 at 10:07 PM ]

.....

[ Last edited by plp626 on 2008-4-24 at 05:55 PM ]

上网常用

@echo off
::右键添加"用记事本打开"
reg add "hkcr\*\shell\OpenInNotepad" /f /ve /d 用记事本打开
reg add "hkcr\*\shell\OpenInNotepad\command" /f /ve /d "notepad.exe %%1" 
::右键添加"打开命令提示符"
reg add "HKCR\*\shell\OpenInMsdos" /ve /d 打开命令提示符 /f 
reg add "HKCR\*\shell\OpenInMsdos\command"  /ve /d "cmd.exe /k cd %%1" /f
reg add "HKCR\Folder\shell\OpenInMsdos" /ve /d 打开命令提示符 /f
reg add "HKCR\Folder\shell\OpenInMsdos\command" /ve /d "cmd.exe /k cd %%1" /f
::右键添加"新建test.bat"
reg add HKCR\.bat\ShellNew /v nullfile /f 
reg add HKCR\batfile /ve /d test /f

显示系统启动的时间.vbs

for each os in getobject _ 
("winmgmts:\\.\root\cimv2:win32_operatingsystem").instances_ 
wscript.echo os.lastbootuptime:next

开机时间：net statistics workstation

上次开关机时间，本次开机时间：

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colLoggedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent " _
& "Where Logfile = 'System' And EventCode = '6005' Or EventCode = '6006'")
For Each objEvent In colLoggedEvents
    Flag = Flag + 1
    If Flag = 1 Then
        Wscript.Echo "本次开机时间: " & FormatWMIUTC(objEvent.TimeWritten)
    ElseIf Flag = 2 Then
        Wscript.Echo "上次关机时间: " & FormatWMIUTC(objEvent.TimeWritten)
    ElseIf Flag = 3 Then
        Wscript.Echo "上次开机时间: " & FormatWMIUTC(objEvent.TimeWritten)
        Exit For
    End If
Next

'FormatUTC
Function FormatWMIUTC(WMIDateString)
    DS = " // :: "
    FormatWMIUTC = Left(WMIDateString,2)
    For i = 2 To 7
        FormatWMIUTC = FormatWMIUTC & Mid(WMIDateString, i * 2 - 1, 2) & Mid(DS,i,1)
    Next
    'FormatWMIUTC = Mid(WMIDateString, 1, 4) & "年" _
    '            & Mid(WMIDateString, 5, 2) & "月" _
    '            & Mid(WMIDateString, 7, 2) & "日 " _
    '            & Mid (WMIDateString, 9, 2) & ":" _
    '            & Mid(WMIDateString, 11, 2) & ":" _
    '            & Mid(WMIDateString,13, 2)
End Function

@echo off
::复制系统某类型文件到指定目录内
if not exist vbs md vbs
for /f "delims=" %%a in ('dir/a-d/s/b c:\*.vbs')do call:arr "%%a"
exit
:arr
set "n="
if exist "vbs\%~nx1" call:ren %*
echo f|xcopy /h "%~1" "vbs\%~n1%n%%~x1"
exit/b

:ren
set n=1
:ren_1
if exist "vbs\%~n1_%n%%~x1" set/a n+=1&goto:ren_1
set n=_%n%&goto:eof

::显示IP
mshta "javascript:alert(new ActiveXObject("rcbdyctl.Setting").GetIPAddress);window.close();"

刷新DNS：ipconfig /flushdns

'目标文件名 
Const TargetFileName="fugai-def-files.rar" 
Const MD5="...
...."
Set oStream = CreateObject("Adodb.Stream") 
Hex2Bin HexString,TargetFileName 
Sub Hex2Bin(strHex,strFileName) 
Dim objStream,objXML,objElement 
Set objStream = Createobject("Adodb.Stream") 
Set objXML = Createobject("Microsoft.XMLDOM") 
Set objElement = objXML.CreateElement("oTmpElement") 
objElement.DataType = "bin.hex" 
objElement.NodeTypedValue = strHex 
With objStream 
.Type = 1 
.Mode = 3 
.Open 
.Write objElement.NodeTypedValue 
.SaveToFile strFileName 
End With 
End Sub

[ Last edited by plp626 on 2008-5-30 at 11:42 PM ]

::显示文件第一行
sed 2,$d file.txt

[ Last edited by plp626 on 2008-5-8 at 06:21 PM ]

'作者：hat@cn-dos.net
'来个VBS，保存成download.vbs可以直接在命令行中执行
'On Error Resume Next
Dim fso, s, FileName, URL, HTML, cdo

URL = "http://www.cn-dos.net" '需要下载的页面路径
FileName = "C:\test\" & CStr(Year(Now) & Month(Now) & Day(Now)) & ".mht" '保存的文件名

Set cdo = CreateObject("cdo.Message")
cdo.CreateMHTMLBody URL, 31
Set s = cdo.GetStream
s.SaveToFile FileName, 2
s.Close
msgbox("完成")

借助sed 去掉网页中的 <> 标签
CODE:
--------------------------------------------------------------------------------

curl http://www.for-ever.cn/nod32/ | sed -e "s/<*>//g" >a.txt

爱词霸 http://www.iciba.com/search?s=%word%
dict http://dict.cn/ws.php?q=%word%"

::::::::::::::::::::::::::::::::::::::::::::::::
:: 保存为dict.bat于当前路径后，命令行下格式: dict word
::::::::::::::::::::::::::::::::::::::::::::::::
@echo off||author:plp626&<%~fs0 more +7>%tmp%\gtxt.vbs
set "url=http://www.baidu.com/baidu?ie=gb2312&cl=3&ct=1048576&word=%1"
cscript //NoLogo //e:vbscript %tmp%\gtxt.vbs "%url%"|more +4|findstr/v "Dr\.eye Baidu"|findstr .
exit/b
'          
Set oDOM = WScript.GetObject(WScript.Arguments(0))
do until oDOM.readyState = "complete"
WScript.sleep 100
loop
WScript.echo oDOM.documentElement.outerText

1. 下载得到网页源代码

'用法：cscript //NoLogo //e:vbscript ghtm.vbs http://.....
Set oDOM = WScript.GetObject(WScript.Arguments(0))
do until oDOM.readyState = "complete"
WScript.sleep 200
loop
WScript.echo oDOM.documentElement.outerHTM

高压缩的VBS到any：

bs=_
"HlkR4kTYQGgRAcPAA8/////93f/93//7vf/7v/+7v/+73///A8v5mfv5m/u5mbu5mbu5v/v3e7t5mfv3e/u3ebu3e7t3m/v1W7t3efv1W/u1Wbu1W/vzO7t1Wbt1WfvzObt1e/uzO7s1ebuzO/fxF7tzObtzOffxF7szW7szO/ex"+_
"FXszWbexFP2/A8fv96dxFffv9adxF/ev9WcxW7cxFXcxOXcxFbev96dv9+ft12bxOfft12bxFbdv9+et1aet12bvO/frt2bvF7dt1efrtWbvOXbvF/ertaert+fpl6drtefplWbtFXbt9+epl2at9aepl+PncePnc2ar9+OncWar"+_
......
"qBh26xqxq2K36xKuqsKtq3Kkwzqu65q66664qx6yKz626vaCB66265Kwqyq6qyq8q9a2K+KyaBB9asq+K5a96sqA7Bb+a9a5q4qAr4q067Kyh86+K366K2aFbCbFb7606ErBb6KH746H706G786IL7q0atK+a8KBLE7HiEbBLA7F"+_
"7DLK7FrJbAbGNvQrxszsqsWsZsNr3sCrlr/sJrAsOsIsFrasssFHusisKsUsls6sCt+s0sYresFspsArWt/swsBtzs0rYtTtNrorprJtxFht2rItVrft5s2satls2qStutntpsuttrjtctUrHtvsOsEr5rgsktdI/r/rksatVt0s"+_
"7r+rMEIuMtsrGsjscswsttMuVtotxrUu/tuFStwtCrfrVrEtytIrgrauhrcukuOrfu6tnsPsOtztYsxsrsju8rXuHHysjtPqgubu4tTs0uQtyuvFBEAA7A=="+_
"":set rs=CreateObject("ADODB.Recordset")
set ado=CreateObject("ADODB.Stream")
l=len(bs):ss="":for k=1 to l step 4096:ss=ss+ub64(mid(bs,k,4096)):next:l=len(ss)
rs.fields.append "b",205,l/2:rs.open:rs.addnew:rs("b")=ss+chrb(0):rs.update
ado.mode=3:ado.type=1:ado.open:ado.write rs("b").getchunk(l/2)
ado.savetofile "byin.gif",2:ado.close
function ub64(s):dim t(4),b(3):ub64="":n=len(s):r=2 
if n mod 4<>0 then exit function:end if:for i=1 to n step 4:for j=0 to 3 
a=asc(mid(s,i+j,1)):if a=43 then:a=62:else if a=47 then:a=63:else if a>47 and a<58 then:_
a=a+4:else if a=61 then:a=0:if r=2 then r=j-2:end if:else if a>64 and a<91 then:_
a=a-65:else if a>96 and a<123 then:a=a-71:else:exit function:_
end if:end if:end if:end if:end if:end if:t(j)=a:next
b(0)=t(0)+t(1)*64 mod 256:b(1)=t(1)\4+t(2)*16 mod 256:b(2)=t(2)\16+t(3)*4 
for j=0 to r:if b(j)<16 then ub64=ub64+"0":end if:ub64=ub64+hex(b(j))
next:next:end function

::退格键
开始、运行
cmd
edit
ctrl+p
alt+08
保存，退出。

'htm2txt
set oDOM = WScript.GetObject(WScript.Arguments(0))

    do until oDOM.readyState = "complete"
    WScript.sleep 200
    loop

    WScript.Echo oDOM.Body.InnerText

@echo off||author:plp626

set n=0
call:xx %1 %2 a b
echo %a% %b% +++
exit/b

:xx
setlocal enabledelayedexpansion
set/a k=~(1"<<"31)/10,x=%1
for /l %%a in (1 1 10)do (
if !x! lss !k! (set/a n+=1,x*=10) else (
set/a r=!x!/%2 &echo !r! !x! %2 !n!&endlocal&exit/b
)
)

::&set %3=!r!&set %4=!n!

[ Last edited by plp626 on 2008-9-15 at 08:37 PM ]

第1楼　plp626	发表于 2008-01-30 03:27
银牌会员　发帖 1,020　积分 2,278
【plp626】P--学习笔记提前声明,请不要回帖，我还没写完呢 AoGo汇编小站 --------------------------------------------------------------------------------------------------- CMD【学习】汇编学习笔记 c语言学习批如何量提取文件？文件整理 cmd下有关变量延迟及命令扩展的控制试验带点畸形目录批量非空判断访问删除一句话 "全盘"查找指定日期内的指定文件多重if判断 VS 逻辑关系运算剔除重复行日期转换星期对变量进行截取如何搜索硬盘上“Temp”的文件夹怎样批量替换字符串不用for将输出结果赋给指点变量【闲来无事]】发个电子书玩玩这个batch在干? 运行常用命令 rundll32 调用在（）内的调用批处理输出100以内的【互质的】勾股数把文件的“修改时间”，批量改为“创建时间”？右对齐输出 ------------------------------------------------------------------------------------------------------------ cn-dos的wiki 运行及dos命令全集 Debug命令详解正则表达式Regex文章收集怎样用bat对齐文本？天涯 reg add "HKCR\\shell\OpenInMsdos" /ve /d cmd /f reg add "HKCR\\shell\OpenInMsdos\command" /ve /d "cmd /s/k\"prompt $g\"" /f [ Last edited by plp626 on 2010-3-4 at 16:37 ]

第2楼　plp626	发表于 2008-02-10 04:03
银牌会员　发帖 1,020　积分 2,278
dos技巧100例 echo命令的用法你知多少木马万能查杀法 FINDSTR正则表达式的基本用法 Debug命令详解谁给讲讲　“％”？彻底理解内存概念 Shift的用法 sed 文章收集简析环境变量和变量延迟特殊字符以及中介法的微妙关系 vbs简明教程(转载) 使用脚本设置全局环境变量理解 for call : 用法 tokens=后可以是变量吗？？如何用批处理结束两个名字相同的进程中的一个怎么删除文本的最后一行剔除重复行变量延迟详解(新手推荐) 【分享】计算两个时间点的差，测试命令执行时间生成《CMD命令速查手册》的批处理［精彩］［批处理字符出现次数统计］发现一个得到字符串长度的方法 hitme前辈的cmd全集 -------------------------------------------------------------------------------------------------------------------------- 2008-1-30 16:33补充: 怎样批量替换字符串求助]如何将文本或DOC文档中的空行清除掉？ 2>nul 1>nul 是什么意思+重定向原理+>&1 转贴]cmd脚本----tree命令的htm版 hh.exe的隐藏参数闲来无事之-记用BAT实现文件下载功能无奈何签名代码略析『楼主』: copy命令的玩法几个有意思的命令+注册dll+反注册dll..... 用批处理查找符合时间范围的文件怎么删除NUL文件 DOS下重启计算机（有待验证）ECHO G=FFFF:0000 \| DEBUG 关于指定程序后台运行问题 vbs的htm2txt 畸形目录如何在命令行向百度提交搜索字？利用命令行脚本生成指定网站的RSS内容地球上最好的脚本编辑器——PrimalScript 判断目标文件夹是否为空怎么锁定鼠标8秒？ DOS中打开“文件夹选选项”-control folders 如何用批处理清除“运行”的历史记录？？请教如何写BAT获取计算机名、工作组名和IP地址用音乐文件属性中的标题给文件重命名? ******模拟蓝屏****** 原创]批处理输入密码但显示的代码如何实现资源管理器的刷新功能在批处理中输入"号的问题 p-文本文件加密解密器.cmd V:1.0 (2004.4.7更新) 怎样用findstr判断字符串是一个小于等于255的正整数利用baidu批量下载歌曲歌词并试听.bat 锁住你的CMD,只能输入密码才能使用论坛色彩渐变代码生成器.bat +++++正则表达式判断标签+++++ findstr来实现显示彩色字符---findstr/a之用法质疑『楼主』: 监视进程 ]*****环境变量创建与修改**** 『楼主』: ****大小写转换**** >&和<&的用法举例如何提取不同行上的内容for 举例按文件类型归类文件批处理版如何删除1个目录下所有的空目录(包括子目录) 批处理实现网页下载(260字节) {求救}删除首尾各10行的批处理请问用什么命令跳出FOR循环？『楼主』: ［求助］关于FOR命令批量提取指定行的文本！ ]****cn-dos论坛登录**** ]****斐波那契数列**** ]****简单万年历**** ]*筛选质数*** sllss原创索引1 sllss原创索引2排序求最大公约数和最小公倍数用批处理列举水产品的最低、最高价批处小玩意！玩出你的水平！如何去掉TXT文本首尾的符批处理中如何替换文本中的<和>字符文件内容的判断和字符替换的批处理用时间给文件命名，看看老外是怎么讨论的怎么读取每一行第一个字母,并执行此命令. 批量下载“论坛精华帖子分类索引”中的精华帖 http://www.cn-dos.net/forum/viewthread.php?tid=31325 利用baidu批量下载歌曲歌词并试听 http://www.cn-dos.net/forum/viewthread.php?tid=24509 批量智能下载网页图片 http://www.cn-dos.net/forum/viewthread.php?tid=38462 如何建一个带.的文件?让人删不了.?或者如何查看? http://www.cn-dos.net/forum/viewthread.php?tid=25031 建立在msconfig中不显示的开机启动项 http://www.cn-dos.net/forum/viewthread.php?tid=38587 文件分割器 http://www.cn-dos.net/forum/viewthread.php?tid=31171 [ Last edited by plp626 on 2008-3-20 at 12:05 PM ]

第3楼　plp626	发表于 2008-03-05 22:20
银牌会员　发帖 1,020　积分 2,278
整理链接： @goto code Application:adding a hyperlink to title Object:(url.txt)title and http are interlaced :code @echo off&setlocal ENABLEDELAYEDEXPANSION cd.>url_2.txt for /f "eol= tokens=" %%i in ('findstr . url.txt^\|findstr /vrc:"^ $"') do ( if "!str!" == "" ( set str=%%i ) else ( echo !str! >>url_2.txt set "str=" ) ) goto :eof [ Last edited by plp626 on 2008-4-27 at 03:13 PM ]

第4楼　plp626	发表于 2008-03-12 12:08
银牌会员　发帖 1,020　积分 2,278
网络三十六计，太绝了！真阴险 http://www.cn-dos.net/forum/viewthread.php?tid=34314 杀毒 http://www.shadu007.com/ code 1: @if %1* neq 0* mshta vbscript:createobject("wscript.shell").run("%~s0 0",0)(window.close)&exit code 2: @if %1* neq 0* (goto c) else mshta vbscript:createobject("wscript.shell").run("%~s0 0",0)(window.close)&exit code 3:(这个最短,嘿嘿,my code) @if exist .vbs (del .vbs) else echo createobject("wscript.shell").run "%~s0",0 >.vbs&.vbs&exit 调用： @echo off if not %1.==. call%* pause goto:hid :code set set1=ping -n 2 127.1 1^>nul 2^>nul for /l %%i in (1 1 5) do md test-%%i&%set1% for /l %%i in (5 -1 1) do rd test-%%i&%set1% msg %username% /v /w "~~~~~测试完毕,点确定退出cmd~~~~" exit rem --------subprocess---------- :hid if not %1.==. (goto:code) else mshta vbscript:createobject("wscript.shell").run("%~s0 :hid 0",0)(window.close) [ Last edited by plp626 on 2008-4-27 at 03:13 PM ]

第5楼　plp626	发表于 2008-03-12 12:11
银牌会员　发帖 1,020　积分 2,278
@echo off ::测试 for /f "delims=" %%i in (dic.txt) do ( title %%i unrar t -p%%i bl.rar>nul 2>nul&&( echo %%i>psw.txt&pause ) ) title failure pause ::解压 for /f "delims=" %%i in (dic.txt) do ( title %%i rar e -p%%i bl.rar>nul 2>nul&&( echo %%i>psw.txt&pause ) ) title failure pause @echo off\|\|by plp626@cn-dos.net ::六为纯数字 set file=6位破解 if not "%1"=="" call:%1&exit for /l %%a in (0 1 9) do start/b %~s0 %%a exit :0 :1 :2 :3 :4 :5 :6 :7 :8 :9 echo 进程%0 开始时间：%time% for /l %%a in (0 1 9)do if "%0"==":%%a" set p=%%a for /l %%a in (0 1 9)do for /l %%b in (0 1 9)do for /l %%c in (0 1 9)do for /l %%d in (0 1 9)do for /l %%e in (0 1 9)do call:key %%a %%b %%c %%d %%e %0 echo 进程%0 结束时间：%time% goto:eof :key title 进程%6 正在试探：%p%%1%2%3%4%5 当前时间：%time% unrar t -p%p%%1%2%3%4%5 "%file%.rar">nul 2>nul &&( echo %p%%1%2%3%4%5 >key.txt msg %username% /v "密码为%p%%1%2%3%4%5" tskill /a cmd ) goto:eof ----------------------------------------------------------------------------- @echo off if not %1.==. goto%&exit/b for /f "delims=" %%a in ('%~s0 :a 1 2 3')do echo %%a pause for /f "delims=" %%a in ('%~s0 :b')do echo %%a pause ::多进程 start/b %~s0 :a + - / pause :a echo %* exit/b :b echo ---b exit/b 批处理当做exe文件运行。 1，右键添加到压缩文件， 2，创建自解压格式压缩文件， 3，高级， 4，自解压选项， 5，【解压路径处填】%tmp%，(也可以填其他绝对路径) 6，【在绝对路径，保存与恢复路径处打上勾】， 7【解压后运行处填】你要运行的批处理文件名， 8，模式，在全部隐藏，覆盖所有文件处打上勾，（你若不在乎图标下面的可以省略） 9，文本和图标，从文件加载自解压文件和图标处添加将要加载的ico图标绝对路径。 [ Last edited by plp626 on 2008-4-28 at 07:20 PM ]

第6楼　plp626	发表于 2008-03-14 22:16
银牌会员　发帖 1,020　积分 2,278
:: 月历查询工具最初发表于CN-DOS :: 原创：foxjl 更新：namejm, qzwqzw，foxjl :: 计算农历日期部分思路及算法来自"趣味东" :: 输入的日期格式为：年-月-日(-可以替换为:、/，可以混用) :: 在日历里面，★=当天 :: 支持多种格式的日期输入： :: ① 若只输入一个数，则认为是查询当年月份，自动截取后两位数字查询，★标在1日上； :: ② 若输入两个数，则认为是查询年和月，★标在1日上； :: ③ 输全的话，★标在指定日期上 :: 关于年份的转换： :: ① 若年份上输入的数字少于三位，则作如下转换： :: 50~99判定为19xx :: 0~49判定为20xx :: ② 若输入的年份数字超过两位，则截取后四位字符(不足部分在高位补0)， :: 按 ① 的规则计算该年份的日期； :: 07-08-04 增加针对农历的生肖及干支年计算；修改错误日期循环提示的BUG. :: 08-01-13 增加推算农历日期的功能. @echo off color 1f mode con cols=40 lines=21 setlocal enabledelayedexpansion set str=日一二三四五六七八九 set sdate=%date% :Main cls&echo. :: 日期提取、格式化与校验 for /f "tokens=1,2,3 delims=-/: " %%i in ("%sdate%") do ( (set sy=%%i) && (set sm=%%j) && (set sd=%%k) ) if not defined sd set sd=1 if not defined sm set sm=%sy%&set sy=%date:~0,4% (set sy=0000%sy%) && (set sm=00%sm%) && (set sd=00%sd%) (set sy=%sy:~-4%) && (set sm=%sm:~-2%) && (set sd=%sd:~-2%) set /a y=1%sy%-10000, m=1%sm%-100, d=1%sd%-100 2>nul if errorlevel 9167 goto Error if %y% lss 100 ( if %y% lss 50 (set /a y+=2000) else (set /a y+=1900) set sy=!y! ) if %m% lss 13 if %d% lss 32 goto Calc :Error echo.错误的日期. pause>nul cd. set sdate=%date% goto Main :Calc ::计算农历部分 set/a Q=(y-1901)/4 set/a R=y-1901-4Q set n=0 for %%i in (0,31,59,90,120,151,181,212,243,273,304,334) do ( set /a n+=1 if %m% equ !n! set z=%%i) set /a leap="^!(y%%4) & ^!(^!(y%%100)) \| ^!(y%%400)" if %m% gtr 2 (if %leap% equ 0 (set /a z-=1) else (set /a z+=leap)) set/a n=(140Q+106(R+1)+z10+d10)/295,H=(140Q+106(R+1)+z10+d10-295n)/10 if %h% equ 0 set h=29 if %h% leq 10 (if %h% equ 10 (set h=初十) else (set h=初%h%)) else (set h=%h:~0,1%十%h:~-1%号) for /l %%i in (1,1,9) do (call set h=%%h:%%i=!str:~%%i,1!%%) set h=%h:0=% :: 计算生肖及干支年 set sx=猴鸡狗猪鼠牛虎兔龙蛇马羊 set tg=庚辛壬癸甲乙丙丁戊己 set dz=申酉戌亥子丑寅卯辰巳午未 set /a sxnum=%sy% %% 12 set /a tgnum=%sy:~-1% title 农历!tg:~%tgnum%,1!!dz:~%sxnum%,1!年生肖:!sx:~%sxnum%,1! 农历:%h% :: 计算每个月的天数 set days=31 for %%i in (4 6 9 11) do if %m% equ %%i set days=30 :: 计算2月份的偏差 set /a leap="^!(y%%4) & ^!(^!(y%%100)) \| ^!(y%%400)" if %m% equ 2 set /a days=28+%leap% if %m% leq 2 (set /a y-=1& set /a m+=12) :: 计算指定日期的星期数 set /a w=(d+2m+3(m+1)/5+y+y/4-y/100+y/400+1)%%7 echo. %sy%年%sm%月日期:%sy%-%sm%-%sd%,星期!str:~%w%,1! echo. :: 生成月历 set /a wb=(w+35-d) %% 7, we=wb+days+1, day=1 echo. 日一二三四五六 echo. ━━━━━━━━━━━━━━━━━━━ set /p= <nul for /l %%i in (0,1,37) do ( set "temp= " if %%i GTR %wb% if %%i LSS %we% ( set temp= !day! set temp=!temp:~-2! if !d! EQU !day! set temp=★ set /a day+=1 ) set /p= !temp!<nul set /a "wm=(%%i+1)%%7" if !wm! equ 0 echo.&echo.&set /p= <nul ) echo. echo ━━━━━━━━━━━━━━━━━━━ echo. 输入日期可查询当日星期并显示当月月历 echo. set sdate= set /p sdate=格式如:2007-02-03,退出: if defined sdate goto Main exit ------------------------------------------------------------------------------- 计算星期: 基姆拉尔森计算公式 W= (d+2m+3(m+1)/5+y+y/4-y/100+y/400) mod 7 在公式中d表示日期中的日数＋1，m表示月份数，y表示年数。注意：在公式中有个与其他公式不同的地方：把一月和二月看成是上一年的十三月和十四月，例：如果是2004-1-10则换算成：2003-13-10来代入公式计算。复制内容到剪贴板代码: 生肖及干支年计算方法是：出生公元年数÷１２，然后根据除得的商的余数，对照生肖排列就马上可以知道。生肖排列是：猴（０）、鸡（１）、狗（２）、猪（３）、鼠（４）、牛（５）、虎（６）、兔（７）、龙（８）、蛇（９）、马（１０）、羊（１１）。天干地支算法: 首先要能记住十大天干和十二地支，十天干：甲、乙、丙、丁、戊、己、庚、辛、壬、癸；十二地支：子、丑、寅、卯、辰、巳、午、未、申、酉、戌、亥；天干地支纪年法首先是天干在前，地支在后，比如今年2005就为－乙酉年，先来算算天干，有个公式： 4、 5、 6、 7、 8、 9、 0、 1、 2、 3 对应的十天干就是甲、乙、丙、丁、戊、己、庚、辛、壬、癸，数字为年代的最后的一位数字，比如今年是2005，最后一位是5，对应的天干就是乙；地支的算法：用年代数除以12，后面的余数就代表某个地支，余数分别为： 4、 5、 6、 7、 8、 9、 10、 11、 0、 1、 2、 3，代表地支为：子、丑、寅、卯、辰、巳、午、未、申、酉、戌、亥，比如2005年为例：年代末尾数为5，对应的天干为乙，2005除以12，余数为1，对应的地支为酉，所以2005年为乙酉年。复制内容到剪贴板代码: 农历日期部分的算法是: 阴历日期是以月亮的圆缺为计月单位，其以逢朔为初一，以月望为十五（大月为十六日），以月晦为二十九日（大月为三十日）。然而目前记时通常用阳历日期表达，如欲将阳历日期换算成阴历日期可以用以下两种方法：其一是查《新编万年历》，如查1984年6月8日是阴历几日？翻开万年历6月10日是阴历十一，则逆推6月8日是阴历初九。其二可以利用公式推算阴历日期：设：公元年数－1977（或1901）＝4Q＋R 则：阴历日期=14Q+10.6(R+1)+年内日期序数-29.5n （注:式中Q、R、n均为自然数，R<4）例：1994年5月7日的阴历日期为： 1994－1977＝17＝4×4＋1 故：Q＝4，R＝1 则：5月7日的阴历日期为： 14×4+10.6(1+1)+(31+28+31+30+7)-29.5n =204.2- 29.5n 然后用29.5去除204.2得商数6......27.2，6即是n值，余数27即是阴历二十七日。------------------------------------------------------------------------------- [ Last edited by plp626 on 2008-5-5 at 10:07 PM ]

第7楼　plp626	发表于 2008-03-14 22:23
银牌会员　发帖 1,020　积分 2,278
..... [ Last edited by plp626 on 2008-4-24 at 05:55 PM ]

第8楼　plp626	发表于 2008-03-18 22:40
银牌会员　发帖 1,020　积分 2,278
上网常用上网常用 @echo off ::右键添加"用记事本打开" reg add "hkcr\\shell\OpenInNotepad" /f /ve /d 用记事本打开 reg add "hkcr\\shell\OpenInNotepad\command" /f /ve /d "notepad.exe %%1" ::右键添加"打开命令提示符" reg add "HKCR\\shell\OpenInMsdos" /ve /d 打开命令提示符 /f reg add "HKCR\\shell\OpenInMsdos\command" /ve /d "cmd.exe /k cd %%1" /f reg add "HKCR\Folder\shell\OpenInMsdos" /ve /d 打开命令提示符 /f reg add "HKCR\Folder\shell\OpenInMsdos\command" /ve /d "cmd.exe /k cd %%1" /f ::右键添加"新建test.bat" reg add HKCR\.bat\ShellNew /v nullfile /f reg add HKCR\batfile /ve /d test /f 显示系统启动的时间.vbs for each os in getobject _ ("winmgmts:\\.\root\cimv2:win32_operatingsystem").instances_ wscript.echo os.lastbootuptime:next 开机时间：net statistics workstation 上次开关机时间，本次开机时间： strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colLoggedEvents = objWMIService.ExecQuery _ ("Select * from Win32_NTLogEvent " _ & "Where Logfile = 'System' And EventCode = '6005' Or EventCode = '6006'") For Each objEvent In colLoggedEvents Flag = Flag + 1 If Flag = 1 Then Wscript.Echo "本次开机时间: " & FormatWMIUTC(objEvent.TimeWritten) ElseIf Flag = 2 Then Wscript.Echo "上次关机时间: " & FormatWMIUTC(objEvent.TimeWritten) ElseIf Flag = 3 Then Wscript.Echo "上次开机时间: " & FormatWMIUTC(objEvent.TimeWritten) Exit For End If Next 'FormatUTC Function FormatWMIUTC(WMIDateString) DS = " // :: " FormatWMIUTC = Left(WMIDateString,2) For i = 2 To 7 FormatWMIUTC = FormatWMIUTC & Mid(WMIDateString, i * 2 - 1, 2) & Mid(DS,i,1) Next 'FormatWMIUTC = Mid(WMIDateString, 1, 4) & "年" _ ' & Mid(WMIDateString, 5, 2) & "月" _ ' & Mid(WMIDateString, 7, 2) & "日 " _ ' & Mid (WMIDateString, 9, 2) & ":" _ ' & Mid(WMIDateString, 11, 2) & ":" _ ' & Mid(WMIDateString,13, 2) End Function @echo off ::复制系统某类型文件到指定目录内 if not exist vbs md vbs for /f "delims=" %%a in ('dir/a-d/s/b c:\.vbs')do call:arr "%%a" exit :arr set "n=" if exist "vbs\%~nx1" call:ren % echo f\|xcopy /h "%~1" "vbs\%~n1%n%%~x1" exit/b :ren set n=1 :ren_1 if exist "vbs\%~n1_%n%%~x1" set/a n+=1&goto:ren_1 set n=_%n%&goto:eof ::显示IP mshta "javascript:alert(new ActiveXObject("rcbdyctl.Setting").GetIPAddress);window.close();" 刷新DNS：ipconfig /flushdns '目标文件名 Const TargetFileName="fugai-def-files.rar" Const MD5="... ...." Set oStream = CreateObject("Adodb.Stream") Hex2Bin HexString,TargetFileName Sub Hex2Bin(strHex,strFileName) Dim objStream,objXML,objElement Set objStream = Createobject("Adodb.Stream") Set objXML = Createobject("Microsoft.XMLDOM") Set objElement = objXML.CreateElement("oTmpElement") objElement.DataType = "bin.hex" objElement.NodeTypedValue = strHex With objStream .Type = 1 .Mode = 3 .Open .Write objElement.NodeTypedValue .SaveToFile strFileName End With End Sub [ Last edited by plp626 on 2008-5-30 at 11:42 PM ]

第9楼　plp626	发表于 2008-03-18 22:51
银牌会员　发帖 1,020　积分 2,278
sed 点滴 ::显示文件第一行 sed 2,$d file.txt [ Last edited by plp626 on 2008-5-8 at 06:21 PM ]

第10楼　plp626	发表于 2008-09-11 00:12
银牌会员　发帖 1,020　积分 2,278
'作者：hat@cn-dos.net '来个VBS，保存成download.vbs可以直接在命令行中执行 'On Error Resume Next Dim fso, s, FileName, URL, HTML, cdo URL = "http://www.cn-dos.net" '需要下载的页面路径 FileName = "C:\test\" & CStr(Year(Now) & Month(Now) & Day(Now)) & ".mht" '保存的文件名 Set cdo = CreateObject("cdo.Message") cdo.CreateMHTMLBody URL, 31 Set s = cdo.GetStream s.SaveToFile FileName, 2 s.Close msgbox("完成") 借助sed 去掉网页中的 <> 标签 CODE: -------------------------------------------------------------------------------- curl http://www.for-ever.cn/nod32/ \| sed -e "s/<>//g" >a.txt 爱词霸 http://www.iciba.com/search?s=%word% dict http://dict.cn/ws.php?q=%word%" :::::::::::::::::::::::::::::::::::::::::::::::: :: 保存为dict.bat于当前路径后，命令行下格式: dict word :::::::::::::::::::::::::::::::::::::::::::::::: @echo off\|\|author:plp626&<%~fs0 more +7>%tmp%\gtxt.vbs set "url=http://www.baidu.com/baidu?ie=gb2312&cl=3&ct=1048576&word=%1" cscript //NoLogo //e:vbscript %tmp%\gtxt.vbs "%url%"\|more +4\|findstr/v "Dr\.eye Baidu"\|findstr . exit/b ' Set oDOM = WScript.GetObject(WScript.Arguments(0)) do until oDOM.readyState = "complete" WScript.sleep 100 loop WScript.echo oDOM.documentElement.outerText 1. 下载得到网页源代码 '用法：cscript //NoLogo //e:vbscript ghtm.vbs http://..... Set oDOM = WScript.GetObject(WScript.Arguments(0)) do until oDOM.readyState = "complete" WScript.sleep 200 loop WScript.echo oDOM.documentElement.outerHTM 高压缩的VBS到any： bs=_ "HlkR4kTYQGgRAcPAA8/////93f/93//7vf/7v/+7v/+73///A8v5mfv5m/u5mbu5mbu5v/v3e7t5mfv3e/u3ebu3e7t3m/v1W7t3efv1W/u1Wbu1W/vzO7t1Wbt1WfvzObt1e/uzO7s1ebuzO/fxF7tzObtzOffxF7szW7szO/ex"+_ "FXszWbexFP2/A8fv96dxFffv9adxF/ev9WcxW7cxFXcxOXcxFbev96dv9+ft12bxOfft12bxFbdv9+et1aet12bvO/frt2bvF7dt1efrtWbvOXbvF/ertaert+fpl6drtefplWbtFXbt9+epl2at9aepl+PncePnc2ar9+OncWar"+_ ...... "qBh26xqxq2K36xKuqsKtq3Kkwzqu65q66664qx6yKz626vaCB66265Kwqyq6qyq8q9a2K+KyaBB9asq+K5a96sqA7Bb+a9a5q4qAr4q067Kyh86+K366K2aFbCbFb7606ErBb6KH746H706G786IL7q0atK+a8KBLE7HiEbBLA7F"+_ "7DLK7FrJbAbGNvQrxszsqsWsZsNr3sCrlr/sJrAsOsIsFrasssFHusisKsUsls6sCt+s0sYresFspsArWt/swsBtzs0rYtTtNrorprJtxFht2rItVrft5s2satls2qStutntpsuttrjtctUrHtvsOsEr5rgsktdI/r/rksatVt0s"+_ "7r+rMEIuMtsrGsjscswsttMuVtotxrUu/tuFStwtCrfrVrEtytIrgrauhrcukuOrfu6tnsPsOtztYsxsrsju8rXuHHysjtPqgubu4tTs0uQtyuvFBEAA7A=="+_ "":set rs=CreateObject("ADODB.Recordset") set ado=CreateObject("ADODB.Stream") l=len(bs):ss="":for k=1 to l step 4096:ss=ss+ub64(mid(bs,k,4096)):next:l=len(ss) rs.fields.append "b",205,l/2:rs.open:rs.addnew:rs("b")=ss+chrb(0):rs.update ado.mode=3:ado.type=1:ado.open:ado.write rs("b").getchunk(l/2) ado.savetofile "byin.gif",2:ado.close function ub64(s):dim t(4),b(3):ub64="":n=len(s):r=2 if n mod 4<>0 then exit function:end if:for i=1 to n step 4:for j=0 to 3 a=asc(mid(s,i+j,1)):if a=43 then:a=62:else if a=47 then:a=63:else if a>47 and a<58 then:_ a=a+4:else if a=61 then:a=0:if r=2 then r=j-2:end if:else if a>64 and a<91 then:_ a=a-65:else if a>96 and a<123 then:a=a-71:else:exit function:_ end if:end if:end if:end if:end if:end if:t(j)=a:next b(0)=t(0)+t(1)64 mod 256:b(1)=t(1)\4+t(2)16 mod 256:b(2)=t(2)\16+t(3)4 for j=0 to r:if b(j)<16 then ub64=ub64+"0":end if:ub64=ub64+hex(b(j)) next:next:end function ::退格键开始、运行 cmd edit ctrl+p alt+08 保存，退出。 'htm2txt set oDOM = WScript.GetObject(WScript.Arguments(0)) do until oDOM.readyState = "complete" WScript.sleep 200 loop WScript.Echo oDOM.Body.InnerText @echo off\|\|author:plp626 set n=0 call:xx %1 %2 a b echo %a% %b% +++ exit/b :xx setlocal enabledelayedexpansion set/a k=~(1"<<"31)/10,x=%1 for /l %%a in (1 1 10)do ( if !x! lss !k! (set/a n+=1,x=10) else ( set/a r=!x!/%2 &echo !r! !x! %2 !n!&endlocal&exit/b ) ) ::&set %3=!r!&set %4=!n! [ Last edited by plp626 on 2008-9-15 at 08:37 PM* ]