为荣誉而战！

批量顺序重命名.bat(原)

shortway@sina.com(Shortway) — Thu,04 Mar 2010 11:24:45 +0800

文件夹内有大量同一类型的文件，做一个批处理，批量按顺序重命名。

程序代码

@echo on
setlocal enabledelayedexpansion
set n=0
for /f "tokens=*" %%a in ('dir /b /os *-4*.html') do (
set /a n+=1
ren %%a kk-4-!n!.html
)

关键代码说明：

in ('dir /b /os *-4*.html') ：
/b：简洁文件列表
/os：按文件大小顺序（可选：/on按名称；/od按日期；-逆序,详细请看dir命令的说明）

set /a n+=1：设置环境变量n每次循环递增1

应用环境变量的值时前后一定加“!”.

substring和substr方法（转）

shortway@sina.com(Shortway) — Thu,07 Jan 2010 14:58:56 +0800

1.substring 方法

定义和用法

substring 方法用于提取字符串中介于两个指定下标之间的字符。

语法

stringObject.substring(start,stop)

参数     描述
start    必需。一个非负的整数，规定要提取的子串的第一个字符在 stringObject 中的位置。
stop     可选。一个非负的整数，比要提取的子串的最后一个字符在 stringObject 中的位置多 1。如果省略该参数，那么返回的子串会一直到字符串的结尾。

返回值

一个新的字符串，该字符串值包含 stringObject 的一个子字符串，其内容是从 start 处到 stop-1 处的所有字符，其长度为 stop 减 start。

说明

substring 方法返回的子串包括 start 处的字符，但不包括 end 处的字符。
如果 start 与 end 相等，那么该方法返回的就是一个空串（即长度为 0 的字符串）。
如果 start 比 end 大，那么该方法在提取子串之前会先交换这两个参数。
如果 start 或 end 为负数，那么它将被替换为 0。

2.substr 方法

定义和用法

substr 方法用于返回一个从指定位置开始的指定长度的子字符串。

语法

stringObject.substr(start [, length ])

参数    描述
start   必需。所需的子字符串的起始位置。字符串中的第一个字符的索引为 0。
length 可选。在返回的子字符串中应包括的字符个数。

说明

如果 length 为 0 或负数，将返回一个空字符串。
如果没有指定该参数，则子字符串将延续到stringObject的最后。

举例：
var str = "0123456789";

alert(str.substring(0));------------"0123456789"
alert(str.substring(5));------------"56789"
alert(str.substring(10));-----------""
alert(str.substring(12));-----------""
alert(str.substring(-5));-----------"0123456789"
alert(str.substring(-10));----------"0123456789"
alert(str.substring(-12));----------"0123456789"
alert(str.substring(0,5));----------"01234"
alert(str.substring(0,10));---------"0123456789"
alert(str.substring(0,12));---------"0123456789"
alert(str.substring(2,0));----------"01"
alert(str.substring(2,2));----------""
alert(str.substring(2,5));----------"234"
alert(str.substring(2,12));---------"23456789"
alert(str.substring(2,-2));---------"01"
alert(str.substring(-1,5));---------"01234"
alert(str.substring(-1,-5));--------""

alert(str.substr(0));---------------"0123456789"
alert(str.substr(5));---------------"56789"
alert(str.substr(10));--------------""
alert(str.substr(12));--------------""
alert(str.substr(-5));--------------"0123456789"
alert(str.substr(-10));-------------"0123456789"
alert(str.substr(-12));-------------"0123456789"
alert(str.substr(0,5));-------------"01234"
alert(str.substr(0,10));------------"0123456789"
alert(str.substr(0,12));------------"0123456789"
alert(str.substr(2,0));-------------""
alert(str.substr(2,2));-------------"23"
alert(str.substr(2,5));-------------"23456"
alert(str.substr(2,12));------------"23456789"
alert(str.substr(2,-2));------------""
alert(str.substr(-1,5));------------"01234"
alert(str.substr(-1,-5));-----------""

参考文献：
http://www.w3school.com.cn/js/jsref_substring.asp
http://www.w3school.com.cn/js/jsref_substr.asp

转自：http://hi.baidu.com/bit5566/blog/item/9edaf84ac738f52b08f7effb.html

搜索获取MS的剪贴画素材，强！(原)

shortway@sina.com(Shortway) — Sat,11 Apr 2009 00:44:23 +0800

Word中插入剪贴画大家都用过吧。

免费下载剪贴画、照片、动画和声音 - Microsoft Office Online 网址：http://office.microsoft.com/zh-cn/clipart/default.aspx

