Question

VB像按键精灵一样输出文字

如何启动生成的EXE后自动在指定坐标输入指定文字，鼠标坐标时间都设置好了，问题是输入指定文字的事件是键盘事件吗，要怎么声明？要怎么写才能全局都可以调用
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long '光标时间说明
Private 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 Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4

Option Explicit

Private Sub Command1_Click()
SetCursorPos 470, 1069
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 '鼠标按下
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '鼠标弹起
Timer1.Interval = 500 '等待1000毫秒（1秒）
Timer1.Enabled = True '启动定时器
Do While Timer1.Enabled '循环等待，直到定时器Timer1停止
DoEvents '等待期间防止窗体“凝滞”
Loop
SetCursorPos 1846, 142
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 '鼠标按下
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '鼠标弹起
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 '鼠标按下
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '鼠标弹起
Timer1.Interval = 500 '等待1000毫秒（1秒）
Timer1.Enabled = True '启动定时器
Do While Timer1.Enabled '循环等待，直到定时器Timer1停止
DoEvents '等待期间防止窗体“凝滞”
Loop

Answer 1

用插件就完了 别搞麻烦了

Answer 2

没有遇到过类似问题，

关注下。

追问

谢谢。已解决
Private Const KEYEVENTF_KEYUP = &H2 _Private Const VK_SHIFT = &H10 _Private Const VBKey8 = 56 '三条声明
Private Sub Form_Load()
SendKeys "1", True
End Sub