อยากทราบว่าโปรแกรม Auto it ใช้ติดตั้งกับโปรแกรมภาษาไทยได้ไหมครับ

เอาเป็นหัวข้อเลยแล้วกันครับ
1. autoit สามารถใช้ติดตั้งกับโปรแกรมภาษาไทยได้ไหมครับ

[You must be registered and logged in to see this image.]สำรอง
2. จากรูปภาพด้านบน ผมเขียนโค๊ต(สมมุติเฉพาะหน้านี้นะครับ)

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run("SETUP.EXE")
WinWait("Microsoft Office Enterprise 2007","")
Send("{ENTER}")

โปรแกรมสามารถกด Enter ได้ แต่ถ้าเขียนอีกแบบนึง
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run("SETUP.EXE")
WinWait("","Choose the installation you want")
Send("{ENTER}")
โปรแกรมไม่สามารถกด Enter ได้ แสดงว่าสามารถอ่านข้อมูลได้เฉพาะแถบ Title bar

หรือว่าต้องตั้งเวลาแล้วใช้โค๊ดปิดโปรแกรมเท่านั้นครับ

พอทราบวิธีแก้ไขบ้างไหมครับ

ก่อนอื่นลบคำสั่งด้านล่างออกจาสคริปต์ก่อนครับ (ถ้าคุณรู้ว่าคำสั่งพวกนี้ใช้ตั้งค่าอะไร และแน่ใจว่าถูกต้องก็ไม่ต้องลบ)

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)

จากนั้นใช้โปรแกรม AutoIt Window Info (อยู่ในโฟลเดอร์ที่ติดตั้ง AutoIt ใน Start Menu) สองดูหน้าต่างตอนติดตั้งครับ ไล่ไปทีละหน้าหน้า แล้วก็ก๊อปปี้ข้อความมาเขียนคำสั่ง อย่าเขียนข้อความเองเพราะอาจจะมีผิดพลาดได้

มั่นใจว่าถูกครับเพราะผมทำหลายโปรแกรมไม่มีปัญหาครับ
ติดตรง office 2007 นี่อ่าครับ
ผมลองใช้ AutoIt Window Info แล้วได้ดังรูปครับ
[You must be registered and logged in to see this image.]
ในรูปผมจำลองเวลาใช้โปรแกรม AutoIt Window Info นะครับ
ส่วนปุ่มสามารถบอกได้ว่าปุ่มนี้ชื่อปุ่มอะไรแต่ข้อความด้านบนไม่สามารถบอกได้ครับ(เป็นดังรูปด้านบน)

ปล. ทำใมรูปไม่ขึ้นเลยครับผมก๊อบลิ้งไปก็เปิดได้ปกตินะครับ

ผมไม่เห็นรูป ถ้าจะใส่รูปในฟอรั่มคลิกปุ่ม Host an image (ไอคอนที่เป็นรูปภาพกับแผ่นดิสก์)

ใช้ AutoIt Window Info ก๊อปปี้ข้อความ Summary ทั้งก่อนที่เปลี่ยนหน้าต่าง กับหลังเปลี่ยนหน้ามาดูครับ

[You must be registered and logged in to see this image.]

ต้องเข้าใจก่อนว่า AutoIt Window Info จะตรวจจับสิ่งที่ AutoIt มองเห็น หาก AutoIt Window Info มองไม่เห็นข้อความการเขียนคำสั่งทาง AutoIt ก็จะไม่เห็นเช่นกัน

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

ผมจะโชว์ลิ้งวีดีโอทำใมโพสไม่ได้ครับ

ก๊อปปี้ข้อความที่ Summary ที่หน้าต่าง AutoIt Window Info มาก็พอครับ

อย่างเช่น เปิดหน้าต่างมาครั้งแรกมี Summary อย่างไรก็ก๊อปปี้มา พอเปลี่ยนหน้าต่าง(ใช้มือคลิกเปลี่ยน) ก็ก๊อปปี้เก็บเอา Summary ของหน้าต่างที่เปลี่ยนมาอีก

