(高分)一个模拟键盘相关的,请救

weiyulin 2005-12-07 11:20:21

在VB中可以用SendKeys 或 SendMessage 发送消息

但如果对象的Hwnd为0,我该怎么发送

如发送ESC键

...全文

233 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

weiyulin 2006-01-11

打赏
举报

呵呵明白了谢谢

rainstormmaster 2005-12-28

打赏
举报

// 不知道 taskmgr.exe 是个什么文件

windows里面的任务管理器

weiyulin 2005-12-28

打赏
举报

rainstormmaster(暴风雨 v2.0)

你的例子好像可以但我没办法测试

不知道 taskmgr.exe 是个什么文件

继续请教

rainstormmaster 2005-12-11

打赏
举报

在xp下还可以这样屏蔽任务管理器：
Private Sub Form_Load()
Dim s As String
s = Environ("windir")
s = s + "\system32\taskmgr.exe"
Open s For Random Lock Read As #1
End Sub

Private Sub Form_Unload(Cancel As Integer)
Close #1
End Sub

rainstormmaster 2005-12-11

打赏
举报

//我用以下代码实验了此功能(Windows XP),但效果不理想, 哪位兄弟帮我改一下

很明显，发送的消息不对，修改如下：
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Private Const WM_CLOSE = &H10

Private Sub Timer1_Timer()

DoEvents

Dim SysFormHwnd As Long

SysFormHwnd = FindWindow(vbNullString, "Windows 任务管理器")

Caption = SysFormHwnd
SendMessage SysFormHwnd, WM_CLOSE, 0, 0

End Sub

weiyulin 2005-12-11

打赏
举报

我用以下代码实验了此功能(Windows XP),但效果不理想, 哪位兄弟帮我改一下

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Const sc_close = 2

Private Sub Timer1_Timer()

DoEvents

Dim SysFormHwnd As Long

SysFormHwnd = FindWindow(vbNullString, "Windows 任务管理器")

Caption = SysFormHwnd
SendMessage SysFormHwnd, sc_close, 0, 0

End Sub

注: Timer1.Interval = 1

weiyulin 2005-12-11