这意味着，根据函数如何被调用，同一个函数可以拥有不同的函数上下文。刚开始可能觉得奇怪，但这相当有用。

在默认情况下，函数调用的上下文（this）是对象，其属性包含可以调用该函数的引用。参看如下代码：

var ride = {
    make: "Yamaha",
    model: "V-Star Silverado 1100",
    year: 2005,
    purchased: new Date(2005,3,12),
    owner: {name: "Spike Spiegel", occupation: "bounty hunter"},
    whatAmI: function(){
        return this.year+" "+this.make+" "+this.model;
    }
};

那么上面代码的层次应该如下图所示：

上图的模型清晰地显示函数不是Object的一部分，只是被名为whatAmI的Object属性所引用

当函数通过属性引用而被调用时，如下所示

var bike = ride.whatAmI();

函数上下文（this引用）被设置为ride所指向的对象实例。作为结果，变量bike被设置为字符串2005 Yamaha V-Star Silverado 1100，因为该函数经由this进行调用并获得对象的属性。

对于顶层函数来说也是如此。请记住：顶层函数是window的属性，因此在作为顶层函数而被调用时，其函数上下文是window对象。

虽然以上是常见的隐式行为，但JavaScript提供办法来显式地控制什么被用作函数上下文。通过Function方法call()或apply()来调用函数，可以把函数上下文设置为所想的任何东西。

对，作为一等对象，函数甚至拥有定义为Function构造器的几个方法。

用call()方法来调用函数（这个函数作为第一个参数），指定对象作为函数上下文，而其余参数成为被调用函数的参数，也就是说，call()的第二个参数成为被调用函数的第一个实参，以此类推。apply()方法的工作方式与call()相似，除了第二个参数要求是对象数组以外（这些对象将成为被调用函数的实参）。

弄糊涂了？该是介绍更为综合的示例的时间了。考虑下面的代码：

在这个示例中，我们定义3个简单的对象，每个对象都带有handle属性，使得易于标识对象（给定一个引用）①。我们也经window实例添加handle属性，因此window实例也易于标识。

然后定义顶层函数，无论什么对象作为其函数上下文，都返回handle属性值②。把同一函数实例指派给o1对象的名为identifyMe的属性③。我们可以说，这会在o1对象上创建名为identifyMe的方法，而注意到这一点很重要：这个函数独立于o1对象而被声明。

最后，我们弹出4个警告消息框，每个警告消息框都使用不同的机制来调用相同的函数实例。在用浏览器加载这个页面时，4个警告框的序列如下图所示：

这个警告消息框说明了以下几点：

在函数作为顶层函数而被直接调用时，函数上下文是window实例④。

在函数作为对象（在这种情况下是o1）的属性被调用时，那个对象成为函数调用的函数上下文⑤。我们可以说，函数就像那个对象的方法而（在面向对象语言里面类似）进行操作。请不要对这个类比感到厌烦。如果你不小心谨慎，就会误入歧途，就像这个实例其作部分所显示的那样。

采用Function的call()方法导致函数上下文被设置为作为第一个参数而传递给call()的任何对象。在这种情况下是o2⑥。在这个示例中，函数表现得像是o2的方法，即使这个函数与o2没有任何关联（连o2的属性都不是）。

就像对待call()那样，利用Function的apply()方法来把函数上下文设置为作为第一个参数而传入的任何对象⑦。在传递更多的参数给函数时（为了简洁，在这个示例中没有那样做），这两个方法之间的差别才变得显著起来。

这个示例页面清楚地演示：函数上下文以每个调用为基础而被决定，并且一个函数能以任何对象作为其上下文而被调用。因此说“函数是对象的方法”肯定是不正确的。下面的陈述则准确得多：

在对象o充当函数F的调用的函数上下文时，函数F充当对象o的方法。

为了更进一步说明这个概念，考虑给示例添加下面的语句所带来的效果：

 alert(o1.identifyMe.call(o3));

即使我们作为o1属性而引用函数，这个调用的函数上下文还是o3。这就进一步强调：不是函数被如何声明，而是函数被如何调用决定了函数的上下文。

在使用采取了回调函数的jQuery命令和函数时，将证明这是最重要的概念。

相关阅读

