转至繁体中文版　　　  | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告：     敏韬网|教学资源学习资料永久免费分享站！  [mintao  2008年9月2日]        
您现在的位置： 学习笔记 >> 图文教程 >> 软件开发 >> VB.NET程序 >> 正文
世界第一等-----无须安装WSH而执行VBS    热     ★★★★

世界第一等-----无须安装WSH而执行VBS

作者：闵涛 文章来源：闵涛的学习笔记 点击数：1973 更新时间：2009/4/23 16:37:59
                         世界第一等-----无须安装WSH而执行VBS                                      作者:李均宇  2002.12.23  EMAIL:E271828@163.NET  
     为了用代码创建快捷方式,可以用API,不过这实在太繁了.有无一种更方便的方式呢?我在浏览WIN98的系统文件夹时,在C:\WINDOWS\SAMPLE下找到了SHORTCUT.VBS,这个文件果然实现了这个功能.但是这个VBS要先装上WSH才能运行,而且更怪的事是若果再装上超级解霸2000,那么会把VBS文件和WSH的关联丢失,造成VBS无法运行.如果在程序中想运行VBS,就成了不那么顺利的事了.我查找了接近一百张光碟,结果发现介绍WSH的资料少之又少.
     为此我用了我以前自已开发的"影子目录及其浏览器"来辅助了.我先在未装WSH之前用"影子目录及其浏览器"来生成一个A文件,然后装上WSH,再用"影子目录及其浏览器"来生成一个B文件,然后比较这两个文件的不同,发现了多出几个分布在不同文件夹下的如下几个文件:Cscript.exe,Scrrun.dll,Wscript.exe,Wsh.inf,Wshext.dll,Wshom.ocx,Wshtcp.vxd
我把它们COPY到同一个"D:\重装系统省时省电省钱!!!\开始菜单和发送到\WSH\"文件夹下.为此我又作了一个REG.BAT如下:@echo off
c:\windows\system\regsvr32.exe  /s  D:\重装系统省时省电省钱!!!\开始菜单和发送到\WSH\Wshom.ocx
c:\windows\system\regsvr32.exe  /s  D:\重装系统省时省电省钱!!!\开始菜单和发送到\WSH\Wshext.dll
c:\windows\system\regsvr32.exe  /s  D:\重装系统省时省电省钱!!!\开始菜单和发送到\WSH\Wshtcp.vxd
c:\windows\system\regsvr32.exe  /s  D:\重装系统省时省电省钱!!!\开始菜单和发送到\WSH\Scrrun.dll
    在装WSH之前和之后我都生成一个REG文件,分别是NO_WSH.REG和YES_WSH.REG,于是我又用了一个我以前自已开发的"注册表分析器"来辅助了.我把前后两次的REG分别输入"注册表分析器",发现多出下面这些注册表项,于是我把它作成一个WIN98OK.REG文件如下:
REGEDIT4   [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Setup\OptionalComponents\WSH]
"Installed"="1"
[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Shell Extensions\Approved]
"{60254CA5-953B-11CF-8C96-00AA00B8708C}"="Windows Scripting Host 的外壳扩展"
[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows Scripting Host\Settings]
"DisplayLogo"="1"
[HKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\{EE09B103-97E0-11CF-978F-00A02463E06F}\InprocServer32]
@="C:\\WINDOWS\\SYSTEM\\scrrun.dll"
"ThreadingModel"="Both"
[HKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\{EE09B103-97E0-11CF-978F-00A02463E06F}\Implemented Categories\{7DD95801-9882-11CF-9FA9-00AA006C42C4}]
@=""
[HKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\{0D43FE01-F093-11CF-8940-00A0C9054228}]
@="Filesystem object"
[HKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\{0D43FE01-F093-11CF-8940-00A0C9054228}\InprocServer32]
@="C:\\WINDOWS\\SYSTEM\\scrrun.dll"
[HKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}]
@="Windows Scripting Host 的外壳对象"
[HKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}\InProcServer32]
@="C:\\WINDOWS\\SYSTEM\\wshom.ocx"
[HKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\{F935DC26-1CF0-11D0-ADB9-00C04FD58A0B}]
@="Windows Scripting Host 网络对象"
[HKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\{F935DC26-1CF0-11D0-ADB9-00C04FD58A0B}\InProcServer32]
@="C:\\WINDOWS\\SYSTEM\\wshom.ocx"
[HKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\{60254CA5-953B-11CF-8C96-00AA00B8708C}]
@="Windows Scripting Host 的外壳扩展"
[HKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\{60254CA5-953B-11CF-8C96-00AA00B8708C}\InProcServer32]
@="C:\\WINDOWS\\SYSTEM\\wshext.dll"
[HKEY_LOCAL_MACHINE\Software\CLASSES\TypeLib\{F935DC20-1CF0-11D0-ADB9-00C04FD58A0B}\1.0]
@="Microsoft Windows Scripting Host 对象型号 (V1.0)"
[HKEY_LOCAL_MACHINE\Software\CLASSES\TypeLib\{F935DC20-1CF0-11D0-ADB9-00C04FD58A0B}\1.0\0\win32]
@="C:\\WINDOWS\\SYSTEM\\wshom.ocx"
[HKEY_LOCAL_MACHINE\Software\CLASSES\TypeLib\{F935DC20-1CF0-11D0-ADB9-00C04FD58A0B}\1.0\HELPDIR]
@="C:\\WINDOWS\\HELP"
[HKEY_LOCAL_MACHINE\Software\CLASSES\TypeLib\{420B2830-E718-11CF-893D-00A0C9054228}\1.0\0\win32]
@="C:\\WINDOWS\\SYSTEM\\scrrun.dll"
[HKEY_LOCAL_MACHINE\Software\CLASSES\TypeLib\{420B2830-E718-11CF-893D-00A0C9054228}\1.0\HELPDIR]
@="C:\\WINDOWS\\SYSTEM"
[HKEY_LOCAL_MACHINE\Software\CLASSES\WScript.Shell]
@="Windows Scripting Host 的外壳对象"
[HKEY_LOCAL_MACHINE\Software\CLASSES\WScript.Shell.1]
@="Windows Scripting Host 的外壳对象"
[HKEY_LOCAL_MACHINE\Software\CLASSES\WScript.Shell.1\CurVer]
@="WScript.Shell.1"
[HKEY_LOCAL_MACHINE\Software\CLASSES\WScript.Network]
@="Windows Scripting Host 网络对象"
[HKEY_LOCAL_MACHINE\Software\CLASSES\WScript.Network.1]
@="Windows Scripting Host 网络对象"
[HKEY_LOCAL_MACHINE\Software\CLASSES\WScript.Network.1\CurVer]
@="WScript.Network.1"
[HKEY_LOCAL_MACHINE\Software\CLASSES\Scripting.FileSystemObject]
@="Scripting.FileSystemObject"
[HKEY_LOCAL_MACHINE\Software\CLASSES\.js]
@="JSFile"
[HKEY_LOCAL_MACHINE\Software\CLASSES\jsfile]
@="JScript 脚本文件"
[HKEY_LOCAL_MACHINE\Software\CLASSES\jsfile\DefaultIcon]
@="C:\\WINDOWS\\WScript.exe,3"
[HKEY_LOCAL_MACHINE\Software\CLASSES\jsfile\ScriptEngine]
@="JScript"
[HKEY_LOCAL_MACHINE\Software\CLASSES\jsfile\Shell\Open]
@="打开(&O)"
[HKEY_LOCAL_MACHINE\Software\CLASSES\jsfile\Shell\Open\Command]
@="C:\\WINDOWS\\WScript.exe \"%1\" %*"
[HKEY_LOCAL_MACHINE\Software\CLASSES\jsfile\Shell\Open2]
@="以 MS-DOS 提示打开(&W)"
[HKEY_LOCAL_MACHINE\Software\CLASSES\jsfile\Shell\Open2\Command]
@="C:\\WINDOWS\\COMMAND\\CScript.exe \"%1\" %*"
[HKEY_LOCAL_MACHINE\Software\CLASSES\jsfile\Shell\Edit]
@="编辑(&E)"
[HKEY_LOCAL_MACHINE\Software\CLASSES\jsfile\Shell\Edit\Command]
@="C:\\WINDOWS\\Notepad.exe %1"
[HKEY_LOCAL_MACHINE\Software\CLASSES\jsfile\Shell\Print]
@="打印(&P)"
[HKEY_LOCAL_MACHINE\Software\CLASSES\jsfile\Shell\Print\Command]
@="C:\\WINDOWS\\Notepad.exe /p %1"
[HKEY_LOCAL_MACHINE\Software\CLASSES\jsfile\ShellEx\PropertySheetHandlers\WSHProps]
@="{60254CA5-953B-11CF-8C96-00AA00B8708C}"
[HKEY_LOCAL_MACHINE\Software\CLASSES\.vbs]
@="VBSFile"
[HKEY_LOCAL_MACHINE\Software\CLASSES\vbsfile]
@="VBScript 脚本文件"
[HKEY_LOCAL_MACHINE\Software\CLASSES\vbsfile\shell\open]
@="打开(&O)"
[HKEY_LOCAL_MACHINE\Software\CLASSES\vbsfile\shell\open\command]
@="C:\\WINDOWS\\WScript.exe \"%1\" %*"
[HKEY_LOCAL_MACHINE\Software\CLASSES\vbsfile\shell\Open2]
@="以 MS-DOS 提示打开(&W)"
[HKEY_LOCAL_MACHINE\Software\CLASSES\vbsfile\shell\Open2\Command]
@="C:\\WINDOWS\\COMMAND\\CScript.exe \"%1\" %*"
[HKEY_LOCAL_MACHINE\Software\CLASSES\vbsfile\shell\Edit]
@="编辑(&E)"
[HKEY_LOCAL_MACHINE\Software\CLASSES\vbsfile\shell\Edit\Command]
@="C:\\WINDOWS\\Notepad.exe %1"
[HKEY_LOCAL_MACHINE\Software\CLASSES\vbsfile\shell\Print]
@="打印(&P)"
[HKEY_LOCAL_MACHINE\Software\CLASSES\vbsfile\shell\Print\Command]
@="C:\\WINDOWS\\Notepad.exe /p %1"
[HKEY_LOCAL_MACHINE\Software\CLASSES\vbsfile\DefaultIcon]
@="C:\\WINDOWS\\WScript.exe,2"
[HKEY_LOCAL_MACHINE\Software\CLASSES\vbsfile\ScriptEngine]
@="VBScript"
[HKEY_LOCAL_MACHINE\Software\CLASSES\vbsfile\ShellEx\PropertySheetHandlers\WSHProps]
@="{60254CA5-953B-11CF-8C96-00AA00B8708C}"
[HKEY_LOCAL_MACHINE\Software\CLASSES\.WSH]
@="WSHFile"
[HKEY_LOCAL_MACHINE\Software\CLASSES\WSHFile]
@="Windows Scripting Host 设置文件"
"IsShortcut"="Yes"
[HKEY_LOCAL_MACHINE\Software\CLASSES\WSHFile\DefaultIcon]
@="C:\\WINDOWS\\WScript.exe,1"
[HKEY_LOCAL_MACHINE\Software\CLASSES\WSHFile\Shell\Open]
@="打开(&O)"
[HKEY_LOCAL_MACHINE\Software\CLASSES\WSHFile\Shell\Open\Command]
@="C:\\WINDOWS\\WScript.exe \"%1\" %*"
[HKEY_LOCAL_MACHINE\Software\CLASSES\WSHFile\Shell\Open2]
@="以 MS-DOS 提示打开(&W)"
[HKEY_LOCAL_MACHINE\Software\CLASSES\WSHFile\Shell\Open2\Command]
@="C:\\WINDOWS\\COMMAND\\CScript.exe \"%1\" %*"
[HKEY_LOCAL_MACHINE\Software\CLASSES\WSHFile\ShellEx\PropertySheetHandlers\WSHProps]
@="{60254CA5-953B-11CF-8C96-00AA00B8708C}"
[HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\9]
  00,00,00,00,00,00,c8,46,00,00,00,00,00,00,b6,28,f7,bf,07,00,00,00,00,77,7e,\