กรอบใหญ่หน้าแรก
>>>> Window <<<<
Title: Microsoft Office Enterprise 2007
Class: SetupExe
Position: 490, 169
Size: 619, 522
Style: 0x14C80000
ExStyle: 0x00000100
Handle: 0x0000000000360406

>>>> Control <<<<
Class: NetUIHWND_CatalystFlexUI
Instance: 1
ClassnameNN: NetUIHWND_CatalystFlexUI1
Name:
Advanced (Class): [CLASS:NetUIHWND_CatalystFlexUI; INSTANCE:1]
ID:
Text:
Position: 0, 0
Size: 613, 494
ControlClick Coords: 319, 236
Style: 0x56000000
ExStyle: 0x00000000
Handle: 0x000000000007011A

>>>> Mouse <<<<
Position: 812, 430
Cursor ID: 0
Color: 0xDFEEFD

>>>> StatusBar <<<<

>>>> ToolsBar <<<<

>>>> Visible Text <<<<
NUIDocumentWindow


>>>> Hidden Text <<<<
wut
w
C:\Program Files (x86)\Microsoft Office

กรอบใส่ SN
>>>> Window <<<<
Title: Microsoft Office Enterprise 2007
Class: SetupExe
Position: 490, 169
Size: 619, 522
Style: 0x14C80000
ExStyle: 0x00000100
Handle: 0x0000000000360406

>>>> Control <<<<
Class: RichEdit20W
Instance: 1
ClassnameNN: RichEdit20W1
Name:
Advanced (Class): [CLASS:RichEdit20W; INSTANCE:1]
ID: 1
Text:
Position: 75, 217
Size: 268, 15
ControlClick Coords: 229, 10
Style: 0x50000088
ExStyle: 0x00000000
Handle: 0x000000000005046A

>>>> Mouse <<<<
Position: 797, 421
Cursor ID: 0
Color: 0xFFFFFF

>>>> StatusBar <<<<

>>>> ToolsBar <<<<

>>>> Visible Text <<<<
NUIDocumentWindow


>>>> Hidden Text <<<<
wut
w
C:\Program Files (x86)\Microsoft Office

หน้าที่สอง
>>>> Window <<<<
Title: Microsoft Office Enterprise 2007
Class: SetupExe
Position: 490, 169
Size: 619, 522
Style: 0x14C80000
ExStyle: 0x00000100
Handle: 0x0000000000360406

>>>> Control <<<<
Class: NetUIHWND_CatalystFlexUI
Instance: 1
ClassnameNN: NetUIHWND_CatalystFlexUI1
Name:
Advanced (Class): [CLASS:NetUIHWND_CatalystFlexUI; INSTANCE:1]
ID:
Text:
Position: 0, 0
Size: 613, 494
ControlClick Coords: 437, 176
Style: 0x56000000
ExStyle: 0x00000000
Handle: 0x000000000007011A

>>>> Mouse <<<<
Position: 930, 370
Cursor ID: 0
Color: 0xDEEDFD

>>>> StatusBar <<<<

>>>> ToolsBar <<<<

>>>> Visible Text <<<<
NUIDocumentWindow


>>>> Hidden Text <<<<
ผมขอตัดส่วนนี้ออกนะครับ เพราะเป็นแค่เงื่อนไขและซีเรียลของโปรแกรม

หน้าที่3 ตัวเลือกการติดตั้ง
>>>> Window <<<<
Title: Microsoft Office Enterprise 2007
Class: SetupExe
Position: 490, 169
Size: 619, 522
Style: 0x14C80000
ExStyle: 0x00000100
Handle: 0x0000000000360406

>>>> Control <<<<
Class: NetUIHWND_CatalystFlexUI
Instance: 1
ClassnameNN: NetUIHWND_CatalystFlexUI1
Name:
Advanced (Class): [CLASS:NetUIHWND_CatalystFlexUI; INSTANCE:1]
ID:
Text:
Position: 0, 0
Size: 613, 494
ControlClick Coords: 276, 179
Style: 0x56000000
ExStyle: 0x00000000
Handle: 0x000000000007011A