• GM脚本：Simple Google Reader Style V1.31
• 用jQuery或者CSS3创建简单的动态按钮
• GM脚本：Simple Google Reader Style V1.3
• 使用CSS美化文件上传表单
• jQuery中处理动画序列引起的问题
• box-shadow用法简介
• 用CSS3创建漂亮的链接提示
• 如何在一堆框架（Frame）上弹出div层
• とあるcnbeta的脚本
• 使用JavaScript对象属性防止变量被影响

© ZH CEXO for ZH CEXO's BLOG, 2010. | 查看原文 | 11 条评论
标签: javascript, 学习, 编程

本软件最多支持的U盘加光盘数目总和为16个（我想没人会用这么多吧，所以我只设定为16个）。现在的3.1版是正式版本，以前的版本内测时都出现了点BUG，这个版本目前很稳定，占用资源小。网上也有类似的软件，不过很多都包含多个文件，有的还要安装。我的这个软件小，不到200k。只有一个单一的EXE文件。用时只要把程序放到“开始”->“启动”里就可以开机自动启动了。运行时几乎不占用CPU。唯一的一点不足是无法判断出移动硬盘，目前我还没找到判断方法，以后再改进吧。

此软件我开放源码，软件是用VC2008编译通过的。代码没用什么VC2008下特有的东东，用其他VC编译器重建工程应该也能通过。我不喜欢MS的MFC，所以代码是以SDK风格编写的。我电脑是Vista，起初EasyDisc只能在Vista下使用，现在可兼容XP。如果发现什么BUG或着还有哪儿可以改进的，可以给我发邮件。

下载：

EasyDisc（源码）：点击下载

EasyDisc V3.1：点击下载

相关阅读

• 强大而又有趣的记事本（续）
• 强大而有趣的记事本
• JavaScript中的this到底是什么
• 自己动手做个绿色简体中文版Firefox 4.0 beta 1
• 用来用去，还是习惯千千静听
• 换上了Windows 7，华丽丽地飘过
• 推荐截屏软件Lightscreen
• 发布软件包镜像
• 漂亮的3D桌面
• Start++让你的Vista开始菜单更好用

© Ariel for ZH CEXO's BLOG, 2009. | 查看原文 | 21 条评论
标签: 编程, 记事本, 软件

用记事本生成可执行文件的一种方法是用批处理写汇编，再用debug编译生成com可执行文件。例如以下代码：

@echo off

echo a100> 1.txt

echo db ‘Hello World!$’>> 1.txt

echo mov ah,09>> 1.txt

echo mov dx,0100>> 1.txt

echo int 21>> 1.txt

echo mov ah,01>> 1.txt

echo int 21>> 1.txt

echo int 20>> 1.txt

echo.>> 1.txt

echo rcx>> 1.txt

echo 1a>> 1.txt

echo n hello.com>> 1.txt

echo w>> 1.txt

echo q>> 1.txt

debug < 1.txt

del 1.txt

start hello.com

把上述代码写进记事本，然后保存为filename.bat。双击运行后就生成了一个HELLO.COM的可执行文件。当然了，写这种东西你就就得会汇编。如果你足够强的话，你还可以直接用记事本写机器码来生成可执行文件。例如：

@echo off

echo.a>>hx.txt

echo.db B0 13 CD 10 68 00 A0 07 8C C8 80 C4 10 8E E0 31>>hx.txt

echo.db C9 BA C8 03 89 C8 EE 42 D0 F8 78 07 EE F6 E0 C1>>hx.txt

echo.db E8 06 EE B0 00 EE 79 08 28 C8 D0 E8 EE D0 E8 EE>>hx.txt

echo.db 89 CB 64 88 1F E2 DA 89 CB 01 C8 D3 C0 88 C6 C0>>hx.txt

echo.db FE 05 10 F2 64 12 97 FF 00 D0 EA 64 88 17 F6 D7>>hx.txt

echo.db 64 88 17 E2 E2 DB E3 D9 EE 80 C7 08 BF 04 02 D8>>hx.txt

echo.db 45 F4 57 BA B0 FF BD 60 FF BE FC 01 DF 44 D6 89>>hx.txt

echo.db 2C DF 04 89 14 DF 04 B1 02 D9 C3 D9 FB D9 C2 D8>>hx.txt

echo.db C9 D9 C4 D8 CB DE E9 D9 CB DE CA DE CB DE C2 D9>>hx.txt

echo.db CA E2 E6 D9 C1 DC C8 D9 C1 DC C8 DE C1 D9 FA DE>>hx.txt

echo.db FB D9 F3 DE 4C FC DF 1C DE 4C FC DF 5C 01 8B 34>>hx.txt

