เจอสี...เกิน...วินาที ให้ทำ ....

จะสอบถามเรื่องการเขียนสคริปต์ว่า ถ้าหากเราเจอสี 0x000000 เป็นเวลา 15 วินาที โดยที่สีนั้นไม่มีการเคลื่อนไหวเลยตลอด15วินาที ประมาณว่าค้างอะครับ เราจะสั่งให้มันทำ Send("{F5}") ทำได้หรือป่าวครับ

ประมาณนี้มั้งครับ ยังไม่ได้เทส

Code:

AdlibRegister("_Color")

While 1
   $color = PixelGetColor($x, $y)
   If Hex($color, 6) = "000000" Then
      $a = 1
   Else
      $a = 0
   EndIf
WEnd

Func _Color()
   If $a = 1 Then
      Local $begin = TimerInit()
      If Int(TimerDiff($begin)) = 15000 Then
         Send("{F5}")
         MsgBox(0, "test", "กด F5")
      EndIf
   EndIf
EndFunc

ขอบคุณครับเดี๋ยวขอลองก่อนนะครับ ถ้าได้ยังไงจะบอกอีกทีนะครับ

ลองใช้ดูแล้วมันไม่ได้อะครับ

ถ้าเป็นแบบนี้ใช้ได้ไหม ครับ

Code:


#RequireAdmin
$time = 15
While 1
   
   If  PixelGetColor (0,0) = 0xFFFFFF   Then   ; เปลี่ยน พิกัด X  และ Y
         $time = $time - 1
        If $time = 0 Then
           Send("{F5}")
           $time = 15
           EndIf
     Else
        $time = 15
      EndIf
      Sleep(1000)
   WEnd


ใช้ได้ครับ ขอบคุณมากๆเลยครับ   คุณ flapjack