zoukankan      html  css  js  c++  java
  • vbScript 备忘

    closeCDRom.vbs
    Set Obj=CreateObject("WMPlayer.OCX.7")
    
    Set CD=Obj.CDROMCollection
    
    If CD.Count>=1 then
    
    For i=0 to CD.Count-1
    
        CD.Item(i).eject
    
    Next
    
    For i=0 to CD.Count-1
    
        CD.Item(i).eject
    
    Next
    
    End If
    
    HideExtendName.vbs
    Dim WSHShell
    
    Set WSHShell = WScript.CreateObject("WScript.Shell")
    
    sTitle1 = "SSH=0"
    
    sTitle2 = "SSH=1"
    
    if WshSHell.RegRead("HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHideFileExt") = 0 then
    
    WshSHell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHideFileExt", "1", "REG_DWORD"
    
    WshSHell.SendKeys "{F5}+{F10}e"
    
    else
    
    WshSHell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHideFileExt", "0", "REG_DWORD"
    
    WshSHell.SendKeys "{F5}+{F10}e"
    
    end if
    
    Set WSHShell = Nothing
    
    WScript.Quit(0)
    
    HideFile.vbs
    Dim WSHShell
    
    Set WSHShell = WScript.CreateObject("WScript.Shell")
    
    sTitle1 = "SSH=0"
    
    sTitle2 = "SSH=1"
    
    if WshSHell.RegRead("HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHidden") = 1 then
    
    WshSHell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHidden", "2", "REG_DWORD"
    
    WshSHell.SendKeys "{F5}+{F10}e"
    
    else
    
    WshSHell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHidden", "1", "REG_DWORD"
    
    WshSHell.SendKeys "{F5}+{F10}e"
    
    end if
    
    Set WSHShell = Nothing
    
    WScript.Quit(0)
    
    openCDRom.vbs
    Set Obj=CreateObject("WMPlayer.OCX.7")
    
    
    Set CD=Obj.CDROMCollection
    
    If CD.Count>=1 then
    
    For i=0 to CD.Count-1
    
            CD.Item(i).eject
    
    Next
    
    End If
    
    
    SuperHidden.vbs
    'Show/Hide System Files 
    
    Dim WSHShell
    Set WSHShell = WScript.CreateObject("WScript.Shell")
    sTitle1 = "SSH=0"
    sTitle2 = "SSH=1"
    
    if WSHShell.RegRead("HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedShowSuperHidden") = 1 then
    
    WSHShell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedShowSuperHidden", "0", "REG_DWORD"
    WSHShell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHidden", "2", "REG_DWORD"
    WSHShell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHideFileExt", "1", "REG_DWORD"
    WSHShell.RegWrite "HKCRCLSID{00000000-0000-0000-0000-000000000012}InstanceInitPropertyBagcommand", "显示系统文件+扩展名", "REG_SZ"
    WSHShell.SendKeys "{F5}+{F10}e"
    'WSHShell.Popup "Poof, they're gone!", 1, sTitle1, vbInformation
    
    else
    
    WSHShell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedShowSuperHidden", "1", "REG_DWORD"
    WSHShell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHidden", "1", "REG_DWORD"
    WSHShell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHideFileExt", "0", "REG_DWORD"
    WSHShell.RegWrite "HKCRCLSID{00000000-0000-0000-0000-000000000012}InstanceInitPropertyBagcommand", "隐藏系统文件+扩展名", "REG_SZ"
    WSHShell.SendKeys "{F5}+{F10}e"
    'WSHShell.Popup "Here they are!", 1, sTitle2, vbInformation
    
    end if
    
    Set WSHShell = Nothing
    WScript.Quit(0)
  • 相关阅读:
    android HashMap的几种遍历方法
    Android android:windowSoftInputMode属性详解
    Linux环境变量的设置和查看方法
    linux 定时执行shell脚本
    Linux 定时执行shell脚本_crontab
    Linux下修改字符集,转自
    解决Linux下Oracle中文乱码的一些心得体会 ,转自
    SSH Secure Shell Client连接Linux 命令行显示中文乱码问题 和oracle 查询数据中文乱码问题
    VMware 虚拟机(linux)增加根目录磁盘空间 转自
    linux 虚机增加硬盘大小 转自
  • 原文地址:https://www.cnblogs.com/sprinng/p/5046453.html
Copyright © 2011-2022 走看看