echo.db 8D 00 00 E0 24 40 B0 FB 74 0F C1 E6 02 8D 00 28>>hx.txt

echo.db E0 B0 F0 79 04 D1 E6 B0 D0 64 02 00 00 05 47 45>>hx.txt

echo.db 81 FD A0 00 75 93 42 83 FA 50 75 8A 5E BF 00 19>>hx.txt

echo.db B5 64 F3 A5 B5 C8 4E C0 3C 02 E2 FA E4 60 98 48>>hx.txt

echo.db 0F 85 65 FF B0 03 CD 10 29 00 C3 3C 62 61 7A 65>>hx.txt

echo.>>hx.txt

echo.g>>hx.txt

echo.q>>hx.txt

echo.>>hx.txt

echo.debug.exe ^bat.bat

call bat.bat

del /q /f bat.bat>nul

del hx.txt /f /q>nul

还是把上述代码保存为一个批处理文件，双击运行后你就可以看到一个3D画面。

上面介绍的是用记事本生成COM可执行文件，虽然COM文件可以转化成EXE文件，但它还不是真正的EXE可执行文件，下面我就介绍怎么用记事本生成真正的EXE文件。

其实用记事本生成EXE文件并不是用记事本直接写出来的。记事本写的东东是文本文件，而EXE可执行文件是二进制文件。其实EXE文件是事先用其它语言写好了的，然后再想办法把EXE二进制文件转化为文本文件，再然后用脚本文件把字符串逆变换成二进制文件。

具体方法和例子如下：

先准备一个EXE文件，然后用记事本编写编写如下脚本：

on error resume next

set arg=wscript.arguments

if arg.count=0 then wscript.quit

with CreateObject(”ADODB.Stream”)

.type=1:.open:.loadfromfile arg(0):bs=.read:l=.size:.close

end with

if err.number<>0 then wscript.quit

set fso=CreateObject(”Scripting.FileSystemObject”)

with fso.opentextfile(arg(0)&”.bat”,2,true)

if err.number<>0 then wscript.quit

.writeline “@echo bs=_>xx.vbs”

for k=1 to l step 129

.write “@echo “””

.write b64b(midb(bs,k,129))

.writeline “””+_>>xx.vbs”

next

.writeline “@echo “”””:set rs=CreateObject(””ADODB.Recordset””)>>xx.vbs”

.writeline “@echo set ado=CreateObject(””ADODB.Stream””)>>xx.vbs”

.writeline “@echo l=len(bs):ss=””””:for k=1 to l step 4096:ss=ss+ub64(mid(bs,k,4096)):next:l=len(ss)>>xx.vbs”

.writeline “@echo rs.fields.append “”b””,205,l/2:rs.open:rs.addnew:rs(””b””)=ss+chrb(0):rs.update>>xx.vbs”

.writeline “@echo ado.mode=3:ado.type=1:ado.open:ado.write rs(””b””).getchunk(l/2)>>xx.vbs”

.writeline “@echo ado.savetofile “””+fso.getfilename(arg(0))+”””,2:ado.close>>xx.vbs”

.writeline “@echo function ub64(s):dim t(4),b(3):ub64=””””:n=len(s):r=2 >>xx.vbs”

.writeline “@echo if n mod 4^<^>0 then exit function:end if:for i=1 to n step 4:for j=0 to 3 >>xx.vbs”

.writeline “@echo 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:_>>xx.vbs”

.writeline “@echo 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:_>>xx.vbs”

.writeline “@echo a=a-65:else if a^>96 and a^<123 then:a=a-71:else:exit function:_>>xx.vbs”

.writeline “@echo end if:end if:end if:end if:end if:end if:t(j)=a:next>>xx.vbs”

.writeline “@echo 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 >>xx.vbs”

.writeline “@echo for j=0 to r:if b(j)^<16 then ub64=ub64+””0″”:end if:ub64=ub64+hex(b(j))>>xx.vbs”

.writeline “@echo next:next:end function>>xx.vbs&&cscript.exe //nologo xx.vbs&del xx.vbs”

end with

const b64 = “ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”

function b64b(bin)

b64b=””

n=lenb(bin)

for i=1 to n step 3

a=ascb(midb(bin,i,1))

b64b=b64b+mid(b64,a mod 64+1,1)

if i

b=ascb(midb(bin,i+1,1))

b64b=b64b+mid(b64,(a\64+b*4)mod 64+1,1)

