การใช้งานโปรแกรม AutoHotKey เบื้องต้น

รวม SourceCode .ahk
----------------------------------------
UserName & Password Protection
Loop
{
InputBox, OutputVar, Password Confirm, Enter:Password, Hide, 250, 120, 400, 330
If ErrorLevel
{
ExitApp
}
If OutputVar =
{
MsgBox, 0, Info, กรุณาใส่รหัส
Continue
}
If OutputVar <> xxx  ;<--- your password = xxx ---<<
{
MsgBox, 48, Info, รหัสผิด ลองใหม่.
}
Else
{
MsgBox, 64, Info, Your Password = %OutputVar%
Break
}
}-----------------------------------------------------------------
ใครที่ชอบติดตั้งโปรแกรมต่างๆ แบบอัตโนมัติ เอาโค๊ดนี้ไปใช้ Auto Installer Packer (โค๊ดนี้สั่งติดตั้ง AutoIT v3)
MsgBox, 36, AutoIT v3 AutoSetup, Do you wanted to Install?
IfMsgBox, Yes
{
ToolTip, Installing...please wait!
RunWait, autoit-v3-setup.exe /S
ToolTip
MsgBox, 64, , Installation Complete.
}
Else
ExitApp------------------------------------------------------------------
NetSim Modem Connections
#NoTrayIcon
Gui, Color, Aqua 
Gui, Add, Picture, x115 y1 w100 h30 , huawei_e220_2.jpg
Gui, Add, Button, x0 y0 w115 h30 , Connect_DisConnect
Gui, Add, Button, x201 y0 w115 h30 , Firefox
Gui, Add, Text, x130 y18 w50 h30 +Center, AIS
Gui, Show, x702 y w316 h30, NetSim Modem Connections
Return

ButtonConnect_DisConnect:
Run, C:\Documents and Settings\All Users\Start Menu\Programs\Accessories\Communications\Network Connections
WinActivate, , Connect
WinWaitActive, , Connect, 2
Send, {Space}
Sleep, 1000
Send, {Enter}
Sleep, 1000
Send, {Right}
Sleep, 1000
Send, {Enter}
Sleep, 1000
WinActivate, Network Connections
WinWaitActive, Network Connections, , 2
WinClose, Network Connections
Return

ButtonFirefox:
IfNotExist, C:\Program Files\Mozilla Firefox\firefox.exe
{
MsgBox, 48, Error!, ท่านยังไม่ได้ติดตั้งโปรแกรม Firefox.
Return
}
Else
{
Run, www.google.co.th
Return
}

Esc::
ExitApp
Return

GuiClose:
ExitApp

