gpt4 book ai didi

Win7下VHD文件右键增强实现代码(vbs+注册表)

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 27 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章Win7下VHD文件右键增强实现代码(vbs+注册表)由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

1、保存以下代码到:c:\windows\system32\vdm.vbs 。

  。

复制代码 代码如下:

Dim Args Set Args = WScript.Arguments TranArgs = " " For i = 0 To Args.Count - 1  TranArgs = TranArgs & """" & Args(i) & """" & " " Next 。

  。

If Args(0) <> "-hFlag" Then  If Args(0) <> "-hWind" Then   CreateObject("Shell.Application").ShellExecute "wscript.exe", _    """" & WScript.ScriptFullName & """" & " -hWind" & TranArgs, "", "runas", 1   WScript.Quit(5)  Else   CreateObject("Wscript.Shell").Run "cscript.exe " & _    """" & Wscript.ScriptFullName & """" & Replace(TranArgs, "-hWind", "-hFlag"), 0, TRUE   WScript.Quit(1)  End If Else  'Add Your Codes  Dim objShell, objExec  Set objShell = WScript.CreateObject("Wscript.Shell")  Set objExec = objShell.Exec("c:\windows\system32\diskpart.exe")  objExec.StdIn.WriteLine "select vdisk file=""" & WScript.Arguments(2) & """" 。

 Select Case Args(1)   Case "/M"    objExec.StdIn.WriteLine "attach vdisk"    objExec.StdIn.WriteLine "exit"    WScript.Quit(0)   Case "/D"    objExec.StdIn.WriteLine "detach vdisk"    objExec.StdIn.WriteLine "exit"    WScript.Quit(0)   Case Else    'other    WScript.Quit(0)  End Select  WScript.Quit(0) End If 。

  。

2、导入注册表文件:

  。

复制代码 代码如下:

Windows Registry Editor Version 5.00 。

  。

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Virtual.Machine.HD\Shell] @="none" [HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Virtual.Machine.HD\Shell\Dismount] @="分离 VHD(&D)" [HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Virtual.Machine.HD\Shell\Dismount\command] @="\"C:\\windows\\system32\\wscript.exe\" C:\\Windows\\System32\\vdm.vbs /D \"%1\"" [HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Virtual.Machine.HD\Shell\Mount] @="挂载 VHD(&M)" [HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Virtual.Machine.HD\Shell\Mount\command] @="\"C:\\windows\\system32\\wscript.exe\" C:\\Windows\\System32\\vdm.vbs /M \"%1\"" [HKEY_CLASSES_ROOT\.vhd] @="Virtual.Machine.HD" 。

  。

文件打包下载:VHD 右键增强 。

最后此篇关于Win7下VHD文件右键增强实现代码(vbs+注册表)的文章就讲到这里了,如果你想了解更多关于Win7下VHD文件右键增强实现代码(vbs+注册表)的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com