DEATHHACK02 發表於 2014-5-4 15:05:35

V169.3 自動喝水

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

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

[掃毒報告]:點我

[程式圖片]:

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

0915 發表於 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 發表於 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 發表於 2014-5-4 15:39:10

回覆 3# DEATHHACK02


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

DEATHHACK02 發表於 2014-5-4 15:41:56

回覆 4# 0915
什麼困擾

0915 發表於 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

DEATHHACK02 發表於 2014-5-4 15:51:38

放一起就好囉

wow0916184899 發表於 2014-5-4 16:29:08

如此方便的東西~怎能不下載

ru6j6u06t66 發表於 2014-5-4 17:43:10

aba330 發表於 2014-5-5 12:49:03

就缺補血和補魔的程式了
謝謝大大

啊嘉嘉 發表於 2014-5-5 16:01:13

joy60192 發表於 2014-5-6 15:17:30

不知能不能用

crane5246 發表於 2014-5-11 11:23:07

浮云挂机断线

zx6253351 發表於 2014-5-12 19:22:46

測試一下 謝謝囉!

Turtle_Wei 發表於 2014-5-12 20:20:30

來看看 實用度感覺還不賴
頁: [1] 2
查看完整版本: V169.3 自動喝水