MesutÖzil Posted June 10, 2013 Share Posted June 10, 2013 Bunu direk açabilceğimiz şekilde açarmısınız (Exe olarak) Quote Link to comment Share on other sites More sharing options...
JuSt3e Posted June 10, 2013 Author Share Posted June 10, 2013 Oto Mouse Kodu #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.8.1 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <Misc.au3> HotKeySet("{F6}", "_basla") HotKeySet("{F9}", "_dur") #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("AutoTick", 372, 146, -1, -1) $Button1 = GUICtrlCreateButton("Koordinat Bul", 8, 8, 107, 21) $Input1 = GUICtrlCreateInput("", 9, 40, 106, 21) $Input2 = GUICtrlCreateInput("", 138, 24, 41, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER)) $Graphic1 = GUICtrlCreateGraphic(8, 72, 361, 1) GUICtrlSetColor(-1, 0x004000) $Label1 = GUICtrlCreateLabel("Salise", 186, 28, 60, 17) $Combo1 = GUICtrlCreateCombo("", 248, 24, 81, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "1. Sol (Tek)|2. Sol (Çift)|3. Sağ") $Label2 = GUICtrlCreateLabel("Komut", 336, 28, 56, 17) $Button2 = GUICtrlCreateButton("F6 (Başla)", 8, 80, 75, 25) $Button3 = GUICtrlCreateButton("F9 (Durdur)", 88, 80, 75, 25) $ButtonEnter = GUICtrlCreateButton("F4 (ENTER)", 168, 80, 75, 25) $Label3 = GUICtrlCreateLabel("Coder: asmazh", 8, 120, 203, 17) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### Global $Coor, $TickStyle While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 GUICtrlSetState($Button1, $GUI_DISABLE) _CoorToMake() GUICtrlSetData($Input1, $Coor[0] & ";" & $Coor[1]) GUICtrlSetState($Button1, $GUI_ENABLE) If Not WinActive($Form1, "") Then WinActivate($Form1, "") Case $Button2 _basla() case $Button3 _dur() EndSwitch WEnd Func _CoorToMake() While _IsPressed("01") <> 1 Sleep(5) ToolTip("Koordinatını almak istediğiniz alanın üstüne" & @CRLF & "fare ile sol tıklayın.") WEnd ToolTip("") $Coor = MouseGetPos() EndFunc Func _StartTick() If $TickStyle = 1 Then MouseClick("left", $Coor[0], $Coor[1], 1, 0) ElseIf $TickStyle = 2 Then MouseClick("left", $Coor[0], $Coor[1], 2, 0) Else MouseClick("right", $Coor[0], $Coor[1], 1, 0) EndIf EndFunc func _dur() AdlibUnRegister("_StartTick") endfunc Func _basla() If Not IsArray($Coor) Or _ GUICtrlRead($Input2) = "" Or _ GUICtrlRead($Combo1) = "" Then MsgBox(0, "Eksik görünen birşey var!", "Gerekli yerleri doldurduğunuza emin olun", $Form1) Else $TickStyle = Number(StringLeft(GUICtrlRead($Combo1), 1)) AdlibRegister("_StartTick", Number(GUICtrlRead($Input2)) * 1) EndIf endfunc Oto tuş kodu ; Press Esc to terminate script Global $UnPaused HotKeySet("{F5}", "TogglePause") HotKeySet("{ESC}", "Terminate") While 1 Sleep(100) ToolTip("Uygulamayı başlatıp veya durdurmak için F5 tuşunu kullanın. Çıkış yapmak için ESC tuşuna basın!",0,0) WEnd Func TogglePause() $UnPaused = NOT $UnPaused While $UnPaused ToolTip("Çalışıyor...",0,0) Send("{ENTER}") WEnd EndFunc Func Terminate() Exit 0 EndFunc Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted June 10, 2013 Share Posted June 10, 2013 (edited) Hazır program yazdırma gerekçesi için prgram linki silinmiştir arkadaşlar burası hazır program yazdırma yeri değildir lütfen biraz bilgileriniz geliştirerek böyle konularda çalışmalarınıza yardımcı olalım ben artık bundan sonra hazır program yazdırma konusunda yardım etmeyeceğim kusura bakmayın arkadaşlar Edited June 10, 2013 by mesale0077 Quote Link to comment Share on other sites More sharing options...
JuSt3e Posted June 10, 2013 Author Share Posted June 10, 2013 (edited) "ENTER" basınca donuyor program :) Durdurmaya çalışıyorum yine donuyor :D Edited June 10, 2013 by JuSt3e Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted June 10, 2013 Share Posted June 10, 2013 (edited) Beleş hazır program yazdırma gerekçesi için prgram linki silinmiştir arkadaşlar burası hazır program yazdırma yeri değildir lütfen biraz bilgilerinizi geliştirerek hazırlamış olduğunuz kodlarda çözemediniz konularda çalışmalarınıza yardımcı olalım ben artık bundan sonra hazır program yazdırma konusunda yardım etmeyeceğim kusura bakmayın arkadaşlar bu arkadaşım gibi davransanız belki ne yapılmak istendiği anlaşılırdı ve ona göre yardımcı olunabilinirdi. http://www.tnctr.com/topic/221600-rastgele-sayy-uretme-uygulamasy-istek/ özelden beleş hazır prgram yazdırma ve gereksiz işlemler konusunda rahatsız etmeyin özelden cevaplandırmayacağım arkadaşlar Edited June 10, 2013 by mesale0077 Quote Link to comment Share on other sites More sharing options...
JuSt3e Posted June 11, 2013 Author Share Posted June 11, 2013 Ben burada hazır program kapma peşinde değilim. Sen bana örnek atıyorsun ama içerisindeki kodların ne işlevi olduğunu söylesen anlarım. HTML'de örneğin <center> gibi komutun yazığı ortaladığı gibi içindeki komutların neyi çalıştırdığını hangi görevi yaptığınıda eklersen çözülür. Ama sen sadece ortaya bir örnek atıyorsun al kurcala diyorsun. Quote Link to comment Share on other sites More sharing options...
MostWanted Posted June 11, 2013 Share Posted June 11, 2013 (edited) [spoiler] #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.8.1 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <Misc.au3> HotKeySet("{F6}", "_basla") HotKeySet("{F9}", "_dur") HotKeySet("{F4}", "enterabas") #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("AutoTick", 372, 146, -1, -1) $Button1 = GUICtrlCreateButton("Koordinat Bul", 8, 8, 107, 21) $Input1 = GUICtrlCreateInput("", 9, 40, 106, 21) $Input2 = GUICtrlCreateInput("", 138, 24, 41, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER)) $Graphic1 = GUICtrlCreateGraphic(8, 72, 361, 1) GUICtrlSetColor(-1, 0x004000) $Label1 = GUICtrlCreateLabel("Salise", 186, 28, 60, 17) $Combo1 = GUICtrlCreateCombo("", 248, 24, 81, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "1. Sol (Tek)|2. Sol (Çift)|3. Sağ") $Label2 = GUICtrlCreateLabel("Komut", 336, 28, 56, 17) $Button2 = GUICtrlCreateButton("F6 (Başla)", 8, 80, 75, 25) $Button3 = GUICtrlCreateButton("F9 (Durdur)", 88, 80, 75, 25) $ButtonEnter = GUICtrlCreateButton("F4 (ENTER)", 168, 80, 75, 25) $Label3 = GUICtrlCreateLabel("Coder: asmazh", 8, 120, 203, 17) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### Global $Coor, $TickStyle global $enter =false While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 GUICtrlSetState($Button1, $GUI_DISABLE) _CoorToMake() GUICtrlSetData($Input1, $Coor[0] & ";" & $Coor[1]) GUICtrlSetState($Button1, $GUI_ENABLE) If Not WinActive($Form1, "") Then WinActivate($Form1, "") Case $Button2 _basla() case $Button3 _dur() case $ButtonEnter enterabas() EndSwitch WEnd func enterabas() $enter = NOT $enter if $enter Then AdlibRegister("_enter", Number(GUICtrlRead($Input2)) * 1) Else AdlibUnRegister("_enter") EndIf EndFunc func _enter() Send("{ENTER}") EndFunc Func _CoorToMake() While _IsPressed("01") <> 1 Sleep(5) ToolTip("Koordinatını almak istediğiniz alanın üstüne" & @CRLF & "fare ile sol tıklayın.") WEnd ToolTip("") $Coor = MouseGetPos() EndFunc Func _StartTick() If $TickStyle = 1 Then MouseClick("left", $Coor[0], $Coor[1], 1, 0) ElseIf $TickStyle = 2 Then MouseClick("left", $Coor[0], $Coor[1], 2, 0) Else MouseClick("right", $Coor[0], $Coor[1], 1, 0) EndIf EndFunc func _dur() AdlibUnRegister("_StartTick") endfunc Func _basla() If Not IsArray($Coor) Or _ GUICtrlRead($Input2) = "" Or _ GUICtrlRead($Combo1) = "" Then MsgBox(0, "Eksik görünen birşey var!", "Gerekli yerleri doldurduğunuza emin olun", $Form1) Else $TickStyle = Number(StringLeft(GUICtrlRead($Combo1), 1)) AdlibRegister("_StartTick", Number(GUICtrlRead($Input2)) * 1) EndIf endfunc [/spoiler] Uzun zamandır autoit kullanmadım fakat F4'e göre enter olayını ayarladım.Ayrıca tick sayısını 0.1 saniyeden (yani değer olarak 100) den aşağı yapmazsan programında donma sorunları yaşamazsın. Edited June 11, 2013 by MostWanted 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.