[Help] Why Won't my Program Work on Full Screen?
I'm just trying to make a simple auto typer for League of Legends that uses hot keys. It works on all other full screen games except LoL, why?
Code:
Public Const MOD_ALT As Integer = &H1 'ALT key
Public Const WM_HOTKEY As Integer = &H312
Public Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Integer
Public Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer) As Integer
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
If m.Msg = WM_HOTKEY Then
Dim id As IntPtr = m.WParam
Select Case (id.ToString)
Case "9"
SendKeys.Send("+{enter}")
SendKeys.Send(" GGGGGGG")
SendKeys.Send("{enter}")
SendKeys.Send("+{enter}")
SendKeys.Send(" GG GG")
SendKeys.Send("{enter}")
SendKeys.Send("+{enter}")
SendKeys.Send(" GG")
SendKeys.Send("{enter}")
SendKeys.Send("+{enter}")
SendKeys.Send("GG")
SendKeys.Send("{enter}")
SendKeys.Send("+{enter}")
SendKeys.Send("GG ")
SendKeys.Send("{enter}")
SendKeys.Send("+{enter}")
SendKeys.Send(" GG GG")
SendKeys.Send("{enter}")
SendKeys.Send("+{enter}")
SendKeys.Send(" GG GG")
SendKeys.Send("{enter}")
SendKeys.Send("+{enter}")
SendKeys.Send(" GGGGGGG")
SendKeys.Send("{Enter}")
SendKeys.Send("+{enter}")
SendKeys.Send(" GGGGGGG")
SendKeys.Send("{enter}")
SendKeys.Send("+{enter}")
SendKeys.Send(" GG GG")
SendKeys.Send("{enter}")
SendKeys.Send("+{enter}")
SendKeys.Send(" GG")
SendKeys.Send("{enter}")
SendKeys.Send("+{enter}")
SendKeys.Send("GG")
SendKeys.Send("{enter}")
SendKeys.Send("+{enter}")
SendKeys.Send("GG ")
SendKeys.Send("{enter}")
SendKeys.Send("+{enter}")
SendKeys.Send(" GG GG")
SendKeys.Send("{enter}")
SendKeys.Send("+{enter}")
SendKeys.Send(" GG GG")
SendKeys.Send("{enter}")
SendKeys.Send("+{enter}")
SendKeys.Send(" GGGGGGG")
My.Application.DoEvents()
End Select
End If
MyBase.WndProc(m)
End Sub
Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
Call UnregisterHotKey(Me.Handle, 9)
Call UnregisterHotKey(Me.Handle, 10)
End Sub
Private Sub GG_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call RegisterHotKey(Me.Handle, 9, MOD_ALT, Keys.G)
End Sub
Why don't you just make Macro's
Does SendInput work in VB.NET? It says it's undefined.
I know this has nothing to do with regarding this thread but i felt it needed to be stated.....
Every single member of MPGH.NET has once in their life has leech'd something so their should be nothing said against any member asking for help regarding someone elses code cause you can name any member on this site and i know for a fact every programmer/developer here has leech'd someone elses work...
so haters gonna hate so let them hate ,,!,,^-^,,!,,