求一个按钮点击次数的源码例子

大大怪将军

求大神帮忙{:soso_e154:}
怎么限制一个按钮每天点击的次数？{:soso_e154:}和软件每天打开的次数
{:soso_e154:}求一个例子源码

xiaoyu1986

Desktop.zip (4.61 KB, 下载次数: 23)

2014-6-19 02:39 上传

点击文件名下载附件 源码

补充内容 (2014-6-19 02:42):
读写注册表不行，可以用网络验证。不过要想PJ的话还是有办法的。
你可以使用Shielden加壳。那玩意儿想破J的话，很难。效果和你描述的一样，甚至于更牛X！！

xiaoyu1986

这么简单的玩意儿啊。。。
记录在变量里就行啦，变量为固定次数时结束软件啊。。

じMarcusジ

如果晚上没有满意答复明天我帮你写~

何为十一

现在帮你写 采纳吗？

无言士

来个例子给你~写注册表的

快看

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
上次时间	整数型
打开次数	整数型
点击次数	整数型
日期	文本型

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

读数据 ()
打开次数 ＝ 打开次数 ＋ 1
写配置项 (取运行目录 () ＋ “/jl.ini”, “记录”, “窗口”, 到文本 (打开次数))
如果真 (打开次数 ＞ 15)
调试输出 (“不能打开”, 打开次数)
信息框 (“已到限制”, 0, 到文本 (打开次数))
结束 ()
窗口1.标题 ＝ 到文本 (打开次数)
如果真 (点击次数 ＞ 15)
调试输出 (“不能点”, 点击次数)
按钮1.禁止 ＝ 真
按钮1.标题 ＝ 到文本 (点击次数)

写配置项 (取运行目录 () ＋ “/jl.ini”, “记录”, “时间”, 到文本 (日期))

子程序名	返回值类型	公开	备 注
读数据

变量名	类 型	静态	数组	备 注
时间	日期时间型
年	整数型
月	整数型
日	整数型

时间 ＝ 取现行时间 ()
年 ＝ 取年份 (时间)
月 ＝ 取月份 (时间)
日 ＝ 取日 (时间)
调试输出 (年, 月, 日)
日期 ＝ 到文本 (年) ＋ 到文本 (月) ＋ 到文本 (日)
调试输出 (日期)
上次时间 ＝ 到整数 (读配置项 (取运行目录 () ＋ “/jl.ini”, “记录”, “时间”, ))
如果真 (到整数 (日期) ≠ 上次时间)
打开次数 ＝ 0
点击次数 ＝ 0
写配置项 (取运行目录 () ＋ “/jl.ini”, “记录”, “按钮1”, 到文本 (点击次数))
写配置项 (取运行目录 () ＋ “/jl.ini”, “记录”, “窗口”, 到文本 (打开次数))
写配置项 (取运行目录 () ＋ “/jl.ini”, “记录”, “时间”, 到文本 (日期))

点击次数 ＝ 到整数 (读配置项 (取运行目录 () ＋ “/jl.ini”, “记录”, “按钮1”, ))
打开次数 ＝ 到整数 (读配置项 (取运行目录 () ＋ “/jl.ini”, “记录”, “窗口”, ))

子程序名	返回值类型	公开	备 注
_按钮1_被单击

调试输出 (点击次数)
调试输出 (“还能点”, 点击次数)
点击次数 ＝ 点击次数 ＋ 1
写配置项 (取运行目录 () ＋ “/jl.ini”, “记录”, “按钮1”, 到文本 (点击次数))
按钮1.标题 ＝ 到文本 (点击次数)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 上次时间, 整数型<br /> .程序集变量 打开次数, 整数型<br /> .程序集变量 点击次数, 整数型<br /> .程序集变量 日期, 文本型<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> 读数据 ()<br /> <br /> <br /> 打开次数 ＝ 打开次数 ＋ 1<br /> 写配置项 (取运行目录 () ＋ “/jl.ini”, “记录”, “窗口”, 到文本 (打开次数))<br /> .如果真 (打开次数 ＞ 15)<br />     调试输出 (“不能打开”, 打开次数)<br />     信息框 (“已到限制”, 0, 到文本 (打开次数))<br />     结束 ()<br /> .如果真结束<br /> 窗口1.标题 ＝ 到文本 (打开次数)<br /> <br /> <br /> <br /> .如果真 (点击次数 ＞ 15)<br />     调试输出 (“不能点”, 点击次数)<br />     按钮1.禁止 ＝ 真<br />     按钮1.标题 ＝ 到文本 (点击次数)<br /> .如果真结束<br /> <br /> <br /> <br /> <br /> 写配置项 (取运行目录 () ＋ “/jl.ini”, “记录”, “时间”, 到文本 (日期))<br /> <br /> .子程序 读数据<br /> .局部变量 时间, 日期时间型<br /> .局部变量 年, 整数型<br /> .局部变量 月, 整数型<br /> .局部变量 日, 整数型<br /> <br /> <br /> <br /> <br /> <br /> 时间 ＝ 取现行时间 ()<br /> 年 ＝ 取年份 (时间)<br /> 月 ＝ 取月份 (时间)<br /> 日 ＝ 取日 (时间)<br /> 调试输出 (年, 月, 日)<br /> 日期 ＝ 到文本 (年) ＋ 到文本 (月) ＋ 到文本 (日)<br /> 调试输出 (日期)<br /> <br /> <br /> 上次时间 ＝ 到整数 (读配置项 (取运行目录 () ＋ “/jl.ini”, “记录”, “时间”, ))<br /> <br /> .如果真 (到整数 (日期) ≠ 上次时间)<br />     打开次数 ＝ 0<br />     点击次数 ＝ 0<br />     写配置项 (取运行目录 () ＋ “/jl.ini”, “记录”, “按钮1”, 到文本 (点击次数))<br />     写配置项 (取运行目录 () ＋ “/jl.ini”, “记录”, “窗口”, 到文本 (打开次数))<br />     写配置项 (取运行目录 () ＋ “/jl.ini”, “记录”, “时间”, 到文本 (日期))<br /> .如果真结束<br /> <br /> <br /> <br /> 点击次数 ＝ 到整数 (读配置项 (取运行目录 () ＋ “/jl.ini”, “记录”, “按钮1”, ))<br /> 打开次数 ＝ 到整数 (读配置项 (取运行目录 () ＋ “/jl.ini”, “记录”, “窗口”, ))<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> <br /> <br /> <br /> <br /> 调试输出 (点击次数)<br /> 调试输出 (“还能点”, 点击次数)<br /> 点击次数 ＝ 点击次数 ＋ 1<br /> 写配置项 (取运行目录 () ＋ “/jl.ini”, “记录”, “按钮1”, 到文本 (点击次数))<br /> 按钮1.标题 ＝ 到文本 (点击次数)

