qianbei666 发表于 2019-2-3 16:30:44

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

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

only 发表于 2019-2-3 16:30:45

本帖最后由 only 于 2019-2-3 17:45 编辑

要一天分享一次？................
一个取网络时间
一个取本地时间

栗子：




袋马：
事件 主窗口.创建完毕()
      如果 取网络状态() = 假 则
            信息框("网络开小差了~~~~！","网络开小差了~~~~!","确定！")
                结束程序()
      结束 如果
结束 事件


事件 按钮1.被单击()
      变量 时间 为 文本型
      时间 = 子文本替换(JSON解析(取网页源码("http://quan.suning.com/getSysTime.do","GBK",5000),"","sysTime2",1),"-","/")
      如果 读取设置("sj") = "" 则
                保存设置("sj",整数到文本(取日(到时间(时间))))
                弹出提示("分享成功")
      否则如果 整数到文本(取日(到时间(时间))) = 读取设置("sj") 则
                弹出提示("今天分享过了,明天再分享噢~~")
      否则如果 整数到文本(取日(到时间(时间))) <> 读取设置("sj") 则
                弹出提示("分享成功")
                保存设置("sj",整数到文本(取日(到时间(时间))))
      结束 如果
结束 事件


事件 按钮2.被单击()
      如果 读取设置("sj1") = "" 则
                保存设置("sj1",整数到文本(取日(取现行时间())))
                弹出提示("分享成功")
      否则如果 整数到文本(取日(取现行时间())) = 读取设置("sj1") 则
                弹出提示("今天分享过了,明天再分享噢~~")
      否则如果 整数到文本(取日(取现行时间())) <> 读取设置("sj1") 则
                保存设置("sj1",整数到文本(取日(取现行时间())))
                弹出提示("分享成功")
      结束 如果
结束 事件

qianbei666 发表于 2019-2-3 16:35:27

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

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

only 发表于 2019-2-3 17:43:31

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

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

栗子：




袋马：
事件 主窗口.创建完毕()
        如果 取网络状态() = 假 则
          信息框("网络开小差了~~~~！","网络开小差了~~~~!","确定！")
                结束程序()
        结束 如果
结束 事件


事件 按钮1.被单击()
        变量 时间 为 文本型
        时间 = 子文本替换(JSON解析(取网页源码("http://quan.suning.com/getSysTime.do","GBK",5000),"","sysTime2",1),"-","/")
        如果 读取设置("sj") = "" 则
                保存设置("sj",整数到文本(取日(到时间(时间))))
                弹出提示("分享成功")
        否则如果 整数到文本(取日(到时间(时间))) = 读取设置("sj") 则
                弹出提示("今天分享过了,明天再分享噢~~")
        否则如果 整数到文本(取日(到时间(时间))) <> 读取设置("sj") 则
                弹出提示("分享成功")
                保存设置("sj",整数到文本(取日(到时间(时间))))
        结束 如果
结束 事件


事件 按钮2.被单击()
        如果 读取设置("sj1") = "" 则
                保存设置("sj1",整数到文本(取日(取现行时间())))
                弹出提示("分享成功")
        否则如果 整数到文本(取日(取现行时间())) = 读取设置("sj1") 则
                弹出提示("今天分享过了,明天再分享噢~~")
        否则如果 整数到文本(取日(取现行时间())) <> 读取设置("sj1") 则
                保存设置("sj1",整数到文本(取日(取现行时间())))
                弹出提示("分享成功")
        结束 如果
结束 事件

qq8945051q 发表于 2019-2-4 00:05:47

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

psxiep 发表于 2019-2-4 09:03:36

收藏一下，感觉很好用
页: [1]
查看完整版本: 100积分求一日分享一次的源码例子