VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Interval        =   3000
      Left            =   2760
      Top             =   2040
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()

 If InitializeWinIo = False Then
  '用InitializeWinIo函數(shù)加載驅(qū)動程序，如果成功會返回true，否則返回false
    MsgBox "驅(qū)動程序加載失敗!"
    Unload Me
 End If
Timer1.Interval = 3000
Timer1.Enabled = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
 ShutdownWinIo '程序結(jié)束時記得用ShutdownWinIo函數(shù)卸載驅(qū)動程序
End Sub

Private Sub Timer1_Timer()
Dim VK_A As Long
VK_A = &H41
MyKeyDown VK_A
MyKeyUp VK_A    '模擬按下并釋放A鍵
End Sub