啥叫循环喃？循环就是在满足一定条件的时候不停地工作、执行相同的动作，但是当条件

不满足的时候，就立马罢工，退出来、不干！这就好比咱找了个工作，老板给的工资也挺不

错的，然后我们就把工资当做在这工作的条件，哪一天老板说不给发工资了，咱就不干活了，

甚至辞职了。（这里不涉及任何就业观之类的东西，只是个简单的比喻而已，好事者请飘过。）

循环有两种，死循环和“活循环（我们讲的这些啦，好像没有活循环这个，我发明的？）”，

所谓死循环就是一直那样干，直到终结，话说我们人生就是在死循环啊，不断地执行吃饭、

喝水的动作，直到心脏停止跳动。电脑呢，遇到有死循环的程序，就会一直执行，直到 down

机为止。记得批处理里面有个不很出名的死循环，代码很简单但是巨强大！

start

%o

运行之后，直接弹出 N 多命令提示符，直到死机（大家不要去试哦，否者后果自负！），呵

呵，由此可见死循环是很 NB 的，危害巨大，因此我们在编程的时候，要尽量避免死循环。

好了，我们切入正题！

【1】Next 这个循环又叫定长(值)循环，主要用于知道执行次数的循环。其基本结构为： For <变量> = <开始> To <停止> [Step <步进值>]

语句

...

Next

【注】"开始"指的是你变量的初值 "停止"指的是你变量的终值。

照它的结构，写个例子，反复弹出三次对话框：

Dim $i

For $i=1 To 3 Step 1

