关于外挂的问题？

gspgsp

这是现在的代码

Option Explicit

Private 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 Long

Private 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

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

    我下一步想用setwindowpos函数让NavyFIELD这个游戏窗口一直处于最顶层 然后使用postmessage函数进行键盘的模拟

可看了3个多钟头 还是把握不了该如何使用这两个函数  烦请大大们给举个实例 写一段代码 该怎么将目标为NavyFIELD的游戏窗口设为最顶层再发送键盘模拟？谢谢！

系统崩溃

setwindowpos关键是正确的窗口句柄和两个常量值

Const HWND_TOPMOST As Long = -1
Const SWP_SHOWWINDOW As Long = &H40

使用时 SetWindowPos(hd, HWND_TOPMOST, Left, Top, Width, Height, SWP_SHOWWINDOW)

ricohcanon

不是有外挂区吗？

大元帅

先声明API
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

再声明常量
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_SHOWWINDOW = &H40
Public Const SPI_GETWORKAREA = 48

使用这个函数就可以了让窗口置顶了，如果是别的窗口，把那个Me改成窗口名就可以了
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE

大元帅

关于POSTMESSAGE的用法

POSETMESSAGE用于向指定窗口消息列队发送消息

先声明API
Public Declare Function PostMessage Lib "user32" Alias &quotostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

再声明常量
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_CLOSE = &H10
（更多消息常量可以上网去查）

事先通过FindWindow获得窗口句柄WinWnd，使用上面的常量可以对窗口发送指定的消息，后面两个是消息参数，视消息类型而定
PostMessage WinWnd, WM_CLOSE, 0&, 0&

游戏家长

为什么不用SendMessage WinWnd, WM_CLOSE, 0&, 0&？

gspgsp

元帅师兄 不管用啊！

大元帅

游戏家长: Re:关于外挂的问题？

为什么不用SendMessage WinWnd, WM_CLOSE, 0&, 0&？

命题指定使用PostMessage

gspgsp

元帅师兄 我按你教的 对程序添加了一个模块 将函数声明和调用语句都写在上面 运行提示“未定义变量”

之后我又在窗口里试了遍 将函数常量的public属性改为private 然后在from load里写的调用语句 还是提示“未定义变量”