Jump to content
Notícia
  • Adquira já o seu VIP!

Search the Community

Showing results for tags 'delphi'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Anunciantes
    • Advertise here
    • silvaBR Cheats
    • Velozhost
  • ################## WEB CHEATS ##################
  • Anúncios/Eventos
    • Regras
    • Anúncios
    • Eventos do fórum
  • Feedback & Suporte
    • Tutoriais WC
    • Suporte
    • Sugestões
    • Denúncias e Reclamações
    • Depósito
  • Shooter Zone
    • Point Blank
    • Combat Arms
    • Cross Fire
    • Counter Strike
    • Battle Royale
    • Outros Shooters em Geral
    • Shooter Zone - Lixão
  • RPG/MOBA Zone
    • WYD - With Your Destiny
    • Riot Games
    • Grand Chase
    • Ragnarok
    • Tibia
    • Priston Tale
    • Mu Online
    • Perfect World
    • GunBound
    • Runescape
    • Outros RPGs em Geral
    • RPG Zone - Lixão
  • Outros Games Zone
  • Design Zone
  • Info Zone
  • Video Games Zone
  • ################## WEB CHEATS ##################
  • Entretenimento & Diversão
  • 【FREE FIRE】▄︻┻┳═一's Fórum do Clube
  • Anticomunismo's Tópicos
  • Tópicos Importantes !'s Tópicos

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Discord


Idade

 
or  

