Mek Fiuchem 212 Postado Agosto 15, 2011 Share Postado Agosto 15, 2011 Eu queria saber oque esta de errado nesse form de trainer , ele nao quer solta spell que ta na hotkey nada :/ oia Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constants Public Class Form3 Private Const WM_KEYUP = &H202 Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer Public Tibia As Process Public Shared WM_KeyDown = &H100 Dim c As Client Dim p As Player Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load c = Form1.ListBox1.SelectedItem If c.LoggedIn Then p = c.GetPlayer Form1.Hide() Else Me.Hide() MsgBox("You need choose your character") End If End Sub Private Sub TimerTrainer_Tick1(ByVal sender As System.Object, ByVal e As System.EventArgs) If c.LoggedIn Then If p.Mana > TextBox1.Text Then End If End If End Sub Private Sub TimerKey_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) If ComboBox1.Text = "F1" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If If ComboBox1.Text = "F2" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F2, 0) End If If ComboBox1.Text = "F3" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F3, 0) End If If ComboBox1.Text = "F4" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F4, 0) End If If ComboBox1.Text = "F5" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F5, 0) End If If ComboBox1.Text = "F6" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F6, 0) End If If ComboBox1.Text = "F7" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F7, 0) End If If ComboBox1.Text = "F8" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F8, 0) End If If ComboBox1.Text = "F9" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F9, 0) End If If ComboBox1.Text = "F10" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F10, 0) End If If ComboBox1.Text = "F11" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F11, 0) End If If ComboBox1.Text = "F12" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F12, 0) End If End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) If CheckBox1.Checked Then TimerTrainer.Start() TimerKey.Start() Else TimerTrainer.Stop() TimerKey.Stop() End If End Sub End Class Citar Link para o post Compartilhar em outros sites
Kimoszin 1160 Postado Agosto 15, 2011 Share Postado Agosto 15, 2011 Qual Tibia ele vai pegar? Public Tibia As Process Assim ele vai pegar o priemiro Public Shared Tibia As Process = Process.GetProcessesByName("Tibia").First Mek Fiuchem reagiu a isso 1 Citar Link para o post Compartilhar em outros sites
Mek Fiuchem 212 Postado Agosto 15, 2011 Autor Share Postado Agosto 15, 2011 Ainda ele nao esta funcionando :/ oia como fiko agora Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constants Public Class Form3 Private Const WM_KEYUP = &H202 Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer Public Shared Tibia As Process = Process.GetProcessesByName("Tibia").First Public Shared WM_KeyDown = &H100 Dim c As Client Dim p As Player Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load c = Form1.ListBox1.SelectedItem If c.LoggedIn Then p = c.GetPlayer Form1.Hide() Else Me.Hide() MsgBox("You need choose your character") End If End Sub Private Sub TimerTrainer_Tick1(ByVal sender As System.Object, ByVal e As System.EventArgs) If c.LoggedIn Then If p.Mana > TextBox1.Text Then End If End If End Sub Private Sub TimerKey_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) If ComboBox1.Text = "F1" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If If ComboBox1.Text = "F2" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F2, 0) End If If ComboBox1.Text = "F3" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F3, 0) End If If ComboBox1.Text = "F4" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F4, 0) End If If ComboBox1.Text = "F5" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F5, 0) End If If ComboBox1.Text = "F6" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F6, 0) End If If ComboBox1.Text = "F7" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F7, 0) End If If ComboBox1.Text = "F8" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F8, 0) End If If ComboBox1.Text = "F9" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F9, 0) End If If ComboBox1.Text = "F10" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F10, 0) End If If ComboBox1.Text = "F11" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F11, 0) End If If ComboBox1.Text = "F12" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F12, 0) End If End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) If CheckBox1.Checked Then TimerTrainer.Start() TimerKey.Start() Else TimerTrainer.Stop() TimerKey.Stop() End If End Sub End Class Citar Link para o post Compartilhar em outros sites
Kimoszin 1160 Postado Agosto 15, 2011 Share Postado Agosto 15, 2011 Pq as hotkeys estao separadas? Bote junto com elas, porra Como vc quer que faça alguma coisa? botando em outro timer sem ativar ele? PQP Outra dica, vc ta fazendo bot com api, entao foda-se pressionar tecla, bota console mesmo ... Citar Link para o post Compartilhar em outros sites
Mek Fiuchem 212 Postado Agosto 15, 2011 Autor Share Postado Agosto 15, 2011 Pq as hotkeys estao separadas? Bote junto com elas, porra Como vc quer que faça alguma coisa? botando em outro timer sem ativar ele? PQP Outra dica, vc ta fazendo bot com api, entao foda-se pressionar tecla, bota console mesmo ... Uia tem gente que acordo hoje estressado :/ , fikar sem essa mieda de simulador de teclas memo , mais pra frente aprendo a mexer em bot sem api --' Citar Link para o post Compartilhar em outros sites
Kimoszin 1160 Postado Agosto 15, 2011 Share Postado Agosto 15, 2011 Claro cara, vc bota tudo separado, Vou te dizer oque o Robson sempre me fala quando eu peço ajuda pra ele, oque ele me fala? Vai Estudar Ele sempre me manda estudar, e olha oque aconteceu consegui fazer um mana trainer sem api, Entao eu fala isso pra vc Citar Link para o post Compartilhar em outros sites
Mek Fiuchem 212 Postado Agosto 15, 2011 Autor Share Postado Agosto 15, 2011 Jajaja to indo estuda , toma banho as 12:15 e vo la pelas 12:50 , estudar 1 poko quem sabe eu melhoro 1 poko Citar Link para o post Compartilhar em outros sites
Kimoszin 1160 Postado Agosto 15, 2011 Share Postado Agosto 15, 2011 Era pra vc ter estuda pelo menos a logica de programação antes de baixar o VB So pra nao dizer que eu so malvado: Private Sub TimerTrainer_Tick1(ByVal sender As System.Object, ByVal e As System.EventArgs) If c.LoggedIn Then If p.Mana > TextBox1.Text Then If ComboBox1.Text = "F1" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If If ComboBox1.Text = "F2" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F2, 0) End If If ComboBox1.Text = "F3" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F3, 0) End If If ComboBox1.Text = "F4" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F4, 0) End If If ComboBox1.Text = "F5" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F5, 0) End If If ComboBox1.Text = "F6" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F6, 0) End If If ComboBox1.Text = "F7" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F7, 0) End If If ComboBox1.Text = "F8" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F8, 0) End If If ComboBox1.Text = "F9" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F9, 0) End If If ComboBox1.Text = "F10" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F10, 0) End If If ComboBox1.Text = "F11" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F11, 0) End If If ComboBox1.Text = "F12" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F12, 0) End If End If End If End Sub Nao arrumei seu code, apenos deixei certo, Uma dica, use elseif envez de 700 ifs Citar Link para o post Compartilhar em outros sites
Mek Fiuchem 212 Postado Agosto 15, 2011 Autor Share Postado Agosto 15, 2011 (editado) kkk' vlws eu tava estudando aki ai vi que tu respondeu tipo eu fiz o mesmo so modifiquei uns negosios Public Class Form3 Dim Tibia As Process = Process.GetProcessesByName("Tibia").First Private Const WM_KEYUP = &H101 Public Shared wm_keydown = &H100 Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked Then Timer1.Enabled = True Else Timer1.Enabled = False End If End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If ComboBox1.Text = "F1" Then SendMessage(Tibia.MainWindowHandle, wm_keydown, Keys.F1, 0) ElseIf ComboBox1.Text = "F2" Then SendMessage(Tibia.MainWindowHandle, wm_keydown, Keys.F2, 0) End If End Sub End Class #Edit A desgrama do erro era no TibiaApi o endereço da mana e health entre outros ta errado --' Editado Agosto 17, 2011 por Mek Fiuchem (veja o histórico de edições) Citar Link para o post Compartilhar em outros sites
Posts Recomendados
Participe da conversa
Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.