MsgBox(0,"For,,next 的例子 1","这是第"&$i&"次显示这个对话框，还有"&3-$i&"次窗口

将自动关闭")

Next

说明下，那个 step 在开始学的时候可能有点不明白，那么它是啥呢。做个简单地比喻吧，

好比说给你十袋大米让你搬到学校大门口，你一次能扛两袋别人只能扛一袋，你扛五次就把

大米扛完了，别人却需要扛十袋。在 for..NEXT 这个结构里面，变量初值与终值的差+1 就

17 是大米，步进值就是你一次扛大米的袋数。举个例子

Dim $i

For $i=1 To 6 Step 1

MsgBox(0,"For,,next 的例子 2","呵呵")

Next 弹出六次对话框 Dim $i

For $i=1 To 6 Step 2

MsgBox(0,"For,,next 的例子 2","呵呵")

Next 弹出三次对话框 最后喃，用我们所学到的写个倒计时的东东。 Dim $i

For $i=10 To 0 Step -1

TrayTip("for next 模拟倒计时","正在倒计时，还有"&$i&"秒后程序退出",100)

Sleep(1000)

Next

步进值可以是负数哦！呵呵！

【2】WEnd 这个循环结构让我想起大街上每年秋季的时候，商店打出招牌低价打折卖夏装的事情。这 个循环结构是用来表示，当满足某条件时，一直执行某动作。把上面那个例子用这个循环结 构写出来就是(不能执行，只是思路而已)：

while 季节=秋季

低价打折卖夏装

wend 简单解释下，执行该循环时，循环会先检查季节是否为秋季，为秋季则执行动作，否则不执 行。看看帮助文件里面的这个简单的小例子：

Dim $i

$i = 0

While $i <= 10

MsgBox(0, "$i 的值为:", $i)

$i = $i + 1

WEnd

程序先检查$I 是否<=10 因为$i 预先赋值为 0，所以会执行下去。$i = $i + 1 的作用就是每次

给$i 增加 1，最后当$i=10 执行了$i = $i + 1 后$i=11,不满足$i <= 10，循环停止!大家明白了

吧。呵呵。

【3】Do...Until

看到这个结构，想到小学时代造的一个句(那时候造句很厉害哦，呵呵，臭美下)“我一直

做作业直到妈妈让我吃饭”,这句话用这个循环结构表达就是

do 做作业 until

妈妈让我吃饭

当满足 until 后的条件时，do 后动作直接停止。举个简单例子：

18 Do

$num=InputBox("提示","请输入密码 123，否则程序一直弹出对话框")

Until $num="123"

【4】In...Next

（暂时不讲，因为平时没有咋用到）

19 二、常用函数串讲20

在 AU3 中，函数是最精彩的部分，有很多好玩的东东，让我带大家一起去函数的是假玩

玩吧！

【1】简单的对话框--msgbox 函数 这个函数喃，之前的课程中，我们已经讲到了，现在我们来系统地讲解下。咱们打开

帮助文件。标志呢，就是用来控制对话框所显示按钮的，我们先前的标志是 0，只显示“确

定”按钮，我们看下标志是 1 的时候是啥情况，是不是和它上面所对应的“确定”和“取消”

呢？输入下面脚本

msgbox(1,"msgbox 例子 1","显示的是确定和取消两个按钮") 呵呵，是不是出现“确定”和“取消”两个按钮了？其他的都差不多，都是只要把标志值换 成对应的值就可以了，另外呢，这些标志值是可以相加的，得到的是他们按钮的整合，也就 是说标志值相加之后，他们相加的两个值的按钮会一起显示在对话框上面（如果他们相加后 的值是已定义的标志值，那么就会显示相对应的标志值，但如果和是未定义的标志值，那么 将不会有任何显示，参考后面的表格一）。看看下面一个小例子：

msgbox(1+2,"msgbox 例子 2","标志相加显示 N 多按钮")

有显示

msgbox(3+4,"msgbox 例子 3","标志相加显示 N 多按钮") 没有显示，呵呵。因为 3+4=7 7 在标志值里面不存在 接下来就说对话框的图标啦。一般的，我们系统的对话框图标有以下几种： 使用方法就是在标志值那使用按钮列表值+图标列表值。 另外呢，我们还可以设置默认的按钮，方法和上面一样，把“相应的默认按钮”下面的值

加过去就 ok 了。注意看，第二个按钮是“默认按钮”

最后呢，要说到 msgbox 的返回值，啥叫返回值呢，我个人的理解就是返回值就是用来说

明操作成功与否或者都执行了哪些操作。譬如，在 msgbox 中，用户如果按了“确定”按钮，

那么它的返回值将是 1，“取消”按钮的返回值是 2（其他的参考表格二），我们一般是通过

返回值来与用户进行交互的。

If MsgBox(1,"MsgBox 的返回值测试","随便点一个按钮，我知道你点的是啥")=1 Then

MsgBox(0,"呵呵","你点的确定按钮")

Else

MsgBox(0,"呵呵","你点的是取消按钮")

EndIf

也可以这样写

Dim $anniu

$anniu=MsgBox(1,"MsgBox 的返回值测试","随便点一个按钮，我知道你点的是啥")

If $anniu=1 Then

MsgBox(0,"呵呵","你点的确定按钮")

Else

MsgBox(0,"呵呵","你点的是取消按钮")

EndIf

个人感觉后面那个要整洁点，推荐使用这种方式

dim $var=要取返回值的函数

条件选择语句

......

一般的取返回值都是用的这种方式，呵呵。

21 表格一

十进制标志

相应按钮列表

0

确定

1

确定 和 取消

2

终止,重试,和忽略

3

是,否,和取消

4

是 和 否

5

重试 和 取消

6 **

取消,重试,继续

十进制标志

相应图标列表

0

(无图标)

16

警告标志(一般用于错误提示)

32

问号图标

48

感叹号图标

64

由一个"i"和圆圈组成的图标(消息通知)

十进制标志 相应的默认按钮 第一

0

个按钮是默认按钮

256

第二个按钮是默认按钮

512

第三个按钮是默认按钮

十进制标志 相应模式 应

0

用程序模式

4096

系统模式(对话框带有图标)

8192

任务模式

十进制标志 其它

0

(无特别)

262144

消息框将具有顶层窗口属性

524288

标题文字及文本内容将右对齐

表格二

按下的按钮 (具体显示

的 名 字 取 决 于 操 作 系

返回值

统的语言版本)

OK(确定)

1

CANCEL(取消)

2

ABORT(终止)

3

RETRY(重试)

4

IGNORE(忽略)

5

YES(是)

6

NO(否)

7

TRY AGAIN **(重试)

10

CONTINUE **(继续)

11

十六进制标志

0x0

0x1

0x2

0x3

0x4

0x5

0x6

十六进制标志

0x0

0x10

0x20

0x30

0x40

十六进制标志

0x0

0x100

0x200

十六进制标志

0x0

0x1000

0x2000

十六进制标志

0x0

0x40000

0x80000

22 【2】显示一个输入框--inputbox 函数 明白英文的同学应该知道什么叫“input”？呵呵，对了，就是输入的意思。Inputbox 这个

函数就是提供一个用来输入的对话框的东东。它的基本语法为

Inputbox("提示输入对话框的标题","输入框上面的提示") 写这样一行代码

InputBox("这里是标题","针对下面要输入的东东，在这里发表点要求或者意见")

运行下的效果如图八

图八

但是，咱们输入了一点，啥也没有了。呵呵，还记得我们之前学的那个 messagebox 函数吗？

咱们让它来显示我们输入的内容。代码：

Dim $text

$text=InputBox("虫子樱桃提示您","请您输入要显示的文字")

If $text<>""Then

MsgBox(0,"哈哈","您输入的是"&@LF&$text)

Else

MsgBox(16,"警告","程序出错或者您木有输入")

EndIf

【3】关机函数 shutdown

这个函数和 CMD 中的 shutdown 是一样的，其函数参数如下

C:Documents and SettingsAdministrator>shutdown/?

用法: shutdown [-i | -l | -s | -r | -a] [-f] [-m computername] [-t xx] [-c "co

mment"] [-d up:xx:yy]

没有参数

-i

-l

-s

-r

-a

-m computername

-t xx

-c "comment"

-f

-d [u][p]:xx:yy

显示此消息(与 ? 相同)

显示 GUI 界面，必须是第一个选项

注销(不能与选项 -m 一起使用)

关闭此计算机

关闭并重启动此计算机

放弃系统关机

远程计算机关机/重启动/放弃

设置关闭的超时为 xx 秒

关闭注释(最大 127 个字符)

强制运行的应用程序关闭而没有警告

关闭原因代码

u 是用户代码

p 是一个计划的关闭代码

23

xx 是一个主要原因代码(小于 256 的正整数)

yy 是一个次要原因代码(小于 65536 的正整数)

在 AU3 中 shutdown 的具体格式是

Shutdown ( 代码 [, 理由]) 关机代码可以是下面的值:

0 = Logoff(注销)

1 = Shutdown(关机)

2 = Reboot(重启)

4 = Force(强制执行)

8 = Power down(关机)

16= Force if hung(强制挂起)

32= Standby(待机)

64= Hibernate(休眠)

可按需把相应数值相加.比如,要关机并断电,则应指定数值 9 (shutdown + power down = 1 + 8

= 9). 若设置了其它代码则待机或休眠将被忽略. 他们都可以用来关机，呵呵，我觉得是各有千秋。CMD 命令 shutdown 可以用自身命令参数

-t 来延长关机，但是没有休眠功能。另外 CMD 中的 shutdown 命令还可以通过-a 参数来取

消未执行的关机或者重启动作，而 AU3 中的则是直接执行，并不能取消。如图九，我们设

置 600 秒关机，然后取消。

图九 1 关机

24

图九 2 取消关机

【注】网上有很多什么要求你输入“XX 快说你是猪”之类的恶搞脚本就是利用的 CMD 命令的 shutdown，

当出现了如图九 1 的画面之后，打开运行（快捷键是“Win+R”）在运行中输入 CMD，打开命令提示符输

入 shutdown /a 即可取消关机。操作如图十

图十

AU3 中的 shutdown 命令是怎么用的呢？举一个例子，譬如说，我要注销，那么我查询帮助

看见注销的指令代码是 0，那么我就直接输入 shutdown(0)就注销了。其他的应该会了吧。

好奇的朋友有没有发现那个叫“强制执行”的参数，呵呵，这个的意思就是你在执行对应的

关机代码的时候，把要执行的关机代码加 4，就是强制执行关机的相关指令。譬如说你要执

行重启，那么你输入 shutdown(2)可以关机，输入 shutdown（2+4）也就是 shutdown（6），

就执行强制关机了。

【4】执行一个程序

呵呵，接着咱们来学习下怎么用 AU3 调用一已经存在于您计算机上的程序。

首先要介绍的是 Run 这个函数。输入以下代码，运行下，您看到了什么？

Run("")

哈哈，记事本被打开了。

25

图十一

那我想要执行其他程序怎么办啊？嘻嘻，只要把那个""换成其他程序的名字即

可，譬如说我们要打开注册表编辑器，就写 Run("")。有的朋友说，我执行 QQ，

那我就写 Run("")对吧，呵呵，咱们试试！写个脚本输入 Run("")，运行了，没

有任何反映，这个是为啥呢？因为 和 的路径都是在系统环境中的，

啥叫环境变量呢，环境变量简单的来说就是系统给程序的“人际关系”，当执行没有写完全

路径的程序时，程序先在同级目录找，同级目录找不到就到先前安排好的“人际关系”那里

去找，找到就执行。但是我们的 QQ 不是在“人际关系”之内的，所以 QQ 不会被执行。那

我们要怎样通过 AU3 执行 QQ 呢？在桌面找到 QQ 的快捷方式图标，右键选择，选择“属

性”，出现图十二的界面。

图十二

26

赋 值 “ 目 标 ” 后 面 的 那 一 串 字 符 ， 加 上 run ， 写 成 run （ "C:Program

"），运行下。出现如图十三的界面

图十三 [注]环境变量的一些资料 环境变量是一个具有特定名字的对象，它包含了一个

或者多个应用程序所将使用到的信息。例如 path，当 要求系统运行一个程序而没有告诉它程序所在的完整路径时，系统除了在当前目录下面寻找此程序外，还 应到 path 中指定的路径去找。用户通过设置环境变量，来更好的运行进程。

1.环境变量的设置有几种方式？

设置环境变量有两种方式：第一种是在命令提示符运行窗口中设置；第二种是通过单击“我的电脑→属性→

高级”标签的“环境变量”按钮设置。需要注意的是，第一种设置环境变量的方式只对当前运行窗口有效，关

闭运行窗口后，设置就不起作用了，而第二种设置环境变量的方式则是永久有效。

2.如何在命令提示符窗口中设置环境变量？ 在“开始→运行”框中输入“cmd”后按“确定”按钮，出现命令运行窗口。在命令提示符下输入“set”即可查看环 境变量设置。要查看具体某个环境变量的设置，比如要查看

path 环境变量的设置，可以输入“set path”。要 创建一个环境变量，比如要创建一个名为 aa 的，值为“c:”的环境变量，可以输入“set aa=c:”命令。而要删除 一个环境变量，比如要删除 aa 环境变量，则可输入“set

aa=”命令（注意=后面不能有空格）。如何更改一个 环境变量的设置呢？更改环境变量有两种情况：一是追加方式，即在不改变环境变量现有设置的情况下， 增加变量的值，比如要给环境变量 aa 增加一个值为“D:”的设置，可以输入“set aa=%path%;D:”。另一种是完 全修改方式，对于这种方式，我们可以采用直接创建一个环境变量的方法来实现。

3 其他修改方法

在 windows 操作系统中可以通过我的电脑-〉属性-〉高级，来设置系统的环境变量，然而在此设置的环境

变量是否在注册表中具有对应的项呢？答案是肯定的。而在.net 中提供了一个类来获取系统的环境变量及

其值。 环境变量分为两类：用户变量与系 统 变 量，在注册表中都有对应的项。 其中用户变量所

在 位 置 ： HKEY_CURRENT_USEREnvironment ； 系 统 变 量 所 在 位 置 为 ：

HKEY_LOCAL_MACHINESYSTEMControlSet001 ControlSession ManagerEnvironment。 另外

也可以右击我的电脑——高级——环境变量——在系统变量里有 path 选项——双击打开——在原有变量的

基础上添加英文状态下的分号——然后将路径名输入即可。（切记，不要删除原先的系统变量，只要用分号

隔开，然后添加）

4.用户变量和系统变量的关系是什么？ 点击“我的电脑→属性→高级”标签的“环境变量”按钮，出现“环境变量”对话框，如果当前是以 Administrator 登录系统的用户，对话框的上面为 Administrator 的用户变量，对话框的下面为系统变量（即相当于系统中 所有用户的用户变量）。有的时候我们会看到在用户变量和系统变量中都存在某一个环境变量，比如 path， 那么 path 的值到底是用户变量中的值还是系统变量中的值，或者两者都不是呢？答案是两者都不是。path 变量的值是用户变量中的值与系统变量中的值的叠加。

5.改变环境变量和环境变量中的值应该注意什么？

27 环境变量和环境变量的值不要含有空格，也不要用中文，切记！

6常见环境变量

%ALLUSERSPROFILE% 局部 返回所有“用 户 配 置 文 件”的位置。

%APPDATA% 局部 返回默认情况下应用程序存储数据的位置。

%CD% 局部 返回当前目录字符串。

%CMDCMDLINE% 局部 返回用来启动当前的 的准确命令行。 %CMDEXTVERSION% 系

统 返回当前的“命令处理程序扩展”的版本号。 %COMPUTERNAME% 系统 返回计算机的名称。

%COMSPEC% 系统 返回命令行解释器可执行程序的准确路径。

%DATE% 系统 返回当前日期。使用与 date /t 命令相同的格式。由 生成。有关 date 命令的详

细信息，请参阅 Date。

%ERRORLEVEL% 系 统 返 回 最 近 使 用 过 的 命 令 的 错 误 代 码 。 通 常 用 非 零 值 表 示 错 误 。

%HOMEDRIVE% 系统 返回连接到用户主目录的本地工作站驱动器号。基于主目录值的设置。用户主目

录是在“本地用户和组”中指定的。

%HOMEPATH% 系统 返回用户主目录的完整路径。基于主目录值的设置。用户主目录是在“本地用户和组”

中指定的。

%HOMESHARE% 系统 返回用户的共享主目录的网络路径。基于主目录值的设置。用户主目录是在“本地

用户和组”中指定的。

%LOGONSEVER% 局 部 返 回 验 证 当 前 登 录 会 话 的 域 控 制 器 的 名 称 。

%NUMBER_OF_PROCESSORS% 系统 指定安装在计算机上的处理器的数目。

%OS% 系统 返回操作系统的名称。Windows 2000 将操作系统显示为 Windows_NT。

统 指定可执行文件的搜索路径。

%PATH% 系

%PATHEXT% 系 统 返 回 操 作 系 统 认 为 可 执 行 的 文 件 扩 展 名 的 列 表 。

%PROCESSOR_ARCHITECTURE% 系 统 返 回 处 理 器 的 芯 片 体 系 结 构 。 值 : x86 ， IA64 。

%PROCESSOR_IDENTFIER% 系统 返回处理器说明。

%PROCESSOR_LEVEL% 系统 返回计算机上安装的处理器的型号。

统 返回处理器修订号的系统变量。

%PROCESSOR_REVISION% 系

%PROMPT% 局部 返回当前解释程序的命 令 提 示 符设置。由 生成。 %RANDOM% 系统

返回 0 到 32767 之间的任意十进制数字。由 生成。 %SYSTEMDRIVE% 系统 返回包含

Windows XP 根目录（即系统根目录）的驱动器。 %SYSTEMROOT% 系统 返回 Windows XP 根目

录的位置。

%TEMP% and %TMP% 系统和用户 返回对当前登录用户可用的应用程序所使用的默认临时目录。有些应

用程序需要 TEMP，而其它应用程序则需要 TMP。

%TIME% 系统 返回当前时间。使用与 time /t 命令相同的格式。由 生成。有关 time 命令的详

细信息，请参阅 Time。

%USERDOMAIN% 局部 返回包含用户帐户的域的名称。

%USERNAME% 局部 返回当前登录的用户的名称。

%UserPrefix% 局部 返回当前用户的配置文件的位置。

%WINDIR% 系统 返回操作系统目录的位置。

而今世界是个充满个性的世界，咱们登陆 QQ，怎么能不个性一把呢？接下来咱们把我们登

陆 QQ 时的窗口“个性化”一下吧。这就要用到我们的 WinSetTitle 函数了，这个函数就是

设置窗口标题的意思，用法，(*^ ^*) 嘻嘻„„，查帮助去。输入以下代码：

Run("C:Program ")

WinWaitActive("QQ2010")

28 WinSetTitle("QQ2010","","AU3 爱好者联盟专用 QQ")

[注]请根据您个人的 QQ 安装路径来修改。WinWaitActive 函数用来暂停脚本等到指定窗口为活动时才执行。

运行了，出现什么呢？看图十四

图十四

但是，我们这个脚本写得太局限性了，要是我们想把所有当前活动的窗口的标题都加上“AU3 爱好者联盟专用”该怎么写呢？我们要在这里加两个函数，WinGetTitle 函数用来获取窗口 标题，StringInStr

用来检测是否 A 字符串中含有 B 字符串，同样的，这俩函数去查帮助文 件吧，我即使讲也是在 ctrl+c 和 ctrl+v 而已，没有意思。代码如下

#include <3>

#include <3>

#include <3>

Dim $title

AdlibRegister("listen")

GUICreate("",0,0)

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

EndSwitch

WEnd

Func listen()

$title=WinGetTitle("[active]")

If StringInStr($title,"AU3 爱好者联盟专用")=0 Then

WinSetTitle($title,"","AU3 爱好者联盟专用"&$title)

EndIf

EndFunc

执行脚本后，无论您打开什么窗口，前面都会有"AU3 爱好者联盟专用"的字样，是不是很酷。

如果您要隐藏右下角的托盘图标，请在脚本最前面加#NoTrayIcon 即可。效果图

29 图十五

标题是改了，那咱们能不能来点像 VISTA 系统的透明效果呢？我们发现帮助中函数参考--

窗口管理中有个 WinSetTrans 函数，它就是我们要实现此功能的核心。直接在我们上面那

个脚本中添加一行。（这个函数设置的透明度值是 0~255，255=不透明,0=不可见，按照自己

的需求酌量修改。O(∩_∩)O~），我修改后的代码如下：

#include <3>

#include <3>

#include <3>

Dim $title

AdlibRegister("listen")

GUICreate("",0,0)

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

EndSwitch

WEnd

Func listen()

$title=WinGetTitle("[active]")

If StringInStr($title,"AU3 爱好者联盟专用")=0 Then

WinSetTitle($title,"","AU3 爱好者联盟专用"&$title)

WinSetTrans("AU3 爱好者联盟专用"&$title,"",170)

EndIf

EndFunc

运行后的效果如图十六

30

图十六

讲了这么多，差点漏掉了一点最重要的，(*^ ^*) 嘻嘻„„，那就是----------用 run 来隐藏

运行程序！我们这里以运行 cmd 命令为例，因为这个的应用最典型嘛！一个简单的脚本，

输出 C 盘的文件目录到 D 盘 文件。

不隐藏版

Run(@ComSpec&" /c tree/f c:>d:")

运行后出现黑框，如图十七

图十七

隐藏版

Run(@ComSpec&" /c tree/f c:>d:","",@SW_HIDE,"")

执行和上面那个效果一样，但是不显示黑框。

除了 Run 之外，还有个 Shellexecute 可以用来执行程序，不过它较 Run 更为“通吃”一点，

为什么呢。在任意位置建一个 txt 文件，譬如我们在 D 盘根目录下建立。分别执行下面两行

脚本：

run("d:") Shellexecute("d:") 您会发现执行第一行代码是没有任何反应的，而第二行代码执行后则用记事本打开了在 D 盘的 的这个文件。这是为什么呢？这是因为

shellexecute 执行程序时会调用与程序或 者文件相关联的程式来完成操作。而 run 只能直接执行 exe 文件，执行 msi 程序文件或者其 他文件时，需要在前面加上执行的关联程序。如果我们把上面的第一行脚本改成如下样子，

31 您会发现 D: 这个文件被打开了。

run(" d:")

[注]run 在执行 msi 执行程序时需要写成 Run("msiexec "),如果您要运行一个程序或者打开文件并需要

等 待 打 开 的 程 序 或 者 文 件 关 闭 才 运 行 后 面 的 程 序 或 执 行 后 面 的 动 作 ， 请 用

Runwait

或 者

shellexecutewait.

【5】将窗口玩转到底--其他几个与窗体相关的函数

您 是 不 是 个 偶 尔 想 搞 点 恶 作 剧 的 人 呢 ？ 呵 呵 ， 下 面 咱 们 用 AU3 的 一 个 函 数

WinSetState 来搞个小恶作剧。Winsetstate 这个函数用来设置窗口的状态，在帮助中，该函

数可设置的状态有七种，分别是@SW_HIDE（ 隐藏窗口），@SW_SHOW(显示以前隐藏的

窗口)，@SW_MINIMIZE(最小化窗口)，@SW_MAXIMIZE(最大化窗口)，@SW_RESTORE

(撤销窗口的最小化或最大化状态) ，@SW_DISABLE(禁用窗口)，@SW_ENABLE(使窗口

可用),，函数的格式很简单. WinSetState ( "窗口标题", "窗口文本", 状态 ) 。好啦！看代码，

因为这是个演示，所以只是恶搞几秒钟，几秒钟后自动恢复!尽管如此，也存在未可知的风

险，为避免您的电脑出现各种奇怪的毛病，请谨慎使用下列代码！

WinSetState("Program Manager","",@SW_HIDE)

Sleep(8000)

WinSetState("Program Manager","",@SW_SHOW)

[注]运行了上面的这个脚本，桌面的所有图标会消失，8 秒钟后自动恢复。

WinSetState("Program Manager","",@SW_DISABLE)

Sleep(8000)

WinSetState("Program Manager","",@SW_ENABLE)

[注]运行了上面的这个脚本，将不能桌面上的项目进行任何操作，8 秒钟后自动恢复。当然，您也可以按 ctrl+alt+del 打开任务管理器，结束 ，然后选择“文件-新建（任务）”，输入“”即可。

下面呢，我们来做一个闪烁窗口文字的效果，O(∩_∩)O~，用到的函数是 WinFlash,具体的 用法参考帮助文档。

Run("")

WinWaitActive("[CLASS:Notepad]")

WinFlash("[CLASS:Notepad]","", 4, 500)

【6】闪屏没问题

不知道朋友们有没有见过有的软件，是带一张闪屏的，很是漂亮，接下来咱们就用 AU3 中

的函数 SplashImageOn 来做一个！该函数的基本格式是 SplashImageOn ( "标题", "图片文件

的路径" ），举个简单的例子：

SplashImageOn("闪屏","E:")

Sleep(5000)

运行效果如图十八（当然条件是您 E 盘根目录存在一张名为 test 的 jpg 格式图片，您也可

以吧路径换成您自己想要设置的图片路径。该函数支持 BMP,GIF,或 JPG 三种格式的图片。）

图十八

32 【7】窗口是这样练成的

现在我们开始说 GUI，这是我觉得 AU3 最牛 X 的地方，因为我没有见到过有哪一种脚本

语言可以像 AU3 一样编写出丰富的 GUI （就是图形用户界面，其英文是 Graphical User

Interface）。好吧，其他的就不吹牛了，直接开始写脚本。我们这里是用 KODA 编辑器来做

的，我刚学 GUI 的时候，不知道这个东东，走了很长的歪路，不过呢，建议你在看这节内

容的时候，先看下帮助文档，至少知道那个函数是啥意思，遇到问题也好解决不是。

图十九 打开 KODA 编辑器

打开之后，该编辑器默认就为我们建立一个 GUI 窗体，下面我会以图的方式来说明具体的

操作：

选中窗体，然后在左边找到 Form1 的 Caption 选项，输入您要自定义的窗口标题，譬如说我

们这里输入“我们的第一个 GUI 窗体”，您会发现窗体的标题已经变成“我们的第一个 GUI

窗体”了。

图二十 基本参数说明

设置下窗体颜色，点击右上角的“运行预览窗口”（快捷键是 F10）即可预览窗体：

33

图二十一

图二十二窗体预览效果

可是，现在这个界面说实话---丑陋至极，那么我们怎么用一张图片来作为它的背景呢？窗体

的属性这里并没有提供像“autorun”或者“Apm”这类的光盘界面制作软件一样的用一张图

片作为窗体界面的选项。那么我们怎么办呢？我们可以借助创建一个 Image 框来实现。在

Kode 编辑器上面找到如图的项目：

图二十三

然后在我们之前创建的窗体上单击，出现一个小框，

图二十四

根据自己的需要调节好大小：

具体说明，请看下图：

34

图二十五

将 IMAGE 控件调整为合适大小之后，选中，然后在左边的对象检查器找到 “Picture”，并

将鼠标光标移动进去，按下，开始选择您想要加入为背景的

图片，选择

,选择好图片之后会有您选择图片的预览图

图二十六

35

图二十七

接下来我们再在界面上加一个按钮，找到如图所示的地方，单击，然后再在 GUI 界面设计

那单击一下，就会出现一个名为 button1 的按钮，同样的，您可以像调整 image 那样来调整

它的大小位置，也可以如调整框体的属性那样设置它的按钮显示（caption）、颜色（color）

等。

图二十八

图二十九

通过图二十八上面的其他按钮，我们可以创建其他的东西，下面，将对应图标创建的东东贴 图出来，方便大家使用：

36

图三十

主菜单设计：

在 GUI 上添加该控件之后，只会看到

置在 GUI 任何位置，只要不影响使用即可）并在左边的“对象检查器”中找到如下图的地

这样的小块，您需要选中该小块，（该小块可以放

方，按下，然后打开如图三十二显示为“菜单设计器”的界面。

图三十一

图三十二

在这个界面上会出现一个黑框，具体说明如下：

图三十三

编辑好之后，直接关闭菜单设计器即可。

图三十四

37

这时您会发现，GUI 上面已经有了菜单

图三十五

标签：

图三十六

所谓标签，说简单就是显示在 GUI 上面的文字。操作方法和前面的那些控件很相似，主

要是通过“对象查看器”来设置字体颜色、字体大小还有 caption 等属性，这里我们来建一

个“欢迎来到 AU3 爱好者联盟”的标签，字体颜色设置为蓝色

图三十七

38

图三十八 效果图

输入框：

图三十九

输入框用来提供给予人输入，相当于一个始终显示的 inputbox。

图四十

这里的这个 Input1 是用来设置输入框中默认显示的内容。如果您不想在输入框中显示，请

输入空格。 后面的几个控件很简单，和前面的内容有很大雷同，大家自己琢磨下吧。只是请注意两个地 方。

图四十一

也就是列表框，呵呵，注意的是下面这点。

39

图四十二

在新建组合框即 groupbox 以及其他一些控件的时候，很可能会出现下面的情况---先前建立

的控件被遮盖了。（一般的 groupbox 在设置其相应属性后在旁边空白处点击即可正常恢复，

其他控件被覆盖时显示的方法见后）

图四十三

解决方法是，选择您要调整的控件，右键选择“控件---移到后面”即可。当然在实际运用中， 对于一些容易“跑路”的控件，还需要将他们设置为禁用。具体说明见紧接着的 GUI 常用 函数。

40

图四十四

编辑好您的 GUI 之后，我们接下来需要做的是生成代码。具体操作请看下面的图：

图四十五

图四十六

GUI 的常用函数

GUI 是英文 Graphical User Interface 的简写，翻译成中文就是图形化用户界面。之前讲了使

41 用 Koda 编辑器来建立 GUI，现在我们来具体讲一些与 GUI 相关的函数。

GUICreate 函数

创建一个 GUI 界面的第一步是建立一个主窗口，而这个函数正是这第一步要用到的。通

过这个函数，我们可以按照自己的意愿设定窗口的大小、位置，为创建其他控件提供条件与

空间。该函数的语法格式为

GUICreate ( " 窗口标题" [, 宽度 [, 高度 [, 左侧 [, 顶部 [, 样式 [, 扩展样式 [, 父窗

口]]]]]]] )

和 Msgbox 灰常类似，很多 GUI 相关的函数也是有参数的。在 GUI 里面的参数主要有

两类：样式与扩展样式。如果您查看一下帮助文件中关于样式的内容，您会发现有很多种方

法可以用来改变和设置您的 GUI 以及它们上面的控件的样式。但是，需要提醒您的是，当

您在同时使用多个样式（复合样式）的时候，就必须使用 BitOr 这个函数。即使在帮助文件

中偶尔看见有用+的操作来定义复合样式，那也是预先定义您了使用 BitOr 的。具体说明如

下：

为了帮助您理解为何我们要优先使用 BitOr 而非其他的那些+的操作，我们先来说说

BitOr 是什么意思？概括地说，BitOr 发生在两个或两个以上的整数值，并返回按位“或”“二

进位表示”的整数。返回的结果始终是一个整数，万一参数都是零/空值，零/ 空值参数将不

会在按位处理“或”。因此，正如帮助文件中所显示的那样，执行3按位操作（0011二进制）

和6（在0110二进制）是7（二进制0111 ），而不是9（二进制1001 ），因为其结果必然是使

用+运算符。要显示如何参数为空值 /零不处理，我们可以添加一个0到我们要操作的数的二

进制前面。为加深理解，用帮助中那个例子来张图，(*^ ^*) 嘻嘻。

图四十七

此外，在 AU3中还有个 BitAnd，它和 BitOr 是相反的，也就是只有对应位全部为1的时候，

才为1. 如

$x = BitAND(13, 7) ;x == 5 ,因为 1101 AND 0111 = 0101

另外，有个问题就是，通过 GUICreate 创建的 GUI 可能会不显示出来，这是为啥呢？呵呵，

因为在 GUI 创建中还需要使用 GUICtrlSetState 这个函数。如果只是单纯的设置 GUI 的属性

为显示，写成 GUICtrlSetState（）或者 GUICtrlSetState（@sw_show）是一样的。但是您要

设置其他控件就要写成 GUICtrlSetState（控件 ID，状态）的样式。具体是怎么操作的，请

看帮助文件。

创建控件

您可以往您的 GUI 上面添加很多的控件用以丰富您的 GUI。这里呢，我们只讲几个

42

基本的控件，其他的控件您可以通过查阅帮助文件进行学习，因为那个详细的很。要时

刻相信 GUI is simple 好啦，切入正题。

创建一个图片控件

基本格式为

GUICtrlCreatePic ( 文件名, 左侧, 顶部 [, 宽度 [, 高度 [, 样式 [, 扩展样

式]]]] )

如果您选择用一个图片作为背景，那么，您还需要使用 GUICtrlSetState 来设置其为不可操

作（禁用）。这样做的好处是可以避免图片控件和其他控件间相互的干扰。 GUICtrlSetState（图片控件 ID，@sw_disable）

【关于控件 ID】在 Au3中，我们可以通过“变量名=创建 GUI 的函数”来指定控件的 ID，

方便后面的调用。例如我们要建立一个图片控件并指定它的 id 为$image 可以这样写代码：

$image = GUICtrlCreatePic("..", 50, 50, 200, 50) 创建一个图片控件之后，以后要是您想换个图片，该怎么办呢？请用下面这个函数： GUICtrlSetImage

( 控件 ID, 文件名 [, 图标名 [, 图标类型]] )

创建按钮 创建按钮，请使用下面的这个函数

GUICtrlCreateButton ( "文本", 左侧, 顶部 [, 宽度 [, 高度 [, 样式 [, 扩展样式]]]] )

设置按钮的数据

GUICtrlSetData ( 控件 ID, 数据 [, 默认值] ) 创建输入框 输入框使您可以从用户那里获得文本信息，它有单行与多行两种 单行输入框的创建：

GUICtrlCreateInput ( "文本", 左侧, 顶部 [, 宽度 [, 高度 [, 样式 [, 扩展样式]]]] )

多行输入框的创建

GUICtrlCreateEdit ( "文本", 左侧, 顶部 [, 宽度 [, 高度 [, 样式 [, 扩展样式]]]] )

设置控件的数据，用的和上面那个是一样的，就不写了。

创建标签

使用函数

GUICtrlCreateLabel ( "文本", 左侧, 顶部 [, 宽度 [, 高度 [, 样式 [, 扩展样式]]]] )

设置控件数据，同上。

获取控件数据

建立好我们的 GUI 之后，您是否会想给您的 GUI 加一点功能呢？比如说您有一个输入框，

在里面输入东西以后，您希望您的脚本在您按下按钮之后把文字为您读出来（因为我的系统

没有中文的语音库，所以只支持英文啦）。这里我们需要用到一个函数.

GUICtrlRead ( 控件 ID [, 高级] )

以下是我的脚本

#include <3>

#include <3>

#include <3>

#include <3>

#include <3>

#Region ### START Koda GUI section ### Form=

Dim $nr

$Form1 = GUICreate("简易英文阅读器", 409, 223, 192, 114)

43 $edit=GUICtrlCreateEdit("", 16, 16, 305, 137)

$Button1 = GUICtrlCreateButton("开始阅读", 40, 168, 235, 25)

$Button2 = GUICtrlCreateButton("退出", 304, 168, 75, 25)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $Button1

$tnr=GUICrlRead($edit)

If $nr=""Then

$nr="You must type in words"

EndIf

speak($nr)

Case $Button2

Exit

EndSwitch

WEnd

Func speak($nr)

$Voice = ObjCreate("e")

$ ($nr)

EndFunc

【8】键盘模拟--将自动化进行到底 首先，打开您的 SCITE 编辑器，输入以下代码，

Run("")

WinWaitActive("无标题 - Notepad2") Send("你好啊，欢迎来到 AU3爱好者联盟")

额，我电脑用的是用 Notepad2替换过的 Notepad，所以标题会不一样，使用系统自带记事本

的话，将代码中的 WinWaitActive("无标题 - Notepad2")改成 WinWaitActive("无标题 - 记事

本")即可。你会发现脚本自动在打开的记事本中输了汉字：

图四十八

怎么样啊，忒有趣吧!当然在 AU3中，键盘鼠标模拟不止是能做这些。接下来，就是见证奇

迹的时刻！

在 AU3中模拟键盘鼠标操作的函数，主要是以下几个.

HotKeySet ( "热键" [, "函数名"] )

Send ( "按键" [, 标志] )

44 ControlClick ( "标题", "文本", 控件 ID [, 按钮 [, 点击次数 [, X 坐标 [, Y 坐标 ]]]] )

ControlFocus ( "窗口标题", "窗口文本", 控件 ID )

请大家参考帮助文档来学习这几个函数。本人才疏学浅，而这几个函数又是特别重要的，希

望大家好好学习，不明白的可在论坛发帖讨论！

【9】字符串操作 您是否有时候想把提取某个字符串的的部分字串或者想去掉它两头的字符呢？通常情况

下，我们把这种通过不同方法来实现以上目的的操作叫做字符串操作。在 AUTOIT 中，关

于字符串操作的函数都是位于帮助文件“字符串管理”这一块的。在这节，我们将讲讲几个

简单的函数。 在接下来的大多数例子中，我将使用下面的这个字符串，因为它包含了英文中的所有字母， 而且操作也行对简单。

"The quick brown fox jumps over the lazy dog"

[1]字符串长短——String Len 这个函数用于返回字符串的长度

StringLen ( "字符串" )

例如：

MsgBox(0, "Length of string", 'The length of "The quick brown fox jumps over the lazy dog" is '

&StringLen("The quick brown fox jumps over the lazy dog") & ' characters')

[2] StringInStr 此函数用来返回指定字符串或者字符在目标字符串中出现的位置。

StringInStr ( "字符串", "子字符串" [, 区分大小写 [, 出现次序 [, 开始 [, 数量]]]] )

例如

MsgBox(0, "Length of string", 'The first occurrence of fox is at' & _

StringInStr ("The quick brown fox jumps over the lazy dog", "fox") & _

' characters from the left-hand side of the string') [3]字符串拆分——StringSplit 这个函数用来以指定分隔符把字符串拆分成若干子串。 StringSplit ( "字符串", "分隔符" [, 标志 ] )

例如

$string = "The quick brown fox jumps over the lazy dog"

$aReturn = StringSplit ($string, " ")

For $i = 1 to $aReturn[0]

MsgBox (0, $i, $aReturn[$i])

Next

[4]删去“空白符”——StringStripWS

这个函数用于删去字符串中的"空白符".

StringStripWS ( "字符串", 标志 )

例如

$string = "The" & @CR & "quick" & @CR & "brown" & @CR & "fox" & @CR & "jumps" &

@CR & "over" & @CR & "the" & @CR & "lazy" & @CR & "dog"

$string2 = "The" & @CRLF & "quick" & @CRLF & "brown" & @CRLF & "fox" & @CRLF &

"jumps" & @CRLF & "over" & @CRLF & "the" & @CRLF & "lazy" & @CRLF & "dog"

$string2 = "The quick brown fox jumps over

lazy dog "

the

45 MsgBox (0, "", StringStripCR ($string))

MsgBox (0, "", StringStripWS ($string2, 4))

[5]其他

也许有时候您需要处理很多字符串，下面是一些简单的方法：

例子1

#include <3>

$string = "1234567890"

$array = _StringSplitBy($string, 2)

_ArrayDisplay($array)

Func _StringSplitBy($string, $count)

$c = 1

$split = StringSplit($string, "") Local

$rArray[UBound($split)]

ConsoleWrite(UBound($split) & @CRLF)

For $i = 1 To UBound($split) - 1 Step $count

ConsoleWrite("I = " & $i & @CRLF)

For $x = $i To $i + $count -1

ConsoleWrite("X = " & $x & @CRLF)

$rArray[$c] &= $split[$x]

Next

$c += 1

Next

ReDim $rArray[$c]

$rArray[0] = $c - 1

Return $rArray

EndFunc ;==>_StringSplitBy

例子2

#include <3>

$string = "1234567890"

$array = _StringSplitBy($string, 2)

_ArrayDisplay($array)

Func _StringSplitBy($string, $count)

Local $rArray[StringLen ($string)]

Local $x = 1

For $i = 1 To StringLen ($string) Step $count

$rArray[$x] = StringMid ($string, $i, $count)

$x += 1

Next

ReDim $rArray[$x]

$rArray[0] = $x - 1

Return $rArray

EndFunc ;==>_StringSplitBy

例子3

#include <3>

46

$string = "1234"

$aArray = MyStringSplit($string)

_ArrayDisplay($aArray)

Func MyStringSplit($string)

Local $len = StringLen($string) / 2

Local $aArray[$len + 1]

$aArray[0] = $len

For $i = 1 To $len

$aArray[$i] = StringMid($string, $i*2-1, 2)

Next

Return $aArray

EndFunc

试试以上脚本，并选择您最喜欢的脚本，他们最终实现的功能都是一样的，所以无论您用哪

个都是可以的。它们主要表明了在字符串操作中达成一个目的可以用很多种方式。所以，任

何问题的解决方式，都不是唯一的。

【10】FileInstall 这个函数用于包含并装入指定文件到编译后的脚本程序中.，在一些情况下，我们的脚本需 要调用外部的文件或者执行程序，但是我们又不想弄 N 多的文件拷来拷去，我们就可以使 用这个函数来将我们要用到的文件或者程序编译进我们的脚本中去。

FileInstall ( "源文件", "目标路径" [, 标志] )

譬如：

我们在 C 盘根目录建立一个名为 的文本文件，然后使用如下脚本可以将其编译进

我们的脚本中，并用记事本打开。

FileInstall("c:",@TempDir&"")

Run(" "&@TempDir&"")

【11】_FileListToArray

这是一个用户自定义函数（UDF），在使用的时候必须使用#Include <3>来将脚本包含

进来，这点很像 ActionScript 里面的在使用一些属性或者方法之前必须导入包，Au3在使用

用户自定函数的时候，必须使用#Include <函数文件>来包含。这个函数的使用格式是

#Include <3>

_FileListToArray(路径 [, $sFilter = "*" [, $iFlag = 0]])

例子

#include<3>

Dim $path,$list,$i

$path=FileSelectFolder("请选择您要生成目录的文件夹","")

$list=_FileListToArray($path,"*",1)

For $i=1 To $list[0]

Run(@ComSpec&" /c echo "&$list[$i]&">>D:","",@SW_HIDE,"")

Next

MsgBox(0,"哈哈","目录生成完毕，请到 D 盘根目录查看")

47 三、篇外篇48