yusuf1284 Posted July 28, 2013 Share Posted July 28, 2013 (edited) Edited September 4, 2014 by yusuf1284 Quote Link to comment Share on other sites More sharing options...
Lokenn Posted July 29, 2013 Share Posted July 29, 2013 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. Quote Link to comment Share on other sites More sharing options...
reyiz Posted July 29, 2013 Share Posted July 29, 2013 (edited) Bu kodu denediniz mi acaba? :facepalm:http://www.tnctr.com/topic/140118-klavye-tuthuna-basyp-byrakmamak/#entry1342659 Edited July 29, 2013 by reyiz Quote Link to comment Share on other sites More sharing options...
yusuf1284 Posted July 29, 2013 Author Share Posted July 29, 2013 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 Quote Link to comment Share on other sites More sharing options...
reyiz Posted July 29, 2013 Share Posted July 29, 2013 (edited) 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 Quote Link to comment Share on other sites More sharing options...
yusuf1284 Posted July 29, 2013 Author Share Posted July 29, 2013 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 Quote Link to comment Share on other sites More sharing options...
yusuf1284 Posted July 30, 2013 Author Share Posted July 30, 2013 (edited) 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
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.