补充内容 (2014-6-19 01:54):
写漏了个判断
在
_按钮1_被单击
的
点击次数 ＝ 点击次数 ＋ 1
前面加上

.版本 2

.如果真 (点击次数 ＞ 15)
    按钮1.禁止 ＝ 真
    按钮1.标题 ＝ 到文本 (点击次数)
.如果真结束

3319351

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
wjh
cs

' 可以在多个地方写入运行次数，并且互相比较检验，比如写注册表和程序未部追加信息等方法同时进行
如果 (文件是否存在 (取特定目录 (10) ＋ “text.exe”) ＝ 假)
复制文件 (取特定目录 (10) ＋ “notepad.exe”, 取特定目录 (10) ＋ “text.exe”)


wjh ＝ 打开文件 (取特定目录 (10) ＋ “text.exe”, , )
移动读写位置 (wjh, 1, 取文件长度 (wjh) － 1)
cs ＝ 到数值 (到文本 (读入字节集 (wjh, 1)))
如果 (cs ＝ 9)
信息框 (“试用次数已到期，请注册！”, #警告图标, “注册信息：”)
结束 ()
移到文件尾 (wjh)
标题 ＝ “近在眼前－次数限制例程－已运行次数：” ＋ 到文本 (cs) ＋ “ 剩余次数：” ＋ 到文本 (9 － cs)
插入字节集 (wjh, 到字节集 (到文本 (cs ＋ 1)))
关闭文件 (wjh)

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 wjh<br /> .局部变量 cs<br /> <br /> ' 可以在多个地方写入运行次数，并且互相比较检验，比如写注册表和程序未部追加信息等方法同时进行<br /> .如果 (文件是否存在 (取特定目录 (10) ＋ “text.exe”) ＝ 假)<br /> 复制文件 (取特定目录 (10) ＋ “notepad.exe”, 取特定目录 (10) ＋ “text.exe”)<br /> .否则<br /> <br /> .如果结束<br /> wjh ＝ 打开文件 (取特定目录 (10) ＋ “text.exe”, , )<br /> 移动读写位置 (wjh, 1, 取文件长度 (wjh) － 1)<br /> cs ＝ 到数值 (到文本 (读入字节集 (wjh, 1)))<br /> .如果 (cs ＝ 9)<br /> 信息框 (“试用次数已到期，请注册！”, #警告图标, “注册信息：”)<br /> 结束 ()<br /> .否则<br /> 移到文件尾 (wjh)<br /> 标题 ＝ “近在眼前－次数限制例程－已运行次数：” ＋ 到文本 (cs) ＋ “ 剩余次数：” ＋ 到文本 (9 － cs)<br /> 插入字节集 (wjh, 到字节集 (到文本 (cs ＋ 1)))<br /> 关闭文件 (wjh)

xiaoyu1986

简单易懂吗！！！{:soso_e120:}

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
a	整数型
b	整数型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

写注册项 (4, “SOFTWARE\cishi\jilu”, “1”)
a ＝ a ＋ 1
如果 (a ＝ 5)
信息框 (“使用超限”, 0, )
结束 ()

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

a ＝ 0
启动次数记录 ()

子程序名	返回值类型	公开	备 注
启动次数记录

b ＝ 到整数 (到文本 (新读注册项 (4, “SOFTWARE\cishi\jilu”)))
如果 (b ≥ 1)
b ＝ b ＋ 1
写注册项 (4, “SOFTWARE\cishi\jilu”, 到文本 (b))
如果 (b ＝ 5)
信息框 (“使用超限”, 0, )
结束 ()

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 a, 整数型<br /> .程序集变量 b, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 写注册项 (4, “SOFTWARE\cishi\jilu”, “1”)<br /> a ＝ a ＋ 1<br /> .如果 (a ＝ 5)<br /> 信息框 (“使用超限”, 0, )<br /> 结束 ()<br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> a ＝ 0<br /> 启动次数记录 ()<br /> <br /> .子程序 启动次数记录<br /> <br /> b ＝ 到整数 (到文本 (新读注册项 (4, “SOFTWARE\cishi\jilu”)))<br /> .如果 (b ≥ 1)<br /> b ＝ b ＋ 1<br /> 写注册项 (4, “SOFTWARE\cishi\jilu”, 到文本 (b))<br /> .如果 (b ＝ 5)<br /> 信息框 (“使用超限”, 0, )<br /> 结束 ()<br /> .否则<br /> <br /> .如果结束<br /> <br /> .否则<br /> <br /> .如果结束

3319351

源码附上。。。。。。