ทำปุ่ม มาโคร macro กดครั้งเดียวสั่งทำหลายอย่าง Autoit

เนื้อหาบทความนี้ ผมจะมาทำ ปุ่มมาโคร macro แบบกดครั้งเดียวทำหลายอย่างครับโดยเราจะใช้คำสั่งจากเนื้อหาที่ผ่านๆมาดังนี้

• การสร้างและใช้งานฟังก์ชั่น Function ชุดคำสั่งสำหรับเรียกใช้งานโดยเฉพาะ Autoit
• สร้างปุ่ม HotKey ปุ่มลัดใช้เรียกการทำงานของฟังก์ชั่นโปรแกรม
• วิธีทำให้โปรแกรมไม่หยุด ให้เปิดรอรับคำสั่งตลอดด้วย While Loop&ToolTip

เมื่อเข้าใจหัวข้อข้างบนแล้วก็ มาลงมือกันโดยผมขอแบ่งเป็นหัวข้อๆ ดังนี้

1. ออกแบบโปรแกรม ขั้นตอนการทำงาน ผลลัพธ์ ที่อยากได้
2. เขียนโปรแกรม Coding
3. ดูผลลัพธ์ ของโปรแกรม
4. สำเร็จ

ออกแบบโปรแกรมของเรา

ขั้นตอนการออกแบบนี่จะทำให้เรารู้จุดประสงค์ แล้วจะทำได้ง่ายขึ้นครับ เช่น จะทำโปรแกรม Login เกมก็ต้องดูว่าต้องกดปุ่มไหนตัวอะไรบ้าง ประมาณนั้นแล้วเราก็เรียบเรียงมาก่อนเพื่อจะใช้เขียน Code ได้ง่ายและไวขึ้น

โดยโปรแกรมที่ผมจะทำในวันนี้มีหัวข้อคือ macro ดังนั้นผมจะเขียนเป็น กด F1ที่ keyboard แล้วให้พิมพ์ข้อความ ต่างๆ กดEnter อะไรประมาณนั้นครับ เอาแบบง่ายๆก่อน และ ภาพขั้นตอนการทำงานของผมมีดังนี้

ก็ประมาณรูปข้างบนหละครับ ฮ่าๆไปขั้นตอนถัดไปกันเลย

เขียนโปรแกรม Coding

HotKeySet("{F1}", "start") ;ตั้งปุ่มลัดไปที่ปุ่ม F1 เมื่อกดฟังก์ชั่น startจะถูกใช้งาน
HotKeySet("{ESC}", "esc") ;ตั้งปุ่มลัดไปที่ปุ่ม ESC เมื่อกดฟังก์ชั่น escจะถูกใช้งาน

While 1 ;ลูปไม่จบสิ้น
	ToolTip("")
WEnd

Func start() ;ฟังก์ชั่น Start
	Run("notepad.exe") ;สั่งเปิดโปรแกรม Notepad
	WinWait("[CLASS:Notepad]","",5) ;ตรวจสอบว่าโปรแกรม Notepad ถูกเปิดหรือยังภายใน5วิ

	If WinActive("[CLASS:Notepad]","") Then ;สร้างเงื่อนไขว่า ถ้าโปรแกรม Notepad เปิดอยู่ให้ทำงตามเงื่อนไขด้านล่าง
		Sleep(1000) ;รอ 1วินาที
		Send("==========สวัสดีครับเพื่อนๆ=============") ;พิมพ์ข้อความ
		Sleep(800) ;รอ 0.8วินาที
		Send("{ENTER}") ;กดปุ่มenter
		Send("{ENTER}") ;กดปุ่มenter
		Send("มาหัดเขียนโปรแกรมอัตโนมัติด้วย Autoit กันเถอะ") ;พิมพ์ข้อความ
		Sleep(800) ;รอ 0.8วินาที
		Send("{ENTER}") ;กดปุ่มenter
		Send("_-_-_-_-_-AKE-Remake-_-_-_-_-_-_") ;พิมพ์ข้อความ
		Sleep(800) ;รอ 0.8วินาที
		Send("{ENTER}") ;กดปุ่มenter
		Send("เรียบร้อย โปรแกรมทำงานสำเร็จ") ;พิมพ์ข้อความ

		MsgBox("","","OK!!") ;เด้งป้อปอัพ msgbox ข้อความว่า OK!!
	EndIf ;จบเงื่อนไข
EndFunc ;จบฟังก์ชั่น Start

Func esc() ;ฟังก์ชั่น Esc
	MsgBox("","กล่องข้อความ","ปิดโปรแกรม!!") ;เด้งหน้าต่าง msgbox ข้อความว่า ปิดโปรแกรม!!
	Exit ;ออกจากโปรแกรม
EndFunc ;จบฟังก์ชั่น Esc

การใช้งาน : F1=สั่งเริ่มทำงานฟังก์ชั่น Start ESC=เพื่อปิดโปรแกรม

ผลลัพธ์ดังวิดิโอด้านล่างครับ