Jump to content

Mouse Tıklamasına Göre Işlem


mertdinler
 Share

Recommended Posts

mouse ile herhangi bir yere tıklandığında bir işlem yaptırmalıyım örneğin sol tıkla tıklandığında q ya bassın nasıl bir yol izlemeliyim ? ve bu işlemi her tıklamada yapacak 1 tıklamadan sonra yapmayı kesmeyecek ayrıca p ile bu programın çalışmasını durdurup devam ettirebileyim :)
Tıklayınca işlem yaptırmayı buldum bu kısayol atamayı nasıl yapacağımı bilmiyorum p ye basınca deaktif tekrar basınca işleme devam :)
[codebox]#include <Misc.au3>

While 1
If _IsPressed(01) Then
send("123")
sleep(500)
EndIf
WEnd[/codebox]

Edited by mertdinler
Link to comment
Share on other sites

yaptım :)
[code]
#include <Misc.au3>
Global $Paused
HotKeySet("p", "durdur")
HotKeySet("o", "baslat")
While 1
Sleep(100)
WEnd
Func durdur()
$Paused = Not $Paused
While $Paused
Sleep(100)
WEnd
EndFunc
Func baslat()
While 1
If _IsPressed(01) Then
send("111")
sleep(500)
EndIf
WEnd
EndFunc
[/code]
belki işine yarayan olur :)

Edited by mertdinler
Link to comment
Share on other sites

  • 2 hafta sonra ...
  • 2 hafta sonra ...

Blackman12 kardeşim, önceki örneğin benzeri..

[codebox]#include <Misc.au3>
Global $Paused
HotKeySet("!+{f8}", "durdur")
HotKeySet("!+{f7}", "1.islem")
HotKeySet("!+{f6}", "2.islem")
While 1
Sleep(100)
WEnd
Func durdur()
$Paused = Not $Paused
While $Paused
Sleep(100)
WEnd
EndFunc
Func 1.islem()
While 1
If _IsPressed(04) Then
send("+!q")
sleep(500)
EndIf
WEnd
EndFunc
Func 1.islem()
While 1
If _IsPressed(04) Then
send("+!r")
sleep(500)
EndIf
WEnd
EndFunc
[/codebox]

Scripti çalıştırınca fare orta tuşa tıklamada başka bir uygulamanın kısayolu olan shift+alt+Q'ya bassın istiyorum.
Diğer kullandığım kısayol shift+alt+R'ye geçmek için de "2. işlem"e hotkey atadım.
Hatta şu şekil de denedim:
[codebox]
#include <Misc.au3>
Global $Paused
HotKeySet("!+{f8}", "durdur")
HotKeySet("!+{f7}", "baslat")
While 1
Sleep(100)
WEnd
Func durdur()
$Paused = Not $Paused
While $Paused
Sleep(100)
WEnd
EndFunc
Func baslat()
While 1
If _IsPressed(04) Then
send("+!q")
sleep(500)
EndIf
WEnd
EndFunc
[/codebox]

Ama hotkeye (yani shift+alt+F7'ye) basmadan script çalışınca direk fare orta tuşun nasıl devreye konulacağını çıkaramadım

Link to comment
Share on other sites

denedim dediğim örneği yanlış vermişim, doğrusu
[codebox]#include <Misc.au3>
Global $Paused
HotKeySet("!+{f8}", "durdur")
HotKeySet("!+{f7}", "baslat")
While 1
Sleep(100)
WEnd
Func baslat()
$Paused = Not $Paused
While $Paused
If _IsPressed(04) Then
send("+!q")
sleep(500)
EndIf
WEnd
EndFunc
Func durdur()
While 1
Sleep(100)
WEnd
EndFunc
[/codebox]

Link to comment
Share on other sites

[b][font="Tahoma"]Q işlevi görecek image derken ? Biraz daha açık yazarsan yardımcı olabiliriz belki.Mouse orta tuşa bastığında Q tuşu basılsın mı istiyorsun.Eğer bunu istiyorsan bir kaç mesaj önce benzeri yazıldı, anlamaya çalışın biraz hazırcı olmayın.[/font][/b]

Link to comment
Share on other sites

[b]program kurdurturken bazen klavye çalışımıyor ve mause ile tıklama yapmak gerekiyor bunu recorder ile yapıyorum fakat her bilgisayarda çalışımıyor mause ile yaptığım tıklamaları daha sağlam bi şekilde nasıl yaparım her bilgisayarda çalışması için [/b]

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