รบกวนสอบถาม การควบคุมเกมส์ชื่อเดียวกันเปิดหลายหน้าต่าง

คือมีโปรแกรมเกมส์เปิดอยู่หลายๆตัว เช่น a.exe b.exe c.exe
แล้ว Title ของแต่ละอันจะเหมือนกันหมดเลย เช่นแสดงชื่อTitle ว่าzzzz ถ้าอยากให้แต่ละอัน ใช้คำสั่งWinSetTitle ให้Titleต่างกัน เป็น a b c โดยโปรแกรมย่ออยุ่บนtaskbarจะต้องเขียนคริปยังไงดีครับ
เพราะลองหลายแบบแล้วแต่ต้องมายกจอขึ้นแล้วกดเปลี่ยนเองตลอดเลย ขอบคุณครับ

ลองสคริปต์ด้านล่างนี้ เปิดโปรแกรมขึ้นมาให้หมดก่อน

Code:

$a = 1
$winlist = WinList()
For $i = 1 To $winlist[0][0]
   If $winlist[$i][0] <> "" Then
      If $winlist[$i][0] = "xxx" Then ;ชื่อไตเติลโปรแกรมเดิม
         WinSetTitle($winlist[$i][0], "", "program" & $a) ;ชื่อไตเติลที่ต้องการเปลี่ยนใหม่
         $a += 1
      EndIf
   EndIf
Next

***เท่าที่อ่านดูปัญหาบรรทัดล่างสุดของคุณ โปรแกรมมีการป้องกันไม่ให้เปลี่ยนไตเติล ถ้าจะควบคุมโปรแกรมแบบแยกให้วิธีดึงเอาค่า pid ของโปรแกรมที่เปิดมาควบคุมอีกครั้ง เช่น

Code:

Global $pid1 = Run("aaa.exe")
Sleep(1000);กะหน่วงเวลาจนกว่าจะเปิดโปรแกรมเสร็จ

    $WinList=WinList()
    for $i=1 to $WinList[0][0]
        if WinGetProcess($WinList[$i][1])=$pid1 then
          $pid1 = $WinList[$i][1]
        EndIf
    Next

 
   WinActivate($pid1);สั่งเด้งหน้าต่างขึ้นมา

;เขียนสคริปต์ควบคุมอื่นๆ  อ้างอิงหน้าต่างโดยใช้ $pid1
;เขียนสคริปต์ควบคุมอื่นๆ อ้างอิงหน้าต่างโดยใช้ $pid1
;เขียนสคริปต์ควบคุมอื่นๆ อ้างอิงหน้าต่างโดยใช้ $pid1



เวลาจะควบคุมก็สั่งที่ $pid1 แทนการสั่งที่ชื่อไตเติลโปรแกรม

POS พิมพ์ว่า:ลองสคริปต์ด้านล่างนี้ เปิดโปรแกรมขึ้นมาให้หมดก่อน

Code:

$a = 1
$winlist = WinList()
For $i = 1 To $winlist[0][0]
   If $winlist[$i][0] <> "" Then
      If $winlist[$i][0] = "xxx" Then ;ชื่อไตเติลโปรแกรมเดิม
         WinSetTitle($winlist[$i][0], "", "program" & $a) ;ชื่อไตเติลที่ต้องการเปลี่ยนใหม่
         $a += 1
      EndIf
   EndIf
Next

***เท่าที่อ่านดูปัญหาบรรทัดล่างสุดของคุณ โปรแกรมมีการป้องกันไม่ให้เปลี่ยนไตเติล ถ้าจะควบคุมโปรแกรมแบบแยกให้วิธีดึงเอาค่า pid ของโปรแกรมที่เปิดมาควบคุมอีกครั้ง เช่น

Code:

Global $pid1 = Run("aaa.exe")
Sleep(1000);กะหน่วงเวลาจนกว่าจะเปิดโปรแกรมเสร็จ

    $WinList=WinList()
    for $i=1 to $WinList[0][0]
        if WinGetProcess($WinList[$i][1])=$pid1 then
          $pid1 = $WinList[$i][1]
        EndIf
    Next

 
   WinActivate($pid1);สั่งเด้งหน้าต่างขึ้นมา

;เขียนสคริปต์ควบคุมอื่นๆ  อ้างอิงหน้าต่างโดยใช้ $pid1
;เขียนสคริปต์ควบคุมอื่นๆ อ้างอิงหน้าต่างโดยใช้ $pid1
;เขียนสคริปต์ควบคุมอื่นๆ อ้างอิงหน้าต่างโดยใช้ $pid1



เวลาจะควบคุมก็สั่งที่ $pid1 แทนการสั่งที่ชื่อไตเติลโปรแกรม

ผมได้ลองเอาไปใช้แล้วครับสคริปแรกตัวนี้ กลายเป็นว่ามันเจอtitle ที่กำหนดทั้งหมดและทำการเปลี่ยนชื่อให้แล้วเรียงตามตัวเลข แต่ดันมีปัญหาคือว่ามันเรียงเลขจากขวามาซ้าย เช่นในtasbar จะเรียงดังนี้
10 9 8 7 6 5 4 3 2 1
โดยที่ผมต้องการคือให้มันเรียง
1 2 3 4 5 6 7 8 9 10
ไม่ทราบว่าต้องแก้ตรงส่วนไหนครับ ขอบคุณครับ

มี10อันใช่เป่าก้อแก้$aนะตามนี่เลยนาย

$a = 10
$winlist = WinList()
For $i = 1 To $winlist[0][0]
If $winlist[$i][0] <> "" Then
If $winlist[$i][0] = "xxx" Then ;ชื่อไตเติลโปรแกรมเดิม
WinSetTitle($winlist[$i][0], "", "program" & $a) ;ชื่อไตเติลที่ต้องการเปลี่ยนใหม่
$a -= 1
EndIf
EndIf
Next

