丁丁愛別墅(原碼)

=]
如果格式不對的話 麻煩版主幫忙改好
^_^請別問我
在人魚傳說版本能不能用
我能肯定的說 不能用
這裡有一份原碼 用efun大大提供的
希望有能力之人 弄好再分享出來給大家使用
掃毒結果
http://www.virustotal.com/zh-tw/analisis/acb1576257d566c96a6bf1212c752d680c6b251c96497966ede6f9febf75b254-1272016331
_______________________
MD5碼:d0fbb35c3ac5f8a5b425a36da2422bc7
下載點
http://www.xun6.com/file/792a26597/%E4%B8%81%E4%B8%81%E6%84%9B%E5%88%A5%E5%A2%85.rar.html

有需要可 給我原碼 嗎 ?謝謝!YCT28B

感謝大大不藏私...提供原碼...造福大家...

謝謝大大的分享

又可以學到東西了

YCT41B

希望有大大 可以利用這份原碼寫出可在人魚傳說用的小白掛
期待....

大大有VB的程式原碼能提供參考依下嗎YCT62B
目前我只會用VB YCT64B

感謝大大的提供原碼
希望能研究出人魚傳說能用的

我雖然都是等著用的玩家，不過真的還是很感謝各位會寫程式大大的辛勞，感謝各位對完美玩家的付出。

這段都相同名稱不 同 2種 (如下)   

//////走路飛行CALL////
procedure FlyWalkCall(aPParams:PParams); Stdcall;
var
  Address1:pointer;
  Address2:pointer;
  Address3:pointer;
  x,y,z:Single;
  r_POSITION1:Integer;
begin
  Address1:=Pointer(W2I_Walk_Call1);
  Address2:=pointer(W2I_Walk_Call2);
  Address3:=pointer(W2I_Walk_Call3);
  x:=aPParams^.Param3;
  y:=aPParams^.Param4;
  z:=aPParams^.Param5;
  {asm
    pushad
      mov eax, dword ptr [W2I_BASE_ADDR]
      mov eax, dword ptr [eax+$1C]
      mov esi, dword ptr [eax+$20]
      mov ecx, dword ptr [esi+$dd4]  //Bcc+8=BD4
      push 1
      call Address1
      mov edi, eax
      lea eax, dword ptr [esp+$18]
      push eax
      push 1   //r_POSITION1   //0地面 1空中
      mov ecx, edi
      call Address2
      mov ecx, dword ptr [esi+$dd4]  //Bcc+8=BD4
      push 0
      push 1
      push edi
      push 1
      call    Address3
      mov eax, dword ptr [W2I_BASE_ADDR]
      mov eax, dword ptr [eax+$1C]
      mov eax, dword ptr [eax+$20]
      mov eax, dword ptr [eax+$dd4]  //Bcc+8=BD4
      mov eax, dword ptr [eax+$30]
      mov ecx, dword ptr [eax+4]
      mov eax, x
      mov dword ptr[ecx+$20], eax
      mov eax, z
      mov dword ptr[ecx+$24], eax
      mov eax, y
      mov dword ptr[ecx+$28], eax
    popad
  end;}
  asm
     pushad
       mov     eax, dword ptr W2I_BASE_ADDR
       mov     eax, dword ptr [eax+$1C]
       mov     esi, dword ptr [eax+$20]
       mov     ecx, dword ptr [esi+$dd4]
       push     1
       call     address1
       mov     edi, eax //保存 mouse 點擊的座標

       mov     ecx, dword ptr [esi+$dd4]
       mov     ecx, dword ptr [ecx+$30]
       mov     ecx, dword ptr [ecx+4]
       mov     eax, x
       mov     [ecx+$20], eax
       mov     eax, y
       mov     [ecx+$28], eax
       mov     eax, z
       mov     [ecx+$24], eax

       lea     ecx, [ecx+$20]
       push    ecx
       push    1
       mov     ecx, edi
       call    address2

       push     0
       push     1
       push     edi
       mov      ecx, dword ptr [esi+$dd4]
       push     1
       call     address3
     popad
     end;



end;
procedure TForm1.FlyWalkTo(x, y, z: single);
var
  aParams : TParams;
  aParamsSize: DWORD;
begin
  aParams.Param3:=x;
  aParams.Param4:=y;
  aParams.Param5:=z;
  aParamsSize:=SizeOf(aParams);
  if hCurrentHandle<>0 then
  begin
    injectfunc(@flyWalkCall, @aParams, aParamsSize);
  end;
end;

procedure WalkCall(aPParams:PParams); Stdcall;
var
  Address1:pointer;
  Address2:pointer;
  Address3:pointer;
  x,y,z:Single;
  r_POSITION1:Integer;
begin
  Address1:=Pointer(W2I_Walk_Call1);
  Address2:=pointer(W2I_Walk_Call2);
  Address3:=pointer(W2I_Walk_Call3);
  x:=aPParams^.Param3;
  y:=aPParams^.Param4;
  z:=aPParams^.Param5;
  {asm
    pushad
      mov eax, dword ptr [W2I_BASE_ADDR]
      mov eax, dword ptr [eax+$1C]
      mov esi, dword ptr [eax+$20]
      mov ecx, dword ptr [esi+$dd4]  //Bcc+8=BD4
      push 1
      call Address1
      mov edi, eax
      lea eax, dword ptr [esp+$18]
      push eax
      push 0   //r_POSITION1   //0地面 1空中
      mov ecx, edi
      call Address2
      mov ecx, dword ptr [esi+$dd4]  //Bcc+8=BD4
      push 0
      push 1
      push edi
      push 1
      call    Address3
      mov eax, dword ptr [W2I_BASE_ADDR]
      mov eax, dword ptr [eax+$1C]
      mov eax, dword ptr [eax+$20]
      mov eax, dword ptr [eax+$dd4]  //Bcc+8=BD4
      mov eax, dword ptr [eax+$30]
      mov ecx, dword ptr [eax+4]
      mov eax, x
      mov dword ptr[ecx+$20], eax
      mov eax, z
      mov dword ptr[ecx+$24], eax
      mov eax, y
      mov dword ptr[ecx+$28], eax
    popad
  end;}
       asm
     pushad
       mov     eax, dword ptr W2I_BASE_ADDR
       mov     eax, dword ptr [eax+$1C]
       mov     esi, dword ptr [eax+$20]
       mov     ecx, dword ptr [esi+$dd4]
       push     1
       call     address1
       mov     edi, eax //保存 mouse 點擊的座標

       mov     ecx, dword ptr [esi+$dd4]
       mov     ecx, dword ptr [ecx+$30]
       mov     ecx, dword ptr [ecx+4]
       mov     eax, x
       mov     [ecx+$20], eax
       mov     eax, y
       mov     [ecx+$28], eax
       mov     eax, z
       mov     [ecx+$24], eax

       lea     ecx, [ecx+$20]
       push    ecx
       //push    IsFly
       push    0

       mov     ecx, edi
       call    address2

       push     0
       push     1
       push     edi
       mov      ecx, dword ptr [esi+$dd4]
       push     1
       call     address3
     popad
     end;
end;
procedure TForm1.WalkTo(x, y, z: single);
var
  aParams : TParams;
  aParamsSize: DWORD;
begin
  aParams.Param3:=x;
  aParams.Param4:=y;
  aParams.Param5:=z;
  aParamsSize:=SizeOf(aParams);
  if hCurrentHandle<>0 then
  begin
    injectfunc(@WalkCall, @aParams, aParamsSize);
  end;
end;

感謝大大分享
本文章轉自外掛聯合國http://www.wgun.net