Question

VB中如何锁定窗口

我想是这样的，有一个可以拖动的小图标，松开鼠标后可以选定当前窗口，且对这个窗口作的动作不会因选了别的窗口而改变。能把供原代码传给我最好。邮箱：s78933456@126.com QQ:78933456
我的意思就是开两个游戏窗口,这个程序可以实现在窗口中模拟按一个键,不会因我选择了另一个窗口而不在前一个窗口中作动作了。就像一个机器人,不停的做一个动作,不会因选择了别的窗口而停止前一个窗口的动作。拖动窗口是为了防止在当前窗口作动作,可以有对像的选择．一个程序对一个窗口即可，一个窗口对多个窗口最好。没有拖动窗口的图标也可以，只要能锁定窗口就行。

Answer 1

哈哈 如果是一个按键 的话 那么可以,如果要按组合按键的话我也没法,你的意思是让那个窗口就算在后台都发送按键,比如开一个魔域你想在那个窗口上按一个f1之类的按键,然后你玩其他游戏,而你的这个游戏窗口不按任何按键,是吧?
如果是的话我把代码贴出来,有问题给我消息

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Command1_Click()
Dim wnd As Long
wnd = FindWindow(vbNullString, "无标题 - Notepad2") '获取窗口句柄在这里修改想要窗口标题
PostMessage wnd, &H100, 112, 0 '发送按键 F1的键盘扫描码为112
End Sub

如果需要循环,添加一个timer控件就可以了,如要停止可以让timer停止工作就行了

Answer 2

需要使用 API 函数，在 VB 中申明如下
Declare Function ClipCursor Lib "user32" (lpRect As RECT) As Long

Declare Function ClipCursorRelease Lib "user32" Alias "ClipCursor" (ByVal lpRect As Long) As Long

Type RECT
Left As Long
Right As Long
Top As Long
Bottom As Long
End Type

RECT 为矩形信息的用户自定义类型，分别表示左边距、右边距和上边距、下边距

限制鼠标在某个范围调用：ClipCursor 函数，传递 RECT 参数（要限制鼠标的范围）
取消限制鼠标调用：ClipCursorRelease 函数，传递 0 即可取消限制

Answer 3

学习中