delphi 遊戲技能問題

請問大大們 我有在另外一地方有發問 比較晚出來我 重新發一次
原碼
  ReadProcessMemory(ProcessID, Pointer($A5BFB0+$1C),@ft, 4, tt);   //讀取一級基址
  ReadProcessMemory(ProcessID, Pointer(ft+$20), @ft, 4, tt);   //人物基址
  ReadProcessMemory(ProcessID, Pointer($45F550++$101C), @jnfirst, 4, tt); //技能基址
  ReadProcessMemory(ProcessID, Pointer(jnfirst +$1020), @jnnum, 4, tt);  //技能總數
  ReadProcessMemory(ProcessID, Pointer(jnfirst +$8), @jnID, 4, tt);  //技能ID
  ReadProcessMemory(ProcessID, Pointer(jnfirst +$10), @jnSJ, 4, tt);  //技能冷卻時間
  ReadProcessMemory(ProcessID, Pointer(jnfirst +$14), @jnJG, 4, tt);  //技能施放間隔
  ReadProcessMemory(ProcessID, Pointer(jnfirst +$18), @jnZT, 4, tt);  //技能狀態
  ReadProcessMemory(ProcessID, Pointer(jnfirst +$C), @ujnname, 4, tt);  //技能名稱
  ReadProcessMemory(ProcessID, Pointer(ujnname+$0),@Ajnname,SizeOf(Ajnname),tt);
請問 要怎麼 顯示在combobox 上 請大大教導
感恩 要怎麼寫技能 還有武俠偏移是$0嗎 那其他偏移是什麼

COMBOBOX27.Items.Add(WORKMAN_NAME)
你要去遍歷技能+$0是第一個技能名

請問大大 我編譯技能完
if checkbox7.Checked and (jnSJ=0) then ;
    SendMessageW (Ghwnd,WM_KEYDOWN ,nkey11,0);
是這樣執行技能嗎 還是我的偏移有錯 因為我執行 沒反應
ReadProcessMemory(ProcessID, Pointer($A5BFB0+$1C),@ft, 4, tt);   //讀取一級基址
  ReadProcessMemory(ProcessID, Pointer(ft+$20), @ft, 4, tt);   //人物基址
  ReadProcessMemory(ProcessID, Pointer($45F550++$101C), @jnfirst, 4, tt); //技能基址
  ReadProcessMemory(ProcessID, Pointer(jnfirst +$1020), @jnnum, 4, tt);  //技能總數
  ReadProcessMemory(ProcessID, Pointer(jnfirst +$8), @jnID, 4, tt);  //技能ID
  ReadProcessMemory(ProcessID, Pointer(jnfirst +$10), @jnSJ, 4, tt);  //技能冷卻時間
  ReadProcessMemory(ProcessID, Pointer(jnfirst +$14), @jnJG, 4, tt);  //技能施放間隔
  ReadProcessMemory(ProcessID, Pointer(jnfirst +$18), @jnZT, 4, tt);  //技能狀態
  ReadProcessMemory(ProcessID, Pointer(jnfirst +$C), @ujnname, 4, tt);  //技能名稱
  ReadProcessMemory(ProcessID, Pointer(ujnname+$0),@Ajnname,36,tt);

我好像用到按鍵CALL了 請問大大怎麼直接發CALL 技能

CALL技能要送封包你去爬文!!
我懶所以我寫都是卡鍵沒動call

請問大大們 可以給我一個 可以發一個 可以call技能的碼嗎? 下面碼 我都試不出來 還是哪裡有錯 請提點一下 謝謝 感恩
pushad
    mov ecx,DWORD PTR [$A5BFB0]
    push -1
    push 0
    mov edx,DWORD PTR [ecx+$1c]
    push 0
    push 102       我是用收尋的102 不知道是不是獸王錘 也不確定正不正確  //////技能ID
    mov ecx,DWORD PTR [edx+$20]
    call 45F550 <== 這裡是放技能call嗎

type
  /// ///////////////////////////////////定義參數及其指針
  PParams = ^TParams;

  TParams = packed record
    Param1: DWORD;
    Param2: DWORD;
    Param3: single;
    Param4: single;
    Param5: single;
    Param6: byte;
  end;

procedure UseSkill(Skill_ID: cardinal);



procedure UseSkillCall(aPParams: PParams); Stdcall;
/// 技能call
var
  address: Pointer;
  P1: DWORD;
begin
  address := Pointer(SkillCall);
  P1 := aPParams^.Param1;
  asm
    pushad
    mov ecx,DWORD PTR [W2I_BASE_Call]
    push -1
    push 0
    mov edx,DWORD PTR [ecx+$1c]
    push 0
    push P1
    mov ecx,DWORD PTR [edx+$20]
    call address
    popad
  end;