Registry.ahk
คำเตือน: การเข้าไปแก้ไขข้อมูลในรีจิสทรีย์ มีความเสี่ยง! ถ้าทำโดยขาดความรู้ความเข้าใจ อาจทำให้วินโดว์เสียหายได้
คำสั่งของ AHK ที่ใช้จัดการข้อมูลในรีจิสทรีย์ มีดังนี้
1.Loop (registry)  รูปแบบ: Loop, RootKey [, Key, IncludeSubkeys?, Recurse?]
2.RegRead          รูปแบบ: RegRead, OutputVar, RootKey, SubKey [, ValueName]
3.RegWrite         รูปแบบ: RegWrite, ValueType, RootKey, SubKey [, ValueName, Value]
4.RegDelete       รูปแบบ: RegDelete, RootKey, SubKey [, ValueName]
------------------------------------------------------------------------------------------------------
ก่อนที่จะมาเล่นกับ Registry ซึ่งเป็นระบบฐานข้อมูลของ Windows ..ควรศึกษาทำความเข้าเบื้องต้นกันก่อน จะได้มีข้อผิดพลาดน้อย
ความรู้ต่อไปนี้เป็นเป็นแค่ Basic Registry เท่านั้น ยังมีความรู้ขั้น Advance อีกมากมาย ..ไว้รอจบบทความนี้แล้ว จะนำมาลงให้.
------------------------------------------------------------------------------------------------------
อันนี้ไม่ใช่ Hotkey ที่เราสร้างขึ้นนะครับ แต่เป็นปุ่มร้อนๆของ Windows เองเลย ให้ท่านกดปุ่ม Windows พร้อมกับปุ่ม R (windows+r) ..พิมพ์คำว่า regedit ลงไปในช่อง กด Enter ..หน้าต่าง Registry Editor จะเปิดขึ้นมา หรือรันด้วยโค๊ดนี้
Run, %A_WinDir%\regedit.exeRegistry ใน WindowsXP จะประกอบไปด้วยคีย์หลัก หรือ HKEY จำนวน5คีย์ และที่เราเข้าไปปรับแต่งได้ มีอยู่2-3คีย์เท่านั้น
รูปแบบ: Registry มีดังนี้ คีย์หลักหรือ Hkey(Folder) , SubKey(SubFolder) , Value name , Value data
รายละะเอียด:
Hkey หมายถึง โฟลเดอร์หลักที่รวบรวมข้อมูลทั้งหมดไว้
Subkey หมายถึง โฟลเดอร์รอง หรือ ย่อยเป็นชั้นๆออกมาจากโฟลเดอร์หลัก
Value name หมายถึง ชื่อข้อมูลที่อยู่ใน Hkey และ Subkey
Value data หมายถึง ข้อมูลที่ใหลออกมา แบ่งออกเป็น2ชนิด คือ
1.ข้อมูลชนิด 'รายละเอียด'
2.ข้อมูลชนิด 'คำสั่ง'
-----------------------------------------------------------------
การอ่านข้อมูลRegistry รูปแบบ: RegRead, OutputVar, RootKey, SubKey [, ValueName]
รายละเอียด:
OutputVar หมายถึง ตัวแปรที่เป็นค่ารีเทิร์น หรือ Value data  เช่น. %OutputVar%
RootKey หมายถึง คีย์หลัก หรือ Hkey เช่น. HKEY_LOCAL_MACHINE หรือชื่อย่อว่า HKLM
SubKey หมายถึง โฟลเดอร์ย่อยของคีย์หลัก หรือ ซับโฟลเดอร์ เช่น. HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion
ValueName หมายถึง ชื่อข้อมูลในโฟลเดอร์หลักและโฟลเดอร์ย่อย

ตัวอย่าง:System Infomation Report (ชนิดข้อมูล 'รายละเอียด')
RegRead, WindowsName, HKLM, SOFTWARE\Microsoft\Windows NT\CurrentVersion, ProductName
RegRead, VersionName, HKLM, SOFTWARE\Microsoft\Windows NT\CurrentVersion, CSDVersion
MsgBox, 64, System Info, OperateSystem: %WindowsName% %VersionName%---------------------------------------------------------------------------------------
การเขียนข้อมูล Registry รูปแบบ: RegWrite, ValueType, RootKey, SubKey [, ValueName, Value]
รายละเอียด:
ValueType หมายถึง สกุลของข้อมูลคำสั่งหรือรายละเอียด เช่น. REG , DWORD , และ BINARY
Value หมายถึง ข้อมูลคำสั่งหรือรายละเอียดที่เขียนลงไปในรีจิสทรีย์
ตัวอย่าง:
;----------------------------------start script-----------------------------------------------------
MsgBox, 36, ยืนยันการเขียนข้อมูลลงในรีจิสทรีย์, ท่านต้องทดสอบเขียนข้อมูลรีจิสทรีย์ใช่หรือไม่?
IfMsgBox Yes
{
RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows NT\CurrentVersion, UseName, sak2005
RegRead, VarName, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows NT\CurrentVersion, UseName
If Not ErrorLevel
{
MsgBox, 64, RegWrite_Sample, Write registry data complete..UseName = %VarName%
}
Else
{
MsgBox, 48, Error!, Cannot write registry.
Return
}
;.....................................delete confirm..............................................
MsgBox, 36, Delete_Sample data Confirm, ท่านต้องการลบข้อมูลที่ทดสอบเขียน ใช่หรือไม่?
IfMsgBox Yes
{
RegDelete, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows NT\CurrentVersion, UseName
if ErrorLevel
{
MsgBox, 48, Error!, Cannot delete_data.
Return
}
Else
MsgBox, 64, Info, Delete data completed.
}
}
;-----------------------------------end script------------------------------------------------------

