跟IE签定协议

  
   这个是我很久以前看过的了见笑了~.曾经放在了我以前的博客上...所以说...今天搬过来咯~ 

   *^_^*

●什么是协议?
在IE浏览器的地址栏中,我们能够输入什么?[url]http://cince.blog.51cto.com[/url]打开Cince的博客;mailto:[email protected]启动默认电邮给我发邮件.输入tencent://message/?uin=312926221,IE将会启动QQ然后打开聊天窗口.其它的还有:[url]ftp://..[url]https://..[/url][/url]

但是要是我们输入run:word会出现什么呢?

出现了错误提示:无法显该页

为什么会这样呢?

其实在这其中.你要和IE签定一个协议才可以用run:word

●签订协议
那么怎么签订呢? 跟着我一起来做做吧:

打开记事本,给它取名为run:

Windows Registry Editor Version 7.00
[HKEY_CLASSES_ROOT\run]
"URL Protocol"=""
@=" URL:run Protocol"
[HKEY_CLASSES_ROOT\run\DefaultIcon]
[HKEY_CLASSES_ROOT\run\shell]
@=""
[HKEY_CLASSES_ROOT\run\shell\open]
@=""
[HKEY_CLASSES_ROOT\run\shell\open\command]
@="wscript.exe C:\\run.vbs %1"

 

将上面的代码保存为run.reg,然后双击它.导入注册表
(其实run只是run:word中的run你可以更改为其它的像这样cince:word.只要把相对的记事本中的run替换成cince就行了)
●履行协议:
打开记事本:

Dim strCommand,strArgument
Set WshShell=WScript.Createobject("WScript.shell")
strArgument=WScript.Arguments(0)
strCommand=LCase(Right(strArgument,Len(strArgument)-InStr(strArgument,":")))
Select Case strCommand
   Case "word"
       WshShell.Run"winword.exe"////打开word
   Case "music"
       WshShell.Run"wmplayer.exe"////打开windows media player
   Case "shut"
       WshShell.Run"shutdown -s -t 10"////10秒关机指令
   Case "Dev"
       WshShell.Run"Dev-C++"////打开C++编译器
   ...(像上面那样可以加自已想要启动的程序)

End Select

 

写完后.保存为C:\run.vbs就可以了

●撕毁协议:

运行regedit.找到[HKEY_CLASS_ROOT]分支.删除下面的run整项,之后再找到让IE履行的文件(如本文中的C:\run.vbs删除它就行了

本文出自 “鸡蛋仔” 博客，谢绝转载！