Siga-nos em...
Follow us on Twitter Follow us on Facebook Watch us on YouTube
Registro

Alpha Servers
Resultados 1 a 5 de 5
  1. #1

    Avatar de -_Dark_-
    Data de Ingresso
    Jun 2011
    Localização
    São Paulo
    Idade
    30
    Posts
    40
    Agradecido
    16
    Agradeceu
    8
    Peso da Avaliação
    0

    Padrão Detecção de objetos ocultos

    Olá estou quebrando a cabeça aqui com o código de detecção de objetos ocultos
    tipo está detectando normal dando o exit de boa mais eu queria que quando tipo
    o objeto oculto fosse detectado o aplicativo do hidetoolz também fosse finalizado

    Código:

    Código:
    procedure Oculto();
    var
    Handle : HWND;
    dwProcessId : DWORD;
    begin
    try
    Handle := FindWindow(nil,nil);
    while (Handle > 0) do begin
    if (GetParent(Handle) = 0) then
    begin
    GetWindowThreadProcessId(Handle, @dwProcessId);
    if (not OpenProcess(PROCESS_QUERY_INFORMATION, False, dwProcessId)) = INVALID_HANDLE_VALUE then
    begin
    MessageBoxTimeOut
    (Application.Handle,
    Pchar (
    'Foi encontrado um processo oculto em seu sistema!'
    +#13+#13+
    'Inicie o jogo novamente.'
    +#13+#13+
    'Acesse já: www.muashcrow.net')
    ,'Mu Ashcrow'
    ,16,0,3000);
    ExitProcess(0);
    end;
    end;
    Handle := GetWindow(Handle, GW_HWNDNEXT);
    end;
    except
    on E: Exception do begin
    end;
    end;
    end;
    Ja tentei fazer o aplicativo fechar das seguintes formas

    Código:
    TerminateProcess(dwProcessId,0);
    SendMessageA(dwProcessId, WM_CLOSE, 0, 0);
    SendMessageA(dwProcessId, WM_QUIT, 0, 0);
    SendMessageA(dwProcessId, WM_DESTROY, 0, 0);
    Aguardo...

  2. #2

    Avatar de badalos
    Data de Ingresso
    Oct 2013
    Localização
    guariaioa
    Idade
    34
    Posts
    5
    Agradecido
    8
    Agradeceu
    5
    Peso da Avaliação
    0

    Padrão

    dark bota isso
    if not TerminateProcess(Application.Handle, WM_QUIT) then

    que vai funfar!

  3. #3

    Avatar de -_Dark_-
    Data de Ingresso
    Jun 2011
    Localização
    São Paulo
    Idade
    30
    Posts
    40
    Agradecido
    16
    Agradeceu
    8
    Peso da Avaliação
    0

    Padrão

    Resolvido *--*

    descuido meu não prestei atenção no código depois que dei uma analisada
    achei a solução

    Código:
    SendMessageA(Handle, WM_CLOSE, 0, 0);
    SendMessageA(Handle, WM_QUIT, 0, 0);
    SendMessageA(Handle, WM_DESTROY, 0, 0);

  4. #4

    Avatar de LaBaK
    Data de Ingresso
    Mar 2011
    Localização
    Escondido em Lorencia ;H
    Idade
    31
    Posts
    205
    Agradecido
    101
    Agradeceu
    58
    Peso da Avaliação
    16

    Padrão

    Acho que dessa forma resolveria!

    [code=Oculto_05]
    uses
    SysUtils,
    Messages,
    Dialogs,
    Windows,
    Classes;

    type
    ProcInf = record hWnd : HWND;
    dwProcId : DWORD;
    szTitle:array[0..255] of CHAR;
    szClass:array[0..255] of CHAR;
    end;

    var
    i : integer;
    nPID : integer;
    nCount : integer;
    nIdList:array[0..255] of integer;
    nProc:array[0..255] of ProcInf;
    hWndId : HWND;
    dwProcId : DWORD;

    {$R *.res}

    procedure ChecaOculto;
    begin

    hWndId := FindWindow(nil,nil);

    while( hWndId > 0) do
    begin
    if (GetParent(hWndId) = 0) then
    begin
    GetWindowThreadProcessId(hWndId, @dwProcId);

    if (not OpenProcess(PROCESS_QUERY_INFORMATION, FALSE, dwProcId)) = INVALID_HANDLE_VALUE then
    begin
    nProc[nCount].hWnd := hWndId;
    nProc[nCount].dwProcId := dwProcId ;

    GetWindowTextA(hWndId, nProc[nCount].szTitle, 255);
    GetClassNameA(hWndId, nProc[nCount].szClass, 255);

    //nCount;
    i := 0;
    while ( i < nPID ) do
    begin
    //for (i = 0) i < nPID; i+) then

    if (dwProcId = nIdList[i]) then
    break;

    if (i = nPID) then
    nIdList[nPID] := dwProcId;

    hWndId := GetWindow(hWndId, GW_HWNDNEXT);


    if (nCount > 0) then
    begin
    i := 0;
    if (i < nCount) then
    //for (i = 0; i < nCount; +i) then

    nProc[i].szTitle := 'GDI+ Window';
    nProc[i].szTitle := 'fmAdvancedTools';
    nProc[i].szTitle := 'AVG PC Tuneup';
    nProc[i].szTitle := 'fmSystemScanStart';
    nProc[i].szTitle := 'fmQuickTask';
    nProc[i].szTitle := 'NvSvc';
    nProc[i].szTitle := 'TaskEng - Processo de Mecanismo do Agendador de Tarefas';
    nProc[i].szTitle := 'UxdService';//), nil);


    if (IsWindow(nProc[i].hWnd)) then

    SendMessageA(nProc[i].hWnd, WM_CLOSE, 0, 0);
    SendMessageA(nProc[i].hWnd, WM_QUIT, 0, 0);
    SendMessageA(nProc[i].hWnd, WM_DESTROY, 0, 0);
    //LimitLogFile();
    if (strlen(nProc[i].szTitle) = 0) then
    ShowMessage('Encontrado um objeto oculto em seu sistema, ele foi fechado!'+nProc[i].szTitle)
    //MessageBox(0,'Encontrado um objeto oculto em seu sistema, ele foi fechado!', 'aviso',64);
    end;
    end;

    end;
    end;
    hWndId := GetWindow(hWndId, GW_HWNDNEXT);
    end;
    end;

    end.
    [/code]
    Última edição por LaBaK; 04-03-2014 às 09:07 PM.
    Ah´´

  5. O Seguinte Usuário Agradeceu LaBaK Por este Post Útil:


  6. #5



    Avatar de Ayrton Ricardo
    Data de Ingresso
    May 2012
    Localização
    Joao Pessoa - PB
    Idade
    28
    Posts
    1.379
    Agradecido
    262
    Agradeceu
    171
    Peso da Avaliação
    26

    Padrão

    Mensagem de moderação:
    Tópico fechado

    Ah! Mais uma briguinha infantil.
    Leiam, todo desenvolvedor PHP precisa conhecer: Hidden Content .




 

 

Informações de Tópico

Usuários Navegando neste Tópico

Há 1 usuários navegando neste tópico. (0 registrados e 1 visitantes)

Tópicos Similares

  1. |Source| Detecção de objetos ocultos
    Por Maykon no fórum Sources
    Respostas: 0
    Último Post: 22-06-2014, 02:01 PM
  2. |Suporte| Detecção de virus em fórum ipb
    Por Mentor no fórum IPB | Suporte|Dúvidas
    Respostas: 5
    Último Post: 22-01-2013, 07:57 PM
  3. |Tutorial| Como Pintar Objetos
    Por DetroiT no fórum Iniciantes
    Respostas: 0
    Último Post: 29-08-2011, 04:35 PM
  4. |Download| Programando Com Orientação a Objetos
    Por duelhard no fórum Cursos
    Respostas: 0
    Último Post: 16-08-2010, 01:41 AM

Marcadores

Permissões de Postagem

  • Você não pode iniciar novos tópicos
  • Você não pode enviar respostas
  • Você não pode enviar anexos
  • Você não pode editar suas mensagens
  •