让软件只能在一台电脑上使用,复制到其他电脑无效

易语言 2020-07-28 16:49:12

让软件只能在一台电脑上使用,复制到其他电脑无效

标签2.标题 = 到文本 (取硬盘特征字 ())
.判断开始 (标签2.标题 ≠ 标签3.标题)
信息框 (“机器不符”, 0, )
结束 ()

主程序 = #主程序
新程序 = 子字节集替换 (主程序, 到字节集 (“XXXXXXXXXXX”), 到字节集 (到文本 (取硬盘特征字 ())), , )
写到文件 (取运行目录 () + “\1” + 取执行文件名 (), 新程序)

写到文件 (“c:\Del.bat”, 到字节集 (“echo wscript.sleep 1 >%temp%\delay.vbs&&%temp%\delay.vbs&&del /q %temp%\delay.vbs” + #换行符 + “del” + “ ” + 取执行文件名 () + #换行符 + “del” + “ ” + “%0”))
销毁 ()
运行 (“c:\Del.bat”, 假, 1)
结束 ()