易语言 让自己程序在一台电脑只能使用一次

Question

易语言 让自己程序在一台电脑只能使用一次
要源码

Answer 1

以下为源码：

.子程序 __启动窗口_创建完毕

.如果 (取文本注册项 (#根类, “tsctlt\spesxca”, ) ＝ “a”)
结束 ()
.否则
写注册项 (#根类, “tsctlt\spesxca”, “a”)
.如果结束

Answer 2

最简单的方法：

写个子程序
__启动窗口_即将销毁

然后 写配置项(XXXX)代码自己查

然后写，创建完毕

读配置项（代码自己查）

我能帮的就这些了
不明白就hi我吧

Answer 3

.版本 2

.程序集 窗口程序集1
.程序集变量 事件句柄, 整数型

.子程序 __启动窗口_创建完毕

.如果 (打开事件同步对象 (2031619, 假, “myappname”) ≠ 0) ' "myappname"可以是任何文本，但是最好要长一点以保证和系统中已有其他事件对象的名称不相冲突。
销毁 ()
.否则
事件句柄 ＝ 创建事件同步对象 (0, 假, 假, “myappname”)
.如果结束

.子程序 __启动窗口_将被销毁

关闭同步事件对象 (事件句柄)

DLL:

.版本 2

.DLL命令 创建事件同步对象, 整数型, , "CreateEventA"
.参数 lpEventAttributes, 整数型
.参数 bManualReset, 逻辑型
.参数 bInitialState, 逻辑型
.参数 lpName, 文本型

.DLL命令 打开事件同步对象, 整数型, , "OpenEventA"
.参数 dwDesiredAccess, 整数型
.参数 bInheritHandle, 逻辑型
.参数 lpName, 文本型

.DLL命令 关闭同步事件对象, 整数型, , "CloseHandle"
.参数 hObject, 整数型

Answer 4

去官方论坛找个自杀例程....程序退出后自动删除自身...这个如何

Answer 5

在注册表留个记号

Answer 6

取机器码，一台机器一个机器码，再加个判断什么的。