免费型小精灵去广告自删除所有文件（按键精灵）

其实就十几行代码，没什么技术含量，只是希望能给大家提供一些思路，那个广告太烦了，我想给同学用用我的程序都不敢，所以出此下策~~~~不过要设置小精灵0秒后运行，还有就是空文件夹plugin删不掉，郁闷中，会的话告诉我一声~~~~
以后还会陆续学习共享一些方法，顶我是我前进的动力，如果我的帖子再给埋了，我就真的没动力了。谢谢，O(∩_∩)O哈哈~

//小精灵的窗口句柄是#32770，忽略标题

Plugin Hwnd = Window.Find("#32770", 0)

//可恶的广告句柄父句柄居然不是#32770，我搞了好长时间才知道是“ 0”，不加引号的0是忽略也可以

Plugin HwndEx = Window.FindEx("0", 0, "AfxFrameOrView42", 0)

Plugin Window.Hide(HwndEx)

//试了通过句柄关闭窗口及通过强杀进程都会把主程序关掉，看来是同一个进程的，连ALT+F4都不行，郁闷，只能能把窗口最小化

Rem Plugin Window.Top(HwndEx, 0)

Rem KeyDown 18,1

Rem KeyPress 115,1

Rem KeyUp 18,1

Rem Plugin Window.Size(HwndEx, 0, 0)

Rem Plugin Memory.SetProcessLive(Hwnd, 4)

Rem Plugin Memory.SetProcessLive(HwndEx, 1)

Rem Plugin Memory.TerminateProc(HwndEx)

//获取小精灵进程名字（即是窗口名字）

Plugin Text = Window.GetText(Hwnd)

//清除程序插件生成文件

Dim fso

const txt="delete.bat"

set fso=CreateObject("Scripting.FileSystemObject")

file=fso.FileExists(txt)

const forappending=8

//判断是否存在delete.bat

If file=0

//否，第一次使用生成delete.bat文件

set file1=fso.createtextfile(txt,false)

EndIf

//以写方式打开delete.bat，写入bat命令

set file1=fso.opentextfile(txt,ForAppending)

//写入删除小精灵进程的命令

file1.writeline("taskkill /f /IM "&Text& ".exe")

//写入删除小精灵.exe及相关插件生成文件的命令

file1.writeline("del /s *.* /q")

file1.writeline("rd /s /q")

file1.Close

RunApp("delete.bat")