https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=96#CommentId725
投稿者 メガネ好き  (社会人) 投稿日時 2008/11/11 19:03:55
(VB6.0)

Private Sub Timer1_Timer()
 If 終了させたい時間条件 Then
     Call Shell("C:\WINDOWS\system32\shutdown.exe -s -t 0")
 End If
End Sub
0