GTA Vice City için trainer yapalım! [Arşiv]

Sedat Atif

07/06/2003, 18:25

Merhaba.

GTA Vice City için trainer yapmayı denedim. Ancak bazı sorunlar var.

GTA VC'nin normal hillerini bilirsiniz. Herhangi bir "hile kutusu" vs açmadan direk yazarsınız. SEAWAYS gibi.

Programım aracılığı ile GTA VC'ye "tuş basımları" yollayarak sanki o hileler yazılıyormuş etkisi vermeye çalıştım.

Ancak sebebini anlayamadığım bazı problemler çıktı.

Mesela bazen hile düzgün şekilde çalışırken bazen ALT+TAB yapıp geri döndükten sonra çalışıyor.

Mesela GETTHEREFAST yazınca normalde gökten bir araba iner. Bir ALT+TAB'dan sonra bir de bakıyorum üst üste 3-5 tane araba inmiş.

Bazen de (aslında çoğunlukla :) ) hiçbirşey olmuyor.

Neden acaba?

-------------------------

ÖRNEK KODLAR

function SendKeys(ClassOrCaption:PChar;Keys:array of Integer):Boolean;
var
hW:HWND;
Ix:Integer;
begin
hW:=FindWindow(ClassOrCaption,nil);
if hW<=0 then hW:=FindWindow(nil,ClassOrCaption);
Result:=hW>0;
if Result then begin
Result:=SetForeGroundWindow(hW);
if not Result then Exit;
for Ix:=0 to High(Keys) do KeyBd_Event(Keys[Ix], 0, 0, 0);
for Ix:=High(Keys) downto 0 do Keybd_Event(Keys[Ix], 0, KEYEVENTF_KEYUP, 0);
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
SendKeys('GTA: Vice City',[70,65,78,78,89,77,65,71,78,69,84]);
end;