Found 42 results

  1. Bom dia, Boa Tarde e Boa Noite. Tudo bom com vocês? dessa vez vim compartilhar mais um pouco de conhecimento sobre programação... A linguagem da vez agora e a Delphi muito utilizada na criação de Trainer para jogos FPS exemplo Cross Fire, acho que utilizam esse programa ainda (Delphi 7) Certo vamos ao que interessa, será 24 PDF somando no total 174.5MB de arquivos como padrão terá PDF em Inglês e Português Espero que gostem. E tenha bom proveito dos arquivos. [Hidden Content]
  2. Galera, sou novato no forúm ficaria muito grato se algum de vocês arranjasse algum curso detalhado ou livro sobre arquitetura de computadores
  3. Olá pessoal ficando com cabelo branco kk estou procurando um jeito de resolver no delphi ou como é nome desse processo fica mais fácil pra procurar uma solução depois caso não encontre nenhum código no delphi , preciso adaptar isso , mas não sei qual melhor solução para fazer isso, não sei nem como inserir os loops e contadores é meio complicado pra explicar tentei então ser o mais simples possivel nas palavras e coloquei essa dúvida no pdf Não precisa ser código completo, apenas pra algo ter uma luz para onde seguir, agradeçido a quem poder dar uma ajuda xxxxxxxxxxxxxxx.pdf
  4. Boa noite. Eu estou num curso de graduação e já passei por cursos que eles ensinavam em C como criar uma variável do tipo estrutura, e nela guardaria algumas informações, e depois disso, faria a alteração diretamente na memória. Achei muito interessante como a coisa funcionava e queria desenvolver algo neste sentido. Algo que se assemelhasse ao Cheat Engine, por exemplo, encontrar processos abertos, fazer a varredura por informações e por ai vai. Se der certo pretendo apresentar como TCC. Vocês podem me ajudar?
  5. Vi um tópico de emulador em delphi porem esta trancado, tenho um emulador em delphi mais o tempo para dedicar ao hobby que é programar para o jogo é muito curto, caso alguem tenha interesse e queira mais detalhes do emulador é só entrar em contato, obs posso demorar responder pelo forum pois quase não acesso, esses dias que estou de ferias que tenho logado. o Emulador conta com um banco de dados em mysql, ja funcionando no banco, acc, personagem,logs... segue 2 prints do emulador em funcionamento... 1. 2.
  6. Como eu havia prometido postar um re-up porem o hd no qual continha o backup não funfa nesse caso estou postando os arquivos em que eu andei fuçando apesar do nome ter sido mudado é o Emulador HB disponibilizado pelo 987987987 apenas algumas modificações foram feitas, dentre elas as mais impactantes são: atualização do projeto de delphi xe7 para delphi berlin(10.1), modificação dos componentes de conexão zeus para nativo do delphi berlin (FireDac) necessario habilitar o componente de sockets no seu delphi, tem tutos na net para isso como o proprio criador do emulador disse antes, ai tem TUDO que precisa para criar um game, print do emulador: http://www.webcheats.com.br/threads/emulador-em-delphi.2550947/ Créditos total do emulador ao seu criador: 987987987 Down: https://mega.nz/#!6NZxyLzD!pPfgwiVbwfLCYUliko8B7uyscueaI1SLc68HJ-oZLsk Obs: devido a necessidade de liberar espaço no mega esse link ira expirar em 5 dias, portanto se quiserem o link permanente baixem o quanto antes e re-upem..... Scan: https://www.virustotal.com/pt/url/71216ea7e98991af2c7f6226d581d2ba513e14cc585f8e8d0f6cf04bf112f755/analysis/
  7. Eae rapazida tudo blz? Bom como o titulo já diz já da pra saber mais ou menos do que se trata Bom é o seguinte estou com uma dúvida que to aqui queimando a cabeça mais não acho como solucionar :/ Vamos ao que interessa logo Faço cheaters simples e avanaçados para alguns jogos online mais na categoria FPS CA,ZULA,CF,PB,BF entre outros Só que agora estou pensando em ingressar em alguns MMORPG andei dando uma estudada em alguns servidores de jogos mais antigos como ragnarok,priston tale,dekaron,entre outros Consegui alguns endereços bem funcionais tais como one hit,critical hit,speed hack e mais alguns Só que a minha dúvida banal e que não consigo encontrar de jeito algum é do teleport :/ Já tentei de tudo pra pegar algum endereço que leve-se ao teleport ou se teleporta-se para algum outra cidade apartir de um endereço capturado apartir que a gente escolhe-se a opção no portal ou até mesmo pelo scroll e mesmo assim sem exito :/ Daqui venho apartir desse tópico saber se alguém tem uma noção de como conseguir esses endereços ? Uso mais cheat engine bypasseado por mim ;) Só que se tiver que usar Olly,IDA não tem problema só queria ter a noção de como captar esses endereços vlw abraço :)
  8. Bom dia meu povo, poderiam me ajudar ? Tenho uma DLL, e gostaria de alterar o valor dos array bytes, mas nelas contem letras, qual cogido devo colocar para que ele possa rodar ? gostaria de colocar assim: 00 9B 00 1D 00 00 E mudar para: "00 8B..." Obrigado !
  9. Fala galera fascorm aqui, pessoal já usei inúmeros programas e hacks e etc, mais sempre tive curiosidade de saber como que é produzido como que números se transforma e algo tão 'incrível' (programas, hacks e etc)... quero saber se tem alguém que tenha conhecimento em Delphi/Python/Cheats engine e etc que quer compartilhar seu conhecimento, quem sabe nos vire até amigos já que admiro muito quem sabe programar. bom pessoal espero que alguém ao menos entenda a mensagem. Abraços
  10. Há muito tempo o Delphi deixou de ser apenas uma ferramenta de desenvolvimento de aplicações com interface gráfica para o ambiente Windows e passou a se destacar como um ambiente de desenvolvimento integrado que permite a incorporação das mais diversas tecnologias às aplicações desenvolvidas. 'Delphi 7 Curso Completo', de Marcelo Leão, instiga no desenvolvedor iniciante o desafio de aprender a usar este ambiente, indicando o melhor caminho para o aprendizado. O profissional experiente, acostumado ou não a lidar com estas tecnologias, vai suprir, com o livro, a necessidade de uma rápida atualização sobre o assunto. A obra é dividida em três partes principais - Fundamentos - destinada aos iniciantes; Know-how - direcionada aos profissionais que desejam atualizar-se sobre o assunto; e Referência - uma relação dos principais controles, classes e componentes do Delphi 7. DOWNLOAD [Hidden Content]
  11. Olá tudo bem? espero que sim, pessoal estou a procura de pessoas capacitadas em Delphi, Python, css e html. por tanto se alguém conhecer ou for capacitado em algumas ou todas essas áreas por favor, entre em contato pois tenho uma proposta que pode ou não agradar muito, obrigado.
  12. Utilizei esse tópico para criar um sistemas de login porém o código não funciona... http://www.webcheats.com.br/threads/tutorial-sistema-de-login-com-mysql-delphi.973569/ unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Data.DB, ZAbstractRODataset, ZAbstractDataset, ZDataset, ZAbstractConnection, ZConnection; type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; Label2: TLabel; Edit2: TEdit; Button1: TButton; ZConnection1: TZConnection; ZQuery1: TZQuery; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin ZQuery.close; ZQuery.SQL.Clear; ZQuery.sql.add('SELECT * FROM users WHERE usuario='+Quotedstr(Edit1.Text) +' AND senha=' + Quotedstr(edit2.Text)); ZQuery.Open; if ZQuery.Eof then begin MessageBox(handle,'Usuário ou senha Incorretos','Erro!',16); end else begin ShowMessage('Sucesso na Conexão'); end; end; Erros apresentados: [dcc32 Error] Unit1.pas(36): E2003 Undeclared identifier: 'ZQuery' [dcc32 Error] Unit1.pas(37): E2066 Missing operator or semicolon [dcc32 Error] Unit1.pas(38): E2066 Missing operator or semicolon [dcc32 Error] Unit1.pas(39): E2066 Missing operator or semicolon [dcc32 Error] Unit1.pas(40): E2029 'THEN' expected but identifier 'Eof' found [dcc32 Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas' Failed Elapsed time: 00:00:00.3
  13. Olá, Alguém sabe dizer como se consegue ir imprimindo pontos usando Canvas no Delphi utilizando o seguinte código: procedure TForm1.FormMouseMove( Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Canvas.FillRect(ClientRect); Canvas.MoveTo(0, 0); Canvas.LineTo(X, Y); end; Basta criar no evento "OnMouseMove" do Delphi essas três linhas que ele roda normalmente. Mas eu gostaria de ir além e ir imprimindo pontos na tela, desenhando e fazendo formas na tela. Como eu poderia fazer isso? Obrigado!
  14. Olá, Estou tentando carregar uma imagem usando Canvas no Delphi mas não estou conseguindo. Eu não sei o porque a imagem não está aparecendo. O caminho da imagem está certo e o código compila corretamente. Onde está o erro? Porque a imagem não aparece? Código: var Form1: TForm1; Tela: TJPEGImage; implementation {$R *.dfm} procedure TForm1.FormDblClick(Sender: TObject); begin Tela:= TJpegImage.Create; Tela.LoadFromFile('C:\Users\Username\Pictures\imagem.jpg'); Image1.Canvas.Draw(100, 100, Tela); end; end. Obrigado.
  15. Olá Pessoal, Eu conseguir encontrar este emulador de Wyd efeito em DELPHI que tava perdido nessa internet. :) Mais tarde vou baixar o DelphiEx7 pra abrir ele e postar uns prints (e por tbm um link de download pra este Delphi) [HIDE-THANKS] Download: https://www.4shared.com/rar/G4z1n0c0ce/Projeto_Emulador_WYDelphi.html Scan: https://www.virustotal.com/en/file/29eb943325dfdb825e3dd8e6aaf354ad2b0dd07aace3e638870f12bc3c27257f/analysis/1499806281/ Pasta do 4shared para mais arquivos: https://www.4shared.com/folder/7n_f8QiV/_online.html [/HIDE-THANKS] Créditos do emulador: fabionsam [spoiler=Download do DelphiXE7] Delphi XE7 http://altd.embarcadero.com/download/radstudio/xe7/delphicbuilder_xe7_upd1_win.iso Patch https://drive.google.com/file/d/0BymMVm7ZkjlUcUFaZGs3eHZXRHc/view 1) Instale o RadStudio XE7 usando algum desses seriais: DNLA-DNP44P-MCE2M4-M3NN PNLA-CCD5BP-FC3BH3-MMNN PNLA-DBBL4P-MNF5C3-M2NN 2NLA-2G3LPN-5BD5CD-MHNN NNLA-D3N45N-NH52HE-MENN ENLA-3A3EPP-DBDGM3-MMNN NNLA-DLPDPP-PGGLCD-MGNN KNLA-CCPM5N-MC3B3E-M4NN MNLA-CC34JN-3BCEME-MHNN CNLA-CMDDPP-3JBG3E-MKNN 5NLA-PAD35P-5MH23E-M5NN LNLA-DGDKJN-HGJB3D-MLNN JNLA-C3A52P-HJAJHD-MANN KNLA-CDAKEP-AA3HC4-MDNN CNLA-CLN42P-2G5MHD-MHNN GNLA-D2E5JN-CPA5HD-M4NN ENLA-BA25GN-NBJ2CE-M3NN LNLA-BBAM2N-JGN43E-MBNN HNLA-P544PP-JEEJM4-MGNN HNLA-4CP52P-2FM2CD-MPNN 2) Execute o Patch pra crackear [spoiler=Imagens do Emulador] Obrigado galera!!! Abçs!!
  16. queria saber as outras funções tipo as Dword, Word e quais sao as de Float e Double? no delphi
  17. Vou iniciar uma pequena série de artigos sobre WinApi em Delphi juntamente com a DarkProgramming Team! Hoje vou explicar de uma maneira simplificada como funciona a estrutura básica de uma aplicação feita em WinApi. Esse artigo trás informações que são necessárias para entender definitivamente como funciona e como criar suas aplicações em puro código, largando de mão a poluição do Windows Forms. Antes de começar a ler, certifique-se que você tem domínio dos temas abaixo: - Lógica de programação { - Variáveis - Funções com e sem retorno de valores } Esses conhecimentos são necessários para você entender como as funções que utilizaremos para programar em WinApi funcionam. Caso você não tenha domínio sobre esses temas, por favor, volte para a área de tutoriais e leia os tópicos a respeito antes de ler este. Iniciando, antes de colocarmos a mão na massa, precisamos entender como funcionam duas funções básicas, uma para criação dos componentes e outra para comunicação entre eles: CreateWindowEx(): Essa função é responsável por criar janelas idêndica a função CreateWindow(), porém essa da algumas liberdades a mais como criar janelas com estilos "extras". Vamos explorar seus parâmetros para aprender a usa-la: HWND WINAPI CreateWindowEx ( _In_ DWORD dwExStyle, _In_opt_ LPCTSTR lpClassName, _In_opt_ LPCTSTR lpWindowName, _In_ DWORD dwStyle, _In_ Int x, _In_ Int y, _In_ Int nWidth, _In_ Int nHeight, _In_opt_ HWND hWndParent, _In_opt_ HMENU hMenu, _In_opt_ HINSTANCE hInstance, _In_opt_ LPVOID lpParam ); dwExStyle - Esse parâmetro é o responsável por armazenar os estilos da janela (lembra da diferença entre as duas funções comentada acima? Esse é o parâmetro responsável por essa diferênça). Aqui fica um link de referência para vocês verem todos os estilos "extras" possíveis de usar: Estilos de Janelas "Extras" lpClassName - Aqui você indica a classe da janela, abordaremos logo abaixo mais sobre isso. lpWindowName - Esse parâmetro recebe o nome da Janela, para você que está acostumado com Windows Forms, esse parâmetro é como se fosse o Caption do componente que vai ser criado. dwStyle - Aqui você especifica os estilos 'normais' da janela. (O primeiro você especifica os estilos "extras"). Aqui fica outro link de referência para vocês verem todos os estilos "padrões" possíveis de usar: Estilos de Janelas X - Esse parâmetro recebe a posição Horizontal de onde a janela que está sendo criada vai estar. Se você estiver criando a janela principal, aqui você especifica quandos pixels de distância do lado esquerdo do monitor do usuário sua janela abrirá. Se for um componente como um botão por exemplo, que é um "Filho" da janela principal, aqui você indica um valor em pixels que o componente ficará distante da borda esquerda da janela principal. Nesse parâmetro você pode definir o valor CW_USEDEFAULT, pois aí o Sistema Operacional definirá um valor padrão onde sua janela irá abrir, geralmente esse valor é uma posição próxima ao do ponteiro do mouse quando o usuário clica 2x para abrir a aplicação. Duas coisas importantes para você saber caso queira declarar CW_USEDEFAULT no parâmetro X: 1 - Você só pode declarar para janelas sobrepostas, ou seja, janelas "principais", não pode declarar para componentes, caso contrário os valores dos parâmetros X e Y serão definidos 0. 2 - Ao declarar esse valor no parâmetro X, o valor do parâmetro Y é usada de outra forma. Y - Esse parâmetro é similar ao X, porém na Vertical. Se CW_USEDEFAULT for definido nesse parâmetro, aí você vai precisar chamar a função ShowWindow() para definir o estado (visível ou não, maximizada, minimizada, etc) da janela ao ser criada. Se CW_USEDEFAULT for definido no parâmetro anterior ( X ), então esse parâmetro recebe o valor do ESTADO da janela, que pode ser consultado nas flags do parâmetro nCmdShow da função ShowWindow() nesse link. nWidth - Valor da largura da sua janela ou componente. nHeight - Valor da altura da sua janela ou componente. hWndParent - Aqui você especifica quem é o "Pai" da janela que está sendo criada, caso esteja sendo criado uma janela principal, defina esse parâmetro como 0, caso seja um componente, defina nesse parâmetro a janela principal onde o componente irá aparecer. hMenu - Esse parâmetro recebe um identificador, não vamos entrar em detalhes nisso agora para não enrolar mais do que já está. hInstance - Esse parâmetro também recebe um identificador para associar com a janela que está sendo criada, deixe-mos este para mais tarde também. lpParam - Esse parâmetro recebe um ponteiro para um valor que vai ser passado como mensagem para a aplicação. Trataremos de mensagens a seguir. Ufa, é extenso mas é necessário para deixar bem 'entendível'. Agora vamos para uma menor, SendMessage(): LRESULT SendMessage( HWND hWnd, UINT Msg, WPARAM wParam, LPARAM lParam ); SendMessage() é um procedimento que tem por função enviar mensagens para alguma janela e aguarda essa mensagem ser processada pela aplicação para depois retornar um valor. Oposto da função PostMessage() que envia uma mensagem para a fila de mensagens da aplicação e já retorna. hWnd - Parâmetro que recebe o identificador da janela que vai receber a mensagem. Msg - Parâmetro que recebe mensagem que vai ser enviada. wParam - Parâmetro que recebe especificações extras para ser enviado com a mensagem. lParam - Parâmetro que recebe especificações extras para ser enviado com a mensagem. Bem, com essas informações já estamos semi-preparados para iniciar a programação. Antes precisamos entender como a aplicação funciona de uma forma simples. A aplicação enquanto rodando no Sistema Operacional, ela está constantemente recebendo e enviando Mensagens, mensagens para dizer que está aberta e como está aberta, mensagens com informações de uso de processamento e memória, mensagens de ações feitas na própria aplicação, enfim, toda a comunicação da aplicação com o sistema operacional e com ela mesma, é constante! Com isso podemos iniciar um novo projeto no Delphi, Console Application: Você terá um projeto novo similar a esse: Apagamos tudo depois da primeira linha, e refazemos um esqueleto limpo, declarando somente as bibliotecas Windows e Messages: Pois bem, sabendo que toda aplicação trabalha com mensagens, precisamos construir uma função principal na aplicação que é responsável por tratar essas mensagens, vamos chamá-la de WinProc(). Com isso, temos uma função que recebe o remetente da mensagem que está sendo enviada (hWnd), a mensagem (uMsg), e as especificações das mensagens (wParam e lParam), e é aqui que vamos tratar toda a comunicação feita na nossa aplicação. Mas antes, vamos continuar montando a estrutura da nossa aplicação. Continuando, nossa aplicação não é uma aplicação sem uma janela né, então vamos criar uma classe onde armazenará características básicas que definem nossa janela principal do programa. Acima da função WinProc() que acabamos de criar, crie um campo para declaração de variáveis e declare uma variável do tipo TWndClass, já aproveira e cria uma variável (TMsg) para manipularmos as mensagens que circularão na nossa aplicação. var winClass: TWndClass; Msg: TMsg; Em Seguida, podemos iniciar a criação da nossa classe: style é os estilos, definimos por enquanto só CS_HREDRAW e CS_VREDRAW que são as flags que indicam que nossa aplicação devem ser redesenhadas horizontalmente e verticalmente quando há alguma modificação na nossa aplicação, como o tamanho da janela. lpfnWndProc é onde devemos especificar qual é a função que irá processar as mensagens da janela que for criada com essa classe. hbrBackground é onde definimos a cor de fundo da nossa aplicação. lpszClassName é onde devemos definir o nome da nossa classe. hCursor - É onde definimos o ponteiro do mouse que aparecerá na nossa aplicação. Podemos definir outras propriedades como o ícone que aparecerá na janela, entre outras, caso queira saber mais entre nesse link. Agora que já temos a classe 'padrão' da nossa aplicação, podemos criar a janela principal. Mas antes, devemos criar um loop para pegar as mensagens que estão sendo processadas na nossa aplicação e converte-las de Chave-Virtual para simples Textos, para podermos trata-las. Pronto, agora que já cuidamos desses detalhes, podemos registrar nossa classe na aplicação com a API RegisterClass() para podermos definir nossa classe nas futuras janelas a serem criadas: RegisterClass(winClass); E por fim, criamos uma variável do tipo THandle para criarmos nossa janela: Compile e veja o resultado. Para agora no finalmente, entendermos essa história de mensagens, vamos criar um botão na nossa janela principal. Para isso, declare outra variável do tipo THandle para criar o botão, em seguida utilize CreateWindowEx() para criar o botão, definindo no parâmetro hWndParent a nossa janela principal, definindo que nossa janela principal é PAI do botão, e inserindo nas flags do dwStyle WS_CHILD para definir que o botão é uma janela filho. E teremos algo próximo a isso: Bom, lembra que tudo na aplicação é feito por mensagens? Pois bem, se clicarmos no botão, uma mensagem em especial é enviada automaticamente, sem necessidade de uma API como a SendMessage() (Calma, ainda veremos uma utilização com ela). Essa mensagem é a WM_COMMAND. Podemos utilizar a estrutura case/of para tratar melhor cada tipo de mensagem, por hora, vamos tratar somente duas, WM_DESTROY e WM_COMMAND. A mensagem WM_DESTROY é enviada quando a aplicação está sendo "destruída". Por exemplo quando você clica no botão fechar da janela. Nela chamamos a API PostQuitMessage() com o valor 0 no parâmetro para solicitar o fechamento da janela ao S.O. A mensagem WM_COMMAND é enviada quando um componente filho recebe um comando (um menu ou um botão recebe um click por exemplo). Segundo nossa grande amiga MSDN: WM_COMMAND wNotifyCode = HIWORD(wParam); wID = LOWORD(wParam); hwndCtl = (HWND) lParam; Para entendemos melhor o que é HIWORD e LOWORD, devemos saber que a mensagem é contem 8 bytes, ou seja um DWORD. Nos parâmetros a mensagem é enviada em 8 bytes, e é dividida em duas partes, HIWORD e LOWORD, cada uma dessas contém seus valores individuais que podemos utiliza-las de várias formas. Para entender melhor: Segundo a MSDN, o WM_COMMAND divide essa mensagem em 3 parâmetros: wNotifyCode é o HIWORD (os 4 bytes mais altos) da especificação do wParam, que diz se a mensagem está sendo enviada por um controle, um menu, etc. wID é o LOWORD (os 4 bytes mais baixos) da especificação do wParam, que armazena o Identificador item de menu (O hMenu que deixamos para explicar outra hora, lembra?) que está enviando a mensagem (no nosso caso, o Button não tem uma ID). hwndCtl é o identificador do componente que está enviando a mensagem. Sabendo disso, então vamos utilizar agora somente o lParam, que contém o identificador do componente que está enviando a mensagem, nesse caso, o Button. Bom, concluímos a tarefa. Agora vamos entender qual é a do SendMessage()? Com ele podemos enviar mensagens através de componentes para outros componentes. No nosso projetinho, vamos fazer o botão que criamos fechar o programa, para isso, comente a linha do MessageBox() e vamos enviar a mensagem WM_DESTROY através do SendMessage() para a aplicação. Compile e teste. Qualquer erro ou dúvida poste no tópico. Créditos: Inoxybel Mais conteúdos como esse só com a DarkProgramming Team
  18. Então galera , to com uma coisa martelando minha cabeça já faz um tempo , eu estou tentando converter um numero inteiro , em letras , peguei o address do nome do meu char pelo Cheat engine , dai quando eu tento converter , aparece apenas a primeira letra do nome , ja tentei de várias maneiras , mas quando não da erro , aparece apenas a primeira letra.... oq pode ser ? segue o codigo ai procedure TForm1.Timer25Timer(Sender: TObject); var aa,buf: integer; nob: DWord; begin GetWindowThreadProcessId(strtoint(Edit19.text), @processid); HPROCESS := Openprocess(process_all_access, false, processid); Readprocessmemory(HPROCESS, Pointer(PW_BASE_ADDRESS), @buf, sizeof(buf), nob); Readprocessmemory(HPROCESS, Pointer(buf + $1C), @buf, sizeof(buf), nob); readprocessmemory(HPROCESS, Pointer(buf + $2C), @buf, sizeof(buf), nob); readprocessmemory(HPROCESS, Pointer(buf + $6B0), @buf, sizeof(buf), nob); readprocessmemory(HPROCESS, Pointer(buf + $0), @buf, sizeof(buf), nob); Label17.Caption:=Wchar(buf); end; Já tentei todos os tipos que vi na net , Widechar , PWidechar , Char , Pchar , Ansichar , ansiString entre outros.... Desde Já , Obrigado.
  19. Criei meu injector ja faz um tempinho ( cerca de 4 meses ? ), e queria divulgar a source para que outros 'programadores' possam utiliza-la futuramente,seja para aperfeiçoar o injector ou apenas te-lo como base. Desenvolvi ele completamente na arquitetura x64,mas tambem tem disponivel para x86, utilizando o DELPHI XE3. Segue download do codigo abaixo: [spoiler=Download] https://mega.nz/#!hR1gxSqJ!lMM3BXOsP7SciwH5XhAyXgE8Q8eXmU4jz0FIOP-qhEc [spoiler=Print]http://prntscr.com/bfb7rb http://prntscr.com/bfb825 OBS: Versões anteriores a delphi XE2 terão que adaptar o codigo para seu uso,recomendo utilizarem o XE3 para não terem algum problema. Creditos: sam7sam7; SBits;
  20. Então galera , já possuo essa conta no wc a bastante tempo , cerca de 5~6 anos , nunca tive motivos para perguntar alguma coisa , mas agora , realmente preciso da ajuda de quem entende do assunto , bom , a parada é o seguinte , eu tenho essas dll's , type PParams = ^TParams; TParams = packed record Packet: array [0..100] of byte; Param1,Param2,Param3: DWord; Param4: array [1..100] of widechar; end; const PW_BASE_ADDRESS = $009C0E6C; PW_GAMERUN_ADDR = $009C1514; ---------------------------------------------------------------------- procedure InjectFunc(ProcessID: Cardinal; Func, aParams: Pointer; aParamsSize: DWord); var hThread: THandle; lpNumberOfBytes: DWord; ThreadAddr, ParamAddr: Pointer; begin if ProcessID<>0 then begin // ---- Выделяем место в памяти процесса, и записываем туда нашу функцию ThreadAddr := VirtualAllocEx(ProcessID, nil, 256, MEM_COMMIT, PAGE_READWRITE); WriteProcessMemory(ProcessID, ThreadAddr, Func, 256, lpNumberOfBytes); // ---- Также запишем параметры к ней ParamAddr := VirtualAllocEx(ProcessID, nil, aParamsSize, MEM_COMMIT, PAGE_READWRITE); WriteProcessMemory(ProcessID, ParamAddr, aParams, aParamsSize, lpNumberOfBytes); // ---- Создаем поток, в котором все это будет выполняться. hThread := CreateRemoteThread(ProcessID, nil, 0, ThreadAddr, ParamAddr, 0, lpNumberOfBytes); // ---- Ожидаем завершения функции WaitForSingleObject(hThread, INFINITE); // ---- подчищаем за собой CloseHandle(hThread); VirtualFreeEx(ProcessID, ParamAddr, 0, MEM_RELEASE); VirtualFreeEx(ProcessID, ThreadAddr, 0, MEM_RELEASE); end end; ------------------------------------------------------------------------------------------------------------------------ procedure WalkCall(aPParams:pParams);Stdcall; var CallAddress1,CallAddress2,CallAddress3:pointer; x,y,z:single; flying:DWORD; begin CallAddress1:=Pointer($00468070); CallAddress2:=Pointer($0046BCB0); CallAddress3:=Pointer($00468470); x:=aPParams^.Param4; y:=aPParams^.Param5; z:=aPParams^.Param6; flying:=aPParams^.Param1; asm pushad mov eax, dword ptr [PW_GAMERUN_ADDR] mov esi, dword ptr [eax+$20] mov ecx, dword ptr [esi+$FE0] push 1 call CallAddress1 mov edi, eax lea eax, dword ptr [esp+$0C] push eax push flying mov ecx, edi call CallAddress2 mov ecx, dword ptr [esi+$FE0] push 0 push 1 push edi push 1 call CallAddress3 mov eax, dword ptr [PW_GAMERUN_ADDR] mov eax, dword ptr [eax+$20] mov eax, dword ptr [eax+$FE0] mov eax, dword ptr [eax+$30] mov ecx, dword ptr [eax+$4] mov eax, x mov dword ptr[ecx+$20], eax mov eax, z mov dword ptr[ecx+$24], eax mov eax, y mov dword ptr[ecx+$28], eax popad end; end; procedure Walk(x,y,z:single); var aParams: TParams; begin ReadProcessMemory(aHandle,ptr(BaseWalkMode),@WalkMode,1,readwrite); //BaseWalkMode = GA +20 +61C if WalkMode = 0 then aParams.Param1:=0 else aParams.Param1:=1; aParams.Param3:=x; aParams.Param4:=y; aParams.Param5:=z; InjectFunc(aHandle,@WalkCall,@aParams,SizeOf(aParams)); end; ------------------------------------------------------------------------------------------------------------------ Minha dúvida é nessa ultima DLL , tenho tudo pronto , etc.. mas não sei oq boto em seguida , tenho os packets , mas acredito que pra essa dll , nao se use packet , pois uso packet em outra dll , mas nao consigo fazer o personagem andar com packets , pois além do codigo em bytes ser muito grande , ele nao anda , (não sei porque , se alguem souber , avise-me , pls ) , então queria usar essa dll ''Walk'' aí , mas nao sei como proseguir , se alguem puder , dar uma dica pelo menos , o jogo que estou tentando criar o bot se chama ''Perfect World'' , também queria saber sobre essa parte da dll , mov eax, dword ptr [PW_GAMERUN_ADDR] mov eax, dword ptr [eax+$20] mov eax, dword ptr [eax+$FE0] mov eax, dword ptr [eax+$30] mov ecx, dword ptr [eax+$4] mov eax, x mov dword ptr[ecx+$20], eax mov eax, z mov dword ptr[ecx+$24], eax mov eax, y mov dword ptr[ecx+$28], eax se nao me engano , é em assembly , se alguém pudesse explicar um pouco sobre isso também , ficaria grato , enfim , minha dúvida principal é como prosseguir com a ultima dll , e caso alguém saiba como fazer um personagem andar com Packets , é só dizer , desde já , O B R I G A D O !!!
  21. To empacado nessa parte, tentei alguns jeitos mas sempre da erro nao consigo copilar, se alguem puder ajudar agradeço, preciso fazer isso para o projeto que estou fazendo dar certo.
  22. Oi, gostaria de saber como posso fresar um valor do tipo String com o delphi. Ex : Tenho 1 address que peguei usando o tipo "String" no CE. Gostaria de saber não como mostrar ele(Ler) mas como escrever como alterar aquela String do ponteiro Tentei de várias formas e não conseguir : s Alguém saberia uma forma? Obg
  23. Tutorial - Delphi 1º Adicione 2 Edit e 1 Button 2º Declare a função: function nibzxd(nibz: string; clube: integer; programacao: integer): string; begin Result := Copy(nibz, clube, programacao); end; 3º No evento onchange do Edit1 coloque: var nibz: String; begin nibz := nibzxd(Edit1.Text,Length(Edit1.Text),Length(Edit1.Text) + 1); If nibz = 'a' Then nibz := 'A'; If nibz = 'b' Then nibz := 'B'; If nibz = 'c' Then nibz := 'C'; If nibz = 'd' Then nibz := 'D'; If nibz = 'e' Then nibz := 'E'; If nibz = 'f' Then nibz := 'F'; If nibz = 'g' Then nibz := 'G'; If nibz = 'h' Then nibz := 'H'; If nibz = 'i' Then nibz := 'I'; If nibz = 'j' Then nibz := 'J'; If nibz = 'k' Then nibz := 'K'; If nibz = 'l' Then nibz := 'L'; If nibz = 'm' Then nibz := 'M'; If nibz = 'n' Then nibz := 'N'; If nibz = 'o' Then nibz := 'O'; If nibz = 'p' Then nibz := 'P'; If nibz = 'q' Then nibz := 'Q'; If nibz = 'r' Then nibz := 'R'; If nibz = 's' Then nibz := 'S'; If nibz = 't' Then nibz := 'T'; If nibz = 'u' Then nibz := 'U'; If nibz = 'v' Then nibz := 'V'; If nibz = 'w' Then nibz := 'W'; If nibz = 'x' Then nibz := 'X'; If nibz = 'y' Then nibz := 'Y'; If nibz = 'z' Then nibz := 'Z'; Edit2.Text := Edit2.Text + nibz; 4º Mude as letras Maiúsculas pelas letras diferentes 5º No evento onclick do Button coloque: Edit1.Clear; Edit2.Clear; Créditos: WGDLL / Incompetech
  24. ShowMessage: Código HTML: procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('A sua Mensagem'); end; MessageDlg: Código HTML: procedure TForm1.Button1Click(Sender: TObject); begin MessageDlg('Mensagem qualquer', mtInformation, mbOKCancel, 0); end; Sendo que o 1º parâmetro é uma string, a mensagem propriamente dita. O 2º parâmetro é o tipo da mensagem. O 3º parâmetro é os botões que serão exibidos na caixa de diálogo. Para este tipo de caixa de diálogo os seguintes tipos de diálogo estão disponíveis: mtError mtInformation mtConfirmation mtCustom e os seguintes tipos de botões: mbYesNoCancel mbYesAllNoAllCancel mbOkCancel mbAbortRetryIgnore mbAbortIgnore MessageBox procedure TForm1.Button1Click(Sender: TObject); begin Application.MessageBox('Mensagem', 'Título', mb_IconError + mb_Ok); end; Repare no trecho: Application.MessageBox('... A função MessageBox precisa de um handler. Neste trecho definimos que o Handler da MessageBox será a própria aplicação: Application.MessageBox Caso contrário, seria necessário passar este handler como o primeiro parâmetro: procedure TForm1.Button1Click(Sender: TObject); begin MessageBox(handler, 'Mensagem', 'Título', mb_IconError + mb_Ok); end; [ Ainda sobre a função MessageBox, temos as seguintes opções quanto ao tipo de mensagem: MB_ICONINFORMATION MB_ICONERROR MB_ICONWARNING MB_ICONQUESTION E os seguintes tipos de botões: MB_OK MB_OKCANCEL MB_YESNO MB_YESNOCANCEL MB_RETRYCANCEL MB_ABORTRETRYIGNORE Para as funções MessageDlg e MessageBox existem Tipos de retorno, que nada mais é do que a resposta do usuário: o botão clicado: IDCANCEL IDYES IDNO IDABORT IDRETRY Exemplos: > MessageDlg procedure TForm1.Button1Click(Sender: TObject); begin if(MessageDlg('Deseja salvar o arquivo?', mtConfirmation, mbOKCancel, 0) = IdOk)then begin //Execute a ação de salvar o arquivo end end; Créditos: Coder.UnkNóia
×
×
  • Create New...