关于外挂的问题？

Question

这是我的代码——Option ExplicitPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As LongPrivate Sub Timer1_Timer()
Dim hwnd As Long ' 储存 FindWindow 函数返回的句柄
hwnd = FindWindow(vbNullString, "NavyFIELD") ' 取得进程标识符If hwnd = 0 Then
Label1.Caption = "游戏未运行"
Else
Label1.Caption = "游戏已运行"
End If
End Sub     可以运行 但是Label里并没有显示相应的内容 运行游戏和关闭游戏 这段VB程序一点反应也没有
    
    游戏文件名我是直接从运行图标复制的 没有错！    恳请前辈们帮忙看下 为什么运行了游戏 可这段程序却没反应 谢谢了！

Answer 1

游戏文件名我是直接从运行图标复制的
hwnd = FindWindow(vbNullString, "NavyFIELD") ' 取得进程标识符 
窗口名称不等价于游戏文件名,也不等于托盘显示的中文名.

Answer 2

http://www.77169.com/book/program/api/FindWindow.htm

Answer 3

hwnd = FindWindow(vbNullString, "NavyFIELD") ' 取得进程标识符  
'以上一句中是取得某个进程的句柄,但是注意:"NavyFIELD" 不是文件名,而是程序运行后的标题.