剪贴画有的是Wmf格式的矢量图，可以方便地导入到Flash中。

我们习惯在Word中网络搜索，让剪贴画管理器管理。

剪贴画管理器有优点，可以利用关键词分类，但是文件操作不直观：这些剪贴画素材到底存放在我的电脑哪里？我可以复制它们吗？

为了好好利用这笔网络素材资源，我分析了网页代码，终于还原出了剪贴画的网址，做成这个书签工具，与大家分享。

使用方法：

1、运行下面的代码，有链接上右击→收藏书签到“收藏夹”或“链接栏”；

2、打开IE，使用时点击两次本书签。
第一次，根据你输入的关键词和类型到微软网站上搜索，只要第一页就行，就会获取到所有的结果列表。（如果感兴趣，你可以查看结果页面的源代码。）
第二次点击，自动分析结果列表，还原剪贴画的URL，全部显示出来。

注意：剪贴画还包括声音素材的。为了简便，我没有特殊处理，还是用图片形式显示。这当然是错误的方法，不过你可以右键下载再试听。

HTML代码

[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]

使用效果截屏：

用批处理禁用/启用服务(原)

shortway@sina.com(Shortway) — Mon,30 Mar 2009 18:36:19 +0800

引用内容

::用批处理来禁用服务，以MySql服务为例

@ECHO OFF
@ECHO MySql 服务正在禁用...

::先停止服务
@NET STOP MySql>NUL 2>NUL

::再设置启动类型为“已禁用”
@SC CONFIG MySql START= DISABLED>NUL 2>NUL

@ECHO.
@ECHO MySql 服务禁用完成！
@ECHO.
PAUSE

::::::::::::::::::::::::::::::::::::::::::
::用批处理来启用服务

@ECHO OFF
@ECHO MySql 服务正在启用...

::先设置启动类型为“自动”
@SC CONFIG MySql START= AUTO>NUL 2>NUL

::再启动服务
@NET START MySql>NUL 2>NUL

@ECHO.
@ECHO MySql 服务启用完成！
@ECHO.
PAUSE

注意：
1、启用的顺序为：先设置启动类型为“自动”，再启动服务；
禁用服务的顺序要相反：先停止服务，再设置启动类型为“已禁用”。

2、“START= ”等号后面必须要有一个空格。

3、语句格式：

引用内容

SC CONFIG <服务名称> START= <启动类型>

注意是“服务名称”，不是显示名称！

START 后面的启动类型参数含义：
START= DISABLED 表示禁用
START= DEMAND 表示手动
START= AUTO 表示自动

4、末尾的“>NUL 2>NUL”是不回显，隐蔽了返回信息。可以去掉。

所以，以前的一篇《去除暴风影音的广告.bat》中，禁用暴风影音广告网络服务的方法就是：

引用内容

@NET STOP ccosm>NUL 2>NUL
@SC CONFIG ccosm START= DISABLED>NUL 2>NUL

参考网址：
1、http://www.sgoon.net/MINI/Default.asp?5-14592-0-0-0-0-0-a-.htm
2、http://hi.baidu.com/maxdao/blog/item/0cb9fdfa6948b0dfb48f31ae.html

旋转方块过关密码修改版(原)

shortway@sina.com(Shortway) — Sun,01 Feb 2009 01:06:00 +0800

看过我的这篇《修改flash》，你该知道怎么修改Flash吧。

抽空给儿子改了这个Flash游戏《旋转方块》。(又找了个汉化版的，在这个基础上改的)

密码很简单了。第一关：010000；第二关：020000；……第十关：100000；……最后一关三十三关：330000。

Flash动画

在线播放

下载地址：http://www.wjmhxx.com/Shortway/attachments/month_0902/ha_bloxorz.swf

提取txt文件第一行作为文件名.VBS(原)

shortway@sina.com(Shortway) — Sat,31 Jan 2009 11:31:46 +0800

问题：http://iask.sina.com.cn/b/14430201.html

引用内容

我有100多本文件名为数字的小说 txt格式，文件正文第一行是四个空格+[标题书名]
急求批处理命令，一次修改文件名为正文第一行文字

分析：bat实在困难因为还有些字符是不能作为文件名的，比如冒号，斜杠等。可以考虑用vbs。

解决：http://iask.sina.com.cn/b/14471906.html

程序代码

'bat对文件的读写、判断等操作极弱，所以推荐VBS。
'使用也很简单：记事本输入→保存到目标文件夹，命名为“RenameText.vbs”文件→双击运行。

