Jump to content
Son zamanlarda artan kullanıcı hesap hırsızlıkları sebebiyle tüm kullanıcılara şifre sıfırlama maili gönderilmiştir. Lütfen güveli şifreler seçiniz. Mevcut e-mail adresinize erişemiyorsanız, en aşağıdaki destek linkinden bize ulaşınız. ×

Otomatik Mouse Tıklama, Oto Tuş Basma


JuSt3e
 Share

Recommended Posts

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
Link to comment
Share on other sites

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 by mesale0077
Link to comment
Share on other sites

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 by mesale0077
Link to comment
Share on other sites

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.

Link to comment
Share on other sites

[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 by MostWanted
Link to comment
Share on other sites

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.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...