ความรู้เกียวกับคำสั่ง: อ่่าน-เขียน Text File (read-Write Console)
คำสั่ง: FileAppend รูปแบบ: FileAppend [, Text, Filename]
เป็นคำสั่งที่ใช้เขียนหรือโคลน ไฟล์ที่เป็นข้อความ(*.txt)ทั้งฉบับ
ตัวอย่าง:
FileAppend, Hello World!, %A_Desktop%\MyFile.txtรายละเอียด: เขียนข้อความว่า  Hello World! เสร็จแล้ว Save เป็นชื่อ MyFile.txt วางไว้ที่หน้าจอ
---------------------------------------------------------------------------
FileRead รูปแบบ:FileRead, OutputVar, Filename
อันนี้ใช้โคลนข้อความทั้งหมดจากฉบับหนึ่ง ขึ้นมาเป็นอีกฉบับหนึ้ง ตั้งชื่อว่า NewMyFile.txt
FileRead, OutputVer, %A_Desktop%\MyFile.txt
FileAppend, %OutputVer%, %A_Desktop%\NewMyFile.txtความหมายของคำสั่ง:
OutputVer เป็นค่ารีเทิร์น หรือข้อความที่ถูกอ่านจาก MyFile.txt และถูกส่งออกมาพร้อมที่จะแสดงผลในคำสั่งถัดไป
%OutputVer% หมายถึง ค่ารีเทิร์นที่ถูกแปร นำมาใส่ไว้อีกคำสั่งหนึ่ง แ้ล้ว Save เป็น NewTextFile ฉบับใหม่ขึ้นมา.
-----------------------------------------------------------------------------------------
Tip
Run, %A_Desktop%\NewMyFile.txt หมายถึง คำสั่ง เปิด TextFile
WinClose, ahk_class Notepad หมายถึง  คำสั่ง ปิด TextFile
----------------------------------------------------------------------
คำสั่งส่งข้อความทั้งหมดใน TextFile ที่สร้า้งขึ้น หรือมีอยู่แล้ว ลงใน GUI Edit
IfExist, %A_Desktop%\MyFiles.txt
FileDelete, %A_Desktop%\MyFiles.txt
Gui, Add, Edit, w400 h200 vMyEdit, ต้องการส่งข้อความทั้งหมดใน MyFile.txt ลงใน GUI Edit คลิ๊กปุม SendText
Gui, Add, Button, x100 w100 h30, SendText 
Gui, Show, h250, Send Text to GUI Edit Sample
FileAppend, Hello World! by:sak2005, %A_Desktop%\MyFiles.txt
If ErrorLevel
MsgBox, 48, Error!, Cannot write text to MyFiles.txt.
Return

ButtonSendText:
FileRead, FileContents, %A_Desktop%\MyFiles.txt
If Not ErrorLevel
{
GuiControl,, MyEdit, ข้อความจากใน MyFiles.txt คือ ' %FileContents% '
}
Else
{
MsgBox, 48, Error!, Cannot write text to gui edit.
}
Return

GuiClose:
ExitAppรายละเอียดของคำสั่งแต่ละคำสั่ง
IfExist, %A_Desktop%\MyFiles.txt
FileDelete, %A_Desktop%\MyFiles.txt หมายถึง เป็นคำสั่งตรวจสอบว่าได้สร้าง MyFiles.txt ไว้หรือไม่?
ถ้าสร้างไว้ ให้ลบทิ้งไปก่อน (ป้องกันการส่งข้อความซ้ำซ้อน ลงใน gui edit) แล้วสร้า้งขึ้นมาใหม่
...
FileAppend, Hello World! by:sak2005, %A_Desktop%\MyFiles.txt
หมายถึง คำสั่งเขียนข้อความและสร้า้ง TextFile ขึ้นมาใหม่
...
FileRead, FileContents, %A_Desktop%\MyFiles.txt หมายถึง อ่านและส่งออกข้อความใน
TextFile ที่สร้าง ยังคำสั่งถัดไป
...
GuiControl,, MyEdit, ข้อความจากใน MyFiles.txt คือ ' %FileContents% '
หมายถึง คำสั่งส่ง ข้อความทั้งหมดใน TextFile ลงใน GUI Edit

