Líderes

Wallpaper 4 elementos Prévia Eu uso esse xP Download Clique aqui ~ 4Shared

Esse tópico será atualizado sempre que haver uma atualização do Bot, e terá a finalidade de ser postado as Keys e os Bots referentes às atualizações. TibiaBot NG 5.1.0 referente ao Tibia 9.0 Com alguns bugs corrigidos. Download. Imagem do Bot. A Key está funcionando (23/06). Use esses itens com esse crack. Se quiser crackear o NG incompleto, clique aqui.

{Manipulando arquivos de configuração .ini} O que é um arquivo INI ? Um arquivo INI é um arquivo texto usado para armazenar/fornecer configurações pessoais para sistemas/usuários ; Um arquivo INI é um arquivo com dados externo ao programa principal e esta formatado em : Secções(FileName) , Entradas e Valores. Como por exemplo: Eu quero que o usuário digite algo em um "EditBox" mas que o que ele digite fique guardado e sempre seja usado, então irei gravar o que ele digitou em um arquivo .ini (Chamado de arquivo de inicialização mas também pode ser chamado de configuração) e quando eu quizer usar o que o usuário digitou eu busco dentro do arquivo .ini. Funções Primeiramente em seu projeto do VB adicione um novo "Module" chamado "INIread.vb" e outro chamado "INIwrite.vb". (para criar um novo module, clique com botão direito no primeiro item da lista do Solution Explorer, Add > Module) Dentro do INIread.vb apague tudo e cole isso: Option Strict Off Option Explicit On Module INIread Public Function ReadIniValue(ByRef INIpath As String, ByRef KEY As String, ByRef Variable As String) As String Dim NF As Short Dim Temp As String Dim LcaseTemp As String Dim ReadyToRead As Boolean AssignVariables: NF = FreeFile ReadIniValue = "" KEY = "[" & LCase(KEY) & "]" Variable = LCase(Variable) EnsureFileExists: FileOpen(NF, INIpath, OpenMode.Binary) FileClose(NF) SetAttr(INIpath, FileAttribute.Archive) LoadFile: FileOpen(NF, INIpath, OpenMode.Input) While Not EOF(NF) Temp = LineInput(NF) LcaseTemp = LCase(Temp) If InStr(LcaseTemp, "[") <> 0 Then ReadyToRead = False If LcaseTemp = KEY Then ReadyToRead = True If InStr(LcaseTemp, "[") = 0 And ReadyToRead = True Then If InStr(LcaseTemp, Variable & "=") = 1 Then ReadIniValue = Mid(Temp, 1 + Len(Variable & "=")) FileClose(NF) : Exit Function End If End If End While FileClose(NF) End Function End Module E dentro do INIwrite.vb cole isso: Option Strict Off Option Explicit On Module INIwrite Public Function WriteIniValue(ByRef INIpath As String, ByRef PutKey As String, ByRef PutVariable As String, ByRef PutValue As String) As Object Dim Temp As String Dim LcaseTemp As String Dim ReadKey As String Dim ReadVariable As String Dim LOKEY As Short Dim HIKEY As Short Dim KEYLEN As Short Dim VAR As Short Dim VARENDOFLINE As Short Dim NF As Short Dim X As Short AssignVariables: NF = FreeFile ReadKey = vbCrLf & "[" & LCase(PutKey) & "]" & Chr(13) KEYLEN = Len(ReadKey) ReadVariable = Chr(10) & LCase(PutVariable) & "=" EnsureFileExists: FileOpen(NF, INIpath, OpenMode.Binary) FileClose(NF) SetAttr(INIpath, FileAttribute.Archive) LoadFile: FileOpen(NF, INIpath, OpenMode.Input) Temp = InputString(NF, LOF(NF)) Temp = vbCrLf & Temp & "[]" FileClose(NF) LcaseTemp = LCase(Temp) LogicMenu: LOKEY = InStr(LcaseTemp, ReadKey) If LOKEY = 0 Then GoTo AddKey HIKEY = InStr(LOKEY + KEYLEN, LcaseTemp, "[") VAR = InStr(LOKEY, LcaseTemp, ReadVariable) If VAR > HIKEY Or VAR < LOKEY Then GoTo AddVariable GoTo RenewVariable AddKey: Temp = Left(Temp, Len(Temp) - 2) Temp = Temp & vbCrLf & vbCrLf & "[" & PutKey & "]" & vbCrLf & PutVariable & "=" & PutValue GoTo TrimFinalString AddVariable: Temp = Left(Temp, Len(Temp) - 2) Temp = Left(Temp, LOKEY + KEYLEN) & PutVariable & "=" & PutValue & vbCrLf & Mid(Temp, LOKEY + KEYLEN + 1) GoTo TrimFinalString RenewVariable: Temp = Left(Temp, Len(Temp) - 2) VARENDOFLINE = InStr(VAR, Temp, Chr(13)) Temp = Left(Temp, VAR) & PutVariable & "=" & PutValue & Mid(Temp, VARENDOFLINE) GoTo TrimFinalString TrimFinalString: Temp = Mid(Temp, 2) Do Until InStr(Temp, vbCrLf & vbCrLf & vbCrLf) = 0 Temp = Replace(Temp, vbCrLf & vbCrLf & vbCrLf, vbCrLf & vbCrLf) Loop Do Until Right(Temp, 1) > Chr(13) Temp = Left(Temp, Len(Temp) - 1) Loop Do Until Left(Temp, 1) > Chr(13) Temp = Mid(Temp, 2) Loop OutputAmendedINIFile: FileOpen(NF, INIpath, OpenMode.Output) PrintLine(NF, Temp) FileClose(NF) End Function End Module Pronto as funções agora estão funcionando em seu projeto. Aparecerá 2 warnings mas ignore. Como usar as funções? Vamos definir uma variável "File" que será o caminho do arquivo .ini. Dim File as String Agora vamos atribuir um valor para a variável file. File = "C:\teste.ini" E agora? Como escrever/gravar ou ler este arquivo? Para escrever/gravar: WriteIniValue(File, "Teste", "Valor1", "Oi") Código inteiro (Coloque em algum botão ou algo do tipo): Dim File as String File = "C:\teste.ini" WriteIniValue(File, "Teste", "Valor1", "Oi") O arquivo .ini após ele executar isso ficara assim: [Teste] Valor1=Oi Agora vamos ler e exibir o que está escrito no arquivo .ini (Coloque em algum botão ou algo do tipo) Dim Str as String Str = ReadIniValue(File, "Teste", "Valor1") MsgBox(Str) Com essas funções você pode criar várias idéias, use a sabedoria e crie idéias perfeitas com isto.

