100积分求一日分享一次的源码例子

qianbei666

100积分求一日分享一次的源码例子，有例子在下面评论！

only

要一天分享一次？................

一个取网络时间
一个取本地时间

栗子：




袋马：

1. 事件 主窗口.创建完毕()
   
2.         如果 取网络状态() = 假 则
   
3.             信息框("网络开小差了~~~~！","网络开小差了~~~~!","确定！")
   
4.                 结束程序()
   
5.         结束 如果
   
6. 结束 事件
   
7. 
   
8. 
   
9. 事件 按钮1.被单击()
   
10.         变量 时间 为 文本型
    
11.         时间 = 子文本替换(JSON解析(取网页源码("http://quan.suning.com/getSysTime.do","GBK",5000),"","sysTime2",1),"-","/")
    
12.         如果 读取设置("sj") = "" 则
    
13.                 保存设置("sj",整数到文本(取日(到时间(时间))))
    
14.                 弹出提示("分享成功")
    
15.         否则如果 整数到文本(取日(到时间(时间))) = 读取设置("sj") 则
    
16.                 弹出提示("今天分享过了,明天再分享噢~~")
    
17.         否则如果 整数到文本(取日(到时间(时间))) <> 读取设置("sj") 则
    
18.                 弹出提示("分享成功")
    
19.                 保存设置("sj",整数到文本(取日(到时间(时间))))
    
20.         结束 如果
    
21. 结束 事件
    
22. 
    
23. 
    
24. 事件 按钮2.被单击()
    
25.         如果 读取设置("sj1") = "" 则
    
26.                 保存设置("sj1",整数到文本(取日(取现行时间())))
    
27.                 弹出提示("分享成功")
    
28.         否则如果 整数到文本(取日(取现行时间())) = 读取设置("sj1") 则
    
29.                 弹出提示("今天分享过了,明天再分享噢~~")
    
30.         否则如果 整数到文本(取日(取现行时间())) <> 读取设置("sj1") 则
    
31.                 保存设置("sj1",整数到文本(取日(取现行时间())))
    
32.                 弹出提示("分享成功")
    
33.         结束 如果
    
34. 结束 事件

复制代码

qianbei666

only 发表于 2019-2-3 16:32
要一天分享一次？................

对，腾讯互联那种分享，当天分享了要等明天才可以分享

only

only 发表于 2019-2-3 16:30
要一天分享一次？................

一个取网络时间
一个取本地时间

栗子：

AD.zip (246.59 KB, 下载次数: 94)

2019-2-3 17:41 上传

点击文件名下载附件


袋马：

1. 事件 主窗口.创建完毕()
   
2.         如果 取网络状态() = 假 则
   
3.             信息框("网络开小差了~~~~！","网络开小差了~~~~!","确定！")
   
4.                 结束程序()
   
5.         结束 如果
   
6. 结束 事件
   
7. 
   
8. 
   
9. 事件 按钮1.被单击()
   
10.         变量 时间 为 文本型
    
11.         时间 = 子文本替换(JSON解析(取网页源码("http://quan.suning.com/getSysTime.do","GBK",5000),"","sysTime2",1),"-","/")
    
12.         如果 读取设置("sj") = "" 则
    
13.                 保存设置("sj",整数到文本(取日(到时间(时间))))
    
14.                 弹出提示("分享成功")
    
15.         否则如果 整数到文本(取日(到时间(时间))) = 读取设置("sj") 则
    
16.                 弹出提示("今天分享过了,明天再分享噢~~")
    
17.         否则如果 整数到文本(取日(到时间(时间))) <> 读取设置("sj") 则
    
18.                 弹出提示("分享成功")
    
19.                 保存设置("sj",整数到文本(取日(到时间(时间))))
    
20.         结束 如果
    
21. 结束 事件
    
22. 
    
23. 
    
24. 事件 按钮2.被单击()
    
25.         如果 读取设置("sj1") = "" 则
    
26.                 保存设置("sj1",整数到文本(取日(取现行时间())))
    
27.                 弹出提示("分享成功")
    
28.         否则如果 整数到文本(取日(取现行时间())) = 读取设置("sj1") 则
    
29.                 弹出提示("今天分享过了,明天再分享噢~~")
    
30.         否则如果 整数到文本(取日(取现行时间())) <> 读取设置("sj1") 则
    
31.                 保存设置("sj1",整数到文本(取日(取现行时间())))
    
32.                 弹出提示("分享成功")
    
33.         结束 如果
    
34. 结束 事件

复制代码

qq8945051q

路过看看。。。。。。。。。。。。。。。。。。。。。。。

psxiep

收藏一下，感觉很好用