Criando um Auto Potion VB.NET

Ola Pessoal
Venho Ensinar Como Fazer Seu Auto Potion

Code :
Em cima do public class form 1

Conteúdo liberado do hide!

Código:

Imports System.Runtime.InteropServices 
Imports System.Threading

De baixo de Public class Form

Conteúdo liberado do hide!

Código:

<DllImport("user32.dll", CallingConvention:=CallingConvention.StdCall, _ 
CharSet:=CharSet.Unicode, EntryPoint:="keybd_event", _ 
ExactSpelling:=True, SetLastError:=True)> _ 
Public Shared Sub KEYB_Event(ByVal bVk As Byte, ByVal bScan As Byte, _ 
ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer) 

End Sub 
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal Tecla As Keys) As Keys 
Declare Sub MOUSE_EVENT Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer) 
Private Const MOUSEEVENTF_ABSOLUTE = &H8000 ' absolute move 
Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down 
Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button up 
Private Const MOUSEEVENTF_MOVE = &H1 ' mouse move 
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20 
Private Const MOUSEEVENTF_MIDDLEUP = &H40 
Private Const MOUSEEVENTF_RIGHTDOWN = &H8 
Private Const MOUSEEVENTF_RIGHTUP = &H10 
Const VK_CONTROL As Byte = &H11 
Const VK_KEY_Q As Byte = &H51 
Const VK_KEY_W As Byte = &H57 
Const VK_KEY_E As Byte = &H45 

Const KEYEVENTF_KEYUP As Byte = &H2

Crie 2 Botão
No Botão 1 Coloque

Conteúdo liberado do hide!

Código:

Timer1.Start()

No Botão 2 Coloque

Conteúdo liberado do hide!

Código:

Timer1.Stop()

Cria Um Timer
Com Intervalo de 1 A 100 Para que carregue rapido
Coloque no TIMER 1

Conteúdo liberado do hide!

Código:

KEYB_Event(VK_KEY_Q, 0, 0, 0)  
KEYB_Event(VK_KEY_Q, 0, 0, 0) 
Thread.Sleep(60)  

KEYB_Event(VK_KEY_W, 0, KEYEVENTF_KEYUP, 0)  
KEYB_Event(VK_KEY_W, 0, 0, 0)  
Thread.Sleep(26)  

KEYB_Event(VK_KEY_E, 0, KEYEVENTF_KEYUP, 0)  
KEYB_Event(VK_KEY_E, 0, 0, 0)  
Thread.Sleep(60)  

KEYB_Event(VK_KEY_E, 0, KEYEVENTF_KEYUP, 0)