É, isso mesmo, o yOn Bot foi liberado pra geral estudar seu código fonte, tá certo que não é lá aquelas coisas de bot, mas pra quem está começando com o uso de VB.NET e TibiaApi será muito útil. Porque eu quis disponibilizar? Por que eu amo o Tibiabots.net e porque o Arthur me pediu pelo msn, achei injusto dar só pra ele ( o projeto ) e vim disponibilizar o yOn pra geral estudar e usar. O que é proibido? É proibido a postagem do mesmo em outros fórums. É proibido também a injeção de qualquer tipo de vírus para tentar hackear os outros players, pois, quem desenvolveu o yOn fui eu, portanto, a responsabilidade iria cair para mim, portanto, não me responsabilizo pelos seus atos. Imagems .NET Framework 4.0 Clique aqui ~ Microsoft Esclarecimentos Não confia em mim e/ou está com dúvidas para baixar? Simples, espere um moderador ou alguém da Staff para vir aqui, mas não floode meu tópico. Ps: Acrescentei mais algumas coisas no projeto... yOn Bot.rar

Femor Hills Depositer (Carlin) Exp: 10k/hora Gp: 3k + Items/hora Monstros: Goblin Goblin Scavenger Goblin Assassin Loots: Gold Small Stone Requerimentos: Level: 20+ Vocation: Knight or Paladin; Premium Time: não; Equipmento: Plate Set. Levar 30 Health Potion (Precaução) gobtobank.wpt DPToGobs.wpt MainWaypoints.wpt

Após muito tempo de enrolação, o artigo que define todas as funções do cavebot foi finalizado... http://wiki.bmega.net/doku.php?id=cavebot

BackGround 1: Créditos: http://www.wallpapersonweb.com BackGround 2: Créditos: http://www.gamewallpapers.us BackGround 3: Créditos: http://www.wallpapersonweb.com BackGround 4: Créditos: http://cyberlog.word...ory/conference/ @Edit: BackGround 5: (achei muito fods) Créditos: http://www.gamewallpapers.us

Criando um programa básico que treme o Form {Iniciando em Delphi} Necessário: Delphi 7 (Em breve link para download) Criando e organizando o Form Caso um projeto não foi criado, vá no menu "File" >> "New" >> "Application", e aparecerá um Form1 em branco. Agora ainda na aba "Standard" selecione um "Button" e coloque no Form1 Código Dê dois cliques no form para ir para a parte de código e depois de implementation {$R *.dfm} Adicione isto: procedure Tremer(frm: HWND); var r: TRect; i: integer; n1, n2: integer; begin getwindowrect(frm,r); for i:= 0 to 50 do begin n1:=random(5); n2:=random(5); setwindowpos(frm,0,r.Left+n1,r.Top+n2,r.Right-r.Left,r.Bottom-r.Top,0); sleep(20); end; setwindowpos(frm,0,r.Left,r.Top,r.Right-r.Left,r.Bottom-r.Top,0); end; Agora o código do botão Dê dois cliques no "Button1" e coloque o seguinte código para chamar a função tremer(handle);