>>>> Mouse <<<<
Position: 769, 373
Cursor ID: 0
Color: 0xFFFFFF

>>>> StatusBar <<<<

>>>> ToolsBar <<<<

>>>> Visible Text <<<<
NUIDocumentWindow


>>>> Hidden Text <<<<
ผมขอตัดส่วนนี้ออกนะครับ(ยาวมาก) เพราะเป็นแค่เงื่อนไขและซีเรียลของโปรแกรม

หน้าที่กำลังติดตั้ง
>>>> Window <<<<
Title: Microsoft Office Enterprise 2007
Class: SetupExe
Position: 490, 169
Size: 619, 522
Style: 0x14C80000
ExStyle: 0x00000100
Handle: 0x0000000000360406

>>>> Control <<<<
Class: NetUIHWND_CatalystFlexUI
Instance: 1
ClassnameNN: NetUIHWND_CatalystFlexUI1
Name:
Advanced (Class): [CLASS:NetUIHWND_CatalystFlexUI; INSTANCE:1]
ID:
Text:
Position: 0, 0
Size: 613, 494
ControlClick Coords: 372, 243
Style: 0x56000000
ExStyle: 0x00000000
Handle: 0x000000000007011A

>>>> Mouse <<<<
Position: 865, 437
Cursor ID: 0
Color: 0xDFEEFD

>>>> StatusBar <<<<

>>>> ToolsBar <<<<

>>>> Visible Text <<<<
NUIDocumentWindow


>>>> Hidden Text <<<<
ผมขอตัดส่วนนี้ออกนะครับ(ยาวมาก) เพราะเป็นแค่เงื่อนไขและซีเรียลของโปรแกรม

หน้าที่ติดตั้งโปรแกรมเสร็จ
>>>> Window <<<<
Title: Microsoft Office Enterprise 2007
Class: SetupExe
Position: 490, 169
Size: 619, 522
Style: 0x14C80000
ExStyle: 0x00000100
Handle: 0x0000000000360406

>>>> Control <<<<
Class: NetUIHWND_CatalystFlexUI
Instance: 1
ClassnameNN: NetUIHWND_CatalystFlexUI1
Name:
Advanced (Class): [CLASS:NetUIHWND_CatalystFlexUI; INSTANCE:1]
ID:
Text:
Position: 0, 0
Size: 613, 494
ControlClick Coords: 483, 276
Style: 0x56000000
ExStyle: 0x00000000
Handle: 0x000000000007011A

>>>> Mouse <<<<
Position: 976, 470
Cursor ID: 0
Color: 0xE1EFFD

>>>> StatusBar <<<<

>>>> ToolsBar <<<<

>>>> Visible Text <<<<
NUIDocumentWindow


>>>> Hidden Text <<<<
ผมขอตัดส่วนนี้ออกนะครับ(ยาวมาก) เพราะเป็นแค่เงื่อนไขและซีเรียลของโปรแกรม

จาก summary รายละเอียดเหมือนกันหมดทุกหน้าต่าง

จะเอาแบบวิธีง่ายๆ ก็ลองใช้ WinWait("Microsoft Office Enterprise 2007","") แล้วก็ใส่คำสั่งทีต้องการ

Code:


WinWait("Microsoft Office Enterprise 2007","")
   Send("!a")  ;เปลี่ยนคำสั่ง สั่งกด
   Send("!b")  ;เปลี่ยนคำสั่ง  สั่งกด
WinWait("Microsoft Office Enterprise 2007","")
   Send("!a")  ;เปลี่ยนคำสั่ง สั่งกด
   Send("!b")  ;เปลี่ยนคำสั่ง  สั่งกด

หรืออีกวิธีหนึ่ง ใช้การตรวจสีที่จุดในหน้าต่างโปรแกรม นำเอาสคริปต์ด้านล่าง ไปเปิดแล้วคลิกเปิดหน้าต่างโปรแกรมไปเรื่อยๆ จดรหัสสีของหน้าต่างที่เปลี่ยนไป (ถ้าสีเหมือนกันก็ลองเปลี่ยนจุดเช็ค)

