MuratEsgin Posted July 15, 2011 Share Posted July 15, 2011 Merhaba Arkadaşlar Yine Ben Yaptığım Form da WinWaitActive("Adsız - Not Defteri") bu Kodu Denedim Oldu Oyuna göre uyarlıyim dedim şu kodu denedim WinWaitActive("Age of Mythology") bu olmadı WinWaitActive("AoM.eXe") sonra bunu denedim buda olmadı sizce nerde sorun var kodlar aşağıda [spoiler][code]#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Age of Mythology Trainer By Gizli Silah", 333, 169, 288, 178) $Button1 = GUICtrlCreateButton("Altın 5.000", 8, 16, 75, 25) $Button2 = GUICtrlCreateButton("Et 5.000", 8, 56, 75, 25) $Button3 = GUICtrlCreateButton("Odun 5.000", 8, 96, 75, 25) $Button4 = GUICtrlCreateButton("Rastgele Ö.", 8, 136, 75, 25) $Button5 = GUICtrlCreateButton("Özel Özellik", 144, 16, 107, 25) $Label1 = GUICtrlCreateLabel(" F1", 96, 24, 19, 17) $Label2 = GUICtrlCreateLabel(" F2", 96, 64, 19, 17) $Label3 = GUICtrlCreateLabel(" F3", 96, 104, 19, 17) $Label4 = GUICtrlCreateLabel(" F4", 96, 144, 19, 17) $Label5 = GUICtrlCreateLabel(" F5", 264, 24, 19, 17) $Label6 = GUICtrlCreateLabel(" F6", 264, 64, 19, 17) $Button6 = GUICtrlCreateButton("Haritayı Açar", 144, 56, 107, 25) $Button7 = GUICtrlCreateButton("Hızlı insaat", 144, 96, 107, 25) $Label7 = GUICtrlCreateLabel(" F7", 264, 104, 19, 17) $Button8 = GUICtrlCreateButton("Kullanılmış Ö. Açar", 144, 136, 107, 25) $Label8 = GUICtrlCreateLabel(" F8", 264, 144, 19, 17) Local $Form1_AccelTable[8][2] = [["{F1}", $Button1],["{F2}", $Button2],["{F3}", $Button3],["{F4}", $Button4],["{F5}", $Button5],["{F6}", $Button6],["{F7}", $Button7],["{F8}", $Button8]] GUISetAccelerators($Form1_AccelTable) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 WinWaitActive("Adsız - Not Defteri") send("{ENTER}") Send("ATM OF EREBUS") Send("{ENTER}") send("{ENTER}") Send("ATM OF EREBUS") Send("{ENTER}") send("{ENTER}") Send("ATM OF EREBUS") Send("{ENTER}") send("{ENTER}") Send("ATM OF EREBUS") Send("{ENTER}") send("{ENTER}") Send("ATM OF EREBUS") Send("{ENTER}") Case $Button2 WinWaitActive("Adsız - Not Defteri") send("{ENTER }") send("JUNK FOOD NIGHT") send("{ENTER }") send("{ENTER }") send("JUNK FOOD NIGHT") send("{ENTER }") send("{ENTER }") send("JUNK FOOD NIGHT") send("{ENTER }") send("{ENTER }") send("JUNK FOOD NIGHT") send("{ENTER }") send("{ENTER }") send("JUNK FOOD NIGHT") send("{ENTER }") Case $Button3 WinWaitActive("Adsız - Not Defteri") send("{ENTER }") send("TROJAN HORSE FOR SALE") send("{ENTER }") send("{ENTER }") send("TROJAN HORSE FOR SALE") send("{ENTER }") send("{ENTER }") send("TROJAN HORSE FOR SALE") send("{ENTER }") send("{ENTER }") send("TROJAN HORSE FOR SALE") send("{ENTER }") send("{ENTER }") send("TROJAN HORSE FOR SALE") send("{ENTER }") Case $Button4 WinWaitActive("Adsız - Not Defteri") send("{ENTER }") send("PANDORAS BOX") send("{ENTER }") Case $Button5 WinWaitActive("Adsız - Not Defteri") send("{ENTER}") send("WRATH OF THE GODS") send("{ENTER}") Case $Button6 WinWaitActive("Adsız - Not Defteri") send("{ENTER}") send("LAY OF THE LAND") send("{ENTER}") Case $Button7 WinWaitActive("Adsız - Not Defteri") send("{ENTER}") send("L33T SUPA H4X0R") send("{ENTER}") Case $Button8 WinWaitActive("Adsız - Not Defteri") send("{ENTER}") send("DIVINE INTERVENTION") send("{ENTER}") EndSwitch WEnd [/code][/spoiler] Quote Link to comment Share on other sites More sharing options...
blue_life Posted July 15, 2011 Share Posted July 15, 2011 @MuratEsgin Anladığım kadarıyla ilgili oyun açıkken sende ile ilgili içeriği gönderiyorsun. Peki niye HotKeySet kullanmıyorsun? HotkeySet ile daha sorunsuz ve daha kolay bu işi yapman mümkün! Haliyle oyun açıkken ilgili oyun aktif olacağından hotkeye basman ile oyuna ilgili bilgiyi gönderebilirsin! Istiyorsan basit bir örnek verebilirim... Quote Link to comment Share on other sites More sharing options...
MuratEsgin Posted July 15, 2011 Author Share Posted July 15, 2011 saol blue_life örnek verirsen sevinirim keşke tüm üyeler senin gibi olabilse Quote Link to comment Share on other sites More sharing options...
blue_life Posted July 15, 2011 Share Posted July 15, 2011 @MuratEsgin Aşağıdaki örnekte F1-F2-F3 vs. kısayollarına atama yaptım. Sen kendine göre ayarlarsın. Lakin send komutunu kullandığımızdan, kodları çalıştırıp F1 tuşuna basarsan aktif pencerey ilgili tuşları gönderir. Oyunda bir sorun olacağını düşünmüyorum. Kendine göre ayarlarsın. Kolay gelsin... [codebox]Global $Paused HotKeySet("{PAUSE}", "TogglePause") HotKeySet("{ESC}", "Terminate") HotKeySet("{F1}", "_F1") HotKeySet("{F2}", "_F2") HotKeySet("{F3}", "_F3") While 1 Sleep(100) WEnd ;;;;;;;; Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script is "Paused"',0,0) WEnd ToolTip("") EndFunc Func Terminate() Exit 0 EndFunc Func _F1() Send("{ENTER}") Send("ATM OF EREBUS") Send("{ENTER}") Send("{ENTER}") Send("ATM OF EREBUS") Send("{ENTER}") Send("{ENTER}") Send("ATM OF EREBUS") Send("{ENTER}") Send("{ENTER}") Send("ATM OF EREBUS") Send("{ENTER}") Send("{ENTER}") Send("ATM OF EREBUS") Send("{ENTER}") EndFunc Func _F2() Send("{ENTER }") Send("JUNK FOOD NIGHT") Send("{ENTER }") Send("{ENTER }") Send("JUNK FOOD NIGHT") Send("{ENTER }") Send("{ENTER }") Send("JUNK FOOD NIGHT") Send("{ENTER }") Send("{ENTER }") Send("JUNK FOOD NIGHT") Send("{ENTER }") Send("{ENTER }") Send("JUNK FOOD NIGHT") Send("{ENTER }") EndFunc Func _F3() Send("{ENTER }") Send("TROJAN HORSE FOR SALE") Send("{ENTER }") Send("{ENTER }") Send("TROJAN HORSE FOR SALE") Send("{ENTER }") Send("{ENTER }") Send("TROJAN HORSE FOR SALE") Send("{ENTER }") Send("{ENTER }") Send("TROJAN HORSE FOR SALE") Send("{ENTER }") Send("{ENTER }") Send("TROJAN HORSE FOR SALE") Send("{ENTER }") EndFunc[/codebox] Quote Link to comment Share on other sites More sharing options...
MuratEsgin Posted July 15, 2011 Author Share Posted July 15, 2011 (edited) çok saol blue_life bu forumda en çok bana yardım eden sendin bişey daha sorucam bunları nereye yazıcam Edited July 15, 2011 by MuratEsgin Quote Link to comment Share on other sites More sharing options...
MostWanted Posted July 15, 2011 Share Posted July 15, 2011 Bende hazıra konsam bu kadar sevinirim ah ah. Quote Link to comment Share on other sites More sharing options...
blue_life Posted July 15, 2011 Share Posted July 15, 2011 @MuratEsgin Neyi nere yazacaksın? Anlamadım Masaüstünde yeni bir autoitv3 script dosyası oluştur ve kodları içine yaz. Kodları incele ve diğer hotkey tuşlarını kendine göre ayarla.... Biraz kurcalarsan basit olduğunu görürsün... Quote Link to comment Share on other sites More sharing options...
MuratEsgin Posted July 15, 2011 Author Share Posted July 15, 2011 (edited) Pardon Yeni Bir Konu Öğrendim Saol Birde Şu ESC nin Altındaki Tuşun adı ney " é olan xD Edited July 15, 2011 by MuratEsgin 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.