用e语言自已写个专杀吧[假熊猫的专杀e原码.rar]
.版本 2
.支持库 dp1
.支持库 iext
.支持库 EThread
.支持库 eAPI
.程序集 窗口程序集1
.程序集变量 m, 整数型
.程序集变量 vhead, 字节集
.程序集变量 vhead2, 字节集
.子程序 __启动窗口_创建完毕
vhead ＝ 解压数据 (#head)
vhead2 ＝ 解压数据 (#head2)
' 2783
.子程序 搜寻
.参数 目录, 文本型, , c:\
.局部变量 文件名, 文本型
.局部变量 nr, 字节集
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 ＝ 目录 ＋ “\”
.如果真结束
文件名 ＝ 寻找文件 (目录 ＋ “*.” ＋ “*”, )
.判断循环首 (文件名 ≠ “”)
nr ＝ 读入文件 (目录 ＋ 文件名)
编辑框1.内容 ＝ 目录 ＋ 文件名
.如果 (取字节集左边 (nr, 2783) ＝ vhead)
' Found!
InsertItem (目录 ＋ 文件名, 写到文件 (目录 ＋ 文件名, 取字节集中间 (nr, 2784, 取字节集长度 (nr) － 12793)))
.否则
.如果真 (取字节集左边 (nr, 45279) ＝ vhead2)
' Found 2!
InsertItem (目录 ＋ 文件名, 写到文件 (目录 ＋ 文件名, 取字节集中间 (nr, 45280, 取字节集长度 (nr) － 556718)))
.如果真结束
.如果结束
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
文件名 ＝ 寻找文件 (目录 ＋ “*.*”, #子目录)
.判断循环首 (文件名 ≠ “”)
.如果真 (取文本左边 (文件名, 1) ≠ “.”)
搜寻 (目录 ＋ 文件名)
.如果真结束
文件名 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()
.子程序 InsertItem
.参数 location, 文本型
.参数 bool, 逻辑型
超级列表框1.置标题 (超级列表框1.插入表项 (, 选择 (bool, “已清除”, “清除失败”), , , , ), 1, location)
.子程序 _按钮1_被单击
m ＝ 创建进入许可证 ()
按钮1.禁止 ＝ 真
进入许可区 (m)
启动线程 (&act, )
退出许可区 (m)
.子程序 act
超级列表框1.全部删除 ()
.如果真 (文件是否存在 (“C:\WINDOWS\system32\long.exe”))
终止进程 (“long.exe”)
InsertItem (“C:\WINDOWS\system32\long.exe”, 删除文件 (“C:\WINDOWS\system32\long.exe”))
.如果真结束
搜寻 (“C:\”)
按钮1.禁止 ＝ 假
删除进入许可证 (m) |
发表于 2007-3-2 12:31:35
楼主