国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

顯示運行對話框內保存的命令歷史的vbs

2019-10-26 18:02:06
字體:
來源:轉載
供稿:網友
復制代碼 代碼如下:

Const HKEY_CURRENT_USER = &H80000001

strComputer = "."

Set objRegistry = GetObject("winmgmts://" & strComputer & "/root/default:StdRegProv")

strKeyPath = "Software/Microsoft/Windows/CurrentVersion/Explorer/RunMRU"
objRegistry.EnumValues HKEY_CURRENT_USER, strKeyPath, arrValueNames, arrValueTypes

For Each strValue in arrValueNames
If Len(strValue) = 1 Then
objRegistry.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValue,strRunCommand
intLength = Len(strRunCommand)
strRunCommand = Left(strRunCommand, intLength - 2)
Wscript.Echo strRunCommand
End If
Next

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板: 盐源县| 潞西市| 五峰| 江城| 玉溪市| 元阳县| 新乡县| 罗源县| 汉寿县| 新田县| 连平县| 罗定市| 章丘市| 珠海市| 中牟县| 海盐县| 曲周县| 云阳县| 濮阳市| 平利县| 长泰县| 宜兴市| 英超| 巨野县| 绵竹市| 永年县| 扬州市| 河津市| 洪雅县| 齐齐哈尔市| 剑河县| 民乐县| 杂多县| 托克逊县| 育儿| 奉贤区| 贵溪市| 鹿邑县| 宁南县| 温州市| 普安县|