当前位置: 主页 > 百科 > 计算机编程 > 易语言源码 >
-14 Comments

金盾护航的源码

发布于:2016-07-04  |   作者:http://www.zxjsq.net  |   已聚集:人围观

.版本 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”, )


标签:                   喜欢:收藏