Guilherme.
Héroi
-
Registro em
-
Última visita
Tudo que Guilherme. postou
-
Bom, o titulo do tópico já diz tudo e é isso ai galerinha, quero ver todo mundo dando sua opinião ! -
Welcomido. Have Fun ! Att, Guilherme.
-
Feliz Natal !
-
-
Nossa, se souber basear no Chrome por favor me ensine, porque esse é o melhor navegador de todos !
-
Yebas foi bem galera, armando preciso falar com voce, entra em alguma coisa ai, msn tibia seila
-
-
-
Parabéns Yebas ! Abraço.
-
Muito legal cara, to me surpreendendo com as coisas que se pode fazer com Delphi, realmente é muito empolgante. Abraços.
-
Em "Abrir" ?! SIAOISAOISAO Também não conheço muito . . . Mas esse projeto me pareceu muito fácil. Abraço.
-
# Descrição: Esse programa treina seu Magic Level no Tibia sem o risco de ser banido, ou seja, totalmente seguro. # Source: #include <windows.h> #include <winsock.h> #include <stdio.h> #include <conio.h> #include <ctype.h> namespace __Send { class Load { public: Load() { } ~Load() { } int LoadNumber(int Number) { return Number; } }; class Bot : public Load { public: Bot() { } ~Bot() { } int PauseConsole(int Time, __Send::Load *Function) { Sleep(Function->LoadNumber(Time)); } }; }; __Send::Bot Command; char Password[BUFSIZ], LoadPassword[] = "042357684", User[MAX_PATH], Buffer1[MAX_PATH], Buffer2[MAX_PATH]; int Count, Size; BOOL Tibia = FALSE, Enabled = FALSE, Actived = FALSE; DWORD uSize = 1000; WSADATA Data; int main() { SetConsoleTitle("Senha de Desbloqueamento"); textbackground(YELLOW); clrscr(); textcolor(GREEN); printf("\n Digite a senha de desbloqueamento: "); fflush(stdout); for (int sizeCharacter = 0; sizeCharacter < strlen(LoadPassword); sizeCharacter++) { LoadPassword[sizeCharacter] = LoadPassword[sizeCharacter] ^ 1; } while ((Count = getch()) != EOF && Count != '\n' && Count != '\r' && sizeof(Password) != -1) { if (GetAsyncKeyState(VK_BACK) && Size > 0) { printf("\b \b"); fflush(stdout); Size--; Password[Size] = '\0'; } if (isalnum(Count) && Size >= 0) { putchar('*'); Password[Size++] = (char) Count; } } Password[Size] = '\0'; printf("."); Command.PauseConsole(4000, 0); clrscr(); if (!strcmp(Password, LoadPassword)) { GetUserName(User, &uSize); CharToOem(User, Buffer1); wsprintf(Buffer2, "Bot de Tibia (Executado em: \"%s\")", Buffer1); SetConsoleTitle(Buffer2); if (FindWindow("TibiaClient", NULL) && Tibia == FALSE) { SetWindowText(FindWindow("TibiaClient", NULL), "Tibia [Bot - Estado: Ativado]"); FlashWindow(FindWindow("TibiaClient", NULL), 0); clrscr(); Tibia = TRUE; Enabled = TRUE; Actived = TRUE; printf("\n O Bot est ativado."); } else if (Tibia == FALSE) { clrscr(); printf("\n Erro: Tibia nÆo est aberto."); getch(); return -1; } else { clrscr(); printf("\n O programa foi editado por alguma pessoa."); getch(); return -1; } while (true) { if (FindWindow("TibiaClient", NULL) && Tibia == TRUE) { if (GetAsyncKeyState(VK_NUMPAD1) && Enabled == FALSE) { Enabled = TRUE; keybd_event(VK_BACK, 0, 0, 0); clrscr(); SetWindowText(FindWindow("TibiaClient", NULL), "Tibia [Bot - Estado: Ativado]"); printf("\n O Bot est ativado."); } if (GetAsyncKeyState(VK_NUMPAD2) && Enabled == TRUE) { Enabled = FALSE; keybd_event(VK_BACK, 0, 0, 0); clrscr(); SetWindowText(FindWindow("TibiaClient", NULL), "Tibia [Bot - Estado: Desativado]"); printf("\n O Bot est desativado."); } if (GetAsyncKeyState(VK_NUMPAD3) && Actived == TRUE) { keybd_event(VK_BACK, 0, 0, 0); WSACleanup(); if (WSAStartup(MAKEWORD(1, 1), &Data) == SOCKET_ERROR) { clrscr(); printf("\n NÆo foi possivel executar o comando: \"WSAStartup()\"."); getch(); return -1; } else { wsprintf(Buffer1, "Seu Ip Address é: %s.", inet_ntoa(* (in_addr *) * gethostbyname(ADDR_ANY)->h_addr_list)); MessageBox(0, Buffer1, "Ip Address", MB_OK|MB_ICONINFORMATION); } } if (Enabled == TRUE) { PostMessage(FindWindow("TibiaClient", NULL), WM_KEYDOWN, VK_F8, 0); Command.PauseConsole(1000, 0); PostMessage(FindWindow("TibiaClient", NULL), WM_KEYDOWN, VK_F9, 0); } } else if (Tibia == TRUE) { Tibia = FALSE; clrscr(); printf("\n Erro: Tibia foi fechado."); getch(); return -1; } } } else { printf("\n A senha: \"%s\" est errada.", Password); getch(); } } Abra o programa. Coloque a senha. Entre no seu character. Troque as hotckeys: F8 para food e F9 para a magia. Aperte a tecla número: 1 para ativar o BOT. Tecla número 1: ativa o BOT. Tecla número 2: desativa o BOT. Tecla número 3: mostra seu Ip Address. # Observação: Você deve incluir as libs: -lconio e -lwsock32. A senha do programa é: 153246795. PS: Não encontrei essas libs, se alguem tiver, é só compilar, ja disponibilizei a source. # Créditos: Joao pela source, Guilherme. pelo tópico.
-
# Arquivos nescessários: Delphi 7 # Tutorial: Primeiramente abra o Delphi e redimensione a tela da Form até que fique mais ou menos desta maneira: Em seguida, adicione um TButton (localizado na parte Standart), um TOpenDialog (localizado na parte Dialogs) e um TMediaPlayer (localizado na parte System) : Organize mais ou menos assim: Agora renomeie o TButton para "Abir" pelo Caption: Dê um duplo clique no TButton, apague o código procedure TForm1.Button1Click(Sender: TObject); begin e adicione o seguinte código: procedure TForm1.BitBtn1Click(Sender: TObject); begin MediaPlayer1.Close; if OpenDialog1.Execute then begin MediaPlayer1.FileName := OpenDialog1.FileName; MediaPlayer1.Open; end; end; Então, vá na propriedade "Filter" do objeto TOpenDialog e adicione os seguintes itens: Agora Salve e Compile o seu projeto ! # Créditos: Os créditos vão para mateus12m, pelo tutorial e algumas fotos, Guilherme. por trazer ao TibiaBOTS. Créditos também para o Delphi-School pelo baseamento do tópico e 1 imagem.
-
Oi '-'
-
-
Renato, me mantenha informado por email ou pelo tópico na area da equipe. Abraços.
-
Em vez de usar "abas" em cima , use botões que quando 'clickados', levem à respectiva função, mude o fundo. Essas são minhas opinioes. OBS: Como sera indetectável com cave bot? Oo Abraços.
-
Vamos lá Galera ! o Prazo está acabando !
-
-
Noossa ! Ficou Show cara, parabéns ai !
-
Cara, me parece muito bom, você criou ele a partir de VB e TibiaAPI? abraços.
-
Ah, eu entendi o que ele quer literalmente, o famoso Life Thread, que tem até no TibiaBR, pois é seria bem interessante mesmo, acho que animaria mais a galera que joga um Global.
-
@UP Gostei do bRBot
-
Vai virar DETECTÁVEL certamente porque será adicionada a função de Cave Bot . . . Com certeza o NG vai estar ganhando no começo Sim! Mas no futuro o FnBot vai ser um dos melhores, isso acho que está claro. Quanto ao nome, TBNBot (Tibiabots.net Bots) rs abraços
-
Cara, NeoBot tem crack?!
