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我也没问题。只是我的程�
相关问答：
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
问题：
现在Access数据库中有两张表TableA和TableB
TableA中有记录如下:
字段1(Name) 字段2(Num)
A 3
A 4
B 6
... ......
vb WebBrowser 小问题，请教：
WebBrowser里的网址跳转后，怎么取得跳转后的页面的URL地址
顶下顶下
引用
BeforeNavigate2
好像没有这个吧 vb6.0
BeforeNavigate2
这个可以有，呵呵。
......
我用VB写了一个activex，现在想在js里面向activex传值，写了一个public方法不行，写了一个属性也不行，请高手指点，在线等候,代码如下
变量声明
Dim dirName As String = ""
方法
Public Sub UrlName( ......
