Giovani

tem como posta uma SS, pq nao to entendendo esse erro nao seria esse == ? Edit acho que vi o erro if (client.Memory.ReadByte(i + Addresses.Container.DistanceIsOpen) == 1) tenta

e possível sim , meu bot e assim , tem como pega ate os BP para puxa o loot so que e complicado Pesquisa no google Gui tibia la vai enconta o X e Y do map do mini map de tudo basicamente

Mostra o Code ai pra nos avaliar !

Na hora que tiver tempo aqui eu faço um vídeo ,pra ajudar no Battlelist ! como ler, como escrever ! dar for tudo :]

Olá Outra vez venho trazendo a vo6 um Tutorial , para Fazer uma CaveBot , Qualquer Duvida Post Const adrGoZ = &H945004 Const adrGoY = &H97CE98 Const adrGoX = &H97CEA0 Esses são da versão 9.60 e 9.61 "os Endereços nao Mudaram ". Agora os Endereços do Iswalk mudam, toda vez de deslogar do char, tem procurar de novo depois ensino a fazer uma função para não ficar procurando !

hueheuheuehuehuheuheuheuhuehuehuheuheuheuheuheuuheuheuhuehuheuheuheuheuheuheuheuhueh me deicho louco, lol vou perde a acc ! heuheuhe intao falto o Imports System.IO mesmo ,i tbn nao sei c++ :/ so vb.net

lol venho ajudar , i levo essa, credito e meu ! se esta parecido me mostre ! tem essa que e parecido http://tpforums.org/forum/thread-10372.html , pq eu nao copiei nada de la nao lol :/

Olá pessoal Vou mostrar como ler as hotkeys do tibia através da configuração dele "Tibia.cfg" Bem segue o Codigo em Vb.net Dim Tibiahotkey = System.Environment.GetFolderPath((System.Environment.SpecialFolder.ApplicationData)) & "\Tibia\Tibia.cfg" Dim readerlinha As New System.IO.StringReader(Tibiahotkey) Using reader As StreamReader = New StreamReader(Tibiahotkey) Dim line As String line = reader.ReadLine Do While (Not line Is Nothing) line = reader.ReadLine If Mid(line, 1, 6) = "Hotkey" Then line = line.Replace("Hotkey = (", "") line = line.Replace(")", "") Dim text() As String = line.Split(",") Dim keyw = text(0) Dim magia = text(1).Replace("\n", "") Dim Useitem = text(4) Dim itemid = text(2) 'magia = magia.Remove(0, 1) Dim count = magia.Length 'magia = magia.Remove(count - 1, count) ' magia = magia.Substring(count - 1, count) MsgBox("Key: " & key(keyw) & vbNewLine & "Magia: " & magia & vbNewLine & "Item ID: " & itemid & vbNewLine & "Use item: " & useon(Useitem)) End If Loop End Using Public Function useon(ByVal Tipo As Integer) Dim Usee As String = "" Select Case Tipo Case 0 Usee = "No Use" Case 1 Usee = "UseOnTarget" Exit Select Case 2 Usee = "UseOnYourself" Exit Select Case 3 Usee = "WithCrosshairs" Exit Select End Select Return Usee End Function Public Function key(ByVal Tipo As Integer) Tipo = Tipo + 1 Dim Usee As String = "" Select Case Tipo Case 1 Usee = "F1" Exit Select Case 2 Usee = "F2" Exit Select Case 3 Usee = "F3" Exit Select Case 4 Usee = "F4" Exit Select Case 5 Usee = "F5" Exit Select Case 6 Usee = "F6" Exit Select Case 7 Usee = "F7" Exit Select Case 8 Usee = "F8" Exit Select Case 9 Usee = "F9" Exit Select Case 10 Usee = "F10" Exit Select Case 11 Usee = "F11" Exit Select Case 12 Usee = "F12" Exit Select End Select Return Usee End Function End Class duvida ? posta ai !

