Puncker

{Listando Pastas e Subpastas} Irei ensinar como listar pastas e subpastas de um certo diretório. Componentes Um Button Um Listbox Função Será usada a função SubDiretorios que deve ser inserido no local onde você preferir do código do seu programa: procedure SubDiretorios(Diretorio: string; Lista: TStrings); var SearchRec: TSearchRec; begin if FindFirst(Diretorio + '*.*', faDirectory, SearchRec) = 0 then repeat if (SearchRec.Attr and faDirectory = faDirectory) and (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then begin Lista.Add(Diretorio + SearchRec.Name + '\'); SubDiretorios(Diretorio + SearchRec.Name + '\', Lista); end; until FindNext(SearchRec) <> 0; FindClose(SearchRec); end; Agora para chamar a função insira este cógido no button: SubDiretorios('Diretorio da pasta',Listbox1.Items); No local Diretorio da Pasta você coloca o diretório que quer ou pode usar funções como: ExtractFilePath(Application.exename) (Pega o diretório do programa), entre outros códigos.

Lol mas assim precisa do NG --' tava até feliz que não ia mais precisar abrir o NG pra descobrir IDs de items e você tambem pode desativar o classic control clicar com botao direito do mouse e selecionar "Show Item Number".

Cadê os Créditos? Tutorial com Ctrl+C e Ctrl+V é fácil né?

Parabéns! Ta aprendendo bastante e não ta que nem aqueles que só querem ctrl+c e ctrl+v. Rep+

Não, ele não irá enviar packets a não ser que você insira algo no bot que usa a função Packets.Send... Guilherme, geralmente quando se troca a versão da API alguns erros aparecem não sei se é o seu caso, mas comigo troquei de 8.62 para 8.7 e não apareceu nada.

Tutorial eu não conheço =\, lembro que descobri isso com o objetivo de passar por fires porque meu bot não andava em fires entao descobri ferramentas de editar o tibia.dat mas muitas não pegavam ate que depois de dias procurando achei um que pega em todas as versões de tibia (é o que dizem) e editei o .dat na raça. Sobre ele ser considerado uma alteração no client eu não posso responder pois nunca testei em global mas como as regras do global são rígidas pra atualização tbm, porque qualquer alteração que o client detectava quando eu tentava mudar algo por Hex Editor o client forçava uma atualização pra versão mais atual, mas não sei se isso vale pra tibia.dat também. Se você quizer o .dat do Tibia 8.7 está aqui: Download: SourceForge (PHM) Scan: VirusTotal

Tibia 8.7 - 2.9.8.1 [Compilado por min] Testado e aprovado Download: SourceForge (PHM) Scan: VirusTotal

Deve estar dando erro porque o código de AutoEater foi baseado no meu bot e o client dele está declarado como "Client" não como "c" tudo que contêm "Client" substitua por "c". E o código fica assim: Dim Food As Item = client.Inventory.GetItems().FirstOrDefault(Function(ia) Constants.ItemLists.Foods.Keys.Contains(ia.Id)) If Food IsNot Nothing Then Food.Use() End If Dim Food3 As Tibia.Objects.Item = client.Inventory.GetItemInSlot(Tibia.Constants.SlotNumber.Ammo) If Food3 IsNot Nothing AndAlso Tibia.Constants.ItemLists.Foods.ContainsKey(Food3.Id) Then c.Inventory.GetItemInSlot(Tibia.Constants.SlotNumber.Ammo).Use() End If

{Utilizando a função Split} A função Split que em português significa divisão, divide strings/chars/integers de acordo com o que você definiu que será a serapação desses valores. Digamos que eu tenha um cavebot e nele os registros são assim: 89,498,7,G 89 = X 498 = Y 7 = Z G = Comando no caso G é abreviação de Goto Mas para usalos não poderei ter virgulas e principalmente esse G daria erro no bot então usario o split mas vou declarar uma variável Matriz (Array) em que pode conter varios valores dentro dessa variavel e para chamar os valores irei usar Matriz(0)=o valor contido no local 0 da Matriz, Matriz(1)=valor contido no local 1 da Matriz assim por diante... Dim Matriz() As String = ListBox1.SelectedItem.ToString().Split(",") Essa declaração cria a Matriz e ao mesmo tempo já define seus valores dividindo o valor selecionado em um Listbox1 veja que no final contém Split(,) ou seja ele vai dividir os valores com a vírgula. Depois dessa declaração minha variável ficou assim: Matriz(0)=89 Matriz(1)=498 Matriz(2)=7 Matriz(3)=G Ele separa tudo e coloca cada valor em cada local da Matriz Como usar isso em um bot para ir até a localização? Usaremos a função player.goto que move o personagem até certa localização e criaremos uma nova Localização usando New Location mas os dados da new location são em Integer e a Matriz está em String então irei converter tudo para string usando CInt. player.GoTo = New Location(CInt(Matriz(0)), CInt(Matriz(1)), CInt(Matriz(2))) Veja que usei até o Matriz(2) somente pois o Matriz(3) contém valor desnecessário para a Location mas pode ser usado para alguma lógica que vai definir se o local é um escada/hole/ramp/etc... A função Split não serve apenas para dividir Coordenadas de Tibia serve para muitas outras coisas, basta definir algo para ele dividir que ele irá dividir do jeito que você quer.

VB é uma linguagem boa porém com muitas barreiras. Eu prefiro Pascal *-* porém não sei muito sobre escrever e ler a memória de um programa entao tenho que usar VB =\

Idem, mesma coisa comigo, eu tenho que acessar o site do meu modem e reiniciar ele.

Scan: VirusTotal Arquivo Limpo. Tópico Aprovado.

Obrigado por avisar não tinha percebido isso, vou arrumar.

{System Tray} Provavelmente todos sabem o que um System Tray né? Mas vou explicar... O system tray em vez de você minimizar o programa para a barra de tarefas ele vai para a área do relógio do Windows. Já existe um tópico de System Tray do EdsonJunior porém o método dele é maior e exige mais códigos porém também é funcional. Componentes Será preciso que um ContextMenuStrip seja adicionado ao programa. O ContextMenuStrip servirá de menu para o ícone do tray. Declarando Variável No início do form será necessário a declaração da seguinte variável dentro do Public Class NomeDoSeuForm para ser declarado globalmente. Private WithEvents NIcon As New NotifyIcon Criando Funções Será preciso criar funções para definir quando o ícone vai aparecer e quando vai desaparecer. Para aparecer o ícone: Private Sub MostraIcone() NIcon.Icon = Me.Icon NIcon.Visible = True NIcon.Text = p.Name NIcon.ContextMenuStrip = ContextMenuStrip1 End Sub Para o ícone sair: Private Sub EscondeIcone() NIcon.Visible = False End Sub Usando Vamos dizer que você quer um Button para minimizar ao tray e neste button ele irá conter o seguinte código: MostraIcone() Nomedoseuform.Hide() Depois em algum menu do ContextMenuStrip: EscondeIcone() Nomedoseuform.Show()

Isso , os packets só serão usados se você colocar no seu bot algo que envia packets. Também existe o recebimento de packets que a informação vai para o bot mais isso não da ban... eu acho.

Tem tudo aí: http://www.tibiabot.com/scripting/ Caso esqueça o site abra o scripter do TibiaBotNG e clique em help que vai direto pro site E os scripts do NG são como linguagem de programação Pascal (Delphi).

{Pegando ID de um processo} O ID de um processo no Delphi pode servir para muitas funções, como ler Addresses e escrever Addresses na memória do programa em tempo real, vou ensinar como conseguir o ID do processo. Componentes 1 Label 1 Button Código Dê 2 cliques no Button que você adicionou e adicione isto: var fw,pid:dword; begin fw:=findwindow(nil,'Nome da Janela'); if fw = 0 then begin Label1.Caption:='Processo não encontrado.' end else begin getwindowthreadprocessid(fw,@pid); Label1.Caption:='ID do Processo: '+inttostr(pid); end; Pronto seu programa está pronto, mas vou explicar o que faz cada função. fw é o ID da janela, que é definido pela função findwindow que retorna um ID Logo depois ele checa se o ID que contem em fw é nulo se for nulo quer dizer que a janela não foi encontrada, caso o valor não seja nulo ele executa o comando getwindowthreadprocessid que pega o ID da janela e encontra o ID do processo e define o id dentro do valor "pid" declarado em "var", depois o pid é convertido em string e mostrado na Label. Há outros métodos de conseguir o ID de processos porém métodos mais complicados. Aí você se pergunta... Qual a utilidade disto? Vou explicar com a função: OpenProcess(Process_all_access, false, pid) Essa função abre o processo e permite escrever e ler dados do processo veja que ele usou pid no final pois pid é o ID que ele pegou e ele irá usar o processo deste programa. Usando isso com mais conhecimento você pode criar até um bot...

Obrigado por compartilhar, mas eu não acredito nesses programas de "Renovar IP" porque tenho um aqui igual a esse porem não funciona, nenhum programa que diz que renova o IP funciona =\ pelo menos comigo.

O fato de dar o código, não é tipo "Não vou dar o código só explicar" não quero contrariar o que vc disse Fn mas é que sinceramente em todo o tempo que já programei as coisas que fiz na raça sem código foi muito difícil, porém dando o código talvez a pessoa não aprenda, mas se ela quer se empenhar mesmo ela vai ler o que está no código e tentar entender.

Dúvida sanada. Tópico Fechado.

Desculpa a demora =\ Aqui está o Tibia.dat, substitua o tibia.dat original na pasta do tibia por este. Tibia.dat Scan

Auto Eat Usando Para usar coloque em algum timer ou algo que você preferir e recomendo interval 30000 (30 segundos). Toda vez que esse timer for ativado ele irá verificar no inventário ou no slot de munição se há food e se tiver ele irá usar. Verificando no Inventário Dim Food As Item = client.Inventory.GetItems().FirstOrDefault(Function(ia) Constants.ItemLists.Foods.Keys.Contains(ia.Id)) If Food IsNot Nothing Then Food.Use() End If Verificando no slot de munição Dim Food3 As Tibia.Objects.Item = client.Inventory.GetItemInSlot(Tibia.Constants.SlotNumber.Ammo) If Food3 IsNot Nothing AndAlso Tibia.Constants.ItemLists.Foods.ContainsKey(Food3.Id) Then client.Inventory.GetItemInSlot(Tibia.Constants.SlotNumber.Ammo).Use() End If

Não existe esse tipo de script. Para andar sobre fire, poison, energy , etc... É preciso editar o arquivo tibia.dat e definir o BlocksPath como false desses fields. Fala sua versão do tibia que já te mando um tibia.dat já editado.

{Desligando o computador em determinada hora} Essa é uma função que o agendador do windows faz, mas vou ensinar como fazer isso em delphi. 1 - Componentes Adicione um Edit e defina sua propriedade visible para false Adicione um MaskEdit e vá na propriedade EditMask e coloque Short Time Adicione um Timers e defina o "interval" como 1 2 - Timer begin Edit1.text := FormatDateTime('HH:MM',time); if MaskEdit1.Text = Edit1.Text Then WinExec('Shutdown -s -f -t 00', SW_SHOWNORMAL); end; Agora seu programa está pronto para uso.

Paciência pra fazer isso. No momento não tenho nenhuma sugestão =\ Mas muito bom o tópico