国产探花免费观看_亚洲丰满少妇自慰呻吟_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

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

圖片精選

主站蜘蛛池模板: 嘉兴市| 双桥区| 修武县| 蒙城县| 新郑市| 临朐县| 崇州市| 庆安县| 无为县| 夏邑县| 清水县| 东港市| 迁西县| 隆林| 独山县| 连平县| 东乡县| 丽水市| 登封市| 剑川县| 天台县| 莱西市| 千阳县| 秦皇岛市| 疏附县| 土默特左旗| 武隆县| 高碑店市| 慈利县| 文山县| 黄平县| 南乐县| 芮城县| 内丘县| 山丹县| 晋中市| 渑池县| 雷州市| 南木林县| 舟山市| 阿勒泰市|