zraile Posted December 28, 2011 Share Posted December 28, 2011 (edited) [code] MsgBox ( 0, "Macros 4 K.o PVPs", "Stop/Start İçin ,Q, tusunu kullanınız...") $msg = 0 $i = 1 While $i =1 Global $Paused HotKeySet("q", "Pause") WinActive("KnightOnline.exe") // Knight Online Client'de yazılabilir. Sleep (30) send("{6}"); Sleep (30) send("{8}") Sleep (30) send("{6}") Sleep (30) send("{7}") Sleep (30) send("{R}") Sleep (30) WEnd Func Pause() $Paused = NOT $Paused While $Paused Sleep (50) WEnd EndFunc; => Pause()[/code] [b]Kodumuz yukarıdaki nereden aldığımı hatırlamıyorum.Fakat şimdi sorun şu.Arada bir keyfi olarak Oyun oynuyorum bu oyunda skilleri basması için ayarlarımız bu şekilde ama oyun ekranında iken Kısayol Tuşu " Q " işlemiyor.Ancak alt - Tab yaparsam işliyor bunu nasıl çözebilirim.AutoIt'in dll'sini VB de kullanmak istedim fakat prgramlama bilgim düşük o yüzden beceremedim.Dll injection yapmam gerektiğini söylediler fakat yeterli bilgi bulamadım.Yardımcı olursanız sevinirim.Ayrıca forumunuzda verilen AutoItx.dll dosyası ile autoItx'in içerisinde gelen dll aynı mı ? NOT : Sorunu biraz araştırdım.GUI ihtiyacım varmış.Önerilerinize açığım.[/b] Edited December 28, 2011 by zraile Quote Link to comment Share on other sites More sharing options...
radyofon Posted December 31, 2011 Share Posted December 31, 2011 (edited) Script' in başına [code] #include <WindowsConstants.au3> [color=#9977BB][font=monospace][i]#include <ButtonConstants.au3>[/i][/font][/color] [/code] eklemeyi dene. Edited December 31, 2011 by radyofon Quote Link to comment Share on other sites More sharing options...
zraile Posted January 1, 2012 Author Share Posted January 1, 2012 [b]Malesef sorun devam ediyor Arka planda iken kısayol ile müdehale edemiyorum.[/b] Quote Link to comment Share on other sites More sharing options...
blue_life Posted January 1, 2012 Share Posted January 1, 2012 Aşağıdakini bir dene! [codebox]MsgBox(0, "Macros 4 K.o PVPs", "Stop/Start İçin ,Q, tusunu kullanınız...") Global $Paused HotKeySet("{PAUSE}", "_BEKLE") HotKeySet("{ESC}", "_CIKIS") HotKeySet("q", "_ISLEM") HotKeySet("Q", "_ISLEM") While 1 Sleep(100) WEnd Func _BEKLE() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script is "Paused"',0,0) WEnd ToolTip("") EndFunc Func _CIKIS() Exit 0 EndFunc Func _ISLEM() HotKeySet("q") ;Hotkey bir kez işlesin diye tanımlamayı siliyoruz. HotKeySet("Q") ;Hotkey bir kez işlesin diye tanımlamayı siliyoruz. ;WinActive("KnightOnline.exe") ; Knight Online Client'de yazılabilir. Sleep(30) Send("{6}"); Sleep(30) Send("{8}") Sleep(30) Send("{6}") Sleep(30) Send("{7}") Sleep(30) Send("{R}") Sleep(30) HotKeySet("q", "_ISLEM") ;Işelmi yaptırdıktan sonra tekrar tanımlıyoruz HotKeySet("Q", "_ISLEM") ;Işelmi yaptırdıktan sonra tekrar tanımlıyoruz EndFunc[/codebox] Quote Link to comment Share on other sites More sharing options...
zraile Posted January 6, 2012 Author Share Posted January 6, 2012 (edited) Ben Autoitle yapamadım fakat dll si çok işimi gördü.VB.NET'te sadece hotkey tanımlama yapmam lazım fakat Visual basicte sorun yok hotkey sorunsuz yapıyorum.Ama VB.NET söz konusu olunca sağlıklı bir makale bulamadım.VB6 'da yaptığım program windows 7 ve vistada sorun çıkardığı gibi donmalara neden oluyor.VB2010 ile yaptığımn program hızı mükemmel fakat hotkey durumunu çözemedim Bilgisi olan varsa yardımcı olabilir.Bulduğum en sağlıklı yöntem şu ; [codebox]Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Dim hotkey As Boolean hotkey = GetAsynckeyState(Keys.F) If hotkey = True Then Button1.PerformClick() Else Button2.PerformClick() End If End Sub[/codebox] Formun başınada VB.NET için; [codebox]<System.Runtime.InteropServices.DllImport("user32.dll")> _ Private Shared Function GetAsynckeyState(ByVal vkey As System.Windows.Forms.Keys) As Short End Function[/codebox] Fakat çalışmıyor Edited January 6, 2012 by zraile 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.