JulinhoPiuPiu

Obrigado ai pela força

Update: 1.0.9 Friend Healer Adicionado.

Sim isso eu já entendi.. vou ver

Trainer (Slime/Monk/Player) sim isto virá.. mas como assim um Reconnecter sem pedir a senha? é foda..

Se poder falar "algumas coisas basicas" eu posso implementar..

Update, Versão 1.0.8 com a implementação do "HUD Display" que é completamente externo do cliente como todo o resto do bot. Abraço

O Trainer já estáva quase pronto, com este update mudou algo, mas para a proxima versão talvez.

Creio que não

Cara no load do form você botou c = clientchooser.showbox ?

Não consegui.. :/

Você dará o ponto para a função clicar no devido ponto.

Vou tentar fazer.. pera

Aquilo era uma preview.. está em testes ainda.

Sim, funciona com windows 7.

Versão 1.1.4 para Tibia 9.10 FnBot é um software para o Tibia, que utiliza apenas mouse, keyboard e leitura de memória para suas funções. Ele não injeta dll, não recebe e nem envia packets ao client. Então vamos lá algumas fotos: Ultimas screenshot: Mais screenshots: Características: Options Show or hide tray icon. Settings Save and load settings. Alerts Health Alert Mana Alert Cap Alert Soul Alert Player On Screen Alert Pk On Screen Alert Disconnected Alert Tools Auto Eater Auto Hur Auto Fire Auto Dance Cure Paralyze Cure Poison Fisher Mana Trainer Reconnecter Advanced Health Healer Mana Healer HUD Display Trainer System Tray Show/Hide Tibia Show/Hide FnBot Downloads: Software: FnBot 1.1.4 Download Requerimento: http://www.microsoft...s.aspx?id=17851 Tibia client (se você tiver no seu computador não é necessário baixar): Tibia 9.10

Você está usando o MageBot 9.10 e o Tibia 9.10? pode ser isto, se não tente o que o Mek falou..

Declare tibia como processo: Public Tibia As Process Depois a função do click: Public Sub Click(ByVal Location As Point) Dim lnglParam As String = (Location.Y * &H10000) + Location.X SendMessage(Tibia.MainWindowHandle, WM_LBUTTONDOWN, 1&, lnglParam) SendMessage(Tibia.MainWindowHandle, WM_LBUTTONUP, 1&, lnglParam) End Sub

Concordo com o ramon, isto é perigoso em mãos errada é mt facil criar um programa que leia sua conta e mande um email com ela para o dono do programa.

Renato declare isto: Public Tibia As Process

Função de enviar hotkey. Função: Public Sub Hotkey(ByVal htk As String) Select Case htk Case "F1" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F1, 0) Case "F2" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F2, 0) Case "F3" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F3, 0) Case "F4" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F4, 0) Case "F5" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F5, 0) Case "F6" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F6, 0) Case "F7" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F7, 0) Case "F8" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F8, 0) Case "F9" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F9, 0) Case "F10" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F10, 0) Case "F11" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F11, 0) Case "F12" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F12, 0) Case "Shift+F1" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F1, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F1, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&) Case "Shift+F2" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F2, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F2, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&) Case "Shift+F3" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F3, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F3, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&) Case "Shift+F4" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F4, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F4, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&) Case "Shift+F5" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F5, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F5, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&) Case "Shift+F6" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F6, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F6, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&) Case "Shift+F7" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F7, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F7, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&) Case "Shift+F8" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F8, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F8, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&) Case "Shift+F9" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F9, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F9, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&) Case "Shift+F10" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F10, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F10, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&) Case "Shift+F11" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F11, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F11, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&) Case "Shift+F12" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F12, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F12, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&) Case "Ctrl+F1" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F1, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F1, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&) Case "Ctrl+F2" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F2, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F2, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&) Case "Ctrl+F3" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F3, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F3, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&) Case "Ctrl+F4" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F4, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F4, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&) Case "Ctrl+F5" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F5, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F5, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&) Case "Ctrl+F6" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F6, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F6, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&) Case "Ctrl+F7" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F7, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F7, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&) Case "Ctrl+F8" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F8, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F8, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&) Case "Ctrl+F9" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F9, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F9, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&) Case "Ctrl+F10" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F10, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F10, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&) Case "Ctrl+F11" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F11, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F11, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&) Case "Ctrl+F12" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F12, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F12, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&) End Select End Sub Quem não souber como usar poste sua duvida/erro. ou comente qualquer coisa. Abraço

huashuashudsa cara foi errado foi mal é [email protected] ali ta com 2 ll do gmail :/ manda dinovo ai

[email protected] me manda tbm quero ver

Augusto, pelo que vi até agora só da para usar as linguagens VBScript CScript e JScript, é só mudar a language. Abraço

Adicionei: a adição de objetos. Abraços

Motivo do Tutorial: Criar um scripter prório. Adicionando a refêrencia MSSCriptControl. Explicação: a primeira parte é de adicionar a refêrencia, adicionando-a você tera as funcionalidades da MSScriptControl. Importando a refêrencia MSScriptControl. Explicação: assim você poderá usar o controle. Necessário: Botão e caixa de texto (ou utilize algo de seu gosto). Explicação: criando o button e o textbox é o jeito que utilizei para fazer o scripter, utilize algo do seu gosto com seu conhecimento é claro. Código do Button1: Explicação: escrevendo a função do clique do button1, primeiro declaramo que script é o MSScriptControl, depois declaramos a linguagem e depois executamos o codigo. Scripter em uso: Explicação: com tudo pronto pressione F5 para iniciar ou inicie você mesmo pelo menu. Adicionando um objeto. Explicação: declaramos igual o MSScriptControl como "script", declaramos a linguagem que é igual a "VBScript", depois adicionamos o objeto, e depois executa-o. Espero que entendam. Abraço