本帖最后由 afan 于 2010-1-8 01:58 编辑
回复 1# KLU3K
试下,我没测试~#include <Date.au3>
If RegRead('HKLM\Software\Microsoft\Windows\CurrentVersion\RunOnce', 'KLU3K') = '' Then
$_TickCount = _Date_Time_GetTickCount()
Dim $iHours, $iMins, $iSecs
_TicksToTime($_TickCount, $iHours, $iMins, $iSecs)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\KLU3K", "Run", "REG_SZ", "1")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\KLU3K", "Mins", "REG_SZ", $iMins)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\KLU3K", "Secs", "REG_SZ", $iSecs)
RegWrite('HKLM\Software\Microsoft\Windows\CurrentVersion\RunOnce', 'KLU3K', 'REG_SZ', '1')
EndIf
$FZ = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\KLU3K", "Mins")
$MZ = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\KLU3K", "Secs")
TrayTip("启动时间", $FZ & "分" & $MZ & "秒", 0)
Sleep(2000)
|