冰楓論壇

標題: V169.3 自動喝水 [打印本頁]

作者: DEATHHACK02 時間: 2014-5-4 15:05
標題: V169.3 自動喝水
本帖最後由 DEATHHACK02 於 2014-5-4 15:25 編輯

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

[掃毒報告]:點我

[程式圖片]: fo2mhF3

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

作者: 0915 時間: 2014-5-4 15:31
自動補血魔
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
本帖最後由 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
回覆 3# DEATHHACK02

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

作者: DEATHHACK02 時間: 2014-5-4 15:41
回覆 4# 0915
什麼困擾

作者: 0915 時間: 2014-5-4 15:45

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
放一起就好囉

作者: wow0916184899 時間: 2014-5-4 16:29
如此方便的東西~怎能不下載

作者: ru6j6u06t66 時間: 2014-5-4 17:43
提示: 作者被禁止或刪除內容自動屏蔽

作者: aba330 時間: 2014-5-5 12:49
就缺補血和補魔的程式了
謝謝大大

作者: 啊嘉嘉 時間: 2014-5-5 16:01
提示: 作者被禁止或刪除內容自動屏蔽

作者: joy60192 時間: 2014-5-6 15:17
不知能不能用

作者: crane5246 時間: 2014-5-11 11:23
提示: 作者被禁止或刪除內容自動屏蔽

作者: zx6253351 時間: 2014-5-12 19:22
測試一下謝謝囉!

作者: Turtle_Wei 時間: 2014-5-12 20:20
來看看實用度感覺還不賴

作者: fm06ru8123 時間: 2014-5-13 00:14
感謝您收下

作者: hj123 時間: 2014-5-13 04:59
簡單又方便謝謝----

歡迎光臨冰楓論壇 (https://bingfong.com/)