请教VB 如何实现按键精灵的功能？ 鼠标可以使用mouse_event 的API函数完成来(声明如下)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)键盘操作用Sendkeys\"{(功能键)}\"、Sendkeys\"文字\"完成，转移焦点可以用AppActivate完成。例如：按下源Command1，打开记事本，在记事本中输入一段字符：Private Sub Command1_Click()Shell\"notepad.exe\"，vbNormalFocusAppActivate\"无标题zhidao-记事本SendKeys\"这是一个示例。End Sub
如何用VB实现按键精灵的功能，比如将鼠标光标移动到一个点，然后按下左键，放开，延迟1秒，按下空格，放开 SetCursorPos，移动光标mouse_event，模拟鼠标Sleep，延迟keybd_event，模拟键盘常数声明Const MOUSEEVENTF_LEFTDOWN As Integer=H2'左键落Const MOUSEEVENTF_LEFTUP As Integer=H4'起Const vbKeySpace=32 '空格键Const KEYEVENTF_KEYUP=H2'键起以上用到的API的几个常用函数及声明，不会用查资料
vb 按键精灵如何实现waitclick 和 GetLastClick 检测内存啊
VB制作按键精灵那种后台按键工具 在VB中，有多种方法可以实现键盘模拟，我们就介绍几种比较典型的。1.局部级模拟 从上面的流程可以看出，键盘事件是最终被送到活动窗口，然后才引起目标程序响应的。那么最直接的模拟方法就是：直接伪造一个键盘消息发给目标程序。哈哈，这实在是很简单，windows提供了几个这样的API函数可以实现直接向目标程序发送消息的功能，常用的有SendMessage和 PostMessage，它们的区别是PostMessage函数直接把消息仍给目标程序就不管了，而SendMessage把消息发出去后，还要等待目 标程序返回些什么东西才好。这里要注意的是，模拟键盘消息一定要用PostMessage函数才好，用SendMessage是不正确的(因为模拟键盘消 息是不需要返回值的，不然目标程序会没反应)，切记切记！PostMessage函数的VB声明如下：Declare Function PostMessage Lib\"user32\"Alias\"PostMessageA\"(ByVal hwnd As Long，ByVal wMsg As Long，ByVal wParam As Long，lParam As Any)As Long参数hwnd 是你要发送消息的目标程序上某个控件的句柄，参数wMsg 是消息的类型，表示你要发送什么样的消息，最后wParam 和lParam 这两个参数是随消息附加的数据，具体内容要由消息决定。再来看看wMsg 这个参数，要模拟按键就。
用VB6.0怎么写出一个像按键精灵一样的模拟按键求解答 用asc，
按键精灵的按键效果用VB怎么实现`？ 250分哦 全是我一个人写的哦。我是老K.ReturnValue2=Shell(\"一个程序.exe\"，1)AppActivate ReturnValue2，True激活那个程序SendKeys\"{TAB 2}\"，True向那个程序发送TAB键2次不断的用sendkeys就行了，模拟键盘操作.MSDN有sendkeys的\"发招表\"：P可用定时器或者多媒体计时器进行延时调节.下面是 kav2005时代算号器自动按键的程序之Form1内容.因为自己使用所以没做更多调节.用过就过去了，呵呵.是开了个记事本记录算号器里隔三跳一的有效序列号.VERSION 5.00Begin VB.Form Form1Caption=\"Form1ClientHeight=8895ClientLeft=60ClientTop=345ClientWidth=5640LinkTopic=\"Form1ScaleHeight=8895ScaleWidth=5640StartUpPosition=3 '窗口缺省Begin VB.CommandButton Command2Caption=\"Command2Height=615Left=4680TabIndex=3Top=2520Width=855EndBegin VB.TextBox Text2Height=495Left=4800TabIndex=2Text=\"Text2Top=1320Width=735EndBegin VB.CommandButton Command1Caption=\"Command1Height=495Left=4800TabIndex=0Top=360Width=735EndBegin VB.TextBox Text1Height=5655Left=0MultiLine=-1 'TrueScrollBars=3 'BothTabIndex=1Text=\"Form1.frx\"：。
谁教我使用按键精灵的脚本，懂VB哦，我电脑菜鸟 按键精灵是一个可以模拟电脑操作的软件，您在电脑上的一切动作都可以让按键精灵模拟执行，完全解放您的双手。按键精灵可以帮你操作电脑，不需要任何编程知识就可以作出功能。
用VB实现按键精灵后台 '-' 模拟鼠标的左键单击和右键单击'-' 洪恩在线 求知无限'-'程序说明：'本例采用API函数实现模拟的鼠标事件，程序运行后会'产生十分有趣的效果。也来试一试。'本例中只使用了相对鼠标坐标，我们也可以使用绝对'鼠标坐标来试一试。'-'【VB声明】' 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)'【说明】' 模拟一次鼠标事件'【备注】' 进行相对运动的时候，由SystemParametersInfo函数规定的系统鼠标轨迹速度会应用于鼠标运行的速度'【参数表】' dwFlags-Long，下述标志的一个组合' MOUSEEVENTF_ABSOLUTE' dx和dy指定鼠标坐标系统中的一个绝对位置。在鼠标坐标系统中，屏幕在水平和垂直方向上均匀分割成65535×65535个单元-' MOUSEEVENTF_MOVE 移动鼠标' MOUSEEVENTF_LEFTDOWN 模拟鼠标左键按下' MOUSEEVENTF_LEFTUP 模拟鼠标左键抬起' MOUSEEVENTF_RIGHTDOWN 模拟鼠标右键按下' MOUSEEVENTF_RIGHTUP 模拟鼠标右键抬起' MOUSEEVENTF_MIDDLEDOWN 模拟鼠标中键按下' MOUSEEVENTF_MIDDLEUP 模拟鼠标中键抬起' dx-Long，根据是否。
如何利用VB编写像按键精灵一样能模拟键盘操作？ 【VB声明】Private Declare Sub keybd_event Lib\"user32\"Alias\"keybd_event\"(ByVal bVk As Byte，ByVal bScan As Byte，ByVal dwFlags As Long，ByVal dwExtraInfo As Long)【说明】这个函数模拟了键盘行动【返回值】【备注】这个函数支持屏幕捕获（截图）。在win95和nt4.0下这个函数的行为不同【参数表】bVk-Byte，欲模拟的虚拟键码bScan-Byte，键的OEM扫描码dwFlags-Long，零；或设为下述两个标志之一KEYEVENTF_EXTENDEDKEY指出是一个扩展键，而且在前面冠以0xE0代码KEYEVENTF_KEYUP模拟松开一个键dwExtraInfo-Long，通常不用的一个值。api函数GetMessageExtraInfo可取得这个值。允许使用的值取决于特定的驱动程序
