close01.bat :
- del en01.vbs
- explorer "C:\WINDOWS\Fonts"
- echo Dim WshShell > en01.vbs
- echo Set WshShell=WScript.CreateObject("WScript.Shell") >> en01.vbs
- echo WshShell.AppActivate "C:\WINDOWS\Fonts" >> en01.vbs
- echo if WshShell.appactivate("C:\WINDOWS\Fonts") = true Then >> en01.vbs
- echo wscript.sleep 1000 >> en01.vbs
- REM ----- Alt+F4
- echo WshShell.SendKeys "%%{F4}" >> en01.vbs
- echo End If >> en01.vbs
- ping 127.1 -n 4 > nul
- cscript //Nologo en01.vbs
复制代码
- @echo off
- xcopy /s/e/h/k/r/c/y "D:\1原件软件\趣味实用类\手体字体\叶根友字体\*.*" "%Windir%\Fonts\*.*"
- start /min C:\WINDOWS\Fonts
- call close01.bat
复制代码
[ 本帖最后由 pdanniel66 于 2010-7-24 06:13 编辑 ] |