ajuda com essa source de alto click

[psja]

bom galera alguem poderia me ajuda com essa source pois nao sei transforma-la em dll , se alguem puder fazer isso pra mim pode hookar no meu main eu agradeceria ou alguem me explica como eu faço eu ficaria muito grato , no aguardo de alguma resposta

AutoClick.cpp

void EC_AutoClick(void * lpParam)
{
while(true)
{
again:
HWND hWnd = FindWindow(NULL,"MU"); //-----Nome da janela do Main

if(GetAsyncKeyState(VK_F7) == -32767)
{
int ClickL = GetPrivateProfileInt("EC-CLICK","ClickL",0,GPHINI);

if(ClickL == 0)
{
WritePrivateProfileString("EC-CLICK","ClickL","1",GPHINI);
SendMessageA(hWnd, WM_LBUTTONDOWN,VK_F7, MK_LBUTTON);
SendMessageA(hWnd, WM_RBUTTONUP,VK_F7, MK_RBUTTON);
ClientMsgStringSend("","[EquipeCrazzY] Ativando autoclick Esquerdo", 0x2);
}

if(ClickL == 1)
{
WritePrivateProfileString("EC-CLICK","ClickL","0",GPHINI);
ClientMsgStringSend("","[EquipeCrazzY] Desativando autoclick Esquerdo", 0x2);
SendMessageA(hWnd, WM_LBUTTONUP,VK_F7, MK_LBUTTON);
}
}

if(GetAsyncKeyState(VK_F8) == -32767)
{
int ClickR = GetPrivateProfileInt("EC-CLICK","ClickR",0,GPHINI);

if(ClickR == 0)
{
WritePrivateProfileString("EC-CLICK","ClickR","1",GPHINI);
SendMessageA(hWnd, WM_RBUTTONDOWN,VK_F8, MK_RBUTTON);
SendMessageA(hWnd, WM_LBUTTONUP,VK_F8, MK_LBUTTON);
ClientMsgStringSend("","[EquipeCrazzY] Ativando autoclick direito", 0x2);
}

if(ClickR == 1)
{
WritePrivateProfileString("EC-CLICK","ClickR","0",GPHINI);
ClientMsgStringSend("","[EquipeCrazzY] Desativando autoclick direito", 0x2);
SendMessageA(hWnd, WM_RBUTTONUP,VK_F8, MK_RBUTTON);
}

}
Sleep(20);

goto again;
}
_endthread();
}
AutoClick.h

#define GPHINI ".\\mu.ini"

#define GCServerMsgStringSend ((void(*)(char*,char*, int tipo)) 0x47E3C0)



void EC_AutoClick(void * lpParam);
API Start
//-----------------------------------------------------------------------------------------//

//------------------------------------EquipeCrazzY----------------------------------//

//-----------------------------------------------------------------------------------------//



extern "C" __declspec(dllexport) void __cdecl StarT()
{
DWORD OldProtect;
if(VirtualProtect(LPVOID(0x401000),0x821FFF,PAGE_E XECUTE_READWRITE,&OldProtect))
{

//-------------------------------------------------------------------------------------//

//-----------------------AutoClick-------------------------------------------------//

_beginthread(AutoClicks,0,NULL);
WritePrivateProfileString("EC-CLICK","ClickR","0",GPHINI);
WritePrivateProfileString("EC-CLICK","ClickL","0",GPHINI);



//-------------------------------------------------------------------------------------//

}
else
{
MessageBoxA(NULL,"Erro","001",MB_OK);
//DllMain(GetCurrentProcess(),DLL_PROCESS_DETACH,NUL L);
ExitProcess(0);

}
}

ANTES QUE PERGUNTEM:
WritePrivateProfileString = GetPrivateProfileIn

[Viny Borges]

Deixa eu te perguntar uma coisa ! esse altoclick é um boot .. ??

[LaBaK]

Tá ai o código convertido para Delphi só no ponto de compilar a DLL, só lembrando que eu não testei.