end;

procedure TForm1.UseSkill(Skill_ID: cardinal);
var
  aParams: TParams;
  aParamsSize: DWORD;
begin
  aParams.Param1 := Skill_ID;
  aParamsSize := SizeOf(aParams);
  InjectFunc(@UseSkillCall, @aParams, aParamsSize);
end;


W2I_BASE_Call = $A5B90C;

嗯，其實我也是抄來的，該份原碼有板友之前發過∼

感謝e大分享 但是我還是call不出技能 請大大幫我看一下 哪裡有問題?
procedure TForm1.Button4Click(Sender: TObject);
begin
ReadProcessMemory(ProcessID, Pointer($A5BFB0+$1C),@ft, 4, tt);   //讀取一級基址
       ReadProcessMemory(ProcessID, Pointer(ft+$20), @ft, 4, tt);   //人物基址
        READPROCESSMEMORY(ProcessID, Pointer(ft+$618),@UnName,4, tt); // 人物ID偏移
           ReadProcessMemory(ProcessID, pointer(UnName),@ASName,SizeOf(ASName), tt);//讀取人物名稱
       ReadProcessMemory(ProcessID, Pointer($45F550++$101C), @jnfirst, 4, tt); //技能基址
       ReadProcessMemory(ProcessID, Pointer(jnfirst +$1020), @jnnum, 4, tt);  //技能總數
       ReadProcessMemory(ProcessID, Pointer(jnfirst +$8), @jnID, 4, tt);  //技能ID
       ReadProcessMemory(ProcessID, Pointer(jnfirst +$10), @jnSJ, 4, tt);  //技能冷卻時間
       ReadProcessMemory(ProcessID, Pointer(jnfirst +$14), @jnJG, 4, tt);  //技能施放間隔
       ReadProcessMemory(ProcessID, Pointer(jnfirst +$18), @jnZT, 4, tt);  //技能狀態
       ReadProcessMemory(ProcessID, Pointer(jnfirst +$C), @ujnname, 4, tt);  //技能名稱
end;      // ---- 技能 CALL
procedure MyCall1(aPParams: PParams); Stdcall;
var
  Address: pointer;
  P1: DWORD;
begin
  Address:=Pointer($45F550);
  P1:=aPParams^.Param1;          // ---- 技能ID號
asm
    pushad
    mov ecx,DWORD PTR [$A5B90C]
    push -1
    push 0
    mov edx,DWORD PTR [ecx+$1c]
    push 0
    push 102<===請問大大 技能id 是不是這樣寫
    mov ecx,DWORD PTR [edx+$20]
    call address
    popad

  end;
end;
procedure InjectFunc(Func: Pointer; Param: Pointer; ParamSize: DWORD);
var
  hThread: THandle;
  lpNumberOfBytes: DWORD;

begin
  if processid<>0 then
  begin
    // ---- 寫入函數位址
    WriteProcessMemory(processid, ThreadAdd, Func, 128, lpNumberOfBytes);
    // ---- 　寫入參數位址
    WriteProcessMemory(processid, ParamAdd, Param, ParamSize, lpNumberOfBytes);
    // ---- 建立遠端執行緒
    hThread := CreateRemoteThread(processid, nil, 0, ThreadAdd, ParamAdd, 0, lpNumberOfBytes);
    // ---- 等待執行緒結束
    WaitForSingleObject(hThread, INFINITE);
    CloseHandle(hThread);
  end;
end;
// ---- 呼叫CALL 技能
procedure TForm1.UseSkill(Skill_ID: cardinal);
var
  aParams: TParams;
   aParamsSize: DWORD;
begin
  aParams.Param1 := Skill_ID;
  aParamsSize := SizeOf(aParams);
  if ghwnd<>0 then
  begin
    injectfunc(@MyCall1, @aParams,aParamsSize);
  end;
end;

好混亂0.0

人物基址+101C 才是 技能基址
知道技能基址，要用 for i=0 to 技能個數-1 來列舉所有技能
而這也只是用來讀出技能編號、名稱和冷卻時間等等，

技能call是一個程序
以上列方式來說，調用的方法是 UseSkill(102);
這樣就可以自動使用編號102的技能

例如：
  if 選中目標編號>0 then    //假如有選中目標
     UseSkill( StrToInt( Edit1.Text ) );  //就使用 編輯框1內文的技能編號

    mov ecx,DWORD PTR [W2I_BASE_Call]
    mov edx,DWORD PTR [ecx+$1c]
    mov ecx,DWORD PTR [edx+$20]
efun 發表於 2010-12-18 19:24

這三行可以精簡變成
    mov ecx,DWORD PTR [W2I_ROLE_BASE_ADDR]