----代码开始-----
Option Explicit
On Error Resume Next ' 容错语句，避免程序崩溃 '有可能重命名文件已经存在，忽略错误。

Dim fso,fs,f
Dim i
Dim strNewName
Const strCurrentPath = "." '当前目录

Msgbox "根据文本文件第一行批量重命名的VBS程序" & vbcrlf & vbcrlf & "Created By Shortway",0,"QQ:380710203"

Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set fs = fso.GetFolder(strCurrentPath).Files
i = 0
For Each f In fs '遍历当前文件夹内每个文件
If LCase(right(f.name,3))="txt" Then '判断是否是文本文件
strNewName = Trim(fso.OpenTextFile(f, 1, False).ReadLine) '得到第一行

'以下剔除不能作文件名的特殊字符
strNewName = Replace(strNewName, "\", "")
strNewName = Replace(strNewName, "/", "")
strNewName = Replace(strNewName, ":", "")
strNewName = Replace(strNewName, "*", "")
strNewName = Replace(strNewName, "?", "")
strNewName = Replace(strNewName, """", "")
strNewName = Replace(strNewName, ">", "")
strNewName = Replace(strNewName, "<", "")
strNewName = Replace(strNewName, "|", "")

strNewName = left(strNewName,30) '有时第一行文字太多了，就选30个字符了

f.name=strNewName & ".txt"
i = i + 1
End if
Next
Msgbox i & "个文件改名完成！（忽略重名）"
Set fs = Nothing
Set fso = Nothing

下载：http://iask.sina.com.cn/browse/download.php?path=/22/69/74/1071226974.14471906.vbs&filename=RenameText.vbs

QQ自动登录批处理生成器多用户版.vbs(转)

shortway@sina.com(Shortway) — Sat,31 Jan 2009 10:30:33 +0800

来自：http://www.yongfa365.com/item/QQAutoLoginCreates.vbs.html
略有改动。

程序代码

'/*=========================================================================
' * Intro       QQ自动登录生成器多用户版，支持参数生成
'               参数使用方法：QQAutoLoginCreates.vbs "QQ路径,安装版QQ可以删除当前引号内的内容" "QQ1" "QQ1的密码" "QQ2" "QQ2的密码"
' * FileName    QQAutoLoginCreates.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/QQAutoLoginCreates.vbs.html
' * MadeTime    2007-12-23 20:29:06
' * LastModify  2007-12-23 20:29:06
' *==========================================================================*/

Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32

Private m_lOnBits(30)
Private m_l2Power(30)

Private Function LShift(lValue, iShiftBits)
    If iShiftBits = 0 Then
        LShift = lValue
        Exit Function
    ElseIf iShiftBits = 31 Then
        If lValue And 1 Then
            LShift = &H80000000
        Else
            LShift = 0
        End If
        Exit Function
    ElseIf iShiftBits < 0 or iShiftBits > 31 Then
        Err.Raise 6
    End If

    If (lValue And m_l2Power(31 - iShiftBits)) Then
        LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) or &H80000000
    Else
        LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
    End If
End Function

Private Function RShift(lValue, iShiftBits)
    If iShiftBits = 0 Then
        RShift = lValue
        Exit Function
    ElseIf iShiftBits = 31 Then
        If lValue And &H80000000 Then
            RShift = 1
        Else
            RShift = 0
        End If
        Exit Function
    ElseIf iShiftBits < 0 or iShiftBits > 31 Then
        Err.Raise 6
    End If

    RShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits)

    If (lValue And &H80000000) Then
        RShift = (RShift or (&H40000000 \ m_l2Power(iShiftBits - 1)))
    End If
End Function

Private Function RotateLeft(lValue, iShiftBits)
    RotateLeft = LShift(lValue, iShiftBits) or RShift(lValue, (32 - iShiftBits))
End Function

Private Function AddUnsigned(lX, lY)
    Dim lX4
    Dim lY4
    Dim lX8
    Dim lY8
    Dim lResult

    lX8 = lX And &H80000000
    lY8 = lY And &H80000000
    lX4 = lX And &H40000000
    lY4 = lY And &H40000000

    lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)

    If lX4 And lY4 Then
        lResult = lResult Xor &H80000000 Xor lX8 Xor lY8
    ElseIf lX4 or lY4 Then
        If lResult And &H40000000 Then
            lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8
        Else
            lResult = lResult Xor &H40000000 Xor lX8 Xor lY8
        End If
    Else
        lResult = lResult Xor lX8 Xor lY8
    End If

    AddUnsigned = lResult
End Function

Private Function md5_F(x, y, z)
    md5_F = (x And y) or ((Not x) And z)
End Function

Private Function md5_G(x, y, z)
    md5_G = (x And z) or (y And (Not z))
End Function

Private Function md5_H(x, y, z)
    md5_H = (x Xor y Xor z)
End Function

Private Function md5_I(x, y, z)
    md5_I = (y Xor (x or (Not z)))
End Function

Private Sub md5_FF(a, b, c, d, x, s, ac)
    a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_F(b, c, d), x), ac))
    a = RotateLeft(a, s)
    a = AddUnsigned(a, b)
End Sub

Private Sub md5_GG(a, b, c, d, x, s, ac)
    a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_G(b, c, d), x), ac))
    a = RotateLeft(a, s)
    a = AddUnsigned(a, b)
End Sub

Private Sub md5_HH(a, b, c, d, x, s, ac)
    a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_H(b, c, d), x), ac))
    a = RotateLeft(a, s)
    a = AddUnsigned(a, b)
End Sub

Private Sub md5_II(a, b, c, d, x, s, ac)
    a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_I(b, c, d), x), ac))
    a = RotateLeft(a, s)
    a = AddUnsigned(a, b)
End Sub

Private Function ConvertToWordArray(sMessage)
    Dim lMessageLength
    Dim lNumberOfWords
    Dim lWordArray()
    Dim lBytePosition
    Dim lByteCount
    Dim lWordCount

    Const MODULUS_BITS = 512
    Const CONGRUENT_BITS = 448

    lMessageLength = Len(sMessage)

    lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD)
    ReDim lWordArray(lNumberOfWords - 1)

    lBytePosition = 0
    lByteCount = 0
    Do Until lByteCount >= lMessageLength
        lWordCount = lByteCount \ BYTES_TO_A_WORD
        lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
        lWordArray(lWordCount) = lWordArray(lWordCount) or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition)
        lByteCount = lByteCount + 1
    Loop

    lWordCount = lByteCount \ BYTES_TO_A_WORD
    lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE

    lWordArray(lWordCount) = lWordArray(lWordCount) or LShift(&H80, lBytePosition)

    lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3)
    lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29)

    ConvertToWordArray = lWordArray
End Function

Private Function WordToHex(lValue)
    Dim lByte
    Dim lCount

    For lCount = 0 To 3
        lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1)
        WordToHex = WordToHex & Right("0" & Hex(lByte), 2)
    Next
End Function

Public Function MD5(sMessage)
    m_lOnBits(0) = CLng(1)
    m_lOnBits(1) = CLng(3)
    m_lOnBits(2) = CLng(7)
    m_lOnBits(3) = CLng(15)
    m_lOnBits(4) = CLng(31)
    m_lOnBits(5) = CLng(63)
    m_lOnBits(6) = CLng(127)
    m_lOnBits(7) = CLng(255)
    m_lOnBits(8) = CLng(511)
    m_lOnBits(9) = CLng(1023)
    m_lOnBits(10) = CLng(2047)
    m_lOnBits(11) = CLng(4095)
    m_lOnBits(12) = CLng(8191)
    m_lOnBits(13) = CLng(16383)
    m_lOnBits(14) = CLng(32767)
    m_lOnBits(15) = CLng(65535)
    m_lOnBits(16) = CLng(131071)
    m_lOnBits(17) = CLng(262143)
    m_lOnBits(18) = CLng(524287)
    m_lOnBits(19) = CLng(1048575)
    m_lOnBits(20) = CLng(2097151)
    m_lOnBits(21) = CLng(4194303)
    m_lOnBits(22) = CLng(8388607)
    m_lOnBits(23) = CLng(16777215)
    m_lOnBits(24) = CLng(33554431)
    m_lOnBits(25) = CLng(67108863)
    m_lOnBits(26) = CLng(134217727)
    m_lOnBits(27) = CLng(268435455)
    m_lOnBits(28) = CLng(536870911)
    m_lOnBits(29) = CLng(1073741823)
    m_lOnBits(30) = CLng(2147483647)

    m_l2Power(0) = CLng(1)
    m_l2Power(1) = CLng(2)
    m_l2Power(2) = CLng(4)
    m_l2Power(3) = CLng(8)
    m_l2Power(4) = CLng(16)
    m_l2Power(5) = CLng(32)
    m_l2Power(6) = CLng(64)
    m_l2Power(7) = CLng(128)
    m_l2Power(8) = CLng(256)
    m_l2Power(9) = CLng(512)
    m_l2Power(10) = CLng(1024)
    m_l2Power(11) = CLng(2048)
    m_l2Power(12) = CLng(4096)
    m_l2Power(13) = CLng(8192)
    m_l2Power(14) = CLng(16384)
    m_l2Power(15) = CLng(32768)
    m_l2Power(16) = CLng(65536)
    m_l2Power(17) = CLng(131072)
    m_l2Power(18) = CLng(262144)
    m_l2Power(19) = CLng(524288)
    m_l2Power(20) = CLng(1048576)
    m_l2Power(21) = CLng(2097152)
    m_l2Power(22) = CLng(4194304)
    m_l2Power(23) = CLng(8388608)
    m_l2Power(24) = CLng(16777216)
    m_l2Power(25) = CLng(33554432)
    m_l2Power(26) = CLng(67108864)
    m_l2Power(27) = CLng(134217728)
    m_l2Power(28) = CLng(268435456)
    m_l2Power(29) = CLng(536870912)
    m_l2Power(30) = CLng(1073741824)

    Dim x
    Dim k
    Dim AA
    Dim BB
    Dim CC
    Dim DD
    Dim a
    Dim b
    Dim c
    Dim d

    Const S11 = 7
    Const S12 = 12
    Const S13 = 17
    Const S14 = 22
    Const S21 = 5
    Const S22 = 9
    Const S23 = 14
    Const S24 = 20
    Const S31 = 4
    Const S32 = 11
    Const S33 = 16
    Const S34 = 23
    Const S41 = 6
    Const S42 = 10
    Const S43 = 15
    Const S44 = 21

    x = ConvertToWordArray(sMessage)

    a = &H67452301
    b = &HEFCDAB89
    c = &H98BADCFE
    d = &H10325476

    For k = 0 To UBound(x) Step 16
        AA = a
        BB = b
        CC = c
        DD = d

        md5_FF a, b, c, d, x(k + 0), S11, &HD76AA478
        md5_FF d, a, b, c, x(k + 1), S12, &HE8C7B756
        md5_FF c, d, a, b, x(k + 2), S13, &H242070DB
        md5_FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE
        md5_FF a, b, c, d, x(k + 4), S11, &HF57C0FAF
        md5_FF d, a, b, c, x(k + 5), S12, &H4787C62A
        md5_FF c, d, a, b, x(k + 6), S13, &HA8304613
        md5_FF b, c, d, a, x(k + 7), S14, &HFD469501
        md5_FF a, b, c, d, x(k + 8), S11, &H698098D8
        md5_FF d, a, b, c, x(k + 9), S12, &H8B44F7AF
        md5_FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1
        md5_FF b, c, d, a, x(k + 11), S14, &H895CD7BE
        md5_FF a, b, c, d, x(k + 12), S11, &H6B901122
        md5_FF d, a, b, c, x(k + 13), S12, &HFD987193
        md5_FF c, d, a, b, x(k + 14), S13, &HA679438E
        md5_FF b, c, d, a, x(k + 15), S14, &H49B40821

        md5_GG a, b, c, d, x(k + 1), S21, &HF61E2562
        md5_GG d, a, b, c, x(k + 6), S22, &HC040B340
        md5_GG c, d, a, b, x(k + 11), S23, &H265E5A51
        md5_GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA
        md5_GG a, b, c, d, x(k + 5), S21, &HD62F105D
        md5_GG d, a, b, c, x(k + 10), S22, &H2441453
        md5_GG c, d, a, b, x(k + 15), S23, &HD8A1E681
        md5_GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8
        md5_GG a, b, c, d, x(k + 9), S21, &H21E1CDE6
        md5_GG d, a, b, c, x(k + 14), S22, &HC33707D6
        md5_GG c, d, a, b, x(k + 3), S23, &HF4D50D87
        md5_GG b, c, d, a, x(k + 8), S24, &H455A14ED
        md5_GG a, b, c, d, x(k + 13), S21, &HA9E3E905
        md5_GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8
        md5_GG c, d, a, b, x(k + 7), S23, &H676F02D9
        md5_GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A

        md5_HH a, b, c, d, x(k + 5), S31, &HFFFA3942
        md5_HH d, a, b, c, x(k + 8), S32, &H8771F681
        md5_HH c, d, a, b, x(k + 11), S33, &H6D9D6122
        md5_HH b, c, d, a, x(k + 14), S34, &HFDE5380C
        md5_HH a, b, c, d, x(k + 1), S31, &HA4BEEA44
        md5_HH d, a, b, c, x(k + 4), S32, &H4BDECFA9
        md5_HH c, d, a, b, x(k + 7), S33, &HF6BB4B60
        md5_HH b, c, d, a, x(k + 10), S34, &HBEBFBC70
        md5_HH a, b, c, d, x(k + 13), S31, &H289B7EC6
        md5_HH d, a, b, c, x(k + 0), S32, &HEAA127FA
        md5_HH c, d, a, b, x(k + 3), S33, &HD4EF3085
        md5_HH b, c, d, a, x(k + 6), S34, &H4881D05
        md5_HH a, b, c, d, x(k + 9), S31, &HD9D4D039
        md5_HH d, a, b, c, x(k + 12), S32, &HE6DB99E5
        md5_HH c, d, a, b, x(k + 15), S33, &H1FA27CF8
        md5_HH b, c, d, a, x(k + 2), S34, &HC4AC5665

        md5_II a, b, c, d, x(k + 0), S41, &HF4292244
        md5_II d, a, b, c, x(k + 7), S42, &H432AFF97
        md5_II c, d, a, b, x(k + 14), S43, &HAB9423A7
        md5_II b, c, d, a, x(k + 5), S44, &HFC93A039
        md5_II a, b, c, d, x(k + 12), S41, &H655B59C3
        md5_II d, a, b, c, x(k + 3), S42, &H8F0CCC92
        md5_II c, d, a, b, x(k + 10), S43, &HFFEFF47D
        md5_II b, c, d, a, x(k + 1), S44, &H85845DD1
        md5_II a, b, c, d, x(k + 8), S41, &H6FA87E4F
        md5_II d, a, b, c, x(k + 15), S42, &HFE2CE6E0
        md5_II c, d, a, b, x(k + 6), S43, &HA3014314
        md5_II b, c, d, a, x(k + 13), S44, &H4E0811A1
        md5_II a, b, c, d, x(k + 4), S41, &HF7537E82
        md5_II d, a, b, c, x(k + 11), S42, &HBD3AF235
        md5_II c, d, a, b, x(k + 2), S43, &H2AD7D2BB
        md5_II b, c, d, a, x(k + 9), S44, &HEB86D391

        a = AddUnsigned(a, AA)
        b = AddUnsigned(b, BB)
        c = AddUnsigned(c, CC)
        d = AddUnsigned(d, DD)
    Next

    MD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d))
    'MD5=LCase(WordToHex(b) & WordToHex(c))  '这儿是取16位的密码,如果是32位的话,把a和d加上就行了.
End Function

'base64 编码前要将十六进制字符转换为Byte

Function PSSHASH(QQPass)
    Set xml_dom = CreateObject("MSXML2.DOMDocument")
    xml_dom.loadXML ""
    Set phex = xml_dom.createElement("Hex")
    phex.dataType = "bin.Hex"
    phex.Text = md5(QQPass)
    Set pbase = xml_dom.createElement("base")
    pbase.dataType = "bin.base64"
    pbase.nodeTypedvalue = phex.nodeTypedvalue
    PSSHASH = pbase.text
End Function

'创建文件

Function CreateFile(FileName, Content)
    On Error Resume Next
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set fd = FSO.CreateTextFile(FileName, True)
    fd.WriteLine Content
    If Err>0 Then
        Err.Clear
        CreateFile = False
    Else
        CreateFile = True
    End If
End Function

'正则表达式替换

Function reReplace(Str, restrS, restrD)
    Set re = New RegExp
    re.IgnoreCase = True
    re.Global = True
    re.Pattern = restrS
    reReplace = re.Replace(Str, restrD)
End Function

'生成QQ自动登陆器
'执行过程是，先看看是不是通过参数传来的，如果没有参数的话就提示输入各种QQ信息，最后生成一个自动登录批处理文件
Dim QQUserPass
Dim QQUser
Dim QQPass
Dim QQPath
Dim QQAuto
Set objArgs = WScript.Arguments
If objArgs.Count<3 Then
    QQPath = InputBox("安装版QQ不用输入，直接点确定" & vbCrLf &"绿色版QQ(未改注册表)请输入QQ程序路径：", "1/2 QQ自动登陆生成器", "")
    QQUserPass = InputBox("请输入QQ号及密码，格式为："&vbCrLf&"QQ1 QQ1的密码 QQ2 QQ2的密码", "2/2 QQ自动登陆生成器", "")
    If QQUserPass = "" Then
        WScript.Echo "QQ号及密码为空，点确定退出程序"
        WScript.Quit
    End If
Else
    QQPath = objArgs(0)
    For i = 1 To objArgs.Count -1
        QQUserPass = QQUserPass & " " & objArgs(i)
    Next
End If

If QQPath = "" Then
    Dim OperationRegistry
    Set OperationRegistry = WScript.CreateObject("WScript.Shell")
    QQPath = OperationRegistry.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\PLATFORM_TYPE_LIST\1\TypePath")
End If
PathTemp = Split(QQPath, "\")
'格式化输入，比如前后空格，多个空格
QQUserPass = reReplace(Trim(QQUserPass), " +", " ")
QQUserPass = Split(QQUserPass, " ")

'生成自动登录文件
QQAuto = "@ECHO OFF" & vbCrLf
QQAuto = QQAuto & PathTemp(0) & vbCrLf
QQAuto = QQAuto & "CD """ & Left(QQPath, Len(QQPath) - Len(PathTemp(UBound(PathTemp)))) & """" & vbCrLf
QQUsers = ""
For i = 0 To UBound(QQUserPass) step 2
    QQUser = QQUserPass(i)
    QQPass = QQUserPass(i + 1)

    QQUsers = QQUsers & "-" & QQUser
    QQPass = PSSHASH(QQPass)

    QQAuto = QQAuto & "START " & PathTemp(UBound(PathTemp)) & " /START QQUIN:" & QQUser & " PWDHASH:" & QQPass & " /STAT:40" & vbCrLf '/STAT:40可以换成41，40是隐身，41是正常
Next

QQAuto = QQAuto & "REM 说明：/STAT:40可以换成41，40是隐身，41是正常" & vbCrLf

'QQAuto = QQAuto & "QUIT"
'''''''''''''上面的QUIT无效命令，屏蔽之——Modified by Shortway
QQUsers = Right(QQUsers, Len(QQUsers) -1)
CreateFile QQUsers & "自动登录.bat", QQAuto
WScript.Echo "生成完毕!您可以用""" & QQUsers & "自动登录.bat" & """登陆"

将以上代码保存成.VBS文件，运行后按照提示输入。可以实现多个QQ成批自动登录。

FLV视频播放器(整理)

shortway@sina.com(Shortway) — Sat,20 Sep 2008 14:05:13 +0800

参考网上的资料，做了一个在线视频播放器。静态htm，通过获取URL参数，DOM生成播放。

非原创，仅整理！

测试：

ipod + band = iband
http://vs1.zol.com.cn/flv/20/3ddc6da0.flv||技巧高超iPhone电子乐队iBand演奏视频">技巧高超——iPhone电子乐队iBand演奏视频

flv地址的获取，请参考：flv 下载与转换一文。

洛奇在线编曲系统开发手记(原)

shortway@sina.com(Shortway) — Wed,20 Aug 2008 22:26:27 +0800

HTML代码

[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]

用try{}catch(e){}是因为新浪与“千羽熏的乐谱屋”上文本框的命名不同。我修改过的这个就更不同了:)

10、下载了一些软件，初步试用，了解不深。
软件编写《洛奇》乐谱攻略：http://www.pcgames.com.cn/netgames/zhuanti/mabinogi/gl/0506/651978.html
洛奇MML修正工具 v0.15：http://www.luoqi.cn/Soft/UploadSoft/200506/20050613195617654.rar
洛奇音乐制作软件 PSMPLAY中文版：http://61.152.221.82/game_tools/PSMPLAY@4.zip
mabicomp.rar
要下载MIDI音乐来尝试转换成MML，到：http://mid.ququ3.cn/

11、添加静音功能，方便单个谱子的调试。

12、搜集更多服务器。luoqi.com.cn、新浪、太平洋上的均不能用。
http://210.208.86.67/PSGConverter.exe
http://mabinogi.nexon.net/PSG/PSGConverter.exe
http://comp.mabinogi.jp/PSGConverter.exe
http://www.annie.ne.jp/~tamanegi/mabimml/PSGConverter.phtml
http://logue.sakura.ne.jp/elements/PSGConverter.php
http://211.218.233.238:77/PSGConverter.exe×

13、一直想下载服务器上的exe文件，好自己搭建。均告失败。
2008-04-12，Google搜索“PSGConverter”，终于找到啦！喜悦难于言表！
最先的是这个：http://www.annie.ne.jp/www.annie.ne.jp/~tamanegi/
不错！版本较早。继续！
http://www.google.cn/search?sourceid=navclient&hl=zh-CN&ie=UTF-8&rlz=1T4GGLJ_zh-CN___CN247&q=mml+site%3alogue%2ebe
虽是小日本的，我还是要感谢他们！Nanashi、Tamanegi、Logue。伟大的互联网！伟大的共享主义者！
页面：http://logue.be/Web%E7%B4%A0%E6%9D%90/PSGConverter.php.html
下载：http://logue.be/?plugin=attach&refer=Web%E7%B4%A0%E6%9D%90%2FPSGConverter.php&openfile=PSGConverter.php.tgzPSGConverter.php
存疑，怀疑是用SWF文件播放：http://logue.be/?cmd=related&page=Web%E7%B4%A0%E6%9D%90%2FPukiWiki%2Fmml.inc.php

14、还好我的本本上装了EasyPhp，赶快尝试！……没有声音？？！！！
打开http://127.0.0.1/mml/PSGConverter.php?i=10&s=T111V11O4……（本机架设环境）
有好多“undefined offset”错误！可惜PHP不是很懂。（其实是一点不懂^_^）
Baidu一下，据说在“php.ini”文件中用“error_reporting = E_ALL”屏蔽。未果，还原php.ini的配置。
再搜索……“array_key_exists”！！！！！！！！！
用：

程序代码

if (array_key_exists('0', $test)){

替换：

程序代码

if($test[0]!=''){

还有一个错误：$reset可能没有初值。修改：

程序代码

if(isset($_GET['r'])) { $reset = true; }

为：

程序代码

if(isset($_GET['r'])) { $reset = true; }else{ $reset = false;}

再试！正确！本机架设服务器成功！优美的音乐再次响起！而且没有音色为10时的错误！o(∩_∩)o...哈哈

15、下一步，想再继续改进：按琴键时发声、选音色时发声、保存自己的谱子……

再添几个参考网址：
0、http://logue.be/Web%E7%B4%A0%E6%9D%90/PukiWiki.html
1、http://logue.be/?plugin=attach&refer=Web%E7%B4%A0%E6%9D%90%2FPukiWiki%2Fmabimml.inc.php&openfile=mabimml.js.3google快照
2、http://logue.be/?plugin=attach&refer=Web%E7%B4%A0%E6%9D%90%2FPukiWiki%2Fmabimml.inc.php&openfile=mabimml.inc.php
3、http://jbbs.livedoor.jp/game/10417/storage/1105969251.html
4、http://www.google.cn/search?q=psgconverter%2eexe

来自http://jbbs.livedoor.jp/game/10417/storage/1105969251.html的曲子

引用内容

T144V13O4L32FGG+A+>CDD+FL8G2&GG+GC16D+16&D+2D+.F.GF4.CDD+GA+4G+4G.F.D+G2&GG+GC16D+16&D+2D+.D.C4G4C4CCG.G16G+.A+.G2&GG+GC16D+16&D+2D+.G.F+F4.D+A+.A+.>CC.C.C4.C16CC+16D16D+4D+G+D+16A+D+16G+O4F+2.&F+F16F+16G+2C+4CC+>C+2&C+C+.D+4.F16D+16C+2&T216&C4G+4F+4F4F+4G+4D+4F4F+4F4T144C+4.G+4C+.C+4.C+16G+4F+4G1&G1&G1,
T144V11O2L4G4L16C+CR8C+8C+C+8C+C8CRC+RCC+RCC+8D+8C+C+C+G+8RRCRCC8C8CG8C8C+CR8C+8C+C+8C+C8CRC+RCC+RCC+8D+8C+C+C+G+8RRCRCC8C8CG8C8C+CR8C+8C+C+8C+C8CRC+RCC+RCC+8D+8C+C+C+G+8RRCRCC8C8CG8C8C+CR8C+8C+C+8C+C8CRC+RCC+RCC+8D+8C+C+C+G+8RCRCG8C+C+G+8C+A+D+G+A+O3C+1F1E1F+2D+4G+1A+1A1&A2B2.D+4.G+4.G+1G+2>D+2T144V11O3L4G4G1&G2.F4G1F2D+2G1&G2.A+4G1F2A+2>C1&C2.D+4C1

为荣誉而战！

批量顺序重命名.bat(原)

substring和substr方法（转）

搜索获取MS的剪贴画素材，强！(原)

用批处理禁用/启用服务(原)

最新小书签 bookmarklet(原)

旋转方块过关密码修改版(原)

提取txt文件第一行作为文件名.VBS(原)

QQ自动登录批处理生成器多用户版.vbs(转)

FLV视频播放器(整理)

洛奇在线编曲系统开发手记(原)