作家
登录

脚本写的IE右键助手

作者: 来源:www.28hudong.com 2013-03-30 04:07:17 阅读 我要评论

下载地址:脚本文件 //原作者:张三疯 //功能改进:海娃(51windows) //http://www.51windows.Net //设置文本保存的默认目录,注意:程序不能创建二级目录 var fdir="D:\\MyCode"; var fsdir=fdir.replace(/\\/g,"\"); var fdrive = fdir.substring(0,1); var fsubdir = fdir.substring(4,fdir.length); //以下内容不需更改 var fso, d, fl, fn, fo,foo,fs,fss,windir, WSHShell,fw,fww; fso = new ActiveXObject("Scripting.FileSystemObject"); d = fso.GetDrive(fdrive); WSHShell = WScript.CreateObject("WScript.Shell"); var errorChar=/(/|:|*|?|"|||)/; //如果没有指定的驱动器,或者驱动器类型不是硬盘,或者目录名包含非法字符.则弹出错误信息 if (!fso.DriveExists(fdrive) || d.DriveType!=2 || errorChar.test(fsubdir)) {WSHShell.Popup("文本保存目录错误,请重新设置文本保存目录.");} else { if (!fso.FolderExists(fsdir)) {fso.CreateFolder(fsdir);} windir=fso.GetSpecialFolder(0); fn=windir+"\savetext.htm"; fl = fso.CreateTextFile(fn,true); fl.WriteLine(''); fl.Close(); fo= windir+"\openfolder.htm"; foo = fso.CreateTextFile(fo,true); foo.WriteLine(''); foo.Close(); fw= windir+"\51windows.htm"; fww = fso.CreateTextFile(fw,true); fww.WriteLine(''); fww.Close(); var fb,fbb; fb= windir+"\blueidea.htm"; fbb = fso.CreateTextFile(fb,true); fbb.WriteLine(''); fbb.Close(); var fc,fbc; fc= windir+"\csdn.htm"; fcc = fso.CreateTextFile(fc,true); fcc.WriteLine(''); fcc.Close(); fs=windir+"\google.htm"; fss = fso.CreateTextFile(fs,true); fss.WriteLine(''); fss.Close(); fu=windir+"\link.htm"; fuu = fso.CreateTextFile(fu,true); fuu.WriteLine(''); fuu.Close(); WSHShell.RegWrite("HKCU\Software\Microsoft\Internet Explorer\MenuExt\打开代码文件夹(&Z)\",fo); WSHShell.RegWrite("HKCU\Software\Microsoft\Internet Explorer\MenuExt\51windows.Net(&Q)\",fw); WSHShell.RegWrite("HKCU\Software\Microsoft\Internet Explorer\MenuExt\CSDN(&C)\",fc); WSHShell.RegWrite("HKCU\Software\Microsoft\Internet Explorer\MenuExt\蓝色理想(&B)\",fb); WSHShell.RegWrite("HKCU\Software\Microsoft\Internet Explorer\MenuExt\保存所选文本(&S)\",fn); WSHShell.RegWrite("HKCU\Software\Microsoft\Internet Explorer\MenuExt\打开网址(&U)\",fu); WSHShell.RegWrite("HKCU\Software\Microsoft\Internet Explorer\MenuExt\Google搜索\",fs); WSHShell.Popup("SaveText 安装成功!!!n默认的文本保存目录为 " + fsdir); } [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]安装方法:下载到本地,双击,如果安装成功,系统会弹出成功的对话框!功能简介:1、右键加入几个网站的链接2、可以打开 没有链接的网址3、选定一段文本后,可以保存,并将网页地址记录4、选定几个文字后,在google上搜索可能存在的问题:程序会自动在D盘建立文件夹Mycode,如果你的电脑只有一个分区,请改一下,当然你也可以改为其它的盘上!程序会改动注册表,一些软件可能会有“病毒”信息提示!这样你可以暂时关闭程序来安装!如果不再想用这些功能,请在注册表中删除!在运行中输入:regedit找到[HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMenuExt把相关的信息删除! 卸载文件 WSHShell = WScript.CreateObject("WScript.Shell"); try{ WSHShell.RegDelete("HKCU\Software\Microsoft\Internet Explorer\MenuExt\打开代码文件夹(&Z)\"); WSHShell.RegDelete("HKCU\Software\Microsoft\Internet Explorer\MenuExt\51windows.Net(&Q)\"); WSHShell.RegDelete("HKCU\Software\Microsoft\Internet Explorer\MenuExt\CSDN(&C)\"); WSHShell.RegDelete("HKCU\Software\Microsoft\Internet Explorer\MenuExt\蓝色理想(&B)\"); WSHShell.RegDelete("HKCU\Software\Microsoft\Internet Explorer\MenuExt\保存所选文本(&S)\"); WSHShell.RegDelete("HKCU\Software\Microsoft\Internet Explorer\MenuExt\打开网址(&U)\"); WSHShell.RegDelete("HKCU\Software\Microsoft\Internet Explorer\MenuExt\Google搜索\"); uninstalled = true } catch(e){ } WSHShell.Popup("删除安装成功,请打开一个新的IE窗口查看") [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行] 图示:

  推荐阅读

  [JS]点出统计器

ff   默认不让改 status opera9 测试通过 ie6   测试通过 这东西是给统计部门用的,分析用户习惯以改良网站布局。 只是写着玩的小东西,所以很多地方不太理想。 save() 方法是保存记录的,没仔细做,应该再加>>>详细阅读


本文标题:脚本写的IE右键助手

地址:http://www.17bianji.com/kaifa2/JS/31661.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)