Ballance绿化批处理.bat

Ballance是一个非常刺激好玩的小游戏，安装后换目录了就不能玩了，我写了个批处理来绿化它，呵呵：

echo Windows Registry Editor Version 5.00 >绿化.reg
echo [HKEY_LOCAL_MACHINE\SOFTWARE\ballance] >>绿化.reg
echo [HKEY_LOCAL_MACHINE\SOFTWARE\ballance\Settings] >>绿化.reg
echo Fullscreen"=dword:00000001 >>绿化.reg
echo "Language"=dword:00000001 >>绿化.reg
echo "ScrDir"="C:\\Setup" >>绿化.reg
echo "ScrDisc"="C:\\" >>绿化.reg
echo "SetupCommand"="C:\\Program Files\\InstallShield Installation Information\\{42E0783D-3BA4-454B-B58A-BF26E49EB7DE}\\setup.exe" >>绿化.reg
echo "VideoDriver"=dword:00000000 >>绿化.reg
echo "VideoMode"=dword:028001e0 >>绿化.reg
echo "SrcDir"="C:\\setup" >>绿化.reg
echo "SrcDisc"="C:" >>绿化.reg
echo "TargetDir"="%cd%" >>path1.txt

echo Set fs =CreateObject("scripting.filesystemobject") > replace.vbs
echo Set gs =CreateObject("scripting.filesystemobject") >> replace.vbs
echo Set f=fs.opentextfile("path1.txt",1,true) >> replace.vbs
echo Set g=gs.opentextfile("path2.txt",2, true) >> replace.vbs
echo dim str >> replace.vbs
echo str=f.readline >> replace.vbs
echo str=Replace(str,"\","\\") >> replace.vbs
echo g.writeline str >> replace.vbs
echo f.close >> replace.vbs
echo g.close >> replace.vbs
start replace.vbs
ping 127.0.0.1
del path1.txt
copy /b 绿化.reg + path2.txt 绿化.reg
del path2.txt
del replace.vbs
ping 127.0.0.1
reg import 绿化.reg
del 绿化.reg