Question

我想用VB写一个软件，求教高手，功能很简单，但不知道怎么写

我想用VB写一个软件，求教高手，功能很简单，但不知道怎么写

软件功能：当我打开软件时，会弹出一个text控件，输入一个词组后，按ok，这时小键盘上的1就变成了这个词组，只要我的软件还开着，不管在什么界面，我按1，都会出现这个词组

简单点说就是：开启软件后，可以把小键盘的1变成一个 词组快捷输入键

今天搞了一天，也没结果，敲得很多东西都是不对，请教高人，这个该如何写，

请教了，请不惜赐教

先感谢了
对了，我用的是vb6，
vb7、.net不太熟，
我的邮箱是

303467342@qq.com

先谢过

Answer 1

功能简单实现不简单，VB可以做但是非常不推荐用VB做，不稳定还容易出问题。

技术核心就是HOOKAPI，如果你想自己就去百度一下

我推荐给你一个简单的方法，买一个带宏编辑的键盘，鼠标也有此类产品。
不想花钱 下载个按键精灵，把你的字符串绑定到小键盘1上 呵呵

这么回答很无聊，但是很直接

Answer 2

哪需要APIHOOK那么复杂, 楼下说得太夸张了......
注册一个全局快捷键就可以了
主窗体代码如下
Option Explicit
Dim uVirtKey As Integer
Private Sub Command1_Click()
Dim Modifiers As Long
preWinProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
SetWindowLong Me.hWnd, GWL_WNDPROC, AddressOf WndProc
uVirtKey = 97 '小键盘的1
RegisterHotKey Me.hWnd, 1, Modifiers, uVirtKey
End Sub
'当程序被关闭时，取消已经注册的热键
Private Sub Form_Unload(Cancel As Integer)
SetWindowLong Me.hWnd, GWL_WNDPROC, preWinProc
UnregisterHotKey Me.hWnd, uVirtKey
End Sub

加入一个标准模块, 代码如下
Option Explicit
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal ID As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
Public Declare Function UnregisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal ID As Long) As Long
Public Const WM_HOTKEY = &H312
Public Const GWL_WNDPROC = (-4)

Public preWinProc As Long, MyhWnd As Long, uVirtKey As Long
Public Function WndProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If Msg = WM_HOTKEY Then
If wParam = 1 Then
SendKey
End If
End If
WndProc = CallWindowProc(preWinProc, hWnd, Msg, wParam, lParam)
End Function

Public Sub SendKey()
SendKeys Form1.Text1.Text
End Sub

测试过了, 可以用, 只能是英语, 如果是汉字的话, 可以考虑模拟粘贴

追问

收到您的邮件了，十分感谢，能不能帮我简单说下模拟粘贴时怎么回事
我在百度里搜到一些，但还是不太懂是什么，昨天下了些win api的资料，正在读，是api里的么？

追答

发邮箱了, 自己看哦, 就改了一点

追问

不好意思，年底事情多，一直没抽出时间，这几个晚上研究了一下，大体后面看懂了，
但第一段有点不懂
SetWindowLong Me.hWnd, GWL_WNDPROC, preWinProc
preWinProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
SetWindowLong Me.hWnd, GWL_WNDPROC, AddressOf WndProc
uVirtKey = 97 '小键盘的1
RegisterHotKey Me.hWnd, 1, Modifiers, uVirtKey
End Sub
函数都看了，用F8跑了，还是不知道发生了什么

追答

先解释这两句
preWinProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
SetWindowLong Me.hWnd, GWL_WNDPROC, AddressOf WndProc

这两句是修改窗口的响应函数, 将响应函数的地址修改为WndProc, 这样才能才WndProc里处理WM_HOTKEY消息. 在Windows中, 触发快捷键后, 系统会往注册的窗口发送WM_HOTKEY消息, 但是在VB里面没有默认的消息响应函数来响应这个消息, 因此需要自定义窗口的响应函数, 从而对WM_HOTKEY进行响应.
那么前一句
SetWindowLong Me.hWnd, GWL_WNDPROC, preWinProc

就是还原窗口的响应函数, 如果没有这句的话, 当第二次点击command1时, 程序会出错

Answer 3

两种方法:计时器和全局键盘消息,留个邮箱吧,唉~

Answer 4

我可以给你写