Run("Nero7.exe")
While 1
If WinActive("Nero 7 - วิซาร์ดการติดตั้ง","ขอต้อนรับเข้าสู่ตัวติดตั้งสำหรับ Nero 7") Then
ControlSend("Nero 7 - วิซาร์ดการติดตั้ง","ขอต้อนรับเข้าสู่ตัวติดตั้งสำหรับ Nero 7","[CLASS:Button; INSTANCE:1]","{ENTER}")
ContinueLoop
EndIf
If WinActive("Nero 7 - วิซาร์ดการติดตั้ง","ข้อตกลงใบอนุญาต") Then
ControlSend("Nero 7 - วิซาร์ดการติดตั้ง","ข้อตกลงใบอนุญาต","[CLASS:Button; INSTANCE:4]","{SPACE}")
Sleep(1000)
ControlSend("Nero 7 - วิซาร์ดการติดตั้ง","ข้อตกลงใบอนุญาต","[CLASS:Button; INSTANCE:3]" ,"{SPACE}")
ContinueLoop
EndIf
If WinActive("Nero 7 - วิซาร์ดการติดตั้ง","ข้อมูลลูกค้า") Then
ControlSend("Nero 7 - วิซาร์ดการติดตั้ง","ข้อมูลลูกค้า","[CLASS:Edit; INSTANCE:3]" ,"^a cdkey")
Sleep(1000)
ControlSend("Nero 7 - วิซาร์ดการติดตั้ง","ข้อมูลลูกค้า","[CLASS:Button; INSTANCE:3]" ,"{SPACE}")
ContinueLoop
EndIf
If WinActive("Nero 7 Ultra Edition - วิซาร์ดการติดตั้ง","ประเภทการติดตั้ง") Then
Sleep(1000)
ControlSend("Nero 7 Ultra Edition - วิซาร์ดการติดตั้ง","ประเภทการติดตั้ง","[CLASS:Button; INSTANCE:5]" ,"{SPACE}")
ContinueLoop
EndIf
If WinActive("Nero 7 Ultra Edition - วิซาร์ดการติดตั้ง","พร้อมติดตั้งโปรแกรม") Then
Sleep(1000)
ControlSend("Nero 7 Ultra Edition - วิซาร์ดการติดตั้ง","พร้อมติดตั้งโปรแกรม","[CLASS:Button; INSTANCE:1]" ,"{SPACE}")
ContinueLoop
EndIf
If WinActive("Nero 7 Ultra Edition - วิซาร์ดการติดตั้ง","การตั้งค่า") Then
Sleep(1000)
ControlSend("Nero 7 Ultra Edition - วิซาร์ดการติดตั้ง","การตั้งค่า","[CLASS:Button; INSTANCE:3]" ,"{SPACE}")
ContinueLoop
EndIf
If WinActive("Nero 7 Ultra Edition - วิซาร์ดการติดตั้ง","ตัวช่วยติดตั้งดำเนินการเสร็จสมบูรณ์") Then
Sleep(1000)
ControlSend("Nero 7 Ultra Edition - วิซาร์ดการติดตั้ง","ตัวช่วยติดตั้งดำเนินการเสร็จสมบูรณ์","[CLASS:Button; INSTANCE:1]" ,"{SPACE}")
ExitLoop
EndIf
WEnd
จากกข้อความข้างต้น โปรแกรมจะค้างอยู่ที่หน้า ("Nero 7 - วิซาร์ดการติดตั้ง","ข้อตกลงใบอนุญาต")
ซึ่งก่อนที่จะใส่ฟังก็ชั่น If ก็สามารถกดและผ่านไปได้ตามปกติ แต่พอใส่เสร็จก็กดไม่ได้ซะงั้น รบกวนผู้รู้ช่วยแก้ไขทีครับ
ปล. สาเหตุที่ใช้ฟังก์ชั่น If เพราะบางทีโปรแกรมกดเร็วเกินไปสำหรับเครื่องช้าๆ เลยอยากจะให้มันวนลูปเหมือนโค๊ตด้านบนครับ
While 1
If WinActive("Nero 7 - วิซาร์ดการติดตั้ง","ขอต้อนรับเข้าสู่ตัวติดตั้งสำหรับ Nero 7") Then
ControlSend("Nero 7 - วิซาร์ดการติดตั้ง","ขอต้อนรับเข้าสู่ตัวติดตั้งสำหรับ Nero 7","[CLASS:Button; INSTANCE:1]","{ENTER}")
ContinueLoop
EndIf
If WinActive("Nero 7 - วิซาร์ดการติดตั้ง","ข้อตกลงใบอนุญาต") Then
ControlSend("Nero 7 - วิซาร์ดการติดตั้ง","ข้อตกลงใบอนุญาต","[CLASS:Button; INSTANCE:4]","{SPACE}")
Sleep(1000)
ControlSend("Nero 7 - วิซาร์ดการติดตั้ง","ข้อตกลงใบอนุญาต","[CLASS:Button; INSTANCE:3]" ,"{SPACE}")
ContinueLoop
EndIf
If WinActive("Nero 7 - วิซาร์ดการติดตั้ง","ข้อมูลลูกค้า") Then
ControlSend("Nero 7 - วิซาร์ดการติดตั้ง","ข้อมูลลูกค้า","[CLASS:Edit; INSTANCE:3]" ,"^a cdkey")
Sleep(1000)
ControlSend("Nero 7 - วิซาร์ดการติดตั้ง","ข้อมูลลูกค้า","[CLASS:Button; INSTANCE:3]" ,"{SPACE}")
ContinueLoop
EndIf
If WinActive("Nero 7 Ultra Edition - วิซาร์ดการติดตั้ง","ประเภทการติดตั้ง") Then
Sleep(1000)
ControlSend("Nero 7 Ultra Edition - วิซาร์ดการติดตั้ง","ประเภทการติดตั้ง","[CLASS:Button; INSTANCE:5]" ,"{SPACE}")
ContinueLoop
EndIf
If WinActive("Nero 7 Ultra Edition - วิซาร์ดการติดตั้ง","พร้อมติดตั้งโปรแกรม") Then
Sleep(1000)
ControlSend("Nero 7 Ultra Edition - วิซาร์ดการติดตั้ง","พร้อมติดตั้งโปรแกรม","[CLASS:Button; INSTANCE:1]" ,"{SPACE}")
ContinueLoop
EndIf
If WinActive("Nero 7 Ultra Edition - วิซาร์ดการติดตั้ง","การตั้งค่า") Then
Sleep(1000)
ControlSend("Nero 7 Ultra Edition - วิซาร์ดการติดตั้ง","การตั้งค่า","[CLASS:Button; INSTANCE:3]" ,"{SPACE}")
ContinueLoop
EndIf
If WinActive("Nero 7 Ultra Edition - วิซาร์ดการติดตั้ง","ตัวช่วยติดตั้งดำเนินการเสร็จสมบูรณ์") Then
Sleep(1000)
ControlSend("Nero 7 Ultra Edition - วิซาร์ดการติดตั้ง","ตัวช่วยติดตั้งดำเนินการเสร็จสมบูรณ์","[CLASS:Button; INSTANCE:1]" ,"{SPACE}")
ExitLoop
EndIf
WEnd
จากกข้อความข้างต้น โปรแกรมจะค้างอยู่ที่หน้า ("Nero 7 - วิซาร์ดการติดตั้ง","ข้อตกลงใบอนุญาต")
ซึ่งก่อนที่จะใส่ฟังก็ชั่น If ก็สามารถกดและผ่านไปได้ตามปกติ แต่พอใส่เสร็จก็กดไม่ได้ซะงั้น รบกวนผู้รู้ช่วยแก้ไขทีครับ
ปล. สาเหตุที่ใช้ฟังก์ชั่น If เพราะบางทีโปรแกรมกดเร็วเกินไปสำหรับเครื่องช้าๆ เลยอยากจะให้มันวนลูปเหมือนโค๊ตด้านบนครับ