Bem-vindo ao Fórum!

Registre-se agora mesmo e fique por dentro da maior comunidade de Cheats do Brasil!

mphwch

AJUDA EM VBNET POR FAVOR!

Recommended Posts

Olá galera tudo bom? , espero que sim!

gente estou precisando fazer essa aplicação eu mexo mais com design e não sei muito de vbnet mas eu

entendo pouco no caso estou com dificuldades de fazer uma aplicação e para não ter erros queria

saber se é possível eu passar código fonte e alguém posso me ajuda fazendo o projeto e me mandando

o arquivo pronto pra eu editar o design do form e etc... pois aqui tá dando muito erro não sei oque é, eu conseguir uma vez mas dessa vez está hard '-', agradeço uma resposta ajuda :)

 

Em cima da public class form 1:

Imports System.Runtime.InteropServices

Imports System.Threading

 

 

EM BAIXO DA FORM 1

<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

 

Const VK_KEY_Q As Byte = &H51

Const VK_KEY_W As Byte = &H57

Const VK_KEY_R As Byte = &H52

 

 

Const KEYEVENTF_KEYUP As Byte = &H2

 

 

TIMER DO MACRO

If checkbox1.Checked Then

KEYB_Event(VK_KEY_Q, 0, 0, 0)

KEYB_Event(VK_KEY_Q, 0, KEYEVENTF_KEYUP, 0)

Thread.Sleep(TrackBar1.Value)

End If

 

 

If checkbox2.Checked Then

KEYB_Event(VK_KEY_W, 0, 0, 0)

KEYB_Event(VK_KEY_W, 0, KEYEVENTF_KEYUP, 0)

Thread.Sleep(TrackBar1.Value)

End If

 

 

If checkbox3.Checked Then

KEYB_Event(VK_KEY_R, 0, 0, 0)

KEYB_Event(VK_KEY_R, 0, KEYEVENTF_KEYUP, 0)

Thread.Sleep(TrackBar1.Value)

End If

 

 

If checkbox4.Checked Then

KEYB_Event(VK_KEY_R, 0, 0, 0)

KEYB_Event(VK_KEY_R, 0, KEYEVENTF_KEYUP, 0)

Thread.Sleep(TrackBar1.Value)

End If

 

 

BOTOES

Timer1.start ' pra ativar

Timer1.Stop ' pra desativar

 

 

Propriedades da TrackBar

Maximum : 100

Minimum : 1

LargeChanger : 1

Value : 50

 

 

Timer da HotKey

Dim Hotkey As Boolean

Hotkey = GetAsyncKeyState(Keys.F5)

If Hotkey = True Then

Button1.PerformClick()

End If

 

 

Hotkey = GetAsyncKeyState(Keys.F6)

If Hotkey = True Then

Button2.PerformClick()

End If

 

 

OBS: o aplicativo é para ficar apertando as teclas Q,W,R ou pode ser Q, W somente essas teclas e pode ser sem os botões 1 e 2 pois já tem o ativar pelo F5 e Desativar por F6

 

ISSO É PRA UM JOGO QUE USA AS PORÇÕES EM > Q, W, R OU PODE SER SOMENTE Q,W

Share this post


Link to post
Share on other sites

up


HGYVxhi.jpg
Arte por: J.Won Han

 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.