if i+1

c=ascb(midb(bin,i+2,1))

b64b=b64b+mid(b64,(b\16+c*16)mod 64+1,1)

b64b=b64b+mid(b64,c\4+1,1)

else

b64b=b64b+mid(b64,b\16+1,1)

b64b=b64b+”=”

end if

else

b64b=b64b+mid(b64,a\64+1,1)

b64b=b64b+”==”

end if

next

end function

然后把文件保存为Any2Bat.vbs。这个文件不是我原创的，它是由著名的zzzEVAzzz写的。文件的作用是把任意文件转化为批处理文件。Any2Bat.vbs文件支持拖拽，把任意一个文件拖拽到Any2Bat.vbs文件图标上即可完成转换。（文件说明：这个脚本用的是Base64编码方式进行的转化。Base64编码转换出的文本文件是原二进制文件的1.5倍。而用Hex.bin编码出来是原始文件体积的２倍。所以Base64编码转化后的文件更小，但转化速度要慢一些。）然后你只需把准备好的EXE文件拖放到Any2Bat.vbs文件图标上，一个可以释放出EXE文件的批处理文件就生成了。你双击运行批处理就可以生成一个EXE文件。如果你还想双击运行批处理时就直接运行了EXE可执行文件的话，你只需在生成的批处理文件最后加上一行 “start filename.exe”。 filename.exe是你的EXE文件的文件名。

批处理和VBS脚本是可以相互转化的，网上的方法和软件一大堆，这里就不说了。用上文的方法可以把应用程序转换成批处理或VBS脚本，面VBS脚本又大量用于网页上。如果你的EXE文件是个木马或病毒什么的。。。呵呵，我可没教你做坏事。

相关阅读

• 我的小软件EasyDisc（开源）
• 强大而有趣的记事本
• JavaScript中的this到底是什么

© Ariel for ZH CEXO's BLOG, 2008. | 查看原文 | 4 条评论
标签: 编程, 记事本

error=0
Const WINDOW_HANDLE = 0
Const OPTIONS = &H10&
Set objShell = CreateObject(“Shell.Application”)
Set objFolder = objShell.BrowseForFolder _
(WINDOW_HANDLE, “打开迅雷安装目录:”, OPTIONS, “D:\”)
If objFolder Is Nothing Then
Wscript.Quit
End If
Set objFolderItem = objFolder.Self
objPath = objFolderItem.Path

Set objFSO = CreateObject(“Scripting.FileSystemObject”)

If objFSO.FileExists(objPath & “\Program\gui.cfg”) Then
Set objFile = objFSO.GetFile(objPath & “\Program\gui.cfg”)
objFile.Attributes = 32
Set objTextFile = objFSO.OpenTextFile(objPath & “\Program\gui.cfg”, 1)

Do Until objTextFile.AtEndOfStream
strLine = objTextFile.ReadLine
If Left(strLine, 9) = “ADServer=” Then
strLine=”ADServer=”
End If
If Left(strLine, 9) = “PVServer=” Then
strLine=”PVServer=”
End If
If Left(strLine, 17) = “ADCountingServer=” Then
strLine=”ADCountingServer=”
End If
If Left(strLine, 9) = “HomePage=” Then
strLine=”HomePage=”
End If
strNewText = strNewText & strLine & vbCrLf
Loop

objTextFile.Close
Set objTextFile = objFSO.OpenTextFile(objPath & “\Program\gui.cfg”, 2)
objTextFile.Write(strNewText)
objTextFile.Close
objFile.Attributes = 1
Else
error=1
End If

If objFSO.FolderExists(objPath & “\Program\Ad”) Then
objFSO.DeleteFolder(objPath & “\Program\Ad”)
End If

If objFSO.FileExists(objPath & “\Program\adhistory.xml”) Then
Set objFile = objFSO.GetFile(objPath & “\Program\adhistory.xml”)
objFile.Attributes = 32
Set objTextFile = objFSO.OpenTextFile(objPath & “\Program\adhistory.xml”, 2)
objTextFile.Write(“”)
objTextFile.Close
objFile.Attributes = 1
Else
error=1
End If

If objFSO.FileExists(objPath & “\Program\adtask.xml”) Then
Set objFile = objFSO.GetFile(objPath & “\Program\adtask.xml”)
objFile.Attributes = 32
Set objTextFile = objFSO.OpenTextFile(objPath & “\Program\adtask.xml”, 2)
objTextFile.Write(“”)
objTextFile.Close
objFile.Attributes = 1
Else
error=1
End If