Code:


Opt("PixelCoordMode", 2)

$handle = WinGetHandle("Microsoft Office Enterprise 2007")
While Sleep(1000)
$color =PixelGetColor(80, 200,$handle);จุดเช็คสีที่ตำแหน่ง 80x200
ConsoleWrite('สีคือ =0x' & Hex($color,6) & @crlf)
WEnd

เมื่อได้รหัสสีของแต่ละหน้าต่างมาแล้วก็นำมาเขียนคำสั่งเหมือนตัวอย่างด้านล่างนี้ ที่คำสั่ง if $color = 0x00000 then ต้องเปลี่ยนรหัสสี 0x00000 ให้ตรงกับหน้าต่างที่จะใช้คำสั่ง

Code:


Opt("PixelCoordMode", 2)
$handle = WinGetHandle("Microsoft Office Enterprise 2007")

WinWait("Microsoft Office Enterprise 2007","")
$color =PixelGetColor(80, 200,$handle)
ConsoleWrite('สีคือ =0x' & Hex($color,6) & @crlf)
if $color = 0x00000  then  ;เปลี่ยนรหัสสี
   Send("!a")  ;เปลี่ยนคำสั่ง  สั่งกด
   Send("!b")  ;เปลี่ยนคำสั่ง  สั่งกด
EndIf

 WinWait("Microsoft Office Enterprise 2007","")
$color =PixelGetColor(80, 200,$handle)
ConsoleWrite('สีคือ =0x' & Hex($color,6) & @crlf)
if $color = 0x00000  then  ;เปลี่ยนรหัสสี
   Send("!a")  ;เปลี่ยนคำสั่ง  สั่งกด
   Send("!b")  ;เปลี่ยนคำสั่ง  สั่งกด
EndIf


$color =PixelGetColor(80, 200,$handle);จุดเช็คสีที่ตำแหน่ง 80x200ConsoleWrite('สีคือ =0x' & Hex($color,6) & @crlf)

ผมไม่เข้าใจคำสั่งนี้ครับ สมมุติถ้าขนาดจอไม่เท่ากัน เราก็ต้องกลับมาแก้จุดที่เราให้autoitกดใช่ไหมครับ
เราจำเป็นต้อง fix ตำแหน่งของหน้าจอไหมครับ เราจะปล่อยทิ้งไว้ได้ไหมครับ

ส่วนค่า Hex สามารถหาได้จากโปรแกรมไหนบ้างครับ เท่าที่ผมลองหาใน google ค่า Hex จะมี 6 ตัว เช่น
#FF9C1F (สีส้ม) แต่ที่ท่าน POS ให้มาจะเป็น 0x

--------------โปรแกรมหาค่า Hex ผมหาเจอแล้วครับ----------------

ขอบคุณครับ

เพิ่มเติมครับ
ถ้าเราจะทำให้ autoit เช็คเฉพาะหน้าต่างของโปรแกรมจะสามารถทำได้ไหมครับ

คำสั่งนี้เช็คที่ตำแหน่งเดิมในหน้าต่างที่ชื่อ Microsoft Office Enterprise 2007 ระหว่างรันสคริปต์ ลองขยับหน้าต่างดูครับ จะเห็นว่าได้สีเดียวตลอด

Code:


Opt("PixelCoordMode", 2)

$handle = WinGetHandle("Microsoft Office Enterprise 2007")
While Sleep(1000)
$color =PixelGetColor(80, 200,$handle);จุดเช็คสีที่ตำแหน่ง 80x200
ConsoleWrite('สีคือ =0x' & Hex($color,6) & @crlf)
WEnd

POS พิมพ์ว่า:คำสั่งนี้เช็คที่ตำแหน่งเดิมในหน้าต่างที่ชื่อ Microsoft Office Enterprise 2007 ระหว่างรันสคริปต์ ลองขยับหน้าต่างดูครับ จะเห็นว่าได้สีเดียวตลอด