Forms Script Include
อันนี้เป็นการเขียนคำสั่งที่ยากขึ้น ผมจะพยายามอธิบายความหมายของแต่ละคำสั่งให้ท่านเข้าใจ จะได้เขียนกันได้
จริงๆแล้วไม่มีอะไร เป็นลูกเล่นของคำสั่งที่จำเป็นต้องที่สร้างขึ้น เพื่อดึงความสามารถของคำสั่งที่เขียนออกมา
ซึ่งความสามารถที่ว่านี้ ถ้าเขียนด้วยคำสั่งแบบปกติแล้ว จะไม่สามารถดึงเอาความสามารถที่ว่านี้ออกมาได้
อย่าเพิ่งท้อนะครับ ท่านต้องถือคติที่ว่า.. 'ผมเขียนได้ ท่านก็ต้องเขียนได้' ไม่มีอะไรยากเกินความพยายาม
ดาวน์โหลดก็ลงไว้ให้แล้วด้านบน นำมาใช้ให้เป็นประโยชน์
--------------------------------------------------------------------------------
ตัวอย่าง:
_("mm!")
    CMenu =
(LTrim
[Edit]
edit item 1
edit item 2
edit item 3
x=[sub]

[sub]
meh=123
blah=456

[Picture]
pic item1
pic item2
)

hForm1 := Form_New("e3 w200 h500")
Form_Add(hForm1, "Edit", "ESC to close script. F2 to resize. Drag picture to move. Right click controls for the context menu.", "-vscroll w200 r3 0x8000","Align T", "Attach w", "CMenu Edit, Menu_Controls")
Form_Add(hForm1, "Picture", "res\test.bmp", "gPictureDrag", "Cursor size", "CMenu Picture, Menu_Controls")

hFont := Font("", "s12 italic, Courier New")
sz := Font_DrawText("Click here to go to Google", "", hFont, "calcrect ahksize")
pos := Form_GetNextPos(hForm1, sz)
Form_Add(hForm1, "HLink", "Click 'here':www.google.com to go to Google", pos " " sz, "Font " hFont, "CMenu Sub, Menu_Controls")
pos := Form_GetNextPos(hForm1, "x+50 yp")
Form_Add(hForm1, "HLink", "Click 'here':www.google.com to go to Google", pos " " sz, "Font " hFont, "CMenu Sub, Menu_Controls")

Form_AutoSize( hForm1, 10.5)
Form_Show(hForm1, "xCenter yCenter")
return

Form1_ContextMenu:
m("Form1 context menu")
return

Menu_Controls:
m("Menu: " A_ThisMenu, "Item: " A_ThisMenuItem, "Data: " ShowMenu_Data(Menu_Controls))
return

PictureDrag:
PostMessage, 0xA1, 2,,, A
Return

F1::
WinShow, ahk_id %hForm1%
WinActivate, ahk_id %hForm1%
return

F2::
WinSet, Style, ^0x40000, ahk_id %hForm1%
Form_AutoSize(hForm1)
Win_Redraw()
return

Form1_Close:
ExitApp
return

#include inc
#include _Forms.ahkจะเห็นได้ว่ารูปแบบคำสั่งที่เขียนเปลี่ยนแปลงไป แถมต้องอ้างไฟล์คำสั่งอื่นซึ่งเรียกว่าไฟล์ include หรือไฟล์ Library Modulde ลงไปด้วย
เพราะต้องทำงานร่วมกันกับคำสั่งที่เขียน ถ้าไม่ใส่ หรือ ใส่ไว้ไม่ถูกต้อง โปรแกรมที่เขียนจะไม่แสดงผลหรือเกิด Error!
ขนาดหรือสัดส่วนของฟอร์ม จะเล็กหรือใหญ่ จะถูกกำหนดด้วยขนาดของ Object ที่วางอยู่บน Form ด้วยคำสั่ง AutoSize
--------------------------------------------------------------------------------------------
รายละเอียดของกลุ่มคำสั่ง:
_("mm!")
    CMenu =
   (LTrim
      [Edit]
      edit item 1
      edit item 2
      edit item 3
      x=
      
      
      <sub>meh=123
      blah=456

      [Picture]
      pic item1
      pic item2
   )</sub>
