JuSt3e

Merhabalar,   Yapılan bir programda exe haline getirdiğimiz zaman nasıl programın telif hakkı, açıklama gibi bilgilerini gireriz ?

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.

"ENTER" basınca donuyor program :) Durdurmaya çalışıyorum yine donuyor :D

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

İncelemediğimimi zannediyorsunuz ? Diyorum ki size zaten ENTER komutuna kadar kodları buldum kodlarda ekleme yapınca program donuyor. Sen bana örnek kod gösteriyorsun ama birşey anlamıyorum diyorum sizde bu konuda anlamamakta sıkıntı yaşıyorsunuz sanırım.

Çalışıyor sizede teşekkür etmiştim :=) Tekrar yine saolun :) Oto tuş basma komutunu yapmaya çalışıyorum. Gereken kodları buldum fakat sizin vermiş olduğunuz kodlara ekleyince çalışmıyor sanırım bir yerde hata yapıyor olmalıyım :) Aynı programın içinde oto tuş basmayıda yapabilirsem çok daha güzel olacak F6 ve F9 ile oto tıklama oluyorsa örneğin; F5 ile "ENTER" tuşuna otomatik basmayı aktifleştirmeyi çalışıyorum fakat birtürlü yapamadım. Resim belki açıklayıcı olur diye koymak istedim :)

#cs ----------------------------------------------------------------------------  AutoIt Version: 3.3.8.1  Author:         myName  Script Function:     Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here Global $UnPaused HotKeySet("{F8}", "TogglePause") While 1     Sleep(100)     ToolTip("ENTER tuşuna otomatik basmayı başlatmak için F8 tuşuna basın.",0,0) WEnd Func TogglePause()     $UnPaused = NOT $UnPaused     While $UnPaused         ToolTip("ENTER tuşuna otomatik basmayı durdurmak için F8 tuşuna basın.",0,0)         Send("{ENTER}")     WEnd EndFunc Oto tuş basma komutunuda buldum. Bu kodları nereye koyarsam koyayım hata veriyor.

Çok teşekkür ediyorum. Komutların ne anlama geldiğini öğrenebilirsem inanın çok sarılacağım AutoIT'e

  Şimdi ben bu kodu nereye yapıştırayım ? Nereleri düzenlemem gerekiyor ?

  İnceledim burayı daha önce pek birşey anlamadım.

#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> #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("Başla", 8, 80, 75, 25) $Button3 = GUICtrlCreateButton("Dur", 88, 80, 75, 25) $Label3 = GUICtrlCreateLabel("Basit bir örnektir. Çeşitlendirilebilir. 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             If Not IsArray($Coor) Or _                GUICtrlRead($Input2) = "" Or _                GUICtrlRead($Combo1) = "" Then                MsgBox(0, "", "kardeş önce gerekli ayarları gir. yok öyle 3 kuruşa 5 köfte. (ne alakaysa :))", $Form1)            Else                $TickStyle = Number(StringLeft(GUICtrlRead($Combo1), 1))                AdlibRegister("_StartTick", Number(GUICtrlRead($Input2)) * 1)            EndIf        case $Button3            AdlibUnRegister("_StartTick")     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 asmazh arkadaşımızın yapmış olduğu kodda klavye ile durdurma, başlatma komutunu gösterebilcek var mı ? Örneğin; Butonlara tıklayarak değilde F6-F9 gibi tuşlara tıklarak durdurulup, başlatılmasını istiyorum.

  Bende diyorum seyli birşey varmıydı :)

  Salise olayı tamamdır :) HotKeySey bulmaya çalışıyorum :))

  Öncelikle çok teşekkür ederim. Saniyede tıklama değilde, nasıl salise ayarına alabiliriz ? Klavyeden kontrol nasıl sağlarız. Mesela F7 bastığım zaman başlayacak F9 bastığım zaman duracak :)

  Ben bundan pek nasıl bir yol alacağımı anlayamadım :)