Saturday, 20. January 2007, 15:35:17
译自
Support Forum FAQ
作为论坛里的一个资深潜水员，我注意到许多被初学者反复询问的问题都很容易找到答案。这些问题大多不会被及时回答，原因就是提问者没有事先在论坛搜索答案，因此相同的答案往往会在不同的帖子里出现很多次。或者说，作出这些回答已经令人厌烦、生气，因为大家之前已经看到同样的问题被问了无数遍。所以我在这里贴出许多被新手反复提及的问题的答案，我会给所有的问题编号并列出一个方便查找的索引。
Q1. 我怎样才能DEBUG我的脚本？ A1. 这个问题有无数个答案，不过最有效的还是从SciTE4AutoIt3开始，大多数人都使用这个软件来编写脚本。在debug方面SciTE有下面几条优势：
- Syntax会即时高亮不符合语法的语句，这会让用户更容易发现脚本里的错误
- 内建在工具菜单里的Syntax可以一次检测脚本里的全部错误
- 内置的代码清理程序可以让代码变得更整齐、更具有可读性，它同时也能修正错误拼写的函数和变量
A2. 你也能通过添加下面的代码来在任何一台电脑上debug你的脚本：
Func dbg($msg)
DllCall("kernel32.dll", "none", "OutputDebugString", "str", $msg)
EndFunc
然后，你可以在需要debug的地方加上下面的代码：
dbg("The value of Variable 1 at this time is " & $var1)
这个方法对用户来说更加透明，同时也只对
DebugView from SysInternals之类的程序可见。这个方法在那些没有安装SciTE的机器上更具有优势。
Q2.我怎样才能打开那些非exe格式的文件[.txt, .msi, .pdf, .jpg 之类]? [或] 我怎样才能用默认的浏览器打开网页? A1. 这也就是为什么我们创建ShellExecute函数.下面有一个例子:
ShellExecute("C:\autoitscripts\test.au3", "", "", "edit", @SW_MAXIMIZE)
你也能像这样打开一个网址:
ShellExecute("http://www.autoitscript.com/forum")
如果文件的右键菜单里有打印选项,你就可以这样用AutoIt打印文件:
ShellExecute("C:\boot.ini", "", "", "print")
如果你希望暂停脚本直到程序结束,你可以使用ShellExecuteWait函数,它们的运行参数是相同的.
Q3. 我怎样才能让脚本只运行一个进程? A1. 你可以使用_Singleton函数来阻止脚本的副本运行,下面有一个实例:
#include <Misc.au3>
_Singleton("TheNameOfMyScript")
这样如果脚本检测到自己已经启动就会立即退出,如果你只是想简单地知道脚本是否已经运行,你可以使用下面的代码:
#include <Misc.au3>
If _Singleton("MyScriptName", 1) Then
; We know the script is already running. Let the user know.
MsgBox(0, "Script Name", "This script is already running. Using multiple copies of this script at the same breaks the [(UltimaCoder)] License!")
Exit
Endif
Q4. 我怎样才能让脚本作为系统服务启动? 这也是一个有多个答案的问题
A1.如果你只想在自己的电脑上安装服务,最简单的方法是使用
Pirmasoft RunAsSvc.这个程序可以方便地添加/删除系统服务.
A2.如果你想让服务能在任何电脑上都能安装,你可以使用
SRVANY.EXE和
ServiceControl.au3,像这样安装服务:
#include "ServiceControl.au3"
$servicename = "MyServiceName"
_CreateService("", $servicename, "My AutoIt Script", "C:\Path_to_srvany.exe", "LocalSystem", "", 0x110)
RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\" & $servicename & "\Parameters", "Application", "REG_SZ", @ScriptFullPath)
或者使用下面的代码删除服务:
#include "ServiceControl.au3"
$servicename = "MyServiceName"
_DeleteService("", $servicename)
Q5. 我怎样启动/停止服务? A1.有两个函数集能帮助你控制服务:
SumTingWong制作的
ServiceControl.au3,包含的函数有:
- _StartService()
- _StopService()
- _ServiceExists()
- _ServiceRunning()
- _CreateService()
- _DeleteService()
CatchFish制作的
_NTServices.au3,包含的函数有:
- _ServiceStart()
- _ServiceStop()
- _ServiceStatus()
- _ServicePause()
.函数集
ShellFileOperation.au3能完成这个操作:
Q7. 我怎样让快捷键只在自己的GUI起作用? A1. 在更好的方法出现之前,最简单的方法是使用下面的代码:
#include <GuiConstants.au3>
HotKeySet("{ENTER}", "catchguikey")
$gui = GuiCreate("Hotkey Test")
GuiCtrlCreateLabel("Press Enter", 0, 0)
GuiSetState()
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend
Func catchguikey()
Local $opt = Opt("WinTitleMatchMode", 4)
If WinGetHandle("active") = $gui Then
If @HotKeyPressed = "{ENTER}" Then
;Do something here
ToolTip("Key Pressed")
Sleep(1000)
ToolTip("")
EndIf
Else
HotKeySet(@HotKeyPressed)
Send(@HotKeyPressed)
HotKeySet(@HotKeyPressed, "catchguikey")
EndIf
Opt("WinTitleMatchMode", $opt)
EndFunc
Read more...
WIDGETIZE