[公告] 痞客邦「應用市集」新 App 上架-iFontCloud Professional[公告] 痞客邦後台發表文章提供插入多張圖片新功能[公告]痞客邦新服務上線 部落客商店聚集就在《痞市集》[公告] 部落格「快捷功能BAR」改版介紹[公告] 痞客邦「快捷功能BAR」6月4日改版通知

1-11-3 基礎教學 

http://www.4shared.com/file/hcSeEnqr/Delphi1-3.html

 

1-4 下拉式選單選擇視窗名稱 

http://www.4shared.com/file/AKY3Q8ue/Delphi1-4.html

 

1-5 bt功能的使用與尋找(含bt功能位址) 

http://www.4shared.com/file/okVmTlk1/Delphi1-5.html

 

 

1-6 bt記錄型態的使用與演示

http://www.4shared.com/file/33-ps7tS/Delphi1-6.html

 

設定檔(ini)的使用

http://www.4shared.com/file/sw2z5yXf/1-7.html

 

 

元件 Frame 的使用

http://www.4shared.com/file/gjwc2Glf/1-8.html

Posted by efun25 at 痞客邦 PIXNET 留言(54) 引用(0) 人氣()


open trackbacks list Trackbacks (0)

留言列表 (54)

Post Comment
  • cw3076
  • 1-6 bt記錄型態的使用與演示
    大大 此聯結有問題
  • 我測試了一下,可以下載捏....

    efun25 replied in 2011/03/21 21:51

  • cw3076
  • =.= 可能我家的網路有問題, 前几個都可以下
    明天再試一下 ~
  • cw3076
  • 怪怪 還是不能下
  • RAINTCK
  • 我也不能下載@@
    您要求的檔案鏈結失效。
  • 重新上傳了一次,再試試看0.0

    efun25 replied in 2011/03/29 20:48

  • Darren
  • 四個連結皆可下載,已下載成功待研究
  • Private Comment
  • 訪客
  • 感謝...非常清晰的教學...
    小弟受用了~~
  • a8zero
  • 大大,你的 1-1~1-3 基礎教學 好像不能下载了~~
    一直跑到7%就文件损坏~~
  • BSSA
  • 謝謝 我有問題

    Delphi1-5 含bt功能位址 沒有字

    bt功能.txt
  • jackyer1006
  • 1-6 下載成功 ^^

    感謝E大的教學
  • 訪客
  • 很棒的教學 受益良多!!!
    請問還會有更多的教學嗎
    比方說
    1.設定多種介面 也就是丁丁上面的那一排 基本 輔助 別墅 挖礦 那種分頁寫法
    2.下拉式 選擇幾%自動喝背包裡的水 或 更新背包內的東西

    目前只學會了最基本自動喝水的部分 還不能夠利用下拉式去做選擇
    感覺介面好空 想要再多學一點 XD
    有實際視頻教學 真的差好多
    去爬文 一堆都看不懂 >"<
  • bssa
  • procedure TForm1.Button1Click(Sender: TObject);
    var
    視窗程序 : HWND;
    程序ID :DWORD;
    遊戲 :DWORD;
    動態基址,人物基址,血量 : dword
    TT : DWORD; <===========我的問題卡在TT
    begin
    視窗程序 := Findwindow(nil,'完美世界');
    GetWindowThreadProcessId(視窗程序,程序ID);
    遊戲 := OpenProcess (PROCESS_ALL_ACCESS,false,程序ID);

    if 遊戲>0 then
    begin
    ReadProcessMemory( 遊戲, Pointer($AF2F08+$1C),@動態基址,4,TT );
    ReadProcessMemory( 遊戲, Pointer(動態基址+$20,@人物基址,4,TT );
    ReadProcessMemory( 遊戲, Pointer(人物基址+$474,@血量,4,TT );
    Ladel1.Caption := '人物血量 :' +intToSTR (血量);
    end;
    end;

    end.

    TT是哪出的問題
  • RAINTCK
  • 動態基址,人物基址,血量 : dword <------------
    TT : DWORD;
    你的問題在沒本段結束符號 ;
  • bssa
  • 謝謝 RAINTCK 感恩
  • 阿喵
  • 看了上面所有視頻 從原本的什麼都不會
    到現在寫出了 可以喝水的程式了 實在太感謝了!!
    E大 你之前在聯合國公佈的那個delphi原始碼的載點 好像掛了
    請問 你還能夠發表一下嗎
    我也想要多多學習 嘗試著寫出自己風格的輔助掛
    最近都沒上線練功打賞金 反倒是一直在研究如何寫輔助
    呵呵 感覺遊戲的方向改變了 把寫輔助當成是一種遊戲在玩 XD
    先謝謝囉 有問題 我會在這裡提問的!
  • 阿喵
  • 跪求 丁丁delphi原碼 以供參考!
    哪一版都沒關係!!!
    拜託了 >"<

  • 試著自己去把功能一個一個實現。
    直接改別人的原碼很快,可是能夠獲得的東西就很少...

    efun25 replied in 2011/04/09 08:16

  • RAINTCK
  • e大能請教一下嗎!!
    飛針交任編碼是不是有改變!我交任一直是錯誤的服務功能請求
  • 是交任務發包變了。

    efun25 replied in 2011/04/09 08:14

  • 學習者
  • 大大:
    請教一下!我在使用羽靈掛風爭時,會出現:invalid floating point operation 之後,就會出現上述的小視窗,一直跑出來數個,然後就當機,以致於無法再補血,但是掛機的人物卻因為無法補血而死亡,不知是我設定錯誤?還是有其他問題?尚請大大有空時,再撥空回答!感謝啦!
  • 外掛上的bug,可自行找尋比較不出錯的方法。

    efun25 replied in 2011/04/09 08:17

  • RAINTCK
  • 感謝e大的回復!
    最害怕的事發生了!發包格式在網路吵好久都沒看過有解說的縣在格式改了修掛找不到施力點了@@|
  • RAINTCK
  • 再請教一下E大
    任務不可用是那個參數的問題
    len:=22;
    tou:=$25;
    X1:=07;
    X2:=$C;
    感恩
  • type
    /// ////對話npc任務
    Missionbao = packed record
    len: DWORD;
    tou: word;
    x1, x2: DWORD;
    Sn: DWORD;
    x3, x4: DWORD;
    end;

    x3:=0;
    X4:=0;

    efun25 replied in 2011/04/10 14:58

  • RAINTCK
  • 感恩!!
    在請教一下!媚靈跟妖的寵基址是否不同!
    我用1028讀得到媚靈寵的SN確讀不到妖的
    目前網路找到的資料還無法讀出血量
  • 武神和寵物是一樣的
    只是判定寵物招出的偏移從38改成3C

    efun25 replied in 2011/04/13 20:45

  • RAINTCK
  • 感謝E大給了方向!!
    用CE終於抓出寵得基本資料
    原來所有偏移都+4上去
  • felix
  • E大您好

    您的教學檔十分受用
    但是裡面有用到基址搜尋器
    不知道可否跟您索取?
    如果可以,我的e-mail是曆felixchen0721@gmail.com
    十分感謝
  • RAINTCK
  • e大請問一下!寵的最大血量或是百分比的偏移是多少
    用CE抓了幾天都抓不出來@@
  • procedure TForm1.GetPet;
    /// /寵物資訊
    begin
    W2I_PET_ADDR := read_addr(W2I_ROLE_BASE_ADDR + $1028);
    W2I_PET_ORDER := read_addr(W2I_PET_ADDR + $08);
    W2I_PET_SN := read_addr(W2I_PET_ADDR + $3c);
    if W2I_PET_SN <> 0 then
    begin
    W2I_ROLE_PET_ADDR := read_addr(W2I_PET_ADDR + W2I_PET_ORDER * 4 + $10);
    W2I_ROLE_PET_HUNGER := read_addr(W2I_ROLE_PET_ADDR + $08);
    W2I_ROLE_PET_HPRATE := read_addrf(W2I_ROLE_PET_ADDR + $1c);
    if W2I_ROLE_JOB=9 then //魅靈職業,寵物mp
    begin
    W2I_PET_MP := read_addr(W2I_ROLE_PET_ADDR + $40);
    end;
    end;
    end;

    efun25 replied in 2011/04/20 14:29

  • bssa
  • 編輯程式比遊戲好玩又有挑戰性
    e大 我對找按鍵call 跟寫法(補血魔和按鍵call的組合)
    一直鑽牛角
    大陸看的文 眼花花 看的好幾天沒有結果

  • 阿喵
  • e大 我大概寫出來這些功能囉!
    下面是我的部落格
    http://love661116.pixnet.net/blog
    功能方面還有待加強
    我會繼續努力學習的
    感謝你的教學視頻 真的幫了我很多!
  • 林麗雯
  • 1-1~1-3基礎教學的檔案已經遺失了QQ"
  • 阿喵
  • 回樓上: 載點還在 可用JDownloader程式下載 會比較穩定

    to E大 :
    我又來了 >"<
    大致上 上面的所有教學我都看完囉
    也有學你做了有關於特徵碼的紀錄(CE的文字檔)
    希望這些特徵碼都不要再變了 >"<
    不過基址搜尋器好像真的很好用的說
    我去廣海找的好像都不適用於台版
    不知道能不能跟你索取一下 QQ
    我的e-mail : p661116@gmail.com
    再次感謝!!
  • Private Comment
  • RAINTCK
  • E大跟你求個使用物品CALL基址
    感恩
  • 訪客
  • 下載來研究一下!
    不懂之處尚請大大指教!
    謝謝!
  • BLUELEE
  • efun大大 你好!!
    我依你的delphi2010 1-3 教學 去寫!!
    但不能讀到完美世界??
    請問是那裏出錯??
    全部跟你寫的一樣 只是 完美世界前傳 改為 完美世界
    請指點迷津
    謝謝efun大大!!
  • BLUELEE
  • efun大大 你好!!
    又是我
    我再一次照原文寫入 但依然讀取不到??
    以下是原文 如有錯請告知

    procedure TForm2.Button1Click(Sender: TObject);
    var
    視窗程序 : HWND;
    程序ID :DWORD;
    遊戲 :DWORD;


    begin
    視窗程序 := Findwindow(nil,'完美世界');
    GetWindowThreadProcessId(視窗程序,程序ID);
    遊戲 := OpenProcess (PROCESS_ALL_ACCESS,false,程序ID);

    if 遊戲>0 then
    begin
    showmessage('讀取到了,遊戲為:'+inttostr(遊戲));
    end;




    end;

    end.

    在此先謝謝efun大大!!
    謝謝收看!!
  • 我直接複製你寫的,是沒問題可以讀取到的唷
    你有開遊戲嗎?
    如果還是搞不定,就把源碼傳給我看看吧。

    efun25 replied in 2011/08/03 15:06

  • BLUELEE
  • 先謝謝 efun大大收看!
    原碼是我寫入去的字嗎??
    現在我複制給efun大大 看看!!

    unit Unit2;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls;

    type
    TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form2: TForm2;

    implementation

    {$R *.dfm}

    procedure TForm2.Button1Click(Sender: TObject);
    VAR
    視窗程序: HWND;
    程序ID: DWORD;
    遊戲: DWORD;
    begin
    視窗程序:=FindWindow( nil,'完美世界' );
    GetWindowThreadProcessId(視窗程序,程序ID);
    遊戲:= OpenProcess(PROCESS_ALL_ACCESS,false,程序ID);

    if 遊戲>0 then
    begin
    ShowMessage('讀取到了,遊戲為:'+ inttostr(遊戲));
    end;

    以上是我複制過來的!!
    請efun大大 指點一下小弟!!
    謝謝!!
    還有 我試過
    加了這行
    if 遊戲>0 then <---便讀取不到了!!
    但當刪除了if 遊戲>0 then 便會顯示
    巳讀取到了,遊戲為:0
    不知是什麽原因??
    請efun大大 救救我!!
    謝謝!!
    還有 我是開着遊戲的 遊戲名顯示是 完美世界








    end;

    end.
  • BLUELEE
  • 不好意思 上面那個未看清楚 便上傳!對不起!!
    請收看這個!!
    先謝謝 efun大大收看!
    原碼是我寫入去的字嗎??
    現在我複制給efun大大 看看!!

    unit Unit2;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls;

    type
    TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form2: TForm2;

    implementation

    {$R *.dfm}

    procedure TForm2.Button1Click(Sender: TObject);
    VAR
    視窗程序: HWND;
    程序ID: DWORD;
    遊戲: DWORD;
    begin
    視窗程序:=FindWindow( nil,'完美世界' );
    GetWindowThreadProcessId(視窗程序,程序ID);
    遊戲:= OpenProcess(PROCESS_ALL_ACCESS,false,程序ID);

    if 遊戲>0 then
    begin
    ShowMessage('讀取到了,遊戲為:'+ inttostr(遊戲));
    end;

    end;

    end.

    以上是我複制過來的!!
    請efun大大 指點一下小弟!!
    謝謝!!
    還有 我試過
    加了這行
    if 遊戲>0 then <---便讀取不到了!!
    但當刪除了if 遊戲>0 then 便會顯示
    巳讀取到了,遊戲為:0
    不知是什麽原因??
    請efun大大 救救我!!
    謝謝!!
    還有 我是開着遊戲的 遊戲名顯示是 完美世界
  • BLUELEE
  • efun大大 你好!!
    對不起 又是小弟!!
    很開心!!^^
    剛剛 巳能讀到了!!謝謝efun大大 抽出寶貴的時間 看我的留言!!
    真的很感謝!!
    但解決一個問題 另一個問題又出現了!!
    首先小弟先說 怎讀到的 不知那一個是正確??
    我先把防毒關了
    再來 便進入delphi2010的內容-->相容性-->鈎起 以管理員身份執行
    跟着便能讀到了!!
    現在再想請efun大大 指點!!
    當我讀到時 每次按 BUTTON1 出來的數字 每次也不同??
    請問efun大大 這樣是正常嗎??
    先謝謝efun大大收看!!
    謝謝解答小弟!!^^
  • 程序ID是會變的,正常。
    相關知識可以去Google找。

    efun25 replied in 2011/08/05 20:57

  • BLUELEE
  • 先謝謝efun大大之前的解答!!
    我看efun大大制作時會用到 基址搜尋器 去找!!
    但我在網上 找了幾天 也找不到 基址搜尋器 下載!!
    請問efun大大 能給我 下載 基址搜尋器 的網址嗎??
    謝謝efun大大!!
    你的忠實讀者 上
  • BLUELEE
  • 謝謝efun大大
    efun大大的視頻敎學真的令大家很受用!!
    令小弟從0變了 現在有一點概念!!
    真的很感謝!!^^
    大大在裏面用的 完美基址搜尋器
    找了幾天 依然未找到??
    只能找到大大 之前放上去的網址 但巳過期了!!
    請問efun大大 能否提供其它下載地方
    或問大大索取??
    如果可以,我的e-mail是
    blue08041969@yahoo.com.hk
    先謝謝大大之前的解答!!
    祝大大身體健康!!^^
  • BLUELEE
  • efun大大 你好!!
    又過了幾天 依然是找不到完美搜尋器!!
    會有什麽方法可找到呢??
    如大大 可以給我 我的e-mail是
    blue08041969@yahoo.com.hk
    祝大大 身體健康!!^^
  • 我手邊也沒有搜尋器喔,改版我都是自己找基址,比較穩。
    如果你要找,可以google"完美基址搜尋器"
    應該會有不少大陸版的。

    efun25 replied in 2011/08/14 09:41

  • simon14913
  • efun大大多謝你,我在網路上找到了Delphi 2010 的程式也下載了1-3的鏈結回來,但我發現efun大大在輸入時,咧如輸入Show 就出現包含這幾個英文字母的全部指令可以直接用滑鼠點選,可是我的都沒有,請問一下是要在那裡設定嗎?初學者真的什麼都不知道...
  • RAINTCK
  • E大請教一下下拉式選單如何判別是遊戲視窗還是掛本身
  • momo115
  • 不好意思 請一下大大 我剛入門 想請教一下 你影片教學的軟體 可以提供下載點嗎@@..
  • 摳摳
  • 請問大大能否分享一下專門用在完美世界抓取基址的程式
    外掛聯合國那邊太亂了找不到
  • 摳摳
  • 大大我有CE了但是我不知道要怎麼抓基址
    請問一下是要看哪裡來抓取呢
  • 訪客
  • 想學卻無法下載,有哪位仁兄可以傳給我影片的,我信箱lunasealion@yahoo.com.tw感恩
  • csgod86
  • 想學Delphi卻無法下載請問有人可以傳影片給我嗎? 我信箱csgod86@yahoo.com.tw感恩
  • Private Comment
  • 訪客
  • e大 非常感謝你再次更新丁丁,完美之後也會不斷的改版,但是 你總是有自己的事情,不能常常照顧我們這些依賴的玩家,所以,可以請你在次上傳一下這些資料麼,小弟也想學著去搞懂這些東西.. 就麻煩你了..
    這些網路空間 已經刪檔,我再google也沒法找到這些資料.. 就麻煩你了..
  • 認真的路人
  • samyuan大大, 我是台灣人.. 沒辦法註冊廣海的帳號(要買一個邀請碼)
    可以請你放到開放空間 讓我下載試用看看麼?
  • zaq79636181
  • 教學載點失效
    有人有新的載點提供下載嗎?
    或把載點網址傳到我的信箱
    xrac3333@163.com
    zaq79636181@yahoo.com.tw
  • zaq79636181
  • 能傳影片給我的
    或載點
    RC:timberland80
  • 想學習的人
  • E 大 是否能考慮重新上傳教學載點 讓有心想學習的人也能學習製做屬於自己的掛
    謝謝e大~~感恩
  • Private Comment

You haven’t logged in yet, please use guest status to leave message. You can also log in with above service account and leave message

other options