脚本写的IE右键助手- Javascript - 软晨网（RuanChen.com）

当前位置: 首页 > 图文教程 > 网络编程 > Javascript > 脚本写的IE右键助手

Javascript: 用Javascript 实现的Dual listbox; javascript中的数组应用的一点发现; 我与Javascript 随笔（二）; 关于IP验证的一个例子; JS中关于对内存的释放问题[待续]; 用JScript实现公历到农历的日期转换; 判断输入字符串为颜色类型的最优方法; 日期控件还是看看这个吧; javascript版的日期输入控件; 可输入的select改进版本,同一页面可有多个list,调用接口简化; 数字金额转换汉字金额; 关于四舍五入的问题,toFixed(); Select的OnChange()事件; 关于javascript树形结构的编写问题; 将人民币数字转换成大写形式; 用JavaScript实现动画效果; javascript: 改变和控制显示的图片大小（保持比例，同时可限制高宽）; 超强幻灯片播放脚本（VBS）; HTML页面如何象asp一样接受参数; 数字日期转化为汉字日期格式...

No. « ‹ 12 13 14 15 › »

技术文章搜索

关键字

Javascript 中的脚本写的IE右键助手

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-10 浏览: 289 ::

收藏到网摘: n/a

自动设为主页 [原创]checkbox实现全选的多种方法不断更新

下载地址:脚本文件

点击运行可以看到效果:

//原作者：张三疯
//功能改进：海娃(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('<SCRIPT LANGUAGE = "JavaScript">');
fl.WriteLine('//原作者：张三疯');
fl.WriteLine('//功能改进：海娃(51windows)');
fl.WriteLine('//http://www.51windows.Net');
fl.WriteLine('var oWindow = window.external.menuArguments;');
fl.WriteLine('var oDocument = oWindow.document;');
fl.WriteLine('var oSelect = oDocument.selection;');
fl.WriteLine('var oSelectRange = oSelect.createRange();');
fl.WriteLine('var selectText = oSelectRange.text;');
fl.WriteLine('var tFilename;');
fl.WriteLine('var parentwin = external.menuArguments;');
fl.WriteLine('var doc = parentwin.document;');
fl.WriteLine('var url = doc.URL;');
fl.WriteLine('if(selectText.length == 0)');
fl.WriteLine('{');
fl.WriteLine(' alert("请先选择一段要保存的文字!");');
fl.WriteLine('}');
fl.WriteLine('else');
fl.WriteLine('{');
fl.WriteLine(' tFilename = (selectText.substring(0,20) + "_" + selectText.substring(selectText.length-6,selectText.length)).replace(/([<>\\*\\?\\|\\\\\\/\\|\\t\\n\\r\\t\\f":])/g,"");');
fl.WriteLine(' tFilename = prompt("你可以手工输入文件名(不要包含“\\/:*?<>”)\\n(加扩展名).",tFilename+".txt");');
fl.WriteLine(' if(tFilename!=null)');
fl.WriteLine(' {');
fl.WriteLine(' tFilename = tFilename.replace(/([<>\\*\\?\\|\\\\\\/\\|\\t\\n\\r\\t\\f":])/g,"");');
fl.WriteLine(' var fso, fl, fname;');
fl.WriteLine(' fso = new ActiveXObject("Scripting.FileSystemObject");');
fl.WriteLine(' fname="D:\\\\MyCode\\\\" +tFilename;');
fl.WriteLine(' if (fso.FileExists(fname))');
fl.WriteLine(' {');
fl.WriteLine(' if (confirm(fname + "\\n\\n已经存在,要替换它吗?"))');
fl.WriteLine(' {');
fl.WriteLine(' fl = fso.CreateTextFile(fname,true);');
fl.WriteLine(' fl.Write("");');
fl.WriteLine(' fl.Write("\\r\\n\\r\\n");');
fl.WriteLine(' fl.Write(selectText);');
fl.WriteLine(' fl.Close();');
fl.WriteLine(' alert(tFilename+" \\n\\n保存成功!");');
fl.WriteLine(' }');
fl.WriteLine(' }');
fl.WriteLine(' else');
fl.WriteLine(' {');
fl.WriteLine(' fl = fso.CreateTextFile(fname,true);');
fl.WriteLine(' fl.Write("");');
fl.WriteLine(' fl.Write("\\r\\n\\r\\n");');
fl.WriteLine(' fl.Write(selectText);');
fl.WriteLine(' fl.Close();');
fl.WriteLine(' alert(tFilename+" \\n\\n保存成功!");');
fl.WriteLine(' }');
fl.WriteLine(' }');
fl.WriteLine(' else');
fl.WriteLine(' {');
fl.WriteLine(' alert("操作取消")');
fl.WriteLine(' }');
fl.WriteLine('}');
fl.WriteLine('</SCRIPT>');
fl.Close();
fo= windir+"\\openfolder.htm";
foo = fso.CreateTextFile(fo,true);
foo.WriteLine('<SCRIPT LANGUAGE = "JavaScript">');
foo.WriteLine('var path="'+fdir+'";');
foo.WriteLine('window.open(path,"","")');
foo.WriteLine('</SCRIPT>');
foo.Close();
fw= windir+"\\51windows.htm";
fww = fso.CreateTextFile(fw,true);
fww.WriteLine('<SCRIPT LANGUAGE = "JavaScript">');
fww.WriteLine('window.open("http://www.51windows.Net","51windows","")');
fww.WriteLine('</SCRIPT>');
fww.Close();
var fb,fbb;
fb= windir+"\\blueidea.htm";
fbb = fso.CreateTextFile(fb,true);
fbb.WriteLine('<SCRIPT LANGUAGE = "JavaScript">');
fbb.WriteLine('window.open("http://www.blueidea.com/bbs","blueidea","")');
fbb.WriteLine('</SCRIPT>');
fbb.Close();
var fc,fbc;
fc= windir+"\\csdn.htm";
fcc = fso.CreateTextFile(fc,true);
fcc.WriteLine('<SCRIPT LANGUAGE = "JavaScript">');
fcc.WriteLine('window.open("http://expert.csdn.net","csdn","")');
fcc.WriteLine('</SCRIPT>');
fcc.Close();
fs=windir+"\\google.htm";
fss = fso.CreateTextFile(fs,true);
fss.WriteLine('<SCRIPT LANGUAGE = "JavaScript">');
fss.WriteLine('var oWindow = window.external.menuArguments;');
fss.WriteLine('var oDocument = oWindow.document;');
fss.WriteLine('var oSelect = oDocument.selection;');
fss.WriteLine('var oSelectRange = oSelect.createRange();');
fss.WriteLine('var selectText = oSelectRange.text;');
fss.WriteLine('var tFilename;');
fss.WriteLine('var parentwin = external.menuArguments;')
fss.WriteLine('var doc = parentwin.document;')
fss.WriteLine('var url = doc.URL;')
fss.WriteLine('q =url;')
fss.WriteLine('if (selectText.length == 0){');
fss.WriteLine(' alert("请先选择一段要搜索的文字!");}');
fss.WriteLine('else {');
fss.WriteLine('tFilename = selectText.substring(0,100);');
fss.WriteLine('var str = tFilename.replace(/<\[\^>\]\*>/g," ");');
fss.WriteLine('str = str.replace(/\\s\+/g, " ");');
fss.WriteLine('str = str.replace(/^\\s\*/,"");');
fss.WriteLine('str = str.replace(/\\s\*\$/,"");');
fss.WriteLine('if (str.indexOf(" ") != -1){str = \'"\' + str + \'"\';}');
fss.WriteLine('tFilename = str');
fss.WriteLine('oWindow.open("http://www.google.com/search?sourceid=navclient-menuext&q="+(tFilename)+"","","");');
fss.WriteLine('}');
fss.WriteLine('</SCRIPT>');
fss.Close();
fu=windir+"\\link.htm";
fuu = fso.CreateTextFile(fu,true);
fuu.WriteLine('<SCRIPT LANGUAGE = "JavaScript">');
fuu.WriteLine('var oWindow = window.external.menuArguments;');
fuu.WriteLine('var oDocument = oWindow.document;');
fuu.WriteLine('var oSelect = oDocument.selection;');
fuu.WriteLine('var oSelectRange = oSelect.createRange();');
fuu.WriteLine('var selectText = oSelectRange.text;');
fuu.WriteLine('var tFilename;');
fuu.WriteLine('var parentwin = external.menuArguments;')
fuu.WriteLine('var doc = parentwin.document;')
fuu.WriteLine('var url = doc.URL;')
fuu.WriteLine('q =url;')
fuu.WriteLine('if (selectText.length < 6){');
fuu.WriteLine(' alert("请先选择一个网址!");}');
fuu.WriteLine('else {');
fuu.WriteLine('tFilename = selectText.substring(0,100);');
fuu.WriteLine('tFilename = tFilename.replace(/\\n|\\r|\\f|"/g,"");');
fuu.WriteLine('var errorChar=/(\\\\|\\/|:|\\*|\\?|"|\\<|\\>|\\|)/');
fuu.WriteLine('if (selectText.substr(0,7).indexOf("://")==-1){tFilename="http://"+tFilename}');
fuu.WriteLine('else {}');
fuu.WriteLine('window.open(tFilename,"","");');
fuu.WriteLine('}');
fuu.WriteLine('</SCRIPT>');
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 全选提示:你可先修改部分代码,再按运行]

安装方法:下载到本地，双击，如果安装成功，系统会弹出成功的对话框！
功能简介:
1、右键加入几个网站的链接
2、可以打开　没有链接的网址
3、选定一段文本后，可以保存，并将网页地址记录
4、选定几个文字后，在google上搜索
可能存在的问题：
程序会自动在D盘建立文件夹Mycode，如果你的电脑只有一个分区，请改一下，当然你也可以改为其它的盘上！
程序会改动注册表，一些软件可能会有“病毒”信息提示！这样你可以暂时关闭程序来安装！
如果不再想用这些功能，请在注册表中删除！
在运行中输入:regedit
找到
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\
把相关的信息删除！

卸载文件

点击运行可以看到效果:
[Ctrl+A 全选提示:你可先修改部分代码,再按运行]

图示：

自动设为主页 [原创]checkbox实现全选的多种方法不断更新

Javascript 中的 脚本写的IE右键助手

评论 (0) All

Javascript 中的脚本写的IE右键助手