冰楓論壇»論壇 › 楓之谷 (MapleStory) › 外掛輔助討論區 › 過時存放區 › V169.3 自動喝水

12 / 2 頁下一頁

查看: 1855|回覆: 16

[原創] V169.3 自動喝水

[複製鏈接]

DEATHHACK02

66 主題	3 好友	137 積分

註冊會員

Rank: 2

UID: 46386
帖子: 530
主題: 66
精華: 0
積分: 137
楓幣: 23649
威望: 91
存款: 0
贊助金額: 0
推廣: 0
ＧＰ: 84
閱讀權限: 20
性別: 男
在線時間: 920 小時
註冊時間: 2014-2-8
最後登入: 2018-6-27

發消息

電梯直達

1樓

發表於 2014-5-4 15:05:35 |只看該作者 |倒序瀏覽

本帖最後由 DEATHHACK02 於 2014-5-4 15:25 編輯

[程式分享]:169.3 自動喝水

[掃毒報告]:點我

[程式圖片]: fo2mhF3

有人只要補血魔的..
還有抱歉原諒我這麼宅
[程式下載]:

遊客【如果您要看隱藏內容請選擇繼續閱讀】

繼續閱讀文章 - 解除隱藏文章限制

已有 1 人評分	楓幣	威望	ＧＰ	收起理由
sky0823	+ 20	+ 1	+ 1	宅好啊XD 推~

總評分: 楓幣 + 20 威望 + 1 ＧＰ + 1 查看全部評分

收藏0 推3 噓1

把本文推薦給朋友或其他網站上,每次被點擊增加您在本站積分: 1骰子

請叫我強盜感謝

回覆

使用道具舉報

複製連結並發給好友，以賺取推廣點數

簡單兩步驟，註冊、分享網址，即可獲得獎勵！一起推廣文章換商品、賺$$

0915

19 主題	0 好友	16 積分

新手上路

Rank: 1

UID: 51815
帖子: 203
主題: 19
精華: 0
積分: 16
楓幣: 1
威望: 12
存款: 0
贊助金額: 0
推廣: 0
ＧＰ: 15
閱讀權限: 10
性別: 男
在線時間: 71 小時
註冊時間: 2014-3-16
最後登入: 2019-5-27

發消息

2樓

發表於 2014-5-4 15:31:34 |只看該作者

自動補血魔
If CkHp.value = 1 And Hp <= Val(txtHpSet) Then RingPst hwn1, "Press", txtHpBot.Text
If CkMp.value = 1 And Mp <= Val(txtMpSet) Then RingPst hwn1, "Press", txtMpBot.Text
是這樣子嗎?

回覆

使用道具舉報

DEATHHACK02

66 主題	3 好友	137 積分

註冊會員

Rank: 2

UID: 46386
帖子: 530
主題: 66
精華: 0
積分: 137
楓幣: 23649
威望: 91
存款: 0
贊助金額: 0
推廣: 0
ＧＰ: 84
閱讀權限: 20
性別: 男
在線時間: 920 小時
註冊時間: 2014-2-8
最後登入: 2018-6-27

發消息

3樓

發表於 2014-5-4 15:33:40 |只看該作者

本帖最後由 DEATHHACK02 於 2014-5-4 15:35 編輯

回覆 2# 0915

那是我的你的要改成你要的我的按鍵是hwn1
這個是示範 If CkHp.value = 1 And Hp <= Val(txtHpSet) Then RingPst hwn1, "Press", txtHpBot.Text
判斷CkHp是否打勾 : 判斷 hp 的值小於 txtHpSet的值按下 txtHpBot設定好的按鈕

回覆

使用道具舉報

0915

19 主題	0 好友	16 積分

新手上路

Rank: 1

UID: 51815
帖子: 203
主題: 19
精華: 0
積分: 16
楓幣: 1
威望: 12
存款: 0
贊助金額: 0
推廣: 0
ＧＰ: 15
閱讀權限: 10
性別: 男
在線時間: 71 小時
註冊時間: 2014-3-16
最後登入: 2019-5-27

發消息

4樓

發表於 2014-5-4 15:39:10 |只看該作者

回覆 3# DEATHHACK02

這一段我都看得懂
但是 RingPst hwn1 這段我有困擾..

回覆

使用道具舉報

DEATHHACK02

66 主題	3 好友	137 積分

註冊會員

Rank: 2

UID: 46386
帖子: 530
主題: 66
精華: 0
積分: 137
楓幣: 23649
威望: 91
存款: 0
贊助金額: 0
推廣: 0
ＧＰ: 84
閱讀權限: 20
性別: 男
在線時間: 920 小時
註冊時間: 2014-2-8
最後登入: 2018-6-27

發消息

5樓

發表於 2014-5-4 15:41:56 |只看該作者

回覆 4# 0915
什麼困擾

回覆

使用道具舉報

0915

19 主題	0 好友	16 積分

新手上路

Rank: 1

UID: 51815
帖子: 203
主題: 19
精華: 0
積分: 16
楓幣: 1
威望: 12
存款: 0
贊助金額: 0
推廣: 0
ＧＰ: 15
閱讀權限: 10
性別: 男
在線時間: 71 小時
註冊時間: 2014-3-16
最後登入: 2019-5-27

發消息

6樓

發表於 2014-5-4 15:45:00 |只看該作者

Private Sub Timer1_Timer()Dim Hp, Mp As LongHACK.WritePointer &H1548484, &H50, &H20 '寫入HP警告值20HACK.WritePointer &H1548484, &H54, &H20 '寫入MP警告值20Hp = HACK.ReadPointer(&H1543DE8, &H27DC)Mp = HACK.ReadPointer(&H1543DE8, &H27E0)txHp = "Hp:" & HptxMp = "Mp:" & MpEnd Sub

複製代碼

Private Sub Timer2_Timer() If CkHp.value = 1 And Hp <= Val(txtHpSet) Then RingPst hwn1, "Press", txtHpBot.Text If CkMp.value = 1 And Mp <= Val(txtMpSet) Then RingPst hwn1, "Press", txtMpBot.TextEnd Sub

複製代碼