autoit

Q1如何调试脚本？

MsgBox(0,"测试",$var)

ConsoleWrite("var="&$var&@CRLF)

Q2操作CMD相关命令

Q2.1如何运行DOS命令？

Run(@ComSpec&'/cdir>d:',"",@SW_HIDE)

#include<3>

$rc=_RunDos("startHttp://")

Q2.2运行DOS命令如何连接AU3变量？

Local$var="d:"

Run(@ComSpec&'/cdir>"'&$var&'"',"",@SW_HIDE)

Q2.3运行DOS命令如何自动应答？(注意：这并不属于AU3的问题，这里附带说一下。)

RunWait(@ComSpec&'/cechoy|cacls%systemroot%/deveryone',

@SystemDir,@SW_HIDE)

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

$dns="192.168.0.1"

RunWait(@ComSpec&'/Cnetsh-cinterfaceipsetdns本地连接source=staticaddr="'

&$dns&'"register=PRIMARY',"",@SW_HIDE)

Q2.5运行DOS命令如何直接截取回显？

;注意:回显截取只支持Run而不是RunWait

#include<3>

Opt("MustDeclareVars",1)

_test()

Func_test()

Local$foo,$line,$lines

$foo=Run(@ComSpec&"/cscqueryAlerter",@SystemDir,@SW_HIDE,$STDOUT_CHILD)

$lines=""

While1

$line=StdoutRead($foo)

If@errorThenExitLoop

$lines&=$line

Wend

MsgBox(0,"test",$lines)

EndFunc

Q3如何防止程序重复运行？

$g_szVersion="test"

IfWinExists($g_szVersion)ThenExit

AutoItWinSetTitle($g_szVersion)

#include<3>

_Singleton("test")

Q4如何直接运行系统程序关联的文件？如[.txt,.msi,.pdf,.jpg,.lnk,.msc]等等！！！

ShellExecute("")

ShellExecute("","",@ScriptDir,"edit")

ShellExecute("")

ShellExecute("C:","","","print")

ShellExecute("","",@ScriptDir)

ShellExecute("","","","open",@SW_MAXIMIZE)

Q5如何控制系统服务？

API的控制服务

_StartService()开始服务

_StopService()停止服务

_ServiceExists()检测服务

_ServiceRunning()运行服务

_CreateService()建立服务

_DeleteService()删除服务

WMI的控制服务

_ServStart()开始服务

_ServStop()停止服务

_ServDelete()删除服务

_ServGetDetails()服务详情

_ServGetState()服务状态

_ServListInstalled()服务列表

_ServPause()暂停服务

_ServResume()服务改名

_SerSetState()设置服务状态

/viewthr...&extra=page%3D1

Q6如何操作注册表？

Q6.1常用的注册表设置

;读取注册表指定的值

$var=RegRead("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersion",

"ProgramFilesDir")

MsgBox(4096,"Programfiles文件夹位于：",$var)

;创建一个主键、子键或值项。

RegWrite("HKEY_LOCAL_MACHINESOFTWARETest","TestKey","REG_SZ","Hellothisisa

test")

;删除注册表指定的值(注意：这里删除的是键项，而不是键值。)

RegDelete("HKEY_LOCAL_MACHINESOFTWARE","TestKey")

;其他还有RegEnumKey(),RegEnumVal()，详细应用请参考帮助。

Q6.2注册表权限设置

/viewthr...hlight=%C8%A8%CF%DE

Q7如何不重启刷新注册表马上生效？

Do

ProcessClose("")

UntilNotProcessExists("")

Run("gpupdate/force","",@SW_HIDE)

;强烈推存应用这个

DllCall("","int","SendMessageTimeout","hwnd",65535,"int",26,"int",0,"i

nt",0,"int",0,"int",1000,"str","dwResult")

Q8AU3编写的程序如何带参数运行？

If$cmdline[0]<>0Then

$filename=$cmdline[1]

MsgBox(4096,"测试",'你输入的命令行参数是"'&$filename&'"')

Else

MsgBox(64,"测试",'请带参数运行此程序')

EndIf

IfStringInStr($CmdLineRaw,"/help")Then

MsgBox(64,"帮助","这是本程序的帮助说明")

EndIf

Q9如何删除脚本程序自身？

;删除脚本程序自身

Run(@ComSpec&'/cping127.0.0.1-n3&del/q

"'&@ScriptFullPath&'"',@ScriptDir,@SW_HIDE)

;删除脚本所在目录的一切东西

Run(@ComSpec&'/cping127.0.0.1-n3&rd/q/s

"'&@ScriptDir&'"',@ScriptDir,@SW_HIDE)

Q10AU3如何实现加密字符串和文件校验？

;RC4加密(AU3内置函数)

#include<3>

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)