procedure EC_AutoClick;
var
hJanela : HWND; 
ClickL,ClickR : Integer;  // Aqui pode ser um tipo Integer ou string para ler do arquivo .INI
begin
  While true do begin
  {Ativar e desativar butao Esquerdo}
  
  hJanela := FindWindow('Form1',nil); //-----Nome da janela do Main
  if (GetAsyncKeyState(VK_F7) =-32767) then
  begin
// int ClickL = GetPrivateProfileInt("EC-CLICK","ClickL",0,GPHINI);
if(ClickL = 0) then
begin
//WritePrivateProfileString("EC-CLICK","ClickL","1",GPHINI);
SendMessageA(hJanela, WM_LBUTTONDOWN,VK_F7, MK_LBUTTON);
SendMessageA(hJanela, WM_RBUTTONUP,VK_F7, MK_RBUTTON);
//ClientMsgStringSend("","[EquipeCrazzY] Ativando autoclick Esquerdo", 0x2);
end;

if(ClickL = 1) then
begin
//WritePrivateProfileString("EC-CLICK","ClickL","0",GPHINI);
//ClientMsgStringSend("","[EquipeCrazzY] Desativando autoclick Esquerdo", 0x2);
SendMessageA(hJanela, WM_LBUTTONUP,VK_F7, MK_LBUTTON);
end
else
{Ativar e desativar Butao do Direito}
if (GetAsyncKeyState(VK_F8) =-32767) then
  begin
  //int ClickR = GetPrivateProfileInt("EC-CLICK","ClickR",0,GPHINI);
if(ClickR = 0) then
begin
  //WritePrivateProfileString("EC-CLICK","ClickR","1",GPHINI);
   SendMessageA(hJanela, WM_RBUTTONDOWN,VK_F8, MK_RBUTTON);
   SendMessageA(hJanela, WM_LBUTTONUP,VK_F8, MK_LBUTTON);
  //ClientMsgStringSend("","[EquipeCrazzY] Ativando autoclick direito", 0x2);
end;
if(ClickR = 1) then
begin
    //WritePrivateProfileString("EC-CLICK","ClickR","0",GPHINI);
    //ClientMsgStringSend("","[EquipeCrazzY] Desativando autoclick direito", 0x2);
     SendMessageA(hJanela, WM_RBUTTONUP,VK_F8, MK_RBUTTON);
    end;
   end;
  end;
 end;
end;
procedure StartAutoClick(Inicializer: Pointer);
var
   xlinha: string;
   Label GoToLabel;
begin
        GoToLabel :
        Sleep(100);
        EC_AutoClick();
        GoTo GoToLabel;
end;

procedure DLLMain(Reason: DWORD);
var
   ThreadId : DWORD;
begin
 case Reason of
   DLL_PROCESS_ATTACH:
      begin
         CreateThread(nil, 0, @StartAutoClick, Pointer(nil), 0, ThreadId);
      end;
   DLL_THREAD_ATTACH:  ;
   DLL_THREAD_DETACH:  ;
   DLL_PROCESS_DETACH: ;
 end;
end;
// API iGHS
procedure iGHS;
begin
// bla bla bla
end;
exports iGHS name 'iGHS';

begin
   DisableThreadLibraryCalls(hInstance);
   DllProc := @DllEntryPoint;
   DllEntryPoint(DLL_PROCESS_ATTACH);
end. 

[SCOFIELD]

Em delphi 7 para editar o Global/Chat basta usar a função PDWORD com a address do global

[WoLfulus]

Em delphi 7 para editar o Global/Chat basta usar a função PDWORD com a address do global

hein? oq vc falou n faz o menor sentido, PDWORD nem função é...

[Erick-Master]

butao

Isso foi legal...

[LaBaK]

butao

Isso foi legal...

Vocês não deixam escapar nada em. kkkk

[SCOFIELD]

hein? oq vc falou n faz o menor sentido, PDWORD nem função é...

Eu não soube me expressar mas que eu me lembro é isso mesmo que usa para escrever na memória, só foi um alerta que isso poderia ser feito em delphi também