Gostei Kimoszin So pra ajudar a galera que mexe com Vb.net WinAPI.SendMessage(Tibia.MainWindowHandle, CUInt(WM_KEYDOWN), CInt(&H11), 0) WinAPI.SendMessage(Tibia.MainWindowHandle, CUInt(WM_KEYCHAR), CInt(&H11), CInt(&H100001))[/b] [b] Tem Alguma coisa errada ai /\ kkkkkkk desloga mas fui tentar outra key nao deu kkkkk

Preciso de uma ajuda estou tentando fazer um logout com Ctrl + Q ou Ctrl + l Mas não da certo exemplo WinAPI.SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, VK_CONTROL, 0) WinAPI.SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, CInt(Keys.Q), 0) WinAPI.SendMessage(Tibia.MainWindowHandle, WM_KEYUP, CInt(Keys.Q), 1) WinAPI.SendMessage(Tibia.MainWindowHandle, WM_KEYUP, VK_CONTROL, 1) Help ??

Do que eu seu nao tem ainda Tibiaapi pra versão Global "9.53" , ele pararam de Atualizar no 9.11 se você intender Programação da pra voce atualizar o code Alias onde voce esta fazendo Engenharia de Computação ??? Mal te pergunte aqui tem um exemplo http://tibiaking.com/forum/topic/10271-tibiaapi-atualizando-de-910-para-944/

ve se você declaro em cima do Form1 tipo se tiver em class coloque imports Nomedaclasss

http://tibiaking.com/forum/forum/115-otservs-86x/ So escolher ->

Miichelc ele nao ta usando a Tibiaapi intao nao tem jeito com esse link que voce mandou Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long setwindowtext(me.handle.ToInt64, "Titulo ") [/code]

tipo Player_id = &H12345 Batlelist_begin =&H54321 << começo da Batle list For i=0 to 250 listbox.items.add (read_String(Batlelist_begin + 4) <<<--- quatro e o local onde esta o nome do char intao Batlelist_begin =Batlelist_begin + 60 <----- exemplo 60 e onde vai estar o proximo nome next TE ajudei ????

bora intao fazer esse bot me manda seu mail :] pra tu ve minha cave bot :}

Boa Sorte ai eu tbn to em um projeto so que no meu ja tem Cave bot e tal so falta a maldita da packet que nao sei mexe --' o seu bot ja tem alguma funçao ?

eu manjo tbn eu tenho uma cavebot bet olha so o video So e Vb.net :] Depois que eu aprender Packet To feito me mande seu msn pra nos cv :]

Use o Cheat Engine Pesquise no google :} thank

igual a Kimoszin falo Coloque .text no Combobox :]

Eai Blz ? Queria a ajuda de vocês olha so , esse sao os Adress Public Const gotoZ As Long = &H944004 Public Const gotoY As Long = &H97BE88 Public Const gotoX As Long = &H97BE90 Public Const positionx As Long = &H94424C Public Const positiony As Long = &H944248 Public Const positionz As Long = &H7AC60C Public Const andano As Long = &H944270 Certo ai minha cave bot funfa assim list e o exemplo Memory_WriteLong(gotoX, "List") Memory_WriteLong(gotoY,"List") Memory_WriteLong(gotoZ, "List") Memory_WriteLong(andano, 1) Até ai tudo bem MAS na Hora que eu troco de char o Adreess Public Const andano As Long = &H944270 Muda AFF nao quero fica Trocando Ajudem oque eu to fazendo de errado [address randômicos Destivado ] http://youtu.be/vlM6GcHGf0s

Como o mega falo RLX aqui esta o post dele do forum sobre o Erro http://forums.bmega.net/viewtopic.php?f=37&t=2949

Pergunta e so pegar este code http://code.google.com/p/tibiaapi/source/browse/trunk/tibiaapi/Addresses/Versions/Version910.cs mudar pra a versao atual e salvar em class dll so isso ????

Gostei

So uma Dica ele e " Detectável"