|
楼主 |
发表于 2019-2-11 16:52:43
|
显示全部楼层
湖北省武汉市
我就用了 混沌模块 精易模块 zc宝模块
.版本 2
.支持库 shell
.支持库 iext
.子程序 _窗口_初始化_创建完毕
.局部变量 版本号, 文本型
.局部变量 属性版本, 文本型
.局部变量 processInformation, _PROCESS_BASIC_INFORMATION
.局部变量 hProcess, 整数型
.局部变量 szFileName, 文本型
.局部变量 释放路径, 文本型
VMP保护头 ()
_换肤_雅白_被选择 ()
可视 = 真
DeleteKey (“HKEY_CLASSES_ROOT\CLSID\{34AA1089-0C18-472C-A22A-55954C5E0242}”)
DeleteKey (“HKEY_CLASSES_ROOT\CLSID\{49FCED15-7F6B-3C90-BB11-DF2496046714}”)
DeleteKey (“HKEY_CLASSES_ROOT\CLSID\{5103FE5C-9E12-40E9-8C32-C87D5BA61AD5}”)
DeleteKey (“HKEY_CLASSES_ROOT\CLSID\{E7DC451F-5DB3-3BFB-876C-F59A02ECC5E8}”)
.如果真 (EnumRegKey (“HKEY_CLASSES_ROOT\CLSID\{34AA1089-0C18-472C-A22A-55954C5E0242}”) > 0)
返回 ()
.如果真结束
NtQueryInformationProcess (-1, #PROCESSBASICINFORMATION, processInformation, 24, 0)
hProcess = OpenProcess (#PROCESS_QUERY_INFORMATION, 假, processInformation.Reserved3)
szFileName = 取空白文本 (#MAX_SIZE)
GetProcessImageFileName (hProcess, szFileName, #MAX_SIZE)
CloseHandle (hProcess)
释放路径 = 取特定目录 (#我的文档) + “\ZCB_API.dll”
写到文件 (释放路径, #zc宝)
置文件属性 (释放路径, #隐藏文件)
.如果 (zc宝API模块初始化 (释放路径) = 假)
信息框 (“初始化端口错误!”, #错误图标, “梦雨提示:”, )
结束 ()
.否则
.如果结束
安全码 = “”
软件编号 = “”
软件版本 = 1
版本号 = API_cha询版本 (1)
属性版本 = API_cha询版本 (2)
.如果 (API_初始化 (安全码, 软件编号, 软件版本) = 1)
检测更新 ()
链接消息 ()
编辑框_zc邮箱地址.内容 = “@qq.com”
状态条_状态.置文本 (1, “初始化完成”)
.如果真 (读取界面配置 ())
账号登录 ()
.如果真结束
VMP保护尾 ()
.否则
信息框 (“初始化失败,当前版本号:” + 版本号 + “,辅Zhu版本:” + 属性版本, 0, “梦雨:”, )
VMP保护尾 ()
结束 ()
.如果结束
VMP保护尾 ()
|
|