aut พิมพ์ว่า:มี10อันใช่เป่าก้อแก้$aนะตามนี่เลยนาย

$a = 10
$winlist = WinList()
For $i = 1 To $winlist[0][0]
If $winlist[$i][0] <> "" Then
If $winlist[$i][0] = "xxx" Then ;ชื่อไตเติลโปรแกรมเดิม
WinSetTitle($winlist[$i][0], "", "program" & $a) ;ชื่อไตเติลที่ต้องการเปลี่ยนใหม่
$a -= 1
EndIf
EndIf
Next

ได้ละคับ แต่ติดปัญหาตรงชื่อtitleถ้าเราจะใช้แค่บางส่วนที่หมือนชื่อtitleแล้วให้มันเปลี่ยนตามที่กำหนด จะต้องแก้ตรงไหนครับ เพราะตามscriptด้านบนจะเปลี่ยนไมได้ถ้าไม่ตรงทั้งหมดครับ ขอบคุณครับ สอบถามเพิ่มเติมครับ ถ้าเราอยากให้ทำฟังชั่นซ้ำกันเป็นจำนวนครั้งเช่น ให้ทำ5ครั้ง
จะเขียนในคริปอย่างไรครับ ขอบคุณครับ

เพิ่มเติมครับ อีกปัญหาคือcontrolclickเวลาผมส่งคำสั่งไปหลายๆหน้าจอ จะเกิดการส่งไม่ครบ
และpixelsearchแบบ
$coord = PixelSearch( 681,206, 1097,500, 0xD59158 )
If Not @error Then
MouseClick("right",$coord[0] ,$coord[1],1,0)
Sleep (500)

บางเครื่องใช้สีเดียวกันเกมส์เดียวกันสคริปเดียวกันก้อเช๊คสีได้ไม่ถูกต้อง
บางเครื่องจะคลิกบางเครื่องจะไม่คลิกทั้งที่ใส่หลายสีแล้วล่ะครับ

ขอบคุณครับ

ทำแบบ5ทีก้อเอาforคอบคำสั่งไว้นะ

for $i =1 to 5 ;ทำ5ทีนะจาทำ10ก้อเปลี่ยน5เป็น10

;ยัดคำสั่งไรก้อได้ตงนี้
;ยัดคำสั่งไรก้อได้ตงนี้
;ยัดคำสั่งไรก้อได้ตงนี้

Next

controlclickส่งไม่ครบนายก้อเขียนสั่งให้มานตรวจดิปรามาณสั่งกดไปในเกมมานก้อต้องมีอะไรเปี่ยนไปใช่เปล่านายก้อgetcolorตงที่เปี่ยนอะดูว่าเปี่ยนอะยังถ้ายังไม่เปี่ยนก้อสั่งกดอีกทีปรามานนี้

$coord = PixelSearch(681, 206, 1097, 500, 0xD59158)
If Not @error Then

Do
$xx = PixelGetColor($coord[0], $coord[1]) ;getสีออกมาก่อน
MouseClick("right", $coord[0], $coord[1], 1, 0) ;สั่งกด
Sleep(500)
Until $xx <> 0xD59158 ;สีเปี่ยนอะหยังเปี่ยนก็เลิกทำ
EndIf

เกมที่มานมีeffectเยอะกาดจอคนละรุนสีก้อไม่ตงอ่านะปิดำeffectทิ้งไปเลยนายถามเยอะวะตอบแค่นี้พอ555555ไม่เก็ตก้อถามใหม่นะนายเราจะได้แอบเนียนปั้ม5555

สคริปนี้อ่ะคับ
$a = 10
$winlist = WinList()
For $i = 1 To $winlist[0][0]
If $winlist[$i][0] <> "" Then
If $winlist[$i][0] = "xxx" Then ;ชื่อไตเติลโปรแกรมเดิม
WinSetTitle($winlist[$i][0], "", "program" & $a) ;ชื่อไตเติลที่ต้องการเปลี่ยนใหม่
$a -= 1
EndIf
EndIf
Next

ถ้าผมจะให้มันเปลี่ยนโดยจับกับtitleแค่บางส่วนต้องแก้ไขยังไงหรอครับ
เช่นเกมส์ชื่อvitamilk plusแต่ถ้าผมใส่แค่
If $winlist[$i][0] = "vita" Then ;ชื่อไตเติลโปรแกรมเดิม
มันจะไม่เปลี่ยนให้น่ะครับ แต่ถ้าใส่วาvitamilk plus มันเปลี่ยนให้ครับ ขอบคุณครับ

เปลี่ยนคำสั่งเป็น StringInStr แทนครับ ดังตัวอย่างสคริปต์ด้าล่างนี้

Code:

$a = 10
$winlist = WinList()
For $i = 1 To $winlist[0][0]
   If $winlist[$i][0] <> "" Then
      If StringInStr($winlist[$i][0], "xxx")  Then ;ชื่อไตเติลโปรแกรมเดิม
         WinSetTitle($winlist[$i][0], "", "program" & $a) ;ชื่อไตเติลที่ต้องการเปลี่ยนใหม่
         $a -= 1
      EndIf
   EndIf
Next

ขอลองเอาไปศึกษาด้วยนะครับ

อยากรู้การเขียนควบคุ้มโดนกดTab แล้วกดตัวเลข 1 ถึง10 งะครับผมจะเอาไปลองกับเกม
E
D
E
N

ครับ ใครช่วนแนะนำที

อยากทำแบบนี้