hwn＆pid顯示

以楓之谷為例：
表單：TextＸ２　TimerＸ１

Private Sub Timer1_Timer()
If FindGame("MapleStory") = True Then
hwn顯示.Text = hwn
pid顯示.Text = pid
End If
End Sub

模組：

Public Declare Function FindWindow
Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal
lpWindowName As String) As Long

Public Declare Function OpenProcess Lib "kernel32" (ByVal
dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId
As Long) As Long

Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Integer

Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal
hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As
Long, lpNumberOfBytesWritten As Long) As Long

Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess
As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long,
lpNumberOfBytesWritten As Long) As Long



Public hwn      As Long 'Handle Of Window 視窗鉤子

Public Phandle  As Long 'Handle Of Process 程序鉤子

Public pid      As Long 'Process ID 程序ID



Public Function FindGame(strGame As String) As Boolean

hwn = FindWindow(vbNullString, strGame) '尋找遊戲視窗

GetWindowThreadProcessId hwn, pid '取得程序ID

Phandle = OpenProcess(&H1F0FFF, False, pid) '取得遊戲進程

If hwn <> 0 Then FindGame = True '判斷並傳回是否取得進程

End Function

dog123

最近在研究這個怎麼寫
謝謝冰楓高手

wing7

模組要什麼@@???
這是顯示什麼用的阿?

broken0808

1# 冰楓
目前缺的是血魔Pointer ^_^

冰楓

5# broken0808

人物HP警告        00cc2254        44
人物MP警告        00cc2254        48

人物HP值        00cc2560        1814
人物MP值        00cc2560        1818

angus0623

謝謝大大分享～

ITE8591

謝謝大大分享～

broken0808

好像是哪個模組裡面的@@"
我看過~顆顆..

★猴子

無聊來這晃晃   順便學習 ~

broken0808

6# 冰楓
TKS .

看看.

鎖定的顯示?

hwn/pid  

謝分享~

惡魔

好像在哪裡看到? 忘了zz

joe86275

是顯示POINT嗎??

ZhangBowei

什麼是hwn＆pid　　－　－？