Guilherme.

Eu to colocando assim: Cap.Text = p.Capacity Cap é o nome da minha Label

Galera, tenho quase certeza que o problema é no TibiaAPI 870, o negócio é o seguinte, meu character tem 441 de CAP e o BOT lê 44156 de CAP, como podemos arrumar isso ? (Sim, CAP é Capacity)

Já vi Bruno, adicionei aqui também . vlw

c = Form1.ComboBox1.SelectedItem If c.LoggedIn Then If p.Health > 0 Then p = c.GetPlayer Form1.Hide() Else Me.Hide() MsgBox("You need choose your character") End If End If Agora está certo né?!

c = Form1.ComboBox1.SelectedItem If c.LoggedIn Then ElseIf p.Health > 0 Then p = c.GetPlayer Form1.Hide() Else Me.Hide() MsgBox("You need choose your character") End If GroupBox5.Text = p.Name Certo ?

Não são apostilas mais devem ajudar : http://www.macoratti.net/Default.aspx | http://msdn.microsoft.com/pt-br/vbasic/default

Cara isso foi apenas uma dica de quem ta iniciando para quem tá iniciando, é claro que eu tenho duvidas, mais voce tem que tentar entender os códigos que está digitando . . . não era pra entender mal

Como assim colocou em tudo do seu bot ?

Felipe vou te dar uma dica, acredito que todos aqui já estão ficando 'cansados' de resolver problemas em seu bot, acho que você deveria tentar entender seus códigos, leia tudo, veja o erro, procure na internet, vasculhe o TPForum, enfim tente achar a solução por conta própria senão nunca irá aprender programar realmente, não quero que você me entenda mal, só que você realmente 'aprenda' o que está fazendo, e sim, você pode continuar criando tópicos de dúvida, isso foi só uma critica construtiva. Atenciosamente, Guilherme.

Cara nem tinha pensado nisso, muito bom, muito bom mesmo. Vou adicionar no BlackBOT ! Abraços.

Peço ao nosso amigo Puncker, ou algum moderador da seção para que feche este tópico que já está dando o que falar . Atenciosamente, Guilherme.

Felipe, você podia ter editado o post de cima e evitar o double post, não é a primeira vez que você faz isso, então vou te alertar para que se lembre e não faça denovo. Atenciosamente, Guilherme.

