Jump to content

Mouse Click Start Stop ?


beydere

Recommended Posts

HotKeySet("{F8}", "clicks") ;başlat
HotKeySet("{F9}", "clickp") ;durdur

#include <misc.au3>
#include <file.au3>


Dim $x, $y

Dim $tmp = _TempFile(@TempDir, "~", ".tmp", 15)
Dim $ptmp = FileOpen($tmp, 10)
If $ptmp = -1 Then Exit



While 1
	$x = MouseGetPos(0)
	$y = MouseGetPos(1)

	Sleep(25)
	If _IsPressed("1B") = 1 Then ExitLoop
WEnd

FileClose($ptmp)
FileMove($tmp, @DesktopDir & "\Koordinatlar.txt", 1)




Func clicks()

		MouseClick( "right", $x, $y , 99999 )

EndFunc


Func clickp()

	" BURAYA NE YAPABİLİRİM ?? "

EndFunc

gösterdigim yere ne yazabilirim ki dursun ?

Birde

Ben Muonline oynuyorum

WinSetState( "main.exe", "", @SW_HİDE)

WinSetState( "main.exe", "", @SW_SHOW)

bu ikisini func ile ayarlıcam. Fakat muonlinenin title sini bilmiyorum Nasıl bulabilirim ?? (autoit window infoyu mu online acıkcan çalıştıramıyorum yani ALT+TAB Gibi Tuşlar Kullanılamıyor)

Link to comment
Share on other sites

#include <misc.au3>

#include <file.au3>

HotKeySet("{F8}", "clicks") ;başlat

HotKeySet("{F9}", "clickp") ;durdur

HotKeySet("{ESC}", "_Exit")

Global $bTiklatma = True,$x, $y

Dim $tmp = _TempFile(@TempDir, "~", ".tmp", 15)

Dim $ptmp = FileOpen($tmp, 10)

If $ptmp = -1 Then Exit

While 1

Sleep(25)

If $bTiklatma Then MouseClick( "right")

WEnd

FileClose($ptmp)

FileMove($tmp, @DesktopDir & "\Koordinatlar.txt", 1)

Func clicks()

$bTiklatma = True

EndFunc

Func clickp()

$bTiklatma = False

EndFunc

Func _Exit()

Exit

EndFunc

Kodların biraz karman çorman gözüküyor.Sanırım istediğin bu..

Link to comment
Share on other sites

@beydere

Gerçekten kodların çok karışık. Neyse @talha_252 cevabı yazmış.

Diğer soruna gelirsek, AU3Recorder programını açıp kaydetmek için başlatırsın.

Sonra ilgili programı açar ve ardından kapatırsın. Başlık bilgileride büyük ihtimal kayıt edilecektir...

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...