เป็นคำสั่งสร้าง เมนูคลิ๊กขวา บน Gui Edit
-------------------------------------------------------
hForm1   :=   Form_New("e3 w200 h500")   
   Form_Add(hForm1, "Edit", "ESC to close script. F2 to resize. Drag picture to move. Right click controls for the context menu.", "-vscroll w200 r3 0x8000","Align T", "Attach w", "CMenu Edit, Menu_Controls")
   Form_Add(hForm1, "Picture", "res\test.bmp", "gPictureDrag", "Cursor size", "CMenu Picture, Menu_Controls")

   hFont := Font("", "s12 italic, Courier New")
   sz := Font_DrawText("Click here to go to Google", "", hFont, "calcrect ahksize")
   pos := Form_GetNextPos(hForm1, sz)
   Form_Add(hForm1, "HLink", "Click 'here':www.google.com to go to Google", pos " " sz, "Font " hFont, "CMenu Sub, Menu_Controls")
   pos := Form_GetNextPos(hForm1, "x+50 yp")
   Form_Add(hForm1, "HLink", "Click 'here':www.google.com to go to Google", pos " " sz, "Font " hFont, "CMenu Sub, Menu_Controls")

   Form_AutoSize( hForm1, 10.5)
   Form_Show(hForm1, "xCenter yCenter")
เป็นคำสั่งสร้า้ง Form และ Object Control ขึ้นมาพร้อมๆกัน ขาดอย่างใดอย่างหนึ่งไม่ได้
สมมุติว่าลืมใส่ Object ..จะทำให้ Form หดเหลือนิดเดียว
ส่วนคำสั่งที่เหลือก็เป็น Hotkey และไฟล์ include


--------------------------------------------------------------------------
อันนี้เป็นการเขียนคำสั่งอีกรูปแบบหนึ่ง
#SingleInstance force

   Gui, +LastFound
   hGui := WinExist() +0

   HLink_Add(hGui, 10,  10,  250, 20, "OnLink", "'Click here':www.Google.com ..go to Google" )
   HLink_Add(hGui, 10,  40,  250, 20, "OnLink", "'คลิ๊กที่นี่':www.zone-it.com ..go to ZoneIT")
   HLink_Add(hGui, 10,  170, 100, 20, "OnLink", "'About HLink':About")
   HLink_Add(hGui, 110, 170, 100, 20, "OnLink", "'Forum':http://www.autohotkey.com/forum/topic19508.html")
   Gui, Show, w300 h200, Hyper Links Sample
return

