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 ????