一段简单的AU3源码显示启动时长和关机时间

2014年09月09日 技术资料 5119 views 0

一段简单的AU3源码显示启动时长和关机时间 第1张 


一段简单的AU3源码显示启动时长和关机时间 第2张 


源码下载

 #NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=..\soft\Desk\Backup\图标库\FlY.dll|-85
#AutoIt3Wrapper_outfile=系统启动信息.exe
#AutoIt3Wrapper_Res_Comment=系统启动信息
#AutoIt3Wrapper_Res_Description=系统启动信息
#AutoIt3Wrapper_Res_Fileversion=1.0.0.1
#AutoIt3Wrapper_Res_LegalCopyright=By JFKJ
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$milliseconds = TimerDiff(0)
$years = Int($milliseconds / 31536000000)
$remainMS = Mod($milliseconds, 31536000000)
$days = Int($remainMS / 86400000)
$remainMS = Mod($milliseconds, 86400000)
$hours = Int($remainMS / 3600000)
$remainMS = Mod($milliseconds, 3600000)
$minutes = Int($remainMS / 60000)
$remainMS = Mod($milliseconds, 60000)
$seconds = Int($remainMS / 1000)
$remainMS = Mod($milliseconds, 1000)
;年月日时分秒$years &"年" & $days  & "天" &  $hours& "小时" &  $minutes & "分 " &$seconds & "秒" &   Int($remainMS) & "毫秒" 
$time=$minutes & "分 " &$seconds & "秒" &   Int($remainMS) & "毫秒" 
$start = FileGetTime('C:\WINDOWS\system32\config\system', 0,0)
$shut = FileGetTime('C:\WINDOWS\system32\config\system', 2,0)
If Not @error Then
EndIf
$starttime=$start[0]&'年'&$start[1]&'月'&$start[2]&'日'&$start[3]&'时'&$start[4]&'分'&$start[5]&'秒'
$shutdown=$shut[0]&'年'&$shut[1]&'月'&$shut[2]&'日'&$shut[3]&'时'&$shut[4]&'分'&$shut[5]&'秒'
$FrmMain = GUICreate("系统启动信息", 306, 166,@DesktopWidth - 312,@DesktopHeight - 220)
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $FrmMain, "int", 500, "long", 0x00040002);slide in from right
GUISetState(@SW_SHOW)
$Label1 = GUICtrlCreateLabel("进入桌面时间:■ "&$starttime, 10, 32, 262, 28)
GUICtrlSetColor(-1, 0x009933)
$Label2 = GUICtrlCreateLabel("上次关机时间:▲ "&$shutdown, 10, 62, 262, 28)
GUICtrlSetColor(-1, 0xff0066)
$Label3 = GUICtrlCreateLabel("本次启动时间:◆ "&$time, 10, 92, 262, 28)
GUICtrlSetColor(-1, 0xff0000)
$Label4 = GUICtrlCreateLabel("By iT猫 itcat.cn", 180, 132, 262, 28)
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
        EndSwitch
WEnd



👍好活当赏🧧