谁有脚本时间限制的代码。

答案:2 悬赏:10 手机版

解决时间 2021-03-03 03:59

提问者网友：雾里闻花香
2021-03-02 16:13

FH=Hour(time):RV=Minute(time)
//↓这里设置试用时间 (10为试用10分钟,可改动)
RV=RV+10
If RV>=60
FH=FH-60
EndIf
If FH>=24
FH=FH+1
RV=RV-24
EndIf
Rem 1
//////////////////////////////////////////////////////下面写脚本//////////////////////////////////////////////////////
Gosub 检查试用时间
//////////////////////////////////////////////////////上面写脚本//////////////////////////////////////////////////////
Goto 1
//////////////////////////////////////////////////////子程序区//////////////////////////////////////////////////////
Sub 检查试用时间
FH1=Hour(time):RV1=Minute(time)
If RV1>RV and FH1=FH
MessageBox "试用时间以到.感谢您的使用!"
EndScript
EndIf
EndIf
Return 检查试用时间
//////////////////////////////////////////////////////子程序区//////////////////////////////////////////////////////

请问这段脚本有什么错误。需要修改哪里、还有我想在这段脚本中加入另外一个脚本。请问加入到什么地方。急急急。在线等。
谁还有试用期限制的脚本代码阿。我想给我的脚本加入时间限制。每天都可以让用户试用30分钟。30分钟过了就自动退出。谁有代码发个好吗。

最佳答案

五星知识达人网友：几近狂妄
2021-03-02 16:42

FH=Hour(time):RV=Minute(time)
//↓这里设置试用时间 (10为试用10分钟,可改动)
RV=RV+10
If RV>=60
FH=FH-60
EndIf
If FH>=24
FH=FH+1
RV=RV-24
EndIf
Rem QMScript_1
//////////////////////////////////////////////////////下面写脚本//////////////////////////////////////////////////////
Gosub 检查试用时间
//////////////////////////////////////////////////////上面写脚本//////////////////////////////////////////////////////
Goto QMScript_1
//////////////////////////////////////////////////////子程序区//////////////////////////////////////////////////////
Sub 检查试用时间
FH1=Hour(time):RV1=Minute(time)
If RV1>RV and FH1=FH
MessageBox "试用时间以到.感谢您的使用!"
EndScript
EndIf
EndIf
End Sub
//////////////////////////////////////////////////////子程序区//////////////////////////////////////////////////////

全部回答

1楼网友：不如潦草
2021-03-02 16:57

按你的格式写的，已改，请对比 fh=hour(time):rv=minute(time) //↓这里设置试用时间 (10为试用10分钟,可改动) rv=rv+10 if rv>=60 fh=fh-60 endif if fh>=24 fh=fh+1 rv=rv-24 endif rem qmscript_1 //////////////////////////////////////////////////////下面写脚本////////////////////////////////////////////////////// gosub 检查试用时间 //////////////////////////////////////////////////////上面写脚本////////////////////////////////////////////////////// goto qmscript_1 //////////////////////////////////////////////////////子程序区////////////////////////////////////////////////////// sub 检查试用时间 fh1=hour(time):rv1=minute(time) if rv1>rv and fh1=fh messagebox "试用时间以到.感谢您的使用!" endscript endif endif end sub //////////////////////////////////////////////////////子程序区//////////////////////////////////////////////////////

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息