x_files_x Posted June 21, 2013 Share Posted June 21, 2013 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 Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted June 21, 2013 Share Posted June 21, 2013 (edited) 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 Quote Link to comment Share on other sites More sharing options...
x_files_x Posted June 21, 2013 Author Share Posted June 21, 2013 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 Quote Link to comment Share on other sites More sharing options...
Ex_treme Posted June 21, 2013 Share Posted June 21, 2013 (edited) 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 Quote Link to comment Share on other sites More sharing options...
x_files_x Posted June 22, 2013 Author Share Posted June 22, 2013 Bende çalışmadı, donuyor Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted June 22, 2013 Share Posted June 22, 2013 (edited) 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 Quote Link to comment Share on other sites More sharing options...
x_files_x Posted June 22, 2013 Author Share Posted June 22, 2013 ekranda harket eden bir nesneyi takip eden bir gui Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.