.版本 2
.支持库 xplib
.支持库 iext
.支持库 EThread
.支持库 iext5
.支持库 TrayIcon
.支持库 iext3
.程序集 窗口程序集1
.程序集变量 hNotify, 整数型
.程序集变量 hKeyx, 整数型
.程序集变量 dwRes, 整数型
.子程序 __启动窗口_创建完毕
XP风格 (1)
置外形图片 (#图片1, 16744703)
底图 = #图片1
.如果 (读配置项 (取运行目录 () + “\system.ini”, “system”, “suoding”, ) = “0”)
图片框4.图片 = #锁定1
透明标签2.标题 = “已锁定”
透明标签2.文本颜色 = #墨绿
透明标签3.标题 = “主页锁定已开启,可以有效防止恶意程序篡改您的主页。”
透明标签3.文本颜色 = #灰绿
按钮2.标题 = “解锁”
锁定主页.可视 = 假
.否则
图片框4.图片 = #锁定2
透明标签2.标题 = “未锁定”
透明标签2.文本颜色 = #红色
透明标签3.标题 = “您的IE主页未锁定,容易被恶意程序篡改,强烈建议立即锁定。”
透明标签3.文本颜色 = #红色
按钮2.标题 = “锁定”
解锁主页.可视 = 假
.如果结束
_监视注册表 ()
原主页 = 读配置项 (取运行目录 () + “\system.ini”, “system”, “zhuye”, )
编辑框_当前主页.内容 = 取文本注册项 (3, “Software\Microsoft\Internet Explorer\Main\Start Page”, )
.如果真 (编辑框_当前主页.内容 ≠ 读配置项 (取运行目录 () + “\system.ini”, “system”, “zhuye”, ))
.如果真 (原主页 ≠ “”)
.如果 (信息框 (“主页被恶意篡改,是否修复?”, 4, ) = 5)
写注册项 (3, “Software\Microsoft\Internet Explorer\Main\Start Page”, 原主页)
.否则
标签1.标题 = “危险”
标签1.文本颜色 = #红色
.如果结束
写配置项 (取运行目录 () + “\system.ini”, “system”, “js”, 到文本 (到整数 (读配置项 (取运行目录 () + “\system.ini”, “system”, “js”, )) + 1))
.如果真结束
.如果真结束
.如果 (按钮2.标题 = “解锁”)
.否则
.如果真 (信息框 (“注册表拦截服务未开启!是否开启?”, 4, ) = 5)
信息框 (“注册表拦截服务开启成功!”, 64, )
_按钮2_被单击 ()
.如果真结束
.如果结束
.如果 (编辑框_当前主页.内容 ≠ “about:blank”)
单选框_自定义.选中 = 真
组合框1.禁止 = 假
组合框1.内容 = 编辑框_当前主页.内容
.否则
单选框_空白页.选中 = 真
组合框1.禁止 = 真
.如果结束
标签_拦截次数.标题 = 读配置项 (取运行目录 () + “\system.ini”, “system”, “js”, )
.如果 (读配置项 (取运行目录 () + “\system.ini”, “system”, “run”, ) = “0” 或 读配置项 (取运行目录 () + “\system.ini”, “system”, “run”, ) = “”)
开机自启动.标题 = “开机自启动”
.否则
开机自启动.标题 = “取消开机启动”
.如果结束
_图形按钮1_被单击 ()
.子程序 _监视注册表
hNotify = CreateEvent (0, 假, 真, “registrynotify”)
.判断开始 (hNotify = 0)
信息框 (“创建事件失败”, 0, )
返回 ()
.默认
.判断结束
.判断开始 (RegOpenKeyEx (#HKEY_CURRENT_USER, “Software\Microsoft\Internet Explorer\Main”, 0, #KEY_NOTIFY, hKeyx) ≠ 0)
CloseHandle (hNotify)
信息框 (“打开注册表失败!”, 0, )
返回 ()
.默认
.判断结束
.判断开始 (RegNotifyChangeKeyValue (hKeyx, 真, #REG_NOTIFY_CHANGE_NAME + #REG_NOTIFY_CHANGE_LAST_SET, hNotify, 真) ≠ 0)
CloseHandle (hNotify)
RegCloseKey (hKeyx)
信息框 (“监视注册表失败!”, 0, )
返回 ()
.默认
.判断结束
启动线程 (&_子程序1, ) ' 一定要用线程,否则程序会假死,直到事件发生或超时
' dwRes = WaitForSingleObject (hNotify, 60 × 1000)
.判断开始断 (dwRes = 0)
' 信息框 (“注册表被改变!”, 0, )
' CloseHandle (hNotify)
' RegCloseKey (hKeyx)
.默认
.判断结束
.子程序 _子程序1
.判断循环首 (真) ' 开始监视直到事件发生
dwRes = WaitForSingleObject (hNotify, 1)
.判断开始 (dwRes = #WAIT_OBJECT_0)
.如果真 (按钮2.标题 = “解锁”)
载入 (窗口_弹出, _启动窗口, 真)
.如果真结束
跳出循环 ()
.默认
.判断结束
.判断开始 (dwRes = #WAIT_ABANDONED)
信息框 (“错误”, 0, )
跳出循环 ()
.默认
.判断结束
处理事件 ()
.判断循环尾 ()
CloseHandle (hNotify)
RegCloseKey (hKeyx)
.子程序 _图形按钮1_被单击
_启动窗口.可视 = 假
' _启动窗口.位置 = 2
气球提示框1.弹出提示框 (托盘图标1.图标横向位置, 托盘图标1.图标纵向位置, “金盾护航,为您上网保驾护航!”, -1, 真)
.子程序 _图形按钮2_被单击
_图形按钮1_被单击 ()
.子程序 _透明标签1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
_启动窗口.发送信息 (161, 2, 0)
.子程序 _单选框_自定义_被单击
组合框1.禁止 = 假
.子程序 _单选框_空白页_被单击
组合框1.禁止 = 真
.子程序 _按钮1_被单击
.如果 (单选框_空白页.选中 = 真)
写配置项 (取运行目录 () + “\system.ini”, “system”, “dxk”, “0”)
写配置项 (取运行目录 () + “\system.ini”, “system”, “zhuye”, “about:blank”)
写注册项 (3, “Software\Microsoft\Internet Explorer\Main\Start Page”, “about:blank”)
编辑框_当前主页.内容 = 取文本注册项 (3, “Software\Microsoft\Internet Explorer\Main\Start Page”, )
.否则
写配置项 (取运行目录 () + “\system.ini”, “system”, “dxk”, “1”)
写配置项 (取运行目录 () + “\system.ini”, “system”, “zhuye”, 组合框1.内容)
写注册项 (3, “Software\Microsoft\Internet Explorer\Main\Start Page”, 组合框1.内容)
编辑框_当前主页.内容 = 取文本注册项 (3, “Software\Microsoft\Internet Explorer\Main\Start Page”, )
.如果结束
.子程序 消息框, 整数型, , 返回值:-1、失败; 0、#确认钮; 1、#取消钮; 2、#放弃钮; 3、#重试钮; 4、#忽略钮; 5、#是钮; 6、#否钮。
.参数 提示信息, 文本型, 可空, 提示信息 = “”
.参数 按钮值, 整数型, 可空, 按钮值 = 0
.参数 窗口标题, 文本型, 可空, 窗口标题 = “”
.参数 窗口句柄, 整数型, 可空, 需要弹出的最上面一个窗口的句柄,为空时自动取启动窗口.
.局部变量 返回值, 整数型
.如果真 (是否为空 (窗口句柄) = 真)
窗口句柄 = _启动窗口.取窗口句柄 ()
.如果真结束
.如果真 (是否为空 (窗口标题) = 真)
窗口标题 = “信息”
.如果真结束
返回值 = MessageBox (窗口句柄, 提示信息, 窗口标题, 按钮值)
' 易语言信息框返回值: 0、#确认钮; 1、#取消钮; 2、#放弃钮; 3、#重试钮; 4、#忽略钮; 5、#是钮; 6、#否钮。
' DLL信息框返回值: 1、#确认钮; 2、#取消钮; 3、#放弃钮; 4、#重试钮; 5、#忽略钮; 6、#是钮; 7、#否钮。
返回值 = 返回值 - 1
返回 (返回值)
.子程序 _按钮2_被单击
.如果 (按钮2.标题 = “锁定”)
按钮2.标题 = “解锁”
写配置项 (取运行目录 () + “\system.ini”, “system”, “suoding”, “0”)
.否则
按钮2.标题 = “锁定”
写配置项 (取运行目录 () + “\system.ini”, “system”, “suoding”, “1”)
.如果结束
_监视注册表 ()
.如果 (读配置项 (取运行目录 () + “\system.ini”, “system”, “suoding”, ) = “0”)
图片框4.图片 = #锁定1
透明标签2.标题 = “已锁定”
透明标签2.文本颜色 = #墨绿
透明标签3.标题 = “主页锁定已开启,可以有效防止恶意程序篡改您的主页。”
透明标签3.文本颜色 = #灰绿
按钮2.标题 = “解锁”
.否则
图片框4.图片 = #锁定2
透明标签2.标题 = “未锁定”
透明标签2.文本颜色 = #红色
透明标签3.标题 = “您的IE主页未锁定,容易被恶意程序篡改,强烈建议立即锁定。”
透明标签3.文本颜色 = #红色
按钮2.标题 = “锁定”
.如果结束
.子程序 _按钮3_被单击
系统修复 ()
.子程序 系统修复
.如果真 (选择框1.选中 = 真)
修复administrator账户消失故障 ()
.如果真结束
.如果真 (选择框2.选中 = 真)
修复打不开磁盘 ()
.如果真结束
.如果真 (选择框3.选中 = 真)
修复打不开文件夹 ()
.如果真结束
.如果真 (选择框4.选中 = 真)
修复关不了机 ()
.如果真结束
.如果真 (选择框5.选中 = 真)
修复启动项没有输入法 ()
.如果真结束
.如果真 (选择框6.选中 = 真)
修复网页中看不到验证码 ()
.如果真结束
.如果真 (选择框7.选中 = 真)
修复系统小喇叭 ()
.如果真结束
.如果真 (选择框8.选中 = 真)
修复一进系统就自动注销 ()
.如果真结束
信息框 (“系统修复完成!”, 64, )
.子程序 系统设置
.如果真 (选择框9.选中 = 真)
禁止在开始菜单使用鼠标右键及拖放 ()
.如果真结束
.如果真 (选择框10.选中 = 真)
禁止任务栏右键弹出菜单 ()
.如果真结束
.如果真 (选择框11.选中 = 真)
禁止数据光盘自动运行 ()
.如果真结束
.如果真 (选择框12.选中 = 真)
关闭硬盘各分区的共享 ()
.如果真结束
.如果真 (选择框13.选中 = 真)
关闭空用户连接IPC ()
.如果真结束
.如果真 (选择框14.选中 = 真)
关闭开机自动检测 ()
.如果真结束
.如果真 (选择框15.选中 = 真)
关闭窗口动画效果 ()
.如果真结束
.如果真 (选择框16.选中 = 真)
关闭admin共享 ()
.如果真结束
信息框 (“系统设置完成!”, 64, )
.子程序 系统优化
.如果真 (选择框17.选中 = 真)
优化缩短关闭程序等待时间 ()
.如果真结束
.如果真 (选择框18.选中 = 真)
优化加快窗口显示速度 ()
.如果真结束
.如果真 (选择框19.选中 = 真)
优化缩短关闭程序等待时间 ()
.如果真结束
.如果真 (选择框20.选中 = 真)
优化加快菜单显示速度 ()
.如果真结束
.如果真 (选择框21.选中 = 真)
优化加快WindowsXP的启动 ()
.如果真结束
.如果真 (选择框22.选中 = 真)
优化关闭程序时仅等待1秒 ()
.如果真结束
.如果真 (选择框23.选中 = 真)
优化改变菜单显示的速度 ()
.如果真结束
.如果真 (选择框24.选中 = 真)
优化等待时间 ()
.如果真结束
信息框 (“系统优化完成!”, 64, )
.子程序 _按钮5_被单击
系统优化 ()
.子程序 _按钮4_被单击
系统设置 ()
.子程序 _超级按钮1_被单击
高级选择夹1.现行子夹 = 0
.子程序 _超级按钮2_被单击
高级选择夹1.现行子夹 = 1
.子程序 _超级按钮3_被单击
高级选择夹1.现行子夹 = 2
.子程序 _超级按钮4_被单击
高级选择夹1.现行子夹 = 3
.子程序 _显示主窗口_被选择
_启动窗口.可视 = 真
_启动窗口.位置 = 1
.子程序 _锁定主页_被选择
_按钮2_被单击 ()
解锁主页.可视 = 真
锁定主页.可视 = 假
.子程序 _解锁主页_被选择
_按钮2_被单击 ()
解锁主页.可视 = 假
锁定主页.可视 = 真
.子程序 _退出程序_被选择
结束 ()
.子程序 _开机自启动_被选择
.如果 (开机自启动.标题 = “取消开机启动”)
开机自启动.标题 = “开机自启动”
写配置项 (取运行目录 () + “\system.ini”, “system”, “run”, “0”)
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Run\金盾护航”, “”)
.否则
开机自启动.标题 = “取消开机启动”
写配置项 (取运行目录 () + “\system.ini”, “system”, “run”, “1”)
写注册项 (3, “Software\Microsoft\Windows\CurrentVersion\Run\金盾护航”, 取运行目录 () + “\金盾护航.exe”)
.如果结束
.子程序 _托盘图标1_托盘图标被右击
弹出菜单 (右键菜单, 托盘图标1.图标横向位置, 托盘图标1.图标纵向位置)
.子程序 _托盘图标1_托盘图标被单击
_启动窗口.可视 = 真
_启动窗口.位置 = 1
.子程序 _按钮6_被单击
载入 (窗口_弹出, _启动窗口, 假)
.子程序 __启动窗口_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
编辑框_当前主页.内容 = 取文本注册项 (3, “Software\Microsoft\Internet Explorer\Main\Start Page”, )