Question

用VB做（自动记录计算机开机时间）高手看下

下面是源码：但是我是菜鸟对VB6.0一窍不通：不会弄：请高手解答或屏幕录像做个教程！谢谢

Option Explicit
Private Sub Command1_Click()
Dim TimeCalc As Date
TimeCalc = Timer
Label1.Caption = "希望本计算机让您使用愉快"

Do While Timer - TimeCalc < 1
DoEvents
Loop

Unload Me
End Sub

Private Sub Form_Load()
Dim Today As Date
Dim DayString As String
Dim PathString As String
Dim DateRec As Integer
Today = Now

PathString = App.Path
If Right(PathString, 1) <> "\" Then
PathString = PathString + "\"
End If
If Dir(PathString + "StartPc.log") <> "" Then
DateRec = FreeFile
Open PathString + "StartPc.log" For Input As #DateRec
Line Input #DateRec, DayString
Close #DateRec

Label1.Caption = "你上次开机是[" & DayString & "]"
Else
Label1.Caption = "你第一次使用本计算机"
End If

DateRec = FreeFile
Open PathString + "StartPc.log" For Output As #DateRec

DayString = Today
Print #DateRec, DayString

Close #DateRec
End Sub
我很爱编程但是还没有买教材

Answer 1

这个就是程序运行时, 写一个文件StartPc.log,内容就来次程序运行的时间..

如果程序运行时,没有找到这个文件,就创建它, 并提示你,你是第一次使用本计算机..
如果找到这个文件,就读取里面的内容, 显示你的上次开机时间.

PS:这个不是自动记录软件,也不是记录计算机开机时间的.这个是程序的上一次运行时间的记录

Answer 2

你可以把它加进启动文件夹里让WINDOWS来启动它就行了

Answer 3

把它设为开机自动启动不就记录了启动时间了啊？呵呵

Answer 4

你基础都没过关，怎么看起源码来了，你们那边有图书馆吗，不会去借本书来看