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

Merhaba Arkadaşlar,

 

Murgee Auto Click gibi mouse ile tıklanacak yerin koordinatını alıp o koordinata tıklamasını nasıl sağlarız ? Hem oto tıklama işini yapıp hemde otomatik tuşa basmasını istiyorum. Forum'da oto tuş basma ile anlatımları gördüm tuş basma işi tamam fakat mouse işini çözemedim.

 

Yardımcı olursanız sevinirim.

Link to comment
Share on other sites

Ne yapmak istediğini tam olarak anlamadım. Biraz daha açımla ki sana yardım edebileyim.

 

Şöyle anlatayım; Murgee'nin oto mouse tıklamalı programı var. Mouse ile bir öğenin üstüne geldiğimiz zaman koordinatını alıyor. Koordinatını aldığımız yere 1 saniye veya 1dk gibi süre girerek otomatik tıklıyor. Benim istediğimde o şekilde bir küçük basit program yapmak, mouse ile bir öğenin üstüne gelince o yerin koordinatını alıp bunun otomatik tıklamasını istiyorum. Bende bu işlemleri tek program altında yapmak istiyorum :) Hala anlatamadıysam video koyabilirim.

Link to comment
Share on other sites

#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", 378, 146, -1, -1)
$Button1 = GUICtrlCreateButton("Koordinat belirle", 8, 8, 107, 21)
$Input1 = GUICtrlCreateInput("", 9, 40, 106, 21)
$Input2 = GUICtrlCreateInput("", 128, 24, 41, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER))
$Graphic1 = GUICtrlCreateGraphic(8, 72, 361, 1)
GUICtrlSetColor(-1, 0x004000)
$Label1 = GUICtrlCreateLabel("saniyede bir", 176, 28, 60, 17)
$Combo1 = GUICtrlCreateCombo("", 248, 24, 73, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "1) Sol (Tek)|2) Sol (Çift)|3) Sağ")
$Label2 = GUICtrlCreateLabel("tıkla.", 336, 28, 26, 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)) * 1000)
		   EndIf
	   case $Button3
		   AdlibUnRegister("_StartTick")

	EndSwitch
WEnd


Func _CoorToMake()

	While _IsPressed("01") <> 1

		Sleep(5)
		ToolTip("Belirtmek istediğiniz koordinatın üstüne gidin" & @CRLF & "ve 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

Aha da böyle bir şey karaladım. İstediğin gibi bir şey yapman dileğiyle.

Link to comment
Share on other sites

#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", 378, 146, -1, -1)
$Button1 = GUICtrlCreateButton("Koordinat belirle", 8, 8, 107, 21)
$Input1 = GUICtrlCreateInput("", 9, 40, 106, 21)
$Input2 = GUICtrlCreateInput("", 128, 24, 41, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER))
$Graphic1 = GUICtrlCreateGraphic(8, 72, 361, 1)
GUICtrlSetColor(-1, 0x004000)
$Label1 = GUICtrlCreateLabel("saniyede bir", 176, 28, 60, 17)
$Combo1 = GUICtrlCreateCombo("", 248, 24, 73, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "1) Sol (Tek)|2) Sol (Çift)|3) Sağ")
$Label2 = GUICtrlCreateLabel("tıkla.", 336, 28, 26, 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)) * 1000)
		   EndIf
	   case $Button3
		   AdlibUnRegister("_StartTick")

	EndSwitch
WEnd


Func _CoorToMake()

	While _IsPressed("01") <> 1

		Sleep(5)
		ToolTip("Belirtmek istediğiniz koordinatın üstüne gidin" & @CRLF & "ve 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

Aha da böyle bir şey karaladım. İstediğin gibi bir şey yapman dileğiyle.

 

 

Ö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 :)

Link to comment
Share on other sites

Salise yapabilmen için AdlibRegister komutunun "time" parametresine inputtan gelen verinin 100 ile çarpımını gönder. Klavyeden kontrol için ise HotKeySey komutunu incele.

 

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

Link to comment
Share on other sites

#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.

Link to comment
Share on other sites



#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.

 

 

başlat durdur

help dosyasında mevcut bence

HotKeySet("{F6}", "_basla")
HotKeySet("{F9}", "_dur")
func _dur()
AdlibUnRegister("_StartTick")
endfunc


Func _basla()
  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
 endfunc
		
Link to comment
Share on other sites

 

 

başlat durdur

help dosyasında mevcut bence

HotKeySet("{F6}", "_basla")
HotKeySet("{F9}", "_dur")
func _dur()
AdlibUnRegister("_StartTick")
endfunc


Func _basla()
  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
 endfunc
		

 

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

Link to comment
Share on other sites

gereken yerlere eklemeleri yapabilirsiniz

bence size autoiti help dosyasında öğrenmeye başlasanız iyi olur

neyi nereye nasıl koymayı başta öğrenmelisiniz

kodun değişikliğinin  asmazh arkadaşım  tarafından değiştirilip eklenmesini

çünkü kod ona ait ben düzenleme yapmak istemiyorum

yapmak istediğin örnek aşağıda inceleme açısından verdim

ekleme yaptım ama  emeğe saygıdan dolayı gereken yeri vermekle yetiniyorum

kolay gelsin

HotKeySet("{F6}", "_basla")
HotKeySet("{F9}", "_dur")
func _dur()
AdlibUnRegister("_StartTick")
endfunc


Func _basla()
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
endfunc
Edited by mesale0077
Link to comment
Share on other sites

#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.

Edited by JuSt3e
Link to comment
Share on other sites

 

arkadaşım ben kodu verdim ve çalışıyor denedinizmi?

http://www.tnctr.com/topic/222622-otomatik-mouse-tyklama-oto-tuth-basma/?p=1322991

 

Ç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.

 

nybdq.png

 

Resim belki açıklayıcı olur diye koymak istedim :)

Edited by JuSt3e
Link to comment
Share on other sites

örnek
pre_1370787850__isimsiz0.png

 defalarca söyledim örnek koda baktınızmı diye ama lakin

anlamamada sıkıntı yaşıyorsunuz.

http://www.tnctr.com/topic/222622-otomatik-mouse-tyklama-oto-tuth-basma/?p=1322991

send ve HotKeySet
olarak help dosyasına baksanıız
 
kodu tekrar  hazırladğınız kodun son  halini neden paylaşmadınız sadece resim koydunuz
gerekeni siz yapın
full editletmek yerine ne nasıl kullanıldığını bir öğrenseniz
helpte hepsi yazıyor zaten :)

Edited by mesale0077
Link to comment
Share on other sites

örnek
pre_1370787850__isimsiz0.png

 defalarca söyledim örnek koda baktınızmı diye ama lakin

anlamamada sıkıntı yaşıyorsunuz.

http://www.tnctr.com/topic/222622-otomatik-mouse-tyklama-oto-tuth-basma/?p=1322991

send ve HotKeySet
olarak help dosyasına baksanıız
 
kodu tekrar  hazırladğınız kodun son  halini neden paylaşmadınız sadece resim koydunuz
gerekeni siz yapın
full editletmek yerine ne nasıl kullanıldığını bir öğrenseniz
helpte hepsi yazıyor zaten :)

 

İ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.

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...