冰楓論壇

標題: VB6後台源碼 [打印本頁]

作者: zxc19930518 時間: 2012-8-11 14:52
標題: 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
哪一句呢?

作者: zxc19930518 時間: 2012-8-11 15:42
本帖最後由 zxc19930518 於 2012-8-11 15:47 編輯

回覆 2# 冰楓

紅色的部分 hwn

作者: 冰楓 時間: 2012-8-11 15:47
hwn..您應該是忘了設定hwn吧..
這直接給您參考吧...轉至:愛哭鬼

零基礎VB外掛.rar (22.31 KB, 下載次數: 280)

作者: zxc19930518 時間: 2012-8-11 15:52
回覆 4# 冰楓

謝謝你指導

))

作者: lssce1122 時間: 2013-6-23 01:41
本帖最後由 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偏移值
沒定義這些

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