OnLink(hCtrl, Text, Link){
    if Link = About
        msgbox Hlink control`nby majkinetor
    else return 1

}

#include inc
#include _Forms.ahk

โทษนะครับ ติดพาสเวิร์ด อ่าพี่ พาสอะไรหรอครับ

บางท่านบอกว่า.. เขียน AutoIt ง่ายกว่า AutoHoykey ..จริงๆแล้ว ยากพอๆกัน หรือ ง่ายไปคนละแบบ
สิ่งที่ท่านต้องสนใจศึกษาให้ถ่องแท้ เพื่อให้เกิดความเข้าใจ คือ รูปแบบของคำสั่งนั้นๆ (sinex) และ
คำสั่งที่ทำให้เกิดการเปลี่ยนแปลงต่อ Form Object (Event Control)
การเขียนโปรแกรมไม่มีสูตรสำเร็จ มันจะเปลี่ยนแปลงไปตามจินตนาการของผู้เขียน เมื่อไหร่ที่เราหยุดคิด
โปรแกรมที่เรากำลังเขียน ก็จะหยุดทำงานตามไปด้วย การศึกษาค้นคว้าทดลองด้วยตัวเองอยู่สม่ำเสมอ
จะทำให้ท่านเป็นโปรแกรมเมอร์ที่มีคุณภาพ ก้าวไปใกลตราบนานเท่านาน...

โดยทั่วไป คำสั่งควบคุม (Event Control) แบ่งการควบคุมออกเป็น3ระดับ ดังนี้
1.On Event Form
2.On Event Object
3.Over Event Form Object
--------------------------------------------------------------
On Event Form หมายถึง ควบคุมการทำงานโดยอาศัย Form ..ลองพิจารณาดูที่โค๊ด

Gui, Color, White
Gui, Add, Progress, x10 y10 w300 h20 cRed, 50 
Gui, Show, x350 y300 w320 h40, Sample
Return
อธิบาย:
Gui, Color, White หมายถึง กำหนดพื้นหลังของฟอร์มให้เป็นสีขาว
Gui, Add, Progress หมายถึง สร้างหรือติดตั้ง Progressbar ไว้บนฟอร์ม
x10 y10 w300 h20 หมายถึง กำหนดตำแหน่งที่ให้ progressbar ปรากฏ
                                   หรือ x y หรือ บน ล่าง และ ขนาดสัดส่วนของ progressbar
                                   หรือ w h หรือ กว้้าง ยาว
cRed หมายถึง กำหนดสีให้กระแส หรือ Value ของ Progressbar
50 หมายถึง กำหนดจำนวนกระแส หรือ Value Progress ..ต้องใส่เครื่องหมาย comma
    หรือตัวลูกน้ำคั่นแยกไว้จากคำสั่งอื่น ..ถ้าไม่ใส่ไว้ กระแส Progress จะไม่เกิด
Gui, Show หมายถึง คำสั่งที่ทำให้ Form หรือ หน้าต่างโปรแกรมปรากฏ
x350 y300 w320 h40 หมายถึง กำหนดตำแหน่งที่ตั้งและขนาดสัดส่วนของฟอร์ม
Sample หมายถึง ข้อความที่ปรากฏบน Title bar ด้านบนของหน้าต่างโปรแกรม
Return หมายถึง คำสั่ง ส่งค่ากลับ ..ถ้าไม่ใส่คำสั่งนี้ไว้ จะไม่สามารถทำให้หน้าต่างโปรแกรมคงอยู่ได้ (แว๊บเดียวก็หายไป)             

ข้อควรคิด: ผมจะไม่สามารถอธิบายเกี่ยวกับคำสั่งเหล่านี้ได้เลย ถ้าผมไม่ศึกษา-ค้นคว้า-ทดลอง อย่างจริงจัง                         
--------------------------------------------------------------------------------
On Event Object หมายถึง ควบคุมการทำงานโดยอาศัย Object หรือสิ่งต่างๆที่อยู่บนหน้าต่างโปรแกรม ..ลองพิจารณาดูที่โค๊ด

Gui, Color, White
Gui, Add, Progress, vMyProgress x10 y10 w300 h20 cRed
Gui, Add, Button, x130 y50 w50 h25, Start
Gui, Show, x350 y300 w320 h80, Sample
Return

ButtonStart:
Loop
   {
    GuiControl,, MyProgress, %A_index%
Sleep, 100
    If A_index = 50
   MsgBox, 64, Info, halp value current = 50, 2
If A_index = 100
   MsgBox, 64, Info, full value current = 100, 2
   }
Until A_index = 100
Return

GuiClose:
ExitApp
Return----------------------------------------------------------------------------
Over Event Form Object หมายถึง คำสั่งที่เป็น Automatic อยู่เหนือการควบคุมใดๆ ..ลองพิจารณาจากคำสั่งด้านล่าง

Gui, -Caption
Gui, Color, White
Gui, Add, Progress, vMyProgress x10 y10 w300 h20 cRed
Gui, Show, x350 y300 w320 h40, Sample

Loop, 100
   {
    GuiControl,, MyProgress, %A_index%
Sleep, 100
    If A_index = 50
   MsgBox, 64, Info, halp value current = 50, 2
If A_index = 100
   MsgBox, 64, Info, full value current = 100, 2
   }
ExitApp-----------------------------------------------------------------
Progressbar Percent Change Color Text

ท่านต้องติดตั้ง AutoHotkey_L เพิ่มเติม ..คำสั่ง Loop Until นี้ ถึงจะทำงานได้.

คำสั่งทีมีอยู่ใน AutoHotkey_L Click here


Gui, -Caption
Gui, Color, White
Gui, Add, Progress, vMyProgress x10 y10 w300 h25 cBlue
Gui, Add, text, vProgBarTxt cRed x150 y17 w50 h25 BackgroundTrans
Gui, show, w320 h45 Center, Sample
   
   Loop {
         GuiControl,, MyProgress, %A_Index%
         GuiControl,, ProgBarTxt, %A_Index%`%
     Sleep, 100
     If A_Index = 48
     GuiControl, +cWhite, ProgBarTxt
        }
   Until A_Index >= 100
         MsgBox, 64, Info, Completed., 2