Valew galera, iniciei no Visual Basic faz 3 dias mas ainda quero fazer tudo isso aí, algumas funções já estão prontas como Level Spy, Auto Utamo etc. Light, Tibia MC, Outfit, essas coisas meio do básico, mais to trabalhando pra fazer o resto, o foda é que como sou iniciante ta dando muitos bugs nas novas funções que to adicionando, então paciência ! (:

Thanks for TibiaBOTS, pois foram várias pessoas daqui que me ajudaram, e calma, a imagem não é definitiva, é só pra me agradar enquanto eu testo (:

Por enquanto ainda está indetectável porque não envia pacotes ao Tibia, acredito que vai continuar assim

Obrigado Julio, e tomara mesmo que faça sucesso, kk .

Se for igual a do MCV sim . . .

THE POWER IN YOUR HANDS VERSÃO 1.0 BETA FUNÇÕES • Tools - LIGHT HACK - EXP INFO. - OUTFIT HACK - ADDON HACK - TIBIA MC - RECONNECTER - LEVEL SPY - AUTO FISHING • Healer -SPELL HEALING - ITEM HEALING ├ IDs LIST - FRIEND HEALING - CURE POISON / PARALYZE - AUTO UTAMO ├ AUTO UTANI HUR ├ AUTO EXANA POX • Cave Hunting - Targeting - Rune / Spell Attack ○ Walker ├ Add Position ├ Ramp (All Positions) ├ UP (Ladder / Rope) ├ Learn Waypoint ├ Accept NG Waypoints ○ Looting • Trainer - Magic Trainer - Anti Idle - Show Skills/h - Training with Monks/Slimes - Eat Food • Configuration - Tray Icon - Save/Load Settings - Info. To Reconnecter • Scripter - Script Editor (Same as TibiaBOT NG)** ** - NÃO TENHO CERTEZA DESTA FUNÇÃO, POIS NÃO SEI SE DA PRA FAZER NO VISUAL BASIC • BOT INDETECTÁVEL IMAGENS CONSIDERAÇÕES FINAIS Bom, queria deixar algumas coisas meio que claras antes de terminar o tópico. Gostaria que soubessem que o projeto não é OpenSource, portanto não vou disponibilizar códigos do mesmo, o projeto não tem prazo para término porque eu estou iniciando no VB e não sei muito, quero ver vocês deixando sugestões de funções, designer, enfim, use sua imaginação e dê críticas construtivas pois talves elas mudem o futuro do BlackBOT. Atenciosamente, Guilherme.

Flamer, existe outra forma de abrir o Form2 sem ser Form2.Show() ?

Melhor não, deixa assim mesmo como tá (:

Que bom que está satisfeito flamer responde minha mensagem privada D:

Baixe algum programa que faça um instalador, coloque todos os arquivos necessários para o funcionamento e disponibilize para download.

Isso tá acontecendo porque tem 2 TibiaAPI fazendo refêrencia ao seu bot (pelo menos era esse erro aqui, e isso que tava acontecendo). 1 > Clicka com direito no seu projeto (Dentro do VB) 2 > Clicka em Propriedades 3 > Clicka na aba References 4 > Olhe se tem 2 TibiaAPI 5 > Se a resposta for 'Sim' apague 1, se for 'Não', sinto muito mais não posso te ajudar .

Cara , com esse level aí ainda mais paladin, se for pra botear recomendo aqui : http://tibiabots.net/forum/topic/641-fenrock-full-fenrock-waypoint/

Turtles and Barbarians YALAHAR (Fenrock) Exp: 28k-30k/hr Gp: 6k + Items/hr Monsters: Tortoise Barbarian Skullhunter Barbarian Brutetamer Farnack tortoise + barbarians.wpt Loots: Gold Crocodile Boots - 3556 Turtle Shell - 5899 War Hammer - 3279 Halberd Health Potion Fur Boots Beastslayer Axe Brown Piece of Cloth Shard Krimhorn Helmet Ragnir Helmet Crystal Sword Life Ring Mammoth Fur Shorts Mammoth Fur Cape Requerimentos Level: 30+ Vocation: Knight; Premium Time: Sim; Equipment: Um knight Set e um bom axe/sword/club vão dar a você uma boa hunt Levar: 50 Health Potions por segurança. Script Recomendado Const Name=['Barbarian Brutetamer']; SwitchAt=10;// the % of the current attacked monster //that if the monster has lass % hp than this, we Will NOt change to the stronger monster. function GetPlace(st:string):integer; var x:integer; begin Result:=1000; for x:=Low(Name) To High(Name) do begin if Name[x]=st then Result:=x; end; end; function GetCreatureByID(ID: integer): TCreature; var x: integer; begin Result := nil; for x := 0 to Creatures.Count - 1 do begin if x >= Creatures.Count then Break; if Creatures.Creature[x].ID = ID then begin Result := Creatures.Creature[x]; Exit; end; end; end; function IsCreatureBesideYou(c: TCreature): boolean; begin UpdateWorld; Result := False; if (abs(c.X-self.X) <= 6) and (abs(c.Y-self.Y) <= 6) then begin if c.Z = self.Z then begin Result := True; end; end; end; var x:integer; b:boolean; begin while not terminated do begin b:=false; updateworld; If (Self.Attacking<>0) then begin Creature:=GetCreatureByID(Self.Attacking); if Creature<>nil then if SwitchAt<Creature.Health then begin for x := 0 to Creatures.Count - 1 do begin updateworld; if b then break; if x >= Creatures.Count then Break; if Creatures.Creature[x].NPC then if Creatures.Creature[x].z=self.z then if Creatures.Creature[x].Name<>self.name then if Creatures.Creature[x].Attacking = false then if IsCreatureBesideYou(Creatures.Creature[x]) then if GetPlace(Creature.Name)>GetPlace(Creatures.Creature[x].Name) then begin sleep(100); updateworld; Creatures.Creature[x].attacking:=true; B:=true; end; end; end; end; Sleep(100); end; end;