简单vb程序

先编写一个bat文件

@echo off

echo 开始......

echo 解压文件
winrar x -o+ ./EnvironmentTools.zip C:\

echo 执行exe文件
start D:\eclipse\eclipse.exe

echo  调用vb程序
start ./install_tcl.vbs
ping 1.1.1.1 -n 1 -w 12000>NUL

echo. & pause


#install_tcl.vbs文件
Set objShell = CreateObject("Wscript.Shell")
strCommandLine = "C:\eclipse.exe"   '启动安装程序
objShell.Run(strCommandLine)
set WshShell = CreateObject("WScript.Shell")
WScript.Sleep 1000                 '延时1秒
WshShell.SendKeys "{ENTER}"       
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"      
WScript.Sleep 1000