changetime.vbs

来自「一个相当不错的考试系统源代码」· VBS 代码 · 共 19 行

<script language="vbscript">
	Flag=0
	TimeGetF=100
	TimeNum=TimeGetF*60
	Sub ChangeTime()
		TimeNum=TimeNum-1
		TimeNumF=TimeNum\60
		TimeNumM=TimeNum mod 60
		if TimeNumF<10 and TimeNumM=10 and Flag<2 then
			MsgBox("只剩下"&TimeNumF&"分！请抓紧时间！")
			Flag=Flag+1
		elseif TimeNumF<5 and TimeNumM=10 and Flag<5 then
			MsgBox("只剩下"&TimeNumF&"分！请提交试卷！")
			Flag=Flag+1
		end if
		window.status="你的时间还剩"&TimeNumF&"分"&TimeNumM&"秒"
	settimeout "ChangeTime",1000
	end sub
</script>