按键精灵的按键效果用VB怎么实现`? 250分哦

来源：百度知道 编辑：UC知道 时间：2024/05/22 23:04:18
简单的说明一下要用的函数或怎么才能实现这个效果就行了`
星の诚 有抄袭的嫌疑 我看你一点都不"诚"

全是我一个人写的哦!我是老K.
-----------
ReturnValue2 =Shell("一个程序.exe", 1)
AppActivate ReturnValue2, True
激活那个程序

SendKeys "{TAB 2}", True
向那个程序发送TAB键2次

不断的用sendkeys就行了,模拟键盘操作.MSDN有sendkeys的"发招表":P
可用定时器或者多媒体计时器进行延时调节.
------------
下面是 kav2005时代算号器自动按键的程序之Form1内容.因为自己使用所以没做更多调节.用过就过去了,呵呵.是开了个记事本记录算号器里隔三跳一的有效序列号.
-----------
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 8895
ClientLeft = 60
ClientTop = 345
ClientWidth = 5640
LinkTopic = "Form1"
ScaleHeight = 8895
ScaleWidth = 5640
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command2
Caption = "Command2"
Height = 615
Left = 4680
TabIndex = 3
Top