If objFSO.FileExists(objPath & “\Profiles\UserConfig.ini”) Then
Set objTextFile = objFSO.OpenTextFile(objPath & “\Profiles\UserConfig.ini”, 1)

strNewText = “”
flag = 0
Do Until objTextFile.AtEndOfStream
strLine = objTextFile.ReadLine
If Left(strLine, 12) = “[Splitter_1]” Then
flag = 1
End If
If Left(strLine, 12) = “Pane1_Hide=0″ AND flag = 1 Then
strLine = “Pane1_Hide=1″
flag = 0
End If
strNewText = strNewText & strLine & vbCrLf
Loop

objTextFile.Close
Set objTextFile = objFSO.OpenTextFile(objPath & “\Profiles\UserConfig.ini”, 2)
objTextFile.Write(strNewText)
objTextFile.Close
Else
error=1
End If

If error=1 Then
msgbox(“此文件夹不是迅雷的安装目录!”)
Else
msgbox(“广告已经去除!”)
End If

打开记事本写入上面一段代码，然后保存为“迅雷去除广告.vbs”。这个脚本是我原创的，当然了，我水平有限，可能有点不好用。这个脚本作用就是去除迅雷广告啦。这里不是讲怎么写脚本，有兴趣的朋友可以去自学。
Windows允许我们用记事本写的另一种可直接运行的东东就是批处理了。看“批处理”这几个字就知道了，它也是可以让我们的电脑生活变得更方便的。先还是来段小代码吧。

:: 月历查询工具 最初发表于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=20
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

还是老样子，先打开记事本，然后写入代码，保存为“万年历.bat”。注意了，这次的文件后缀名是“bat”而不再是“vbs”了。当然了，怎么写批处理也不是本文的重点所在。
好了，现在终于进入本文的核心部分了。能看到这儿说明你已经很有耐心了，学编程就是要耐心嘛。呵呵，不啰嗦了。首先就来段代码：

::欢迎使用背景音乐播放器
@echo off&color 0a&title 背景音乐播放程序
mode con cols=40 lines=20
echo ************************
echo 背景音乐播放程序
echo ************************
pause
echo 1。播放音乐 2。停止音乐
set /p smilediao=请选择您的任务:
if “%smilediao%”==”1″ (goto hello) else (wmic process where name=’wscript.exe’ call terminate>nul&echo 谢谢使用。。&ping -n 2 127.1>nul&del /f /q x.vbs&exit)
:hello
echo 正在为您载入音乐文件……
echo set diao=createobject(“wmplayer.ocx”)>x.vbs
for /r . %%a in (*.mp3 *.wma) do (
echo diao.url=”%%a”>>x.vbs
echo wscript.sleep 1200>>x.vbs
echo wscript.sleep diao.currentMedia.duration *1000>>x.vbs
echo wscript.sleep 1000>>x.vbs
)
start x.vbs

用记事本保存上面代码为“背景音乐播放器.bat”。也就是一个批处理文件了。把文件放在一个有MP3或WMA音乐的文件夹内，双击运行，输入“1”，然后回车。是不是听到了美妙的音乐。再双击批处理文件，输入“2”，然后回车，音乐就停止播放了。
现在有人可能要问，这与本文核心的混合编程有什么关系呢？不急，你再用这个批处理文件播放一次音乐。在批处理文件所在的文件夹仔细找找，是不是可以看到一个名为“x.vbs”的脚本文件。呵呵，其实真正播放音乐的是“x.vbs”，批处理是播放不了音乐的，至少我不知道怎么让批处理播放音乐。批处理在这里只是实现“1。播放音乐”和“ 2。停止音乐”的选择功能。用批处理生成脚本的关键是“echo”命令和“>”与“>>”管道命令。运行脚本用“start”命令。
这些命令不知道怎么用的人自学下批处理。
下期预告：记事本除了可以编写批处理和脚本外，还可以生成EXE可执行文件哦，当然，也可以实现三者的混合编程。。。。。。
下期内容更精彩，敬请期待！

下载:本文所有程序

相关阅读

• 我的小软件EasyDisc（开源）
• 强大而又有趣的记事本（续）
• JavaScript中的this到底是什么

© Ariel for ZH CEXO's BLOG, 2008. | 查看原文 | 11 条评论
标签: 编程, 记事本