.版本 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函数刷新桌面 让图标立即消失
结束 ()