| NoxOner |
14-04-2009 02:32:13 |
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
 |
