VB用键盘全局HOOK的问题 - VB / API
Public Function LowLevelKeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim blnHook As Boolean
Dim p As KBDLLHOOKSTRUCT
Dim IsbKeyUp As Boolean
Dim AltKey As Boolean
Call CopyMemory(p, ByVal lParam, Len(p))
AltKey = ((GetKeyState(18) And &H4000) = &H4000) ''''''''''ALT键
If wParam = WM_KEYDOWN Or wParam = WM_SYSKEYDOWN Then
IsbKeyUp = False
ElseIf wParam = WM_KEYUP Or wParam = WM_SYSKEYUP Then
IsbKeyUp = True
End If
If AltKey And main.AltChk.Value Then
Debug.Print "1" & AltKey
If p.vkCode = vbKeyQ Then Call keybd_event(103, 0, IIf(IsbKeyUp, 2, 0), 0): blnHook = True
End If
If blnHook Then
LowLevelKeyboardProc = 1
Else
Call CallNextHookEx(WH_KEYBOARD_LL, nCode, wParam, lParam)
End If
End Function
这是我拦截键盘按键的函数。
我要实现“将按ALT+Q改成按小键盘7”
这样为什么不行呢？我debug.print发现是改过的，但是在其它地方按ALT+Q却打不出7，求高手解答
http://download.csdn.net/source/1899084
键盘HOOK我会。。像那样的把y改成n我也没问题。只是我的程�
相关问答：
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
如题，VB中如何实现一PC控制N台PC机的开关机或者其他命令呢？
这个问题有点大哦.如不能在其它机器上也装程序的话,那只要看他们有没配置有远程控制开关机了
如果是那种客户/服务端的方式 ，就是被控制PC也需要安� ......
问题：
现在Access数据库中有两张表TableA和TableB
TableA中有记录如下:
字段1(Name) 字段2(Num)
A 3
A 4
B 6
... ......
