Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-04-2009
NoxOner NoxOner is offline
Registrado
 
Registrado: abr 2009
Posts: 3
Poder: 0
NoxOner Va por buen camino
Ayuda HotKey en DLL ...

Hola que tal Tengo Un problema en este codigo espero q m ayuden no tengo muxa nocion del hotkey y tengo problemas creandolo

aver si le dan una hojeada y m dicen en q es mi error


Código:
library Tutorial;
uses
  Windows;

const
  CellAddress1:dword=$353BDB80;
  CellAddress2:dword=$353D1220;
  CellAddress3:dword=$353D1280;
  CellArray1:Array[0..95] of Byte = ($C8,$78,$3D,$35,$00,$00,$00,$00,$CC,$78,$3D,$35,$00,$00,$00,$00,$58,$BB,$3B,$35,$01,$00,$00,$00,$EC,$78,$3D,$35,$01,$00,$00,$00,$CC,$75,$2F,$35,$48,$93,$2D,$35,$A4,$04,$00,$00,$08,$BF,$3B,$35,$90,$A2,$0F,$35,$E0,$9F,$0F,$35,$F0,$9F,$0F,$35,$00,$A0,$0F,$35,$20,$A0,$0F,$35,$30,$A0,$0F,$35,$40,$A0,$0F,$35,$10,$A0,$0F,$35,$01,$00,$00,$00,$FF,$FF,$FF,$FF,$50,$A5,$0F,$35,$48,$93,$2D,$35);
  CellArray2:Array[0..95] of Byte = ($C8,$78,$3D,$35,$00,$00,$00,$00,$CC,$78,$3D,$35,$00,$00,$00,$00,$58,$BB,$3B,$35,$01,$00,$00,$00,$EC,$78,$3D,$35,$01,$00,$00,$00,$CC,$75,$2F,$35,$48,$93,$2D,$35,$A4,$04,$00,$00,$08,$BF,$3B,$35,$90,$A2,$0F,$35,$E0,$9F,$0F,$35,$F0,$9F,$0F,$35,$00,$A0,$0F,$35,$20,$A0,$0F,$35,$30,$A0,$0F,$35,$40,$A0,$0F,$35,$10,$A0,$0F,$35,$01,$00,$00,$00,$FF,$FF,$FF,$FF,$50,$A5,$0F,$35,$48,$93,$2D,$35);
  CellArray3:Array[0..95] of Byte = ($C8,$78,$3D,$35,$00,$00,$00,$00,$CC,$78,$3D,$35,$00,$00,$00,$00,$58,$BB,$3B,$35,$01,$00,$00,$00,$EC,$78,$3D,$35,$01,$00,$00,$00,$CC,$75,$2F,$35,$48,$93,$2D,$35,$A4,$04,$00,$00,$08,$BF,$3B,$35,$90,$A2,$0F,$35,$E0,$9F,$0F,$35,$F0,$9F,$0F,$35,$00,$A0,$0F,$35,$20,$A0,$0F,$35,$30,$A0,$0F,$35,$40,$A0,$0F,$35,$10,$A0,$0F,$35,$01,$00,$00,$00,$FF,$FF,$FF,$FF,$50,$A5,$0F,$35,$48,$93,$2D,$35);

Procedure Cell1;
Procedure Cell2;
Procedure Cell3;
var
j3:Integer;
var
j2:Integer;
var
j:Integer;
var
x:cardinal;
 
Begin
while (true)  do
Begin
if GetAsyncKeyState(vk_f1)<>0 then
Begin
  VirtualProtectEx(GetCurrentProcess,ptr(CellAddress1),96,PAGE_EXECUTE_READWRITE,nil);
      for j := 0 To Length(CellArray1) do
         PByte(CellAddress1 + j)^:=CellArray1[j];
end;

Begin
   VirtualProtectEx(GetCurrentProcess,ptr(CellAddress2),96,PAGE_EXECUTE_READWRITE,nil);
      for j2 := 0 To Length(CellArray2) do
         PByte(CellAddress2 + j2)^:=CellArray2[j2];
end;

Begin
   VirtualProtectEx(GetCurrentProcess,ptr(CellAddress3),96,PAGE_EXECUTE_READWRITE,nil);
      for j3 := 0 To Length(CellArray3) do
         PByte(CellAddress3 + j3)^:=CellArray3[j3];
end;

Begin
   CreateThread(nil,0,@Cell1,nil,0,x);
   sleep(100);
   CreateThread(nil,0,@Cell2,nil,0,x);
   sleep(50);
   CreateThread(nil,0,@Cell3,nil,0,x);
   sleep(30);
end;
end;
end;
end.
el error cuando lo compilo m sale en el " end. "

pero la verdad no tengo idea d por q m sale ...


aver si m ayudan ^^

aki una img del error


Última edición por NoxOner fecha: 14-04-2009 a las 20:55:39.
Responder Con Cita
  #2  
Antiguo 14-04-2009
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cada begin debe tener su correspondiente end; cuéntalos para ver cuál hace falta. Indentar el código facilita evitar este tipo de errores.

// Saludos
Responder Con Cita
  #3  
Antiguo 14-04-2009
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
 
Registrado: oct 2006
Posts: 2.159
Poder: 21
cHackAll Va por buen camino
Cita:
Empezado por roman Ver Mensaje
Cada begin debe tener su correspondiente end; cuéntalos para ver cuál hace falta. Indentar el código facilita evitar este tipo de errores.

// Saludos
He roman, ta gueno pro ste hot"k" !va con APIPI ^^
__________________
RTFM > STFW > Foro > Truco > Post > cHackAll > KeBugCheckEx
Responder Con Cita
  #4  
Antiguo 14-04-2009
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Sí, bueno. Hoy venía con paciencia y pude aplicar el filtro correspondiente

// Saludos
Responder Con Cita
  #5  
Antiguo 14-04-2009
NoxOner NoxOner is offline
Registrado
 
Registrado: abr 2009
Posts: 3
Poder: 0
NoxOner Va por buen camino
uhm osea mi problema es el end pero kiero mtb q vean si el hotkey esta bien declarado

=)

uhm tmb si el sleep esta bien dond lo puc ??


edited: Me akabo de dar kuenta q los end no es el problema creo q es la sintays aver si m pueden ayudar en esto

Última edición por NoxOner fecha: 14-04-2009 a las 20:59:52.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Uso de HotKey Cecilio Varios 3 06-06-2014 16:23:09
Delphi - HotKey de aplicación externa fdanielc Lazarus, FreePascal, Kylix, etc. 2 03-12-2008 21:12:11
ayuda usando solo la tecla ALT como hotkey lostprophets Varios 2 21-01-2008 06:07:17
Cuantas HOTKEY se pueden registrar simultaneamente? JuanErasmo API de Windows 12 07-04-2006 20:27:51
capturar hotkey cahosoft Varios 2 31-01-2005 18:17:04


La franja horaria es GMT +2. Ahora son las 01:14:00.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi