zxc19930518 發表於 2012-8-11 14:52:43

VB6後台源碼

本帖最後由 zxc19930518 於 2012-8-11 14:56 編輯

Private Sub Form_Load()
SkinH_Attach
AddKey Combo1
AddKey Combo2
AddKey Combo3
AddKey Combo4
AddKey Combo5
AddKey Combo6
Timer1.Interval = 1000 '按鍵單位為秒洞則設定為1000,毫秒為1
End Sub

Private Sub Check18_Click()
tosec = Val(Text18) '設定秒數
Timer1.Enabled = Check18.Value '啟啟動和開關
End Sub

在這裡為何會顯示引述型態不符
Private Sub Timer1_Timer()
tosec = tosec - 1 '倒數
If tosec <= 0 Then '判斷時間
RingPst hwn, "Press", Combo1.Text '按下彈起按鍵
tosec = Val(Text18) '重新設定秒數
End If
End Sub

冰楓 發表於 2012-8-11 15:33:45

哪一句呢?

zxc19930518 發表於 2012-8-11 15:42:05

本帖最後由 zxc19930518 於 2012-8-11 15:47 編輯

回覆 2# 冰楓


    紅色的部分    hwn

冰楓 發表於 2012-8-11 15:47:20

hwn..您應該是忘了設定hwn吧..
這直接給您參考吧...轉至:愛哭鬼

zxc19930518 發表於 2012-8-11 15:52:12

回覆 4# 冰楓

謝謝你指導:)))

lssce1122 發表於 2013-6-23 01:41:19

本帖最後由 lssce1122 於 2013-6-23 01:43 編輯

回覆 4# 冰楓


    這 魔血保護的有問題  他說     ReadProcessMemory Phandle, ByVal &H123456, Add, 4, ByVal 0& '讀取Add    WriteProcessMemory hProcess, ByVal &H123456, 19, 1, ByVal 0& '寫入HP警告值19
    WriteProcessMemory hProcess, ByVal &H123456, 19, 1, ByVal 0& '寫入MP警告值19
    ReadProcessMemory Phandle, ByVal Add + &H123, Hp, 4, ByVal 0& '讀取Add+HP偏移值
    ReadProcessMemory Phandle, ByVal Add + &H456, Mp, 4, ByVal 0& '讀取Add+MP偏移值
  沒定義這些
頁: [1]
查看完整版本: VB6後台源碼