"ViewView2"=hex:1c,00,00,00,04,00,00,00,00,00,09,00,00,00,30,00,00,00,00,00,01,\
[HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\StreamMRU]
"MRUListEx"=hex:09,00,00,00,5d,00,00,00,0a,00,00,00,86,00,00,00,4e,00,00,00,10,\
  00,00,00,64,00,00,00,b3,00,00,00,67,00,00,00,c2,00,00,00,b1,00,00,00,60,00,\
  00,00,12,00,00,00,2f,00,00,00,4d,00,00,00,22,00,00,00,5c,00,00,00,83,00,00,\
  00,37,00,00,00,7d,00,00,00,6c,00,00,00,62,00,00,00,5b,00,00,00,7f,00,00,00,\
  25,00,00,00,73,00,00,00,a5,00,00,00,b0,00,00,00,3f,00,00,00,79,00,00,00,50,\
  00,00,00,b2,00,00,00,53,00,00,00,5a,00,00,00,57,00,00,00,58,00,00,00,61,00,\
  00,00,c1,00,00,00,47,00,00,00,51,00,00,00,40,00,00,00,28,00,00,00,21,00,00,\
  00,26,00,00,00,43,00,00,00,0f,00,00,00,23,00,00,00,24,00,00,00,00,00,00,00,\
  44,00,00,00,88,00,00,00,97,00,00,00,30,00,00,00,13,00,00,00,0c,00,00,00,27,\
  00,00,00,4b,00,00,00,9c,00,00,00,1e,00,00,00,2a,00,00,00,07,00,00,00,b9,00,\
  00,00,46,00,00,00,31,00,00,00,a4,00,00,00,33,00,00,00,35,00,00,00,29,00,00,\
  00,48,00,00,00,38,00,00,00,3a,00,00,00,3d,00,00,00,49,00,00,00,2e,00,00,00,\
  b6,00,00,00,3c,00,00,00,78,00,00,00,2b,00,00,00,59,00,00,00,3b,00,00,00,ba,\
  00,00,00,2c,00,00,00,9b,00,00,00,5e,00,00,00,6b,00,00,00,6a,00,00,00,69,00,\
  00,00,68,00,00,00,93,00,00,00,20,00,00,00,98,00,00,00,15,00,00,00,1c,00,00,\
  00,bb,00,00,00,16,00,00,00,4c,00,00,00,39,00,00,00,02,00,00,00,41,00,00,00,\
  0b,00,00,00,5f,00,00,00,0d,00,00,00,04,00,00,00,01,00,00,00,c0,00,00,00,c7,\
  00,00,00,c5,00,00,00,ae,00,00,00,1f,00,00,00,03,00,00,00,b4,00,00,00,3e,00,\
  00,00,b7,00,00,00,be,00,00,00,c3,00,00,00,bc,00,00,00,b5,00,00,00,b8,00,00,\
  00,a9,00,00,00,55,00,00,00,36,00,00,00,11,00,00,00,54,00,00,00,66,00,00,00,\
  ac,00,00,00,9e,00,00,00,bf,00,00,00,81,00,00,00,87,

[1] [2]  下一页


[VB.NET程序]改进后的mkw3site.vbs(创建虚拟目录)  [VB.NET程序]把VB的程序写成VBScript方式放在VBS文件中
[VB.NET程序]蛙蛙推荐:VBS的数据库操作类,  [VB.NET程序]实现E-mail地址验证的vbs函数代码
[VB.NET程序]VBS 中 Space 函数的应用  [VB.NET程序]目录浏览，目录在左，文件在右(VBS)
[VB.NET程序]一句话木马用upfile.vbs  [VB.NET程序]如何修复：Windows上面的WScript的脚本(.vbs)不能…
[VB.NET程序]一道面试题, 求 1000！的位数(VBS实现)  [Sql Server]一个用Wsh来控制SqlServer的Dcom的VBs
教程录入：mintao    责任编辑：mintao 
  • 上一篇教程：

  • 下一篇教程：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    　 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    同类栏目
    · C语言系列  · VB.NET程序
    · JAVA开发  · Delphi程序
    · 脚本语言
    更多内容
    热门推荐 更多内容
  • 没有教程
    		•
    赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题，因而无法显示。
    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长：MinTao ICP备案号：鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网。A打造B、C、D……
    		咸宁网络警察报警平台