VB老鸟请进

来源：百度知道 编辑：UC知道 时间：2024/05/30 13:53:19
我想用VB定时运行一个软件的某个功能，比如我想让VB软件在一分钟后点击一次某软件的“开始”功能，请教！
谁能给我举个例子,如常用的软件给我编一个

我以计算器为例，点里面的“8”按钮。建一个Timer1,代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Option Explicit
Dim hW As OLE_HANDLE, hBtn_8 As OLE_HANDLE
Private Const WM_LBUTTONDOWN = &H201
Private Const MK_LBUTTON = &H1
Private Const WM_LBUTTONUP = &H202
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Sub Form_Load()
Shell "calc", vbNormalFocus
hW = FindWindow("SciCalc", vbNullString)
hBtn_8 = FindWindowEx(hW, 0, vbNullString, "8")
Timer1