UC知道用VB做（自动记录计算机开机时间）高手看下
来源：百度知道 编辑：UC知道 时间：2024/05/16 01:13:19
下面是源码：但是我是菜鸟对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<
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<
这个就是程序运行时, 写一个文件StartPc.log,内容就来次程序运行的时间..
如果程序运行时,没有找到这个文件,就创建它, 并提示你,你是第一次使用本计算机..
如果找到这个文件,就读取里面的内容, 显示你的上次开机时间.
PS:这个不是自动记录软件,也不是记录计算机开机时间的.这个是程序的上一次运行时间的记录
你基础都没过关，怎么看起源码来了，你们那边有图书馆吗，不会去借本书来看
把它设为开机自动启动不就记录了启动时间了啊？呵呵
你可以把它加进启动文件夹里让WINDOWS来启动它就行了