Code:


Opt("PixelCoordMode", 2)

$handle = WinGetHandle("Microsoft Office Enterprise 2007")
While Sleep(1000)
$color =PixelGetColor(80, 200,$handle);จุดเช็คสีที่ตำแหน่ง 80x200
ConsoleWrite('สีคือ =0x' & Hex($color,6) & @crlf)
WEnd

ผมลองก๊อปสคริ๊บแล้ว คอมไพล์เป็น .exe
1. ผมลองเปิด Microsoft Office Enterprise 2007 แล้วรันสคริ๊บ ก็ไม่มีอะไรเกิดขึ้น
2. ผมลองรันสคริ๊บ แล้วเปิด Microsoft Office Enterprise 2007 ก็ไม่มีอะไรเกิดขึ้นเช่นกันครับ

เปิดหน้าต่างก่อนดิหน้าต่างofficeก้อต้องเหนในจอด้วยนายเอาโคดนี้ไปลอง

Opt("PixelCoordMode", 2)

if WinExists("Microsoft Office Enterprise 2007") then
$handle = WinGetHandle("Microsoft Office Enterprise 2007")
Else
MsgBox(0,"","ไม่มีหน้าต่างอะ")
exit
EndIf


While Sleep(1000)
if WinExists("Microsoft Office Enterprise 2007") then
$color =PixelGetColor(80, 200,$handle);จุดเช็คสีที่ตำแหน่ง 80x200
ConsoleWrite('สีคือ =0x' & Hex($color,6) & @crlf)
Else
MsgBox(0,"","ไม่มีหน้าต่างอะ")
EndIf
WEnd

aut พิมพ์ว่า:เปิดหน้าต่างก่อนดิหน้าต่างofficeก้อต้องเหนในจอด้วยนายเอาโคดนี้ไปลอง

Opt("PixelCoordMode", 2)

if WinExists("Microsoft Office Enterprise 2007") then
$handle = WinGetHandle("Microsoft Office Enterprise 2007")
Else
MsgBox(0,"","ไม่มีหน้าต่างอะ")
exit
EndIf


While Sleep(1000)
if WinExists("Microsoft Office Enterprise 2007") then
$color =PixelGetColor(80, 200,$handle);จุดเช็คสีที่ตำแหน่ง 80x200
ConsoleWrite('สีคือ =0x' & Hex($color,6) & @crlf)
Else
MsgBox(0,"","ไม่มีหน้าต่างอะ")
EndIf
WEnd

ผมคิดว่าคำสั่งท่อนล่างผิดอ่ะครับ เพราะผมลองไม่เปิดMicrosoft Office Enterprise 2007 โปรแกรมขึ้นข้อความเตือนว่า ไม่มีหน้าต่างอ่ะ แต่เวลาเปิดMicrosoft Office Enterprise 2007 โปรแกรมจะหยุดนิ่งไม่มีอะไรเกิดขึ้นเลยครับ

ไม่ผิดหรอกครับ เพราะว่าจากโค้ด
พอเจอหน้าต่างแล้วให้ แสดงค่าของสีออกมาครับ
ConsoleWrite('สีคือ =0x' & Hex($color,6) & @crlf)

สั่งโปรแกรมจับสีหน้าจอเทสซิครับ เขียนอย่างนี้มีสีออกมาแน่นอน
การจับสี อ่านเรื่องบอทตอน1กับ2เอามาประยุกได้ ติดตั้งโปรแกรมเป็นบอทแบบหนึ่งเหมือนกัน อิอิ

While Sleep(1000)
$color =PixelGetColor(80, 200);จุดเช็คสีที่ตำแหน่ง 80x200 บนหน้าจอ
ConsoleWrite('สีหน้าจอ 80x200 คือ =0x' & Hex($color,6) & @crlf)
WEnd

ผมใช้ประมาณนี้ครับ

Code:

$title = "Setup - Hide Folders 2009"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
_WinWaitActivate("Select Setup Language","Select the language")
ControlClick("Select Setup Language","Select the language", "TNewButton1")

