如何用vb6.0编写一个程序,能够实现如所述的事件？

Question

A(表示鼠标左键)，B(表示鼠标右键),C(表示鼠标中键),等号左边数字表示击键次数，
等号右边数据表示“模拟键盘(硬件)击键输入的值”.(在任意程序文本框都可输入)
A+B=1     B+A=9              C+A=c
A2+B=2     B2+A=+     C2+A=Ctrl+n
A3+B=3     B3+A=-     C3+A=Ctrl+1
A4+B=4     B4+A=.     C4+A=Ctrl+F1
A+C=5     B+C=F1     C+B=Alt+1
A2+C=6     B2+C=F12          C2+B=Alt+d
A3+C=7     B3+C=a     C3+B=Shift+1
A4+C=8     B4+C=b     C4+B=Shift+d

Answer 1

他的意思是使用鼠标按键编码进行模拟键盘输入的程序。比如C4+B=Shift+d就是说，按四下中键再按一下右键，即自动模拟出Shift+D。这个程序基础功能是鼠标HOOK以及模拟键盘，后者简单，使用SendKeys即可，前者我这里也有封装：封装了一个键盘鼠标HOOK类,使用方便(VB6.0)

Answer 2

C4+B=Shift+d    当四击中键再单击右键，其中后面的“单击右键”可不可相当于一个开关机制呢？

Answer 3

A(鼠标左键)，B(鼠标右键),C(鼠标中键),等号左边数字表示击键次数，等号右边的数据表示“相当按下键盘的键”.
例：
A+B=1  (相当于鼠标在其它程序的文本输入框里单击左键再单击右键，之后将自动在该文本框输入1)A+B=1     B+A=9     C+A=c
A2+B=2     B2+A=+     C2+A=Ctrl+n
A3+B=3     B3+A=-     C3+A=Ctrl+1
A4+B=4     B4+A=.     C4+A=Ctrl+F1
A+C=5     B+C=F1     C+B=Alt+1
A2+C=6     B2+C=F12        C2+B=Alt+d
A3+C=7     B3+C=a     C3+B=Shift+1
A4+C=8     B4+C=b     C4+B=Shift+d

Answer 4

用API模拟鼠标操作：Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)'dwFlags可以取以下值:
'MOUSEEVENTF_LEFTDOWN
'MOUSEEVENTF_LEFTUP
'MOUSEEVENTF_RIGHTDOWN
'MOUSEEVENTF_RIGHTUP
'等等

Answer 5

Public Const MOUSEEVENTF_ABSOLUTE = &H8000
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_MOVE = &H1Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As LongPrivate Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)'点击
    SetCursorPos 100，200
    mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN, _
                100, _
                200, _
                CLng(0), _
                CLng(0)
    Sleep 50
    mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTUP, _
                100, _
                200, _
                CLng(0), _
                CLng(0)

Answer 6

;)
昨夜打开VB，新建“标准EXE”然后将代码复制过去是这样吗？用不了的！！
                                                  小生刚学VB两天。