|
53楼
发表于 2019-12-11 13:30:09
|
只看该作者
河北省石家庄市
.版本 2 .支持库 spec .子程序 时间判断 .局部变量 现在时间, 文本型, , "6" .局部变量 到期时间, 文本型, , "6" .局部变量 现在日期, 文本型 .局部变量 到期日期, 文本型 现在日期 = 到文本 (网页_访问_对象 (“http://quan.suning.com/getSysTime.do”, 0)) 调试输出 (现在日期) 到期日期 = 到文本 (易游_网页_访问 (“http://w.eydata.net/66602fb63179e6f6”, 1, “UserName=” + 窗口_登陆界面.编辑框_网络验证密码.内容)) 调试输出 (到期日期) 现在时间 [1] = 取文本中间 (现在日期, 14, 4) ' 年 现在时间 [2] = 取文本中间 (现在日期, 19, 2) ' 月 现在时间 [3] = 取文本中间 (现在日期, 22, 2) ' 日 现在时间 [4] = 取文本中间 (现在日期, 25, 2) ' 时 现在时间 [5] = 取文本中间 (现在日期, 28, 2) ' 分 现在时间 [6] = 取文本中间 (现在日期, 31, 2) ' 秒 到期时间 [1] = 取文本中间 (到期日期, 1, 4) ' 年 到期时间 [2] = 取文本中间 (到期日期, 6, 2) ' 月 到期时间 [3] = 取文本中间 (到期日期, 9, 2) ' 日 到期时间 [4] = 取文本中间 (到期日期, 12, 2) ' 时 到期时间 [5] = 取文本中间 (到期日期, 15, 2) ' 分 到期时间 [6] = 取文本中间 (到期日期, 18, 2) ' 秒 到期日期 = 到文本 (到期时间 [1]) + 到文本 (到期时间 [2]) + 到文本 (到期时间 [3]) + 到文本 (到期时间 [4]) + 到文本 (到期时间 [5]) 调试输出 (到期日期) 现在日期 = 到文本 (现在时间 [1]) + 到文本 (现在时间 [2]) + 到文本 (现在时间 [3]) + 到文本 (现在时间 [4]) + 到文本 (现在时间 [5]) 调试输出 (现在日期) .如果真 (到整数 (现在日期) ≥ 到整数 (到期日期)) 信息框 (“卡密已到期,请联系管理员”, 0, , ) 结束 () |
|