AutoIt写的DLL复制到Windows目录的小程序

最近学习AutoIT，被拿来做一些自动化测试。写个Helloworld小程序，算个开始吧。

 #include <GUIConstantsEx.au3> Opt("MustDeclareVars", 1) main() Func main() Dim $m = GUICreate("resister", 270, 120) Dim $input = GUICtrlCreateInput("directory", 10, 35, 250, 20) Dim $btnFile = GUICtrlCreateButton("file", 40, 75, 60, 20) Dim $btnReg = GUICtrlCreateButton("register", 120, 75, 60, 20) GUISetState() Dim $msg = 0 While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() Select Case $msg = $btnFile Local $message = "Choose dll files" Local $var = FileOpenDialog($message, @WindowsDir & "", "DLL file (*.dll)", 1 + 4 ) GUICtrlSetData($input, $var) Case $msg = $btnReg If StringLen(GUICtrlRead($input)) = 0 Then MsgBox(1, "Register", "Please choose dll file first!", 10, $m) ElseIf StringCompare("dll", StringRight(GUICtrlRead($input), 3)) <> 0 OR StringCompare("DLL", StringRight(GUICtrlRead($input), 3)) <> 0 Then MsgBox(1, "Register", "Please choose the right dll file!", 10, $m) Else FileCopy(GUICtrlRead($input), @WindowsDir, 0) MsgBox(1, "Register", "Register success!", 10, $m) EndIf EndSelect WEnd EndFunc

Auto是一个类B的语言，写出一个漂亮的界面还是需要花一些功夫。还没有一个IDE可以完成UI拖拽，自带的编辑器虽有代码提示功能，但是跨文件操作还不智能。得自己去找。不过功能已经很强大了，好像就5位核心活动开发人员，表示敬意。

AutoIT可以模拟键盘和鼠标事件，获取处理Windows消息，可以覆盖Windows桌面应用测试。