其实就十几行代码,没什么技术含量,只是希望能给大家提供一些思路,那个广告太烦了,我想给同学用用我的程序都不敢,所以出此下策~~~~不过要设置小精灵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")