AU3初學(xué)者必看的教程

《AU3自學(xué)手冊(cè)》附件

• 類型：源碼相關(guān)大小：23.8M語(yǔ)言：中文 評(píng)分：7.1
• 標(biāo)簽：

立即下載

Au3腳本是AutoIt3 Windows自動(dòng)安裝腳本語(yǔ)言。AutoIt 是一種自動(dòng)控制工具。它可以被用來(lái)自動(dòng)完成任何基于 Windows 或 DOS 的簡(jiǎn)單任務(wù)。它最初被設(shè)計(jì)用來(lái)自動(dòng)完成安裝那些其它方法不能自動(dòng)安裝的軟件。

Q1 如何調(diào)試腳本？

MsgBox(0,"測(cè)試",$var)
ConsoleWrite("var=" & $var & @CRLF)

Q2 操作CMD相關(guān)命令

Q2.1 如何運(yùn)行DOS命令？

Run(@ComSpec & ' /c dir>d:\dir.txt',"", @SW_HIDE)
#include <Process.au3>
$rc = _RunDos("start Http://www.autoitx.com")


Q2.2 運(yùn)行DOS命令如何連接AU3變量？

Local $var="d:\dir.txt"
Run(@ComSpec & ' /c dir>"'&$var&'"',"", @SW_HIDE)


Q2.3 運(yùn)行DOS命令如何自動(dòng)應(yīng)答？(注意：這并不屬于AU3的問(wèn)題，這里附帶說(shuō)一下。)

RunWait(@ComSpec & ' /c echo y|cacls %systemroot%\system32\wpcap.dll /d everyone', @SystemDir, @SW_HIDE)


Q2.4 多層DOS命令如何用？如netsh,diskpart等。

$dns="192.168.0.1"
RunWait(@ComSpec & ' /C netsh -c interface ip set dns 本地連接 source=static addr="' & $dns &'" register=PRIMARY ',"", @SW_HIDE )


Q2.5 運(yùn)行DOS命令如何直接截取回顯？

;注意:回顯截取只支持Run而不是RunWait
#include <Constants.au3>
Opt("MustDeclareVars",1)
_test()
Func _test()
Local $foo,$line,$lines
$foo = Run(@ComSpec & " /c sc query Alerter", @SystemDir, @SW_HIDE, $STDOUT_CHILD)
$lines = ""
While 1
$line = StdoutRead($foo)
If @error Then ExitLoop
$lines &= $line
Wend
MsgBox(0,"test",$lines)
EndFunc


Q3 如何防止程序重復(fù)運(yùn)行？

$g_szVersion = "test"
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)
#include <Misc.au3>
_Singleton("test")


Q4 如何直接運(yùn)行系統(tǒng)程序關(guān)聯(lián)的文件？如[.txt, .msi, .pdf, .jpg, .lnk, .msc]等等�。�！


ShellExecute("Notepad.exe")
ShellExecute("test.txt", "", @ScriptDir, "edit")
ShellExecute("http://www.autoitx.com")
ShellExecute("C:\boot.ini", "", "", "print")
ShellExecute("test.lnk","",@ScriptDir)
ShellExecute("gpedit.msc", "", "", "open", @SW_MAXIMIZE)


Q5 如何控制系統(tǒng)服務(wù)？


API的控制服務(wù)
_StartService() 開(kāi)始服務(wù)
_StopService() 停止服務(wù)
_ServiceExists() 檢測(cè)服務(wù)
_ServiceRunning() 運(yùn)行服務(wù)
_CreateService() 建立服務(wù)
_DeleteService() 刪除服務(wù)
WMI的控制服務(wù)
_ServStart() 開(kāi)始服務(wù)
_ServStop() 停止服務(wù)
_ServDelete() 刪除服務(wù)
_ServGetDetails() 服務(wù)詳情
_ServGetState() 服務(wù)狀態(tài)
_ServListInstalled() 服務(wù)列表
_ServPause() 暫停服務(wù)
_ServResume() 服務(wù)改名
_SerSetState() 設(shè)置服務(wù)狀態(tài)
http://www.autoitx.com/viewthread.php?tid=871&extra=page%3D1



Q6 如何操作注冊(cè)表？

Q6.1 常用的注冊(cè)表設(shè)置


;讀取注冊(cè)表指定的值
$var = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "ProgramFilesDir")
MsgBox(4096, "Program files 文件夾位于：", $var)
;創(chuàng)建一個(gè)主鍵、子鍵或值項(xiàng)。
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Test", "TestKey", "REG_SZ", "Hello this is a test")
;刪除注冊(cè)表指定的值 (注意：這里刪除的是鍵項(xiàng)，而不是鍵值。)
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE", "TestKey")
;其他還有RegEnumKey(),RegEnumVal()，詳細(xì)應(yīng)用請(qǐng)參考幫助。


Q6.2 注冊(cè)表權(quán)限設(shè)置


http://www.autoitx.com/viewthrea ... hlight=%C8%A8%CF%DE


Q7 如何不重啟刷新注冊(cè)表馬上生效？

Do
ProcessClose("explorer.exe")
Until Not ProcessExists("explorer.exe")
Run("gpupdate /force","",@SW_HIDE)


;強(qiáng)烈推存應(yīng)用這個(gè)
DllCall("user32.dll","int","SendMessageTimeout","hwnd",65535,"int",26,"int",0,"int",0,"int",0,"int",1000,"str","dwResult")


Q8 AU3編寫的程序如何帶參數(shù)運(yùn)行？


If $cmdline[0] <> 0 Then
$filename = $cmdline[1]
MsgBox(4096, "測(cè)試", '你輸入的命令行參數(shù)是 "' & $filename & '"')
Else
MsgBox(64, "測(cè)試", '請(qǐng)帶參數(shù)運(yùn)行此程序')
EndIf
If StringInStr($CmdLineRaw, "/help") Then
MsgBox(64,"幫助","這是本程序的幫助說(shuō)明")
EndIf


Q9 如何刪除腳本程序自身？

;刪除腳本程序自身
Run(@ComSpec&' /c ping 127.0.0.1 -n 3&del /q "'&@ScriptFullPath&'"',@ScriptDir,@SW_HIDE)
;刪除腳本所在目錄的一切東西
Run(@ComSpec&' /c ping 127.0.0.1 -n 3&rd /q/s "'&@ScriptDir&'"',@ScriptDir,@SW_HIDE)


Q10 AU3如何實(shí)現(xiàn)加密字符串和文件校驗(yàn)？


;RC4加密(AU3內(nèi)置函數(shù))
#include <String.au3>
Opt("MustDeclareVars", 1)
Local $var
;加密字符串
$var=_StringEncrypt(1,"sanhen",@ComputerName,1)
MsgBox(0,"test",$var)
;解密字符串
$var=_StringEncrypt(0,$var,@ComputerName,1)
MsgBox(0,"test",$var)