製作程式時彈出編釋錯誤發現不確定的名稱:GetWindowThreadProcessId 問題 , 揾人幫幫手
Code:
Private Sub Check2_Click()Dim lnghWnd As Long
Dim lngHandle As Long
Dim lngProcessID As Long
Dim lpBuffer As Long
Dim pdpd = "Tales Runner"
lnghWnd = FindWindow(pd, vbNullString)
If lnghWnd <> 0 Then
GetWindowThreadProcessId lnghWnd, lngProcessID
lngHandle = OpenProcess(PROCESS_ALL_ACCESS, False, lngProcessID)
Call ReadProcessMemory(lngHandle, lpBaseAddress, lpBuffer, 1, 0&)Open "C:log.txt" For Append As #2
Print #1, " " & lpBaseAddress & "00CE5104 "
Print #2, " " & lpBuffer & "1250000000 "
Close #1
Close #2CloseHandle lngHandle
End If
End If
End SubEnd Sub