|
- set fso=createobject("scripting.filesystemobject")
- set ws=CreateObject("wscript.shell")
- Dim tempfolder
- Const TemporaryFolder = 2
- Set tempfolder = fso.GetSpecialFolder(TemporaryFolder)
- set fw=fso.createtextfile(tempfolder&"\1.bat",2)
- fw.writeline("@echo off")
- fw.writeline("reg add ""HKCU\Keyboard Layout\Preload"" /v ""1"" /d ""00000804"" /f")
- fw.writeline("reg add ""HKCU\Keyboard Layout\Preload"" /v ""2"" /d ""e0210804"" /f")
- fw.writeline("reg add ""HKCU\Keyboard Layout\Preload"" /v ""3"" /d ""e0200804"" /f")
- fw.close
- ws.run "cmd /c %temp%\1.bat",vbhide,True
- fso.deleteFile tempfolder&"\1.bat"
复制代码
输入法列表reg.rar
(257 Bytes, 下载次数: 21)
|
|