AutoIt 编程实战-优快云博客

本文介绍了使用 AutoIt 进行 GUI 设计的方法，包括条件判断、文件操作、GUI 创建等基本技巧，并提供了实例演示如何创建简单的用户界面。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1、If 一定要写EndIf

#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form =
$Form1=GUICreate("测试",403,135,192,124)
$Button1=GUICtrlCreateButton("你好",112,32,107,41)
GUISetState(@SW_SHOW)
#EndRegion ### EMD Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
Exit
    Case $Button1
$ce = InputBox("你好","嘿，我是小朋")

If $ce ="" Then
            MsgBox(0,"额","你貌似没有输入哦")
Else
            MsgBox(0,"哈","你输入的是"&$ce)
            EndIf
        EndSwitch
        WEnd

2.Select Case

Dim $age
$age = InputBox("您好","请输入年龄")
Select
    Case $age = ""
        MsgBox(0,"额","想忽悠在下")
    Case $age > 0
        MsgBox(0,"小子","一边凉快去，别来捣乱")
    Case $age < 0 And $age <= 10
        MsgBox(0,"小子","毛都没长齐吧！")
    Case $age > 10 And $age < 18
        MsgBox(0,"您好","小朋友")
    Case $age >= 18 And $age < 26
        MsgBox(0,"你好","小伙子")
    Case $age >= 26 And $age < 50
        MsgBox(0,"你好","大叔")
    Case $age >=50
        MsgBox(0,"hello","老爷爷")
    EndSelect

3.查询文件大小

Dim $folder
$folder = DirGetSize("C:\WINDOWS\",1)
MsgBox(0,"查询完毕","该文件夹里面共有文件"&$folder[2]&"文件夹"&$folder[1]&"个文件，共计"&$folder[0]/(1024*1024)&"MB")

4、自定义查询文件大小

Dim $folder,$way
$way = InputBox("小朋提醒您","请输入您要查询文件夹的路径")
$folder = DirGetSize($way,1)
MsgBox(0,"查询完毕","该文件夹里面共有文件"&$folder[2]&"文件夹"&$folder[1]&"个文件，共计"&$folder[0]/(1024*1024)&"MB")

5、复制创建文件夹

;复制文件夹    
DirCopy("E:\学习积累总结\AutoIt\123","E:\学习积累总结\AutoIt\321")
;创建文件夹    
DirCreate("E:\学习积累总结\AutoIt\567")
;创建文件夹    
DirCreate("E:\学习积累总结\AutoIt\2\3\4\5\6\7\8\9")

6、　练习　

#EndRegion ;**** 参数创建于ACNWrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;包含并装入指定文件到编译后的脚本程序中.
FileInstall("c:\GodMode Creator.exe",@TempDir&"\")   ;临时文件夹路径  @TempDir
FileInstall("c:\7active.exe",@TempDir&"\")
;创建一个 GUI 窗口.
$Form1 = GUICreate("打开相应的网站", 319, 444, 394, 171)
;在GUI上创建一个分组(Group)控件
$Group1 = GUICtrlCreateGroup("说明", 6, 240, 305, 121)
$txt="这里是提示信息！"
;在GUI上创建一个静态标签(Label)控件.
GUICtrlCreateLabel($txt, 14, 264, 293, 60)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Sina", 90, 48, 115, 41)
$Button2 = GUICtrlCreateButton("Google", 90, 98, 115, 41)
$Button3 = GUICtrlCreateButton("Exit", 90, 157, 115, 41)
$Label1 = GUICtrlCreateLabel("小朋学习笔记", 96, 384, 200, 180)
$Label2 = GUICtrlCreateLabel("www.cnblogs.com/bixiaopeng", 112, 400, 64, 17)
;设置指定控件的字体.
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000000)
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            Run(@ComSpec&" /c start http://www.sina.com.cn")
        Case $Button2
            Run(@ComSpec&" /c start http://www.google.com.hk")
        Case $Button3
            TrayTip("小朋提示您","正在退出程序..",2000)   ;在托盘图标上显示一个气球提
    Sleep(2300)
    Exit
        Case $Label1
            Run(@ComSpec&" /c start http://www.baidu.com")  ;@ComSpec %comspec%的值, 指定的第二个命令解释程序;
        Case $Label2
            Run(@ComSpec&" /c start http://www.taobao.com")
    EndSwitch
WEnd

　　7、GUI

A 消息循环模式

#include <GUIConstantsEx.au3>
GUICreate("思远技术论坛", 200, 100)
GUICtrlCreateLabel("你好！欢迎来到思远论坛！", 30, 10)
$okbutton = GUICtrlCreateButton("确定", 70, 50, 60)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
        Case $msg = $okbutton
            MsgBox(0, "GUI 事件", "您按下了[确定]按钮!")
        Case $msg = $GUI_EVENT_CLOSE
            MsgBox(0, "GUI 事件", "您选择了关闭!正在退出...")
        ExitLoop
    EndSelect
WEnd

B事件

#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1) ; Change to OnEvent mode
$mainwindow = GUICreate("思远技术论坛", 200, 100)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
GUICtrlCreateLabel("您好，欢迎来到思远论坛！", 30, 10)
$okbutton = GUICtrlCreateButton("确定", 70, 50, 60)
GUICtrlSetOnEvent($okbutton, "OKButton")
GUISetState(@SW_SHOW)
While 1
Sleep(1000) ; Idle around
WEnd
Func OKButton()
    ;Note: at this point @GUI_CTRLID would equal $okbutton,
    ;and @GUI_WINHANDLE would equal $mainwindow
    MsgBox(0, "GUI 事件", "您按下了[确定]按钮!")
EndFunc
Func CLOSEClicked()
    ;Note: at this point @GUI_CTRLID would equal $GUI_EVENT_CLOSE,
    ;and @GUI_WINHANDLE would equal $mainwindow
    MsgBox(0, "GUI Event", "You clicked CLOSE! Exiting...")
Exit
EndFunc