Question

VB代码：让电脑开机自动运行EXE程序，运行EXE后，再自动执行关机命令…如此反复…求代码…并做相应解释

Answer 1

新建两个 label1 的组，一个是 label1(0) 另一个是 label1(1)
新建三个 command
新建一个 timer代码如下：
Dim dd As Integer
Dim ff As Boolean
Private Sub Command1_Click()
Timer1.Enabled = False
Timer1.Interval = 3000
Timer1.Enabled = True
ff = True
Label1(1).Caption = "！"
Label1(1).ForeColor = &HFF
Command2.Visible = False
Command1.Visible = False
Command3.Visible = True
End Sub
Private Sub Command2_Click()
dd = dd + 1
Select Case dd

Label1(1).Caption = "离关机还有 " & 65 - dd & " 秒。"
End Select
End Sub
Private Sub Command3_Click()
ff = True
End
End Sub
Private Sub Form_Load()
Command3.Visible = False
dd = 0
ff = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Not (ff) Then
Cancel = True

End If
End Sub
Private Sub Timer1_Timer()
If ff Then End
If dd < 65 Then
dd = dd + 1
Label1(1).Caption = "离关机还有 " & 65 - dd & " 秒。"
Else
Shell "shutdown -s -t 0"
ff = True
End If
End Sub 编写好后 把该VB程序放到 开始菜单-程序-启动 里面 就行了

Answer 2

建议使用批处理，那个写起来简单些。。执行程序直接可以写路径和名字。重启 shutdown /r

Answer 3

第一句运行exe第二句运行关机 shell（“程序.exe”） shell（“shutdown -s -t 0”）