|
- On Error Resume Next
- Dim wri,fsoo
- Set fsoo=Wscript.CreateObject("Scripting.FileSystemObject")
- data=InputBox("请输入内容","请输入","")
- Dim WshShell
- Set WshShell = WScript.CreateObject("WScript.Shell")
- WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey", data,"REG_SZ"
- WshShell.Run "regedit.exe -m"
复制代码 写入的键值是缩写就不起作用了,怎么样可以自动转换呢?
|
|