Pesquisar na Comunidade
Mostrando resultados para as tags ''ajuda vbnet''.
Encontrado 1 registro
-
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
