Líderes

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

O que é o flmR Combo? É um programa que permite que jogadores possam interagir fora do Tibia, e marcar um alvo para ser atacado ao mesmo tempo. O flmR Combo ainda está em versão Alpha, e deverá ter funções adicionadas em breve. O flmR Combo é baseado em um servidor que fornece a comunicação entre os usuários conectados. Tutorial completo: http://www.flmr.net/....php?f=12&t=217 Download: http://flmr.net/pt/i...hp?id=flmrcombo Screenshots: Qualquer dúvida,sugestão ou sei lá o que... podem postar

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

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

ia ser legal uma coisa tipo assim: O cara programa o servidor pra ter um server save (Igual Global, mas isso fica por conta do Admin) Agora a função do seu programa: Ele reinicia o Windows, logo, se inicia automaticamente e liga o servidor denovo. E para configurar basta colocar a hora que você quer que reinicie o computador. Isso seria bom pra 'recarregar as energias' do servidor (: