Klavyede Sürekli Bas Bırak Yapma

[yusuf1284]

Edited September 4, 2014 by yusuf1284

[Lokenn]

HotKeySet("^1","_Send")
#include <Misc.au3>
Local $hDLL = DllOpen("user32.dll")
Func _Send()
 Sleep(250)
While 1
Send("1")
If _IsPressed("11", $hDLL) Then ExitLoop
WEnd
EndFunc
while 1
Sleep(100)
WEnd
DllClose($hDLL)

 

 

CTRL  + 1 Başlatır CTRL durdurur.

[reyiz]

Bu kodu denediniz mi acaba?  :facepalm:

http://www.tnctr.com/topic/140118-klavye-tuthuna-basyp-byrakmamak/#entry1342659

Edited July 29, 2013 by reyiz

[yusuf1284]

Bu kodu denediniz mi acaba?  :facepalm:

http://www.tnctr.com/topic/140118-klavye-tuthuna-basyp-byrakmamak/#entry1342659

 

1 defa tek yapıyor birde " 1 arasında cok az bi fark olursa daha etkili olur çünkü arada "1 " 1 yerine """ veya 111 yapıyor pc çok az hemde cok ms dende az benm bastğımdan hızlı olsa yeter

[reyiz]

Ben de öyle bir sorun yok. Birde böyle dene:
 

Opt("SendKeyDelay", "5")

Global $baslat = 0

HotKeySet("!1", "baslat")

Func baslat()
    If $baslat Then
        $baslat = 0
    Else
        $baslat = 1
    EndIf
EndFunc

While 1
Sleep(50)
    If $baslat = 1 Then
        ControlSend("[active]", "", "", '"1')
    EndIf
WEnd

Edited July 29, 2013 by reyiz

[yusuf1284]

HotKeySet("^1","_Send")
#include <Misc.au3>
Local $hDLL = DllOpen("user32.dll")
Func _Send()
 Sleep(250)
While 1
Send("1")
If _IsPressed("11", $hDLL) Then ExitLoop
WEnd
EndFunc
while 1
Sleep(100)
WEnd
DllClose($hDLL)

 

 

CTRL  + 1 Başlatır CTRL durdurur.

 

sürekli 1 yapıyor 

[yusuf1284]

 

Ben de öyle bir sorun yok. Birde böyle dene:
 

Opt("SendKeyDelay", "5")

Global $baslat = 0

HotKeySet("!1", "baslat")

Func baslat()
    If $baslat Then
        $baslat = 0
    Else
        $baslat = 1
    EndIf
EndFunc

While 1
Sleep(50)
    If $baslat = 1 Then
        ControlSend("[active]", "", "", '"1')
    EndIf
WEnd

 

aynen çalşıyor oyunda sadace tepki vermiyor..

Edited July 30, 2013 by yusuf1284