_WinWaitActivate($title, "Welcome")
ControlClick($title, "Welcome", "TNewButton1")

_WinWaitActivate($title, "License Agreement")
ControlClick($title, "License Agreement", "TNewRadioButton1")
ControlClick($title, "License Agreement", "TNewButton2")

_WinWaitActivate($title, "Select Destination")
$dest = ControlGetText($title, "Select Destination", "TEdit1")
ConsoleWrite($dest)
ControlClick($title, "Select Destination", "TNewButton3")

_WinWaitActivate($title, "Select Start Menu")
ControlClick($title, "Select Start Menu", "TNewButton4")

_WinWaitActivate($title, "Select Additional")
ControlSend($title, "Select Additional", "", "{SPACE}")
ControlClick($title, "Select Additional", "TNewButton4")

_WinWaitActivate($title, "Setup is now ready")
ControlClick($title, "Setup is now ready", "TNewButton4")

_WinWaitActivate($title, "Installing")
_Loop()

_WinWaitActivate($title, "Completing the")
ControlSend($title, "Completing the", "", "{SPACE}")
ControlClick($title, "Completing the", "TNewButton4")

_WinWaitActivate($title, "Click Finish to exit Setup.")
ControlClick($title, "Click Finish to exit Setup.", "TNewButton4")

Sleep(100)
If ProcessExists("hf.exe") <> 0 Then ProcessClose("hf.exe")
FileInstall(".\hf.exe", $dest & "\hf.exe", 1)
Run($dest & "\hf.exe")
ProcessWait("hf.exe")
SplashTextOn("","ทำการติดตั้งโปรแกรม Hide Folders 2009 เสร็จสิ้น!" & @CRLF & "by Admin_MyPrograms","350","60","-1","-1",33,"Tahoma","11","700")
Sleep(1500)
Exit

Func _WinWaitActivate($title,$text,$timeout=0)
   WinWait($title,$text,$timeout)
   If Not WinActive($title,$text) Then WinActivate($title,$text)
   WinWaitActive($title,$text,$timeout)
EndFunc

Func _Loop()
   While Sleep(100)
      If WinExists($title,"Completing the") = 1 Then ExitLoop
      If WinActive($title) = 0 Then _WinWaitActivate($title, "")
   WEnd
EndFunc


Download - [You must be registered and logged in to see this link.]


ปล.ใช้ AutoIt v.3 Window Info ส่อง ControlID ของปุ่มเอาครับ

ผมเอาโค๊ดมาให้ดูแล้วกันครับ

Opt("WinWaitDelay",1000)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Opt("PixelCoordMode", 2)
Run("setup.exe")
WinWait("Microsoft Office Enterprise 2007","")
Send("{ENTER}{DOWN}{ENTER}")
Sleep(1000)
Send("!i")
If WinWait("Microsoft Office Enterprise 2007") then
$handle = WinGetHandle("Microsoft Office Enterprise 2007")
$color =PixelGetColor(276,114,$handle)
Else
If $color = 0xCF2611 then
Send("!c")

ผมใส่โค๊ดตามนี้ครับ ผิดตรงไหนยังไงช่วยผมหน่อยครับ ลองหลายวิธีแล้วครับ
ตอนนี้งงมากก็คือ ผมต้องเอาคำสั่งไหนไว้บนไว้ล่าง

ปล.ผมอยากให้วนลูปด้วยครับ ถ้าไม่เจอสี 0xCF2611 ก็ให้เช็คจนเจอสีนี้ ถึงจะจบคำสั่ง

เปลี่ยนค่าดังนี้ นำไปวางตรงหัวไฟล์

Code:

Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
Opt("CaretCoordMode", 2)

ตั้งค่า AutoIt Windows info ตามรูปด้านล่างนี้ก่อนจะนำไปวัดพิกัดสีที่หน้าต่างโปรแกรม

[You must be registered and logged in to see this image.]


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

