Pixel'i Takip Eden Gui Nasıl Yapılır?

[x_files_x]

Arkadaşlar ben ekranda hareket eden bir pixeli takip eden bir gui yapmak istiyorum, mouse olayını yapıyorumda guiyi yapamadım. yardımlarınızı bekliyorum

[mesale0077]

daha net yazabilirmisin

tam olarak ne yapmak istiyorsun

biraz kod örneği yaparsan o yönde çalışma yapalım :)

bu konu ile alakası yok yanlız piksel kullanım örneği var içinde

 

benim hazırladığım

http://www.autoitscript.com/forum/topic/140961-msn-live-support-line-and-live-help-button/

lakin autoit sitesi güncellemesi yüzünden kodun içeriği bozulmuştur.

ayrıca msn bu desteği kesmiş :(

benim pc de problem çözülene kadar kod örneği veremiyebilirim :)

Edited June 21, 2013 by mesale0077

[x_files_x]

böyle bişi yaptım ama pek olmadı, mesela hareket eden bir obje var, o obje nereye giderse guide oraya gitsin istiyorum,

    #include <GUIConstants.au3>
    Opt("GUICloseOnESC", 1)
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 139, 43, 193, 159)
    $Input1 = GUICtrlCreateInput("Input1", 8, 8, 121, 21)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
EndSwitch

    $MPos = PixelSearch(0, 0, 768, 300, 0xFF0000)
	WinActivate("Form1")
	Sleep(100)
    WinMove("Form1", "", $MPos[0], $MPos[1])
WEnd

[Ex_treme]

 

böyle bişi yaptım ama pek olmadı, mesela hareket eden bir obje var, o obje nereye giderse guide oraya gitsin istiyorum,

    #include <GUIConstants.au3>
    Opt("GUICloseOnESC", 1)
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 139, 43, 193, 159)
    $Input1 = GUICtrlCreateInput("Input1", 8, 8, 121, 21)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
EndSwitch

    $MPos = PixelSearch(0, 0, 768, 300, 0xFF0000)
	WinActivate("Form1")
	Sleep(100)
    WinMove("Form1", "", $MPos[0], $MPos[1])
WEnd

Bu Kodlar Çalışıyor,Rengi Yanlış Yazmış Olabilisin.Rengi Nereden Aldın kodunu yani ??? Mesela Ben Penceredeki Rengi Takip Ettirdim,Test İçin Pencereyi Hareket Ettirecektim Ama Olmadı Çünkü WinActivate("Form1")(Pencereyi Aktifleştire yada Öne alma ) i While döngüsüne Almışsın Ben Sildim Orayı Pencereyi Hareket Ettirdim Takip Etti...

Edited June 21, 2013 by Ex_treme

[x_files_x]

Bende çalışmadı, donuyor

[mesale0077]

ToolTip("yükleniyor",500, 500)
    Local $hDownload = InetGet("http://www.tnctr.com/uploads/imgs/pre_1371908932__krmz-renk-ne-anleeeama-geliyor.png", @ScriptDir&"\Copy_Kırmızı-Renk-Ne-Anlama-Geliyor.png", 1, 1)
    Do
    Sleep(250)
    Until InetGetInfo($hDownload, 2)
    Local $nBytes = InetGetInfo($hDownload, 0)
    InetClose($hDownload)
ToolTip("")
    ShellExecute(@ScriptDir&"\Copy_Kırmızı-Renk-Ne-Anlama-Geliyor.png")
    #include <GUIConstants.au3>
    Opt("GUICloseOnESC", 1)
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 139, 43, 193, 159)
    $Input1 = GUICtrlCreateInput("Input1", 8, 8, 121, 21)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    WinActivate("Form1")
    sleep(1000)
    $MPos = PixelSearch(500, 500, 768, 300, 0xFF0000)
    Sleep(100)
    WinMove("Form1", "", $MPos[0], $MPos[1])
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    filedelete(@ScriptDir&"\Copy_Kırmızı-Renk-Ne-Anlama-Geliyor.png")
    Exit
    EndSwitch
    WEnd

tam olarak  ne yapmak istiyorsun

Edited June 22, 2013 by mesale0077

[x_files_x]

ekranda harket eden bir nesneyi takip eden bir gui