請注意：作者請到論壇領取獎勵，另外qq為:513737151 ρ做禰嘚新娘 mm請查收動畫內的示愛
大家好,我是布求仁,今天我教大家編寫乙個小軟體"vb打造自動記錄計算機開機時間軟體"
需要乙個,命令按紐控制項,乙個label控制項
**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
閃爍字型**
private sub timer2_timer()
label1.forecolor = rgb(255 * rnd(), 255 * rnd(), 255 * rnd())
end sub
最後打個小小的廣告
我想對qq為:513737151 ρ做禰嘚新娘 說:我愛你 希望大家也幫我說下 小弟在這裡 謝謝大家咯
結構體 86 計算機開機時間
要求說明 程式設計實現計算機開機時間，要求每次開始計算時間時都能接著上次記錄的結果接著向下記錄 計算開機時間 include include include struct time 定義時間結構體 t int main int argc,char argv t.second 0 秒數置0 else ...
計算機時間同步問題
1 阿里雲時間同步位址共7個 ntp1.aliyun.com ntp2.aliyun.com ntp3.aliyun.com ntp4.aliyun.com p5.aliyun.com ntp6.aliyun.com ntp7.aliyun.com 2 國內時間同步伺服器 ntp.sjtu.edu....
讓電腦自動記錄每次開關機時間
新建兩個文字檔案 儲存為start.cmd shutdown.cmd記錄關機時間 儲存為shutdown.cmd 開始 執行 gpedit.msc 計算機設定 windows設定 指令碼啟動,雙擊啟動,新增剛才儲存的start.cmd 計算機設定 windows設定 指令碼關機,雙擊關機,新增剛才儲...