Felix's Second Life 電腦數碼世界

MsgBox(0,"测试",$var)   
ConsoleWrite("var=" & $var & @CRLF)

Q2.1 如何运行DOS命令？ 引用:

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

#include <Process.au3>
$rc = _RunDos("start Http://www.autoit.net.cn")

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

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

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

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 运行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

$g_szVersion = "test"
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)

#include <Misc.au3>
_Singleton("test")

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

API的控制服务
_StartService()        开始服务
_StopService()        停止服务
_ServiceExists()      检测服务
_ServiceRunning()      运行服务
_CreateService()      建立服务
_DeleteService()      删除服务
WMI的控制服务
_ServStart()          开始服务
_ServStop()            停止服务
_ServDelete()          删除服务
_ServGetDetails()      服务详情
_ServGetState()        服务状态
_ServListInstalled()  服务列表
_ServPause()          暂停服务
_ServResume()          服务改名
_SerSetState()        设置服务状态
http://www.autoit.net.cn/viewthr ... &extra=page%3D1

Q6.1 常用的注册表设置 引用:

;读取注册表指定的值
$var = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "ProgramFilesDir")
MsgBox(4096, "Program files 文件夹位于：", $var)
;创建一个主键、子键或值项。
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Test", "TestKey", "REG_SZ", "Hello this is a test")
;删除注册表指定的值 (注意：这里删除的是键项，而不是键值。)
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE", "TestKey")
;其他还有RegEnumKey(),RegEnumVal()，详细应用请参考帮助。

Q6.2 注册表权限设置 引用:

http://www.autoit.net.cn/viewthr ... hlight=%C8%A8%CF%DE

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

;强烈推存应用这个
DllCall("user32.dll","int","SendMessageTimeout","hwnd",65535,"int",26,"int",0,"int",0,"int",0,"int",1000,"str","dwResult")

If $cmdline[0] <> 0 Then
    $filename = $cmdline[1]
    MsgBox(4096, "测试", '你输入的命令行参数是 "' & $filename & '"')
Else   
    MsgBox(64, "测试", '请带参数运行此程序')
EndIf

If StringInStr($CmdLineRaw, "/help") Then
        MsgBox(64,"帮助","这是本程序的帮助说明")
EndIf       

;删除脚本程序自身
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)

;RC4加密(AU3内置函数)
#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)

;MD5字符串加密
http://www.autoit.net.cn/viewthread.php?tid=378&highlight=MD5

;MD5文件效验
http://www.autoit.net.cn/viewthr ... &extra=page%3D1

;哈唏算法
http://www.autoit.net.cn/viewthread.php?tid=372&highlight=MD5

http://www.autoit.net.cn/viewthr ... angeDisplaySettings

http://www.autoit.net.cn/viewthr ... ht=Shell.Explorer.2

http://www.autoit.net.cn/viewthread.php?tid=365&highlight=obj

参考Q12.1的例子
或者通过IE对象来实现，请参考:
http://www.autoit.net.cn/viewthr ... &extra=page%3D1

http://www.autoit.net.cn/viewthr ... &extra=page%3D3

http://www.autoit.net.cn/viewthr ... &extra=page%3D3
http://www.autoit.net.cn/viewthr ... &extra=page%3D2