johncher Posted May 12, 2010 Share Posted May 12, 2010 Klavye Tuşuna basıp bırakmamak nasıl yapılabilir send komutuyla her harf rakam istenilen kadar tekrar ettirilerek bastırılabiliyor. Ancak klavyeden herhangi bir tuşun basılı tutulduğu gibi aynı şekilde hangi kodu kullanabiliriz . Cevap veren arkadaslara cok tesekkur ederim simdiden Quote Link to comment Share on other sites More sharing options...
blue_life Posted May 12, 2010 Share Posted May 12, 2010 @johncher Klevyeden bir tuşa basıldığında devamlı aynı tuşu bırakılana kadar gönderiyor. Yani bir döngü ile isterdiğin kadar tuşa bastırabilirsin. Misal 99 kez basılsın. For $I = 1 To 99 Send("B") Next[/CODE] Tabi bir sürede belirleyebiliriz. Lakin seni tam anlamamış olabilirim... Quote Link to comment Share on other sites More sharing options...
johncher Posted May 12, 2010 Author Share Posted May 12, 2010 (edited) QUOTE(blue_life @ May 12 2010, 18:08 ) @johncher Klevyeden bir tuşa basıldığında devamlı aynı tuşu bırakılana kadar gönderiyor. Yani bir döngü ile isterdiğin kadar tuşa bastırabilirsin. Misal 99 kez basılsın. For $I = 1 To 99 Send("B")Next[/CODE] Tabi bir sürede belirleyebiliriz. Lakin seni tam anlamamış olabilirim... bunu biliyorum benim istediği klavyeye bir tusa basıp bırakmadığında yaptığını yapmasını istiyorum klavye ile aynı sekilde basmıyor bunu bir ayarlayamadım Edited October 17, 2012 by johncher Quote Link to comment Share on other sites More sharing options...
johncher Posted May 12, 2010 Author Share Posted May 12, 2010 (edited) QUOTE(johncher @ May 12 2010, 18:40 ) bunu biliyorum benim istediği klavyeye bir tusa basıp bırakmadığında yaptığını yapmasını istiyorum klavye ile aynı sekilde basmıyor bunu bir ayarlayamadım şöyle soyleyeyim online oynadıgım bir oyun var onda b tusuna basınca oldugun yerde duruyorsun ama yaptıgım bu programla MsgBox ( 0, "****", "***** tarafından yapılmıştır...") MsgBox ( 0, "*****", "BİLGİ:Program ( * )tuşuna bastığınızda durmakta tekrar bastığınızda çalışmaktadır.Ayrıca istemediğiniz özellikleri veya skilleri kullanmamak için cancel tuşuna basınız....") $rslot=inputbox("Skill 1","1") $nslot=inputbox("Skill 1","1") $yslot=inputbox("Skill 1","B") $msg = 0 $i = 1 While $i =1 Global $Paused HotKeySet("*", "Pause") WinActive("**oyun") Sleep (100) send($rslot) Sleep (30) send($nslot) Sleep (30) send($yslot) WEnd Func Pause() $Paused = NOT $Paused While $Paused Sleep (400) WEnd EndFunc; => Pause() surelerle istedigim gibi oynuyorum ama b tusuna klavyeden basılı tutunca gemi havada duruyor bu programla bastırdıgımda ne kadar hızlı bastırırsam bastırayım hareket ediyor yavaşlatsada sonuc olarak klavyeye parmagını basıp basılı tuttugun gibi programında bas dediginde basıp dur dediginde durmasını istiyorum umarım anlatabilmişimdir. programın yaptıgı send komutuyla tusa basıp cekiyor istedigin hızda ama benim istedigim programında elini klavyenin tusuna basılı tuttugun gibi basılı tutması Edited October 17, 2012 by johncher Quote Link to comment Share on other sites More sharing options...
blue_life Posted May 12, 2010 Share Posted May 12, 2010 @johncher sleep komutuyla beklettiğin içindir! Bekleme yapmaz isen, ilgili program işlemciye çok yüklenecektir. Global $Paused HotKeySet("{PAUSE}", "Pause") Pause() While 1 send("B") WEnd Func Pause() $Paused = Not $Paused While $Paused Sleep(400) WEnd EndFunc ;==>Pause[/CODE] Quote Link to comment Share on other sites More sharing options...
johncher Posted May 12, 2010 Author Share Posted May 12, 2010 @johncher sleep komutuyla beklettiğin içindir! Bekleme yapmaz isen, ilgili program işlemciye çok yüklenecektir. Global $Paused HotKeySet("{PAUSE}", "Pause") Pause() While 1 send("B") WEnd Func Pause() $Paused = Not $Paused While $Paused Sleep(400) WEnd EndFunc ;==>Pause[/CODE] Yok hocam bu da benim yazdıgım gibi oluyor. Klavyeye tuşa basıp bırakmadıgında bu kodlarla yaptıgın gibi çalışmıyor Quote Link to comment Share on other sites More sharing options...
blue_life Posted May 12, 2010 Share Posted May 12, 2010 @johncher Aslında autoit default olarak send komutunu biraz geç gönderiyor. Birde şunu dene! Opt("SendKeyDelay", 0) ;5 milliseconds Opt("SendKeyDownDelay", 0) ;1 millisecond Global $Paused HotKeySet("{PAUSE}", "Pause") Pause() While 1 send("B") WEnd Func Pause() $Paused = Not $Paused While $Paused Sleep(400) WEnd EndFunc ;==>Pause[/CODE] Quote Link to comment Share on other sites More sharing options...
johncher Posted May 12, 2010 Author Share Posted May 12, 2010 (edited) QUOTE(blue_life @ May 12 2010, 23:14 ) @johncher Aslında autoit default olarak send komutunu biraz geç gönderiyor. Birde şunu dene! Opt("SendKeyDelay", 0) ;5 millisecondsOpt("SendKeyDownDelay", 0) ;1 millisecondGlobal $PausedHotKeySet("{PAUSE}", "Pause")Pause()While 1 send("B")WEndFunc Pause() $Paused = Not $Paused While $Paused Sleep(400) WEndEndFunc ;==>Pause[/CODE] olmadı bunu ancak seninde deneyerek görüp farkı anlaman lazım buda olmadı cok saol seni de yordum iyi geceler Edited October 17, 2012 by johncher Quote Link to comment Share on other sites More sharing options...
blue_life Posted May 13, 2010 Share Posted May 13, 2010 @johncher Buda olmadıysa, malesef aklıma başka basit bir şey gelmiyor. Bu arada biz büyük B gönderiyoruz. Yoksa senin oyundaki ilgili özellik için küçük b mi gerekli! Neyse kolay gelsin.. Quote Link to comment Share on other sites More sharing options...
johncher Posted May 13, 2010 Author Share Posted May 13, 2010 @johncher Buda olmadıysa, malesef aklıma başka basit bir şey gelmiyor. Bu arada biz büyük B gönderiyoruz. Yoksa senin oyundaki ilgili özellik için küçük b mi gerekli! Neyse kolay gelsin.. oyunda b küçük yada büyük harf farketmiyor klavyeyle basılı tutunca klavyenin yaptığını program yapamıyor çok çok saolasın Quote Link to comment Share on other sites More sharing options...
blackman12 Posted May 14, 2010 Share Posted May 14, 2010 Bluelife doğru kodu vermiş aslında sana ama değer biraz yanlış olmuş Opt("SendKeyDownDelay", 0) ;1 millisecond bu kod basıp kaldırır sadece Opt("SendKeyDownDelay", 5000) ;bu kodla ise gönderilen tuşa 5 sn boyunca basılı tutulur. Quote Link to comment Share on other sites More sharing options...
johncher Posted May 14, 2010 Author Share Posted May 14, 2010 Bluelife doğru kodu vermiş aslında sana ama değer biraz yanlış olmuş Opt("SendKeyDownDelay", 0) ;1 millisecond bu kod basıp kaldırır sadece Opt("SendKeyDownDelay", 5000) ;bu kodla ise gönderilen tuşa 5 sn boyunca basılı tutulur. Yanlış degil aslında senkeydowndelay 0 ben burda sıfır vb deki gibi true false gibi degerlendirdigimden goremedim blue_life & blackman12 çok yaşayın emi 3 kere saolun saolun saolun Sigarayı bırakmanın odulu olsa bu gerek Quote Link to comment Share on other sites More sharing options...
blue_life Posted May 15, 2010 Share Posted May 15, 2010 @blackman12 Arada o günün koşulları, veyahut daha önce ihtiyaç duymadığımdan eksik bilgiler verebiliyorum. Bu konuda eksik bilgimi tamamladığın için teşekkürler... Kolay gelsin arkadaşlar... Quote Link to comment Share on other sites More sharing options...
yusuf1284 Posted July 25, 2013 Share Posted July 25, 2013 (edited) peki sürekli "1"1 nasıl yaptrırız mesala alt 1 yaptğımda duracak tekrar yaptğımda devam decek böyle bişey olur mu seri şekilde sürekli "1"1"1" yapacak yani Edited July 25, 2013 by yusuf1284 Quote Link to comment Share on other sites More sharing options...
reyiz Posted July 25, 2013 Share Posted July 25, 2013 (edited) Opt("SendKeyDelay", "0") Global $baslat = 0 HotKeySet("!1", "baslat") Func baslat() If $baslat Then $baslat = 0 Else $baslat = 1 EndIf EndFunc While 1 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...
Lokenn Posted July 25, 2013 Share Posted July 25, 2013 Send("{a down}") İşlemler . . . . Send("{a up}") Geçte olsa kullanabileceğin bir kod Quote Link to comment Share on other sites More sharing options...
yusuf1284 Posted July 25, 2013 Share Posted July 25, 2013 (edited) sürekli yapmıyor 1 defa yapıyor sürekli bas bırak yapması lazım cok hızlı ayarlayabilir msiniz ? Edited July 25, 2013 by yusuf1284 Quote Link to comment Share on other sites More sharing options...
reyiz Posted July 25, 2013 Share Posted July 25, 2013 Bilgisayarınızla ilgili bir sorun olabilir. Kodu iki sistemde denedim, bir sorun yok. Quote Link to comment Share on other sites More sharing options...
Lokenn Posted July 25, 2013 Share Posted July 25, 2013 While 1 Send("{a down}") sleep(50) Send("{a up}") wend Anlamayacak ne var ki süslü paranteze alıp sonuna down koyunca basılı tutuyor.Aynı şekilde sonuna up koyunca da kaldırıyor tuşu. Quote Link to comment Share on other sites More sharing options...
reyiz Posted July 25, 2013 Share Posted July 25, 2013 sürekli yapmıyor 1 defa yapıyor sürekli bas bırak yapması lazım cok hızlı ayarlayabilir msiniz ? Bunu kimin kodu için yazdınız? Quote Link to comment Share on other sites More sharing options...
yusuf1284 Posted July 25, 2013 Share Posted July 25, 2013 tmm haklsın pardon 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.