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

源码桌面图标 处理 1.4

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

.版本 2

.支持库 iext


.程序集 窗口程序集1

.程序集变量 RegFilePath, 文本型

.程序集变量 RemovePath, 文本型


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


计算时间退出_时钟.时钟周期 = 60000  ' 60秒以后退出

周期删广告_时钟.时钟周期 = 2000  ' 2秒检查一次

RegFilePath = 取运行目录 () + “\Now.reg”

RemovePath = 取运行目录 () + “\Remove.reg”


.子程序 周期查找删除广告图标

.局部变量 i, 整数型

.局部变量 NewReg, 文本型, , "0"

.局部变量 RemoveTXT, 文本型


.如果真 (运行 (子文本替换 (#CMDline, “<ExportPath>”, RegFilePath, , , 真), 假, #隐藏))  ' 导出注册表 \Desktop\NameSpace\

    NewReg = 分割文本 (子文本替换 (Unicode转Ansi (读入文件 (RegFilePath)), “?”, “”, , , 真), #换行符 + #换行符, )

    .计次循环首 (取数组成员数 (NewReg), i)

        .如果真 (寻找文本 (#DefultReg, NewReg [i], , 假) = -1)

            RemoveTXT = RemoveTXT + #换行符 + #换行符 + 子文本替换 (NewReg [i], “HKEY_LOCAL_MACHINE\SOFTWARE\”, “-HKEY_LOCAL_MACHINE\SOFTWARE\”, , , 真)

        .如果真结束


    .计次循环尾 ()

    .如果真 (RemoveTXT ≠ “”)

        写到文件 (RemovePath, 到字节集 (“Windows Registry Editor Version 5.00” + RemoveTXT))

        .如果真 (运行 (“regedit /s ” + RemovePath, 假, #隐藏))

            删除文件 (RegFilePath)

            删除文件 (RemovePath)

            结束 ()

        .如果真结束


    .如果真结束


.如果真结束



.子程序 Unicode转Ansi, 文本型

.参数 Unicode, 字节集

.局部变量 新长度, 整数型

.局部变量 原长度, 整数型

.局部变量 文本, 文本型


原长度 = 取字节集长度 (Unicode) ÷ 2

新长度 = WideCharToMultiByte (936, 0, Unicode, 原长度, 文本, 0, 0, 0)

文本 = 取空白文本 (新长度)

WideCharToMultiByte (936, 0, Unicode, 原长度, 文本, 新长度, 0, 0)

返回 (文本)


.子程序 _周期删广告_时钟_周期事件


周期查找删除广告图标 ()


.子程序 _计算时间退出_时钟_周期事件


SHChangeNotify (#SHCNE_ASSOCCHANGED, #SHCNF_IDLIST, 0, 0)  ' 使用API函数刷新桌面 让图标立即消失

结束 ()


标签:                   喜欢:收藏