50分 VB 判断上次计算机是否正常关机? 谢谢拉

打开VB新建一工程，直接贴上以下代码。

Private Sub Form_Load()
Me.Hide
If Dir("C:\error.err")="error.err" Then
MsgBox("上一次关机为非正常关机！",0+48,"温馨提示")
Else
Open "C:\error.err" For Output As #3
Close #3
End If
End Sub
Private Sub Form_QuerUnload(Cancel As Integer, UnloadMode As Integer)
Kill "C:\error.err"
End
End Sub

注意：
生成exe放在“启动”文件夹（在C盘里，你搜一下）里。双击打开该exe文件，应该没反应，在双击一次，提示非正常关机，说明程序正常。你可以按机箱上的重启键试试效果，Windows关机时选重新启动不算非正常关机哟！

有很多方法啊!
比如你可以在注册表里面写一个值,打开你得程序就写一个值,例如是"True",你程序正常关闭时就写为"False",你程序启动的时候检查是不是为"False",如果不是则说明非正常关机,反之则为正常.
还有你可以自己写个配置文件,在里面写你得参数,也是很容易的!

截取关机消息,写入文件
开机时读取
断电就不会有了

在百度里查一下，就有很多了。