Mek Fiuchem

Bom eu ponhei no Tray icon : Me.Hide e no notifyicon : Me.Show e coloquei o icone mais quando eu cliclo em tray icon eu passo o mouse no icone que ta la no relogio ta escrito : Notifyicon1 , eu queria saber como faz para mudar , para apareçer o nome do player que ta usando o bot e queria saber se alguem sabe algum code de auto show/hide tipo eu aperto "F12" ele desapareçe ai aperto "F12" novamente apareçe o bot que nem do Bot Ng

Eu recomendo eu nunca fui banido com ele - nem-tenho-ele-no-pc-kkk

Ele e seguro pois , ele utiliza o mouse , teclas e nao manda packets e quase indectavel , EU RECOMENDO

aeeeeeeeeeee os curtiram volto \o/ eu amo esse forum manoooooooooooooo e a equipe tbm

Desculpé ai por reviver topico tipo eu coloquei no timer mais a linha : (Tibia.Constants.Flag.ProtectedByMagicShield) fiko sublinhada azul tenho que declara alguma coisa?

vlws

Eu tava aki tentando ve como faço spoiler mais nao consigo , alguem pode me dizer como faço o spoiler , aquilo que ta escrito Mostrar e mostra o texto que ta dentro do spoiler

hehehehe eu ri @TOPICO sim volto , so se voce tiver com ilusao de otica

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 Faça isso ai

Bom eu coloquei assim If c.LoggedIn Then If (p.Health > TextBox1.Text) And (p.Mana > TextBox2.Text) Then c.Console.Say(TextBox3.Text) End If End If so que agora ele nao esta funcionando :/ @Kimoszin calma mosso se ta ligado qui ti amo

Solto exura ate a mana acabar e fiko soltando fumacinha Oo ele nao parava nem 1 segundo

Bom eu criei 1 form e fiz 1 health so que quando eu ponho a health min , nome da spell e a mana requerida e a hotkey onde ta a magia ele fika soltando a magia ate acabar a mana e ainda fika soltando essas fumacinhas alguem me ajuda com isso oia o code Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constants Public Class Form4 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 Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load c = Form1.ComboBox1.SelectedItem If c.LoggedIn Then p = c.GetPlayer Form1.Hide() Else Me.Hide() MsgBox("Escolha seu Personagem.") End If End Sub Private Sub TimerHealth_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerHealth.Tick If c.LoggedIn Then If p.HealthMax > TextBox1.Text Then c.Console.Say(TextBox2.Text) If p.Mana > TextBox3.Text Then End If End If End If End Sub Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged TimerHealth.Start() End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged TimerHealth.Stop() End Sub Private Sub TimerKey_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerKey.Tick 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.F1, 0) End If If ComboBox1.Text = "F3" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If If ComboBox1.Text = "F4" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If If ComboBox1.Text = "F5" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If If ComboBox1.Text = "F6" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If If ComboBox1.Text = "F7" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If If ComboBox1.Text = "F8" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If If ComboBox1.Text = "F9" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If If ComboBox1.Text = "F10" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If If ComboBox1.Text = "F11" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If If ComboBox1.Text = "F12" Then SendMessage(Tibia.MainWindowHandle, WM_KeyDown, Keys.F1, 0) End If End Sub End Class

Seguinte voce foi testar ele ne tipo deu F5 ai add os walkers e foi ponhar para seguir os waypoints mais voce tem que começar do começo e cliclar na primeira coodernada adc no listbox1 se nao ele ira dar esse erro memo , estou tentando arrumar isso ai para ponhar para axar sozinho a coodernada de onde o player ta AJUDEI ? CLICK EM CURTI

esta errado esses dias se me passo isso e nao funfo ai tu me passo outro ai funfo, tem que ter o form_load de dois click no form e coloque isso exemplo : c = Form1.ComboBox1.SelectedItem If c.LoggedIn Then p = c.GetPlayer Form1.Hide() Else Me.Hide() MsgBox("You need choose your character") End If fikara assim ex: Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load c = Form1.ComboBox1.SelectedItem If c.LoggedIn Then p = c.GetPlayer Form1.Hide() Else Me.Hide() MsgBox("You need choose your character") End If End Sub

curti no começo mais abaixei de 1 site fudeo meu PC kkkk tinha trojan mais eu axei ele mt bom mais vo tenta mecher no CSharp o VB ta fikando fraquinho tipo o Toolstripmenu tem akela barra azul no lado << nao curti akilo

vou ver MF Bot ou MF Auto que tipo eu poderia ponhar so que a pomba do icone e foda de fazer 1 M

hehehehe suave escolhi outro nome so nao sei qual kkk'

vlws Augusto , Juninho piupiu rePUTAdo Tag "resolvido" adicionado

sei la usahduhasduhasd tava tentando axar 1 nome para o bot no PC axei a pasta do ares

uia vlws kara tenta grava isso aki na mente usahduhasd para ponhar no meu bot :/ mais me diz 1 coisa como faz para eu ponhar exemplo Label : Health Min > Texte box 1 Label : Spell Caster > Texte box 2 Label : Mana > Text box 3 queria tipo assim eu tento If c.loggedIn Then If p.health > Textbox1 Then c.Say.Console > Textbox 2 p.mana > textbox 3 mais a linha c.loggedin fika sublinhada ai eu retiro fika sem erros mais sera que funciona

Thunder Bot x Folder Bot x Humble Bot qual vira desses ?

puts por 1 segundo pensei que era o neymar husaudhusad

Bom to sem net :/ e fikei la em casa tentando fazer uns code ai eu vo mana trainer tentei sorte com health ai eu fiz isso Timer: If c.LoggedIn Then If p.healthmax > Textbox1 Then c.Say.Console > Textbox 2 End If esta mais omenos assim o codigo , eu queria saber se tipo ele ponhar o healthmax a quantidade de hp que ele quer healar e no console c.say.console ponha a magia , ele solta 1x a magia ou ele fika soltando ate a mana acabar ?

Mt bom gostei , podia postar a source pra nois ne :/

aff kara Night Bot era o nome do meu bot --' qui eu estou fazendo aff , esquece inda bem que tenho outros nomes aqui dahora vo ponhar 1 nome que o kimozims me passo