Question

如何让VB启动运行大概十秒后，再启动另外一个.EXE程序。

是用于组态王软件和VB通讯的。通讯要求先启动VB，然后运行组态王。
所以，我这里想加入个延时功能。
谢谢！

Answer 1

用sleep或者timer

首先讲讲sleep，这是系统api函数，要用之前需要先声明一下

Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)

然后在需要延时的地方加入sleep(1000)，参数1000是指1000毫秒，就是1秒

timer控件

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 10000
End Sub

Private Sub Timer1_Timer()
Shell "d:\123.exe"   '双引号里是软件的地址
End Sub

对比下，sleep在执行时软件会出现假死的情况，就是win7的（未响应），直到sleep结束，而timer就没有这个问题

Answer 2

Dim X As Integer

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
X = X + 1  ' 这里计时，隔1秒，X增加1
Dim FS As Object, FL As String
Set FS = CreateObject("Scripting.FileSystemObject")
FL = "路径+文件名.exe"                 '这里填写“组态王软件”的详细路径以及名称和扩展名
If X >= 10 Then                        '如果够10秒
    If FS.FileExists(FL) = True Then   '判断需要打开的软件是否存在
        Shell "路径+文件名.exe", 1     '如果存在打开软件
    Else
        MsgBox "没有找到这个文件！", vbOKOnly, "无打开的文件！"   '如果不存在，提示
    End If
    Timer1.Enabled = False             '关闭计时器
End If
End Sub

Answer 3

DoEvents
sleep(10*1000)‘等待10秒
Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1) ' 启动计算器

Answer 4

定时器里调用shell细节自己去百度。