WinHide, Sample
   ExitApp

Mouse Get Pixel Color ..ใช้ Control Loop While

While, 1
{
MouseGetPos, MouseX, MouseY
PixelGetColor, Color, %MouseX%, %MouseY%
ToolTip, X=%MouseX%`nY=%MouseY%`nC=%Color%
Sleep, 10
}
return

Esc::
ExitApp
return

GuiClose:
ExitApp==========================================================================
หรือใช้คำสั่ง SetTimer แทน Control Loop ก็ได้

#Persistent
SetTimer, timer, 10

timer:
MouseGetPos, MouseX, MouseY
PixelGetColor, Color, %MouseX%, %MouseY%
ToolTip, X=%MouseX%`nY=%MouseY%`nC=%Color%
return

Esc::
ExitApp
return

GuiClose:
ExitApp==========================================================================
Desktop Wallpaper Changer

#NoEnv 
SendMode Input 
SetWorkingDir %A_ScriptDir%

Gui, Add, Edit, x10 y31 w100 h20 +Center vMyEdit +ReadOnly
Gui, Add, Picture, x205 y30 w90 h60 +Border vMyPicture
Gui, Add, Text, x25 y11 w70 h15 +Center, Picture name
Gui, Add, Text, x210 y11 w70 h15 +Center, View Picture
Gui, Add, Button, x115 y30 w70 h20 , Browse
Gui, Add, Button, x25 y65 w70 h25 , Change
GuiControl, Disable, Change
Gui, Add, Button, x140 y70 w40 h20 , Defult
Gui, Show, w300 h94, DWC
return

ButtonBrowse:
FileSelectFile, FileVar, 3, , Open a file, Image (*.bmp)
if FileVar 
SplitPath, FileVar, name
GuiControl,, MyEdit, %name%
GuiControl, Enable, Change
GuiControl,, Mypicture, %name%         
return

ButtonChange:
DllCall("SystemParametersInfo", UInt, 0x14, UInt, 0, Str, FileVar, UInt, 2)
if not Error
GuiControl,, MyEdit
GuiControl, Disable, Change
return

ButtonDefult:
DllCall("SystemParametersInfo", UInt, 0x14, UInt, 0, int, 0, UInt, 2)
return

GuiClose:
ExitApp

ตัวอย่างการเขียนคำสั่ง: Run หลายรูปแบบ

MsgBox, 64, Sample1, Use Verb
Run, Open Notepad.exe
WinWait, ahk_class Notepad
Sleep, 2000
WinClose, ahk_class Notepad

MsgBox, 64, Sample2, Use Defult DirPath (C:\Windows\Notepad.exe) or Marcro DirPath
Run, Notepad.exe, A_WinDir
Sleep, 2000
WinClose, ahk_class Notepad

MsgBox, 64, Sample3, Use Marcro DirOutputPath
Run, %A_WinDir%\Notepad.exe
Sleep, 2000
WinClose, ahk_class Notepad

MsgBox, 64, Sample4, Use ComSpec command.
Run, %ComSpec% /c Notepad.exe,, Hide
Sleep, 2000
WinClose, ahk_class Notepad
ExitApp

ตัวอย่างการเขียนคำสั่ง: Loop Input

#NoEnv 
SendMode Input
SetWorkingDir %A_ScriptDir% 
while 1
{
    InputBox, OutputVar, Example, Enter: Yourname,, 200, 115
    If(ErrorLevel){
    break
    }
else if(OutputVar=""){
MsgBox, 0, Info, Press yourname in to the box
continue
    }
else{
MsgBox, 64, Info, Yourname is %OutputVar%
break
}
}
Loop
ExitApp
อธิบาย:

ถ้าคลิ๊กที่ปุ่ม Cancel ..คำสั่งจะทำงานในตำแหน่ง ErrorLevel เป็นการปิดหรือยกเลิกการทำงานของ InputBox

ถ้าคลิ๊กที่ปุ่ม OK แต่ไม่ได้พิมพ์ข้อความใดๆลงใน InputBox ..คำสั่งจะทำงานในตำแหน่ง continue

InputBox ยังถูก Loop ให้ต้องทำงานอยู่ จนกว่าจะพิมพ์ข้อความใดๆลงไป