您需要 登录 才可以下载或查看,没有账号?加入
举报
#include <Date.au3> bdlj() Func bdlj() $_TickCount=_Date_Time_GetTickCount() Dim $iDate, $iHours, $iMins, $iSecs _TicksToTime($_TickCount, $iHours, $iMins, $iSecs) If $iHours < 24 Then MsgBox(0, "", "持续勃起时间: " & $iHours & "时" & $iMins & "分" & $iSecs & "秒") Else MsgBox(0, "", "持续勃起时间: " & Int($iHours / 24) & "天" & Mod($iHours, 24) & "时" & $iMins & "分" & $iSecs & "秒") EndIf EndFunc
本版积分规则 发表回复 回帖后跳转到最后一页
|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度
GMT+8, 2025-2-22 16:40 , Processed in 0.080761 second(s), 24 queries .
Powered by Discuz! X3.5 Licensed
© 2001-2024 Discuz! Team.