Autoıt Macro Ufak Bir Yardıma Ihtiyacım Var!

[zraile]

[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

[radyofon]

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

[zraile]

[b]Malesef sorun devam ediyor Arka planda iken kısayol ile müdehale edemiyorum.[/b]

[blue_life]

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]

[zraile]

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