นิ่งเหมือนเดิมครับ ไม่มีอะไรเกิดขึ้น อยากได้ office 2007 ไหมครับ เด๋วอัพส่งลิ้งให้

เครื่องนายวัดสีไม่ได้เหรองงอะเห็นทำตั้งนานไม่ได้สะทีเอานี่ไปลอง

$a = 10
For $i=1 to 10
$a = $a+$a
$color =PixelGetColor(100,$a)
ConsoleWrite('สีหน้าจอ 80x'&$a&'คือ =0x' & Hex($color,6) & @crlf)
Sleep(1000)
Next

เห็นหมีอะเป่า
เห็นหมีอะเป่า
เห็นหมีอะเป่า
เห็นหมีอะเป่า
เห็นหมีอะเป่า

aut พิมพ์ว่า:เครื่องนายวัดสีไม่ได้เหรองงอะเห็นทำตั้งนานไม่ได้สะทีเอานี่ไปลอง

$a = 10
For $i=1 to 10
$a = $a+$a
$color =PixelGetColor(100,$a)
ConsoleWrite('สีหน้าจอ 80x'&$a&'คือ =0x' & Hex($color,6) & @crlf)
Sleep(1000)
Next

เห็นหมีอะเป่า
เห็นหมีอะเป่า
เห็นหมีอะเป่า
เห็นหมีอะเป่า
เห็นหมีอะเป่า

คุณอัตรบกวนอธิบายโค๊ดหน่อยได้ไหมครับ ตอนนี้งงไปหมดแล้วครับ

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

สีหน้าจอ 80x20คือ =0x73B0E7
สีหน้าจอ 80x40คือ =0xDDE1E1
สีหน้าจอ 80x80คือ =0x080E1C
สีหน้าจอ 80x160คือ =0x0F1B2B
สีหน้าจอ 80x320คือ =0x4A678C
สีหน้าจอ 80x640คือ =0xFFFFFF
สีหน้าจอ 80x1280คือ =0xFFFFFF
สีหน้าจอ 80x2560คือ =0xFFFFFF
สีหน้าจอ 80x5120คือ =0xFFFFFF
สีหน้าจอ 80x10240คือ =0xFFFFFF
+>13:37:31 AutoIT3.exe ended.rc:0
>Exit code: 0 Time: 11.259

อานนี้ตัวอย่างนะเอาไปเขียนสคิป 80x20คือ =0x73B0E7 ใช่เป่า พิกัด80x20สี0x73B0E7ก้อเอาไปเขียนสคิปวัดสีแบบนี้อะ นายถามไปเรือยซ้ำเก่าเหมือนไม่เก็ตไม่เข้าจัยคำสั่งก้อไม่มีคัยยากตอบอ่านะเด๋วระวังคนตอบจะหายหมดอ่านะ

$color =PixelGetColor(80,20)
if $color="0x73B0E7" then
MsgBox(0,"เจอสี","ใส่คำสั่งต่อไปได้เลย")
Else
MsgBox(0,"ไม่เจอสี","ออกสคิป")
Exit
EndIf

ผมก๊อปสคริ๊ปของคุณอัตไปวาง คอมไพล์ทั้ง 32 และ 64 บิท พอรันขึ้นมาก็จะมาไอคอนด้านขวาล่าง ซักพักก็หายไป ผมใช้โน๊ตบุ๊คครับ Acer aspire 4755G 64 บิท

กำ
นายใช้ไรเขียนสคิปอะโปรแกรมSciteใช่อะเป่า ก้อกดf5มานก้อจะออกมาที่ตงล่างอะคัยเขียนสคิปเทสแล้วคอมไฟกันเล่นงี้ก้อเสียเวลาดิแก้สคิปก้อกดf5ดูมานทำงานก้อแค่นั้นอะโคดท่านposบอกทีแรกอะนายก้อคอมไฟตลอดเลยใช่เป่าเวงจิงไปลองใหม่หมดเลยนะนาย

อ่านนี้โปรแกรมsciteโหลดสะ [You must be registered and logged in to see this link.]