CS脚本安装（为了在网吧打CS方便，写的小程序）
为了在网吧打CS方便，每次还要修改半天设置，而且有的网吧CS版本没有一键买枪，严重影响自己的杀人速度。最重要的是自己的脚本里，有针对性的做了很多的优化。：）
于是把自己的脚本放在网络硬盘里，而每次下载后还要找到CS的目录覆盖，偶是懒人，于是决定写个小程序实现。
程序使用VBS+WINRAR实现。
VBS内容如下：
1
Dim cspath
2Dim FSO
3Set FSO = CreateObject("Scripting.FileSystemObject")
4Set WshShell = WScript.CreateObject("WScript.Shell")
5cspath=WshShell.RegRead("HKEY_CURRENT_USER\Software\Valve\CounterStrike\InstallPath")&"\cstrike\"
6FSO.CopyFile "*.cfg",cspath
7'下面为修改CDKEY，以免无法进入一些相同CDKEY过多的服务期，可将3333333333333改为你自己的CDKEY
8WshShell.RegWrite "HKEY_CURRENT_USER\Software\Valve\CounterStrike\Settings\Key","3333333333333"
9WScript.Echo "脚本文件已安装至"&cspath
Dim cspath2
Dim FSO3
Set FSO = CreateObject("Scripting.FileSystemObject")4
Set WshShell = WScript.CreateObject("WScript.Shell")5
cspath=WshShell.RegRead("HKEY_CURRENT_USER\Software\Valve\CounterStrike\InstallPath")&"\cstrike\"6
FSO.CopyFile "*.cfg",cspath7
'下面为修改CDKEY，以免无法进入一些相同CDKEY过多的服务期，可将3333333333333改为你自己的CDKEY8
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Valve\CounterStrike\Settings\Key","3333333333333"9
WScript.Echo "脚本文件已安装至"&cspath
VBS文件和CS的两个配置文件放在同一目录下。打包。
WINRAR设置为带自压缩模式，自解压后自动执行VBS脚本。OK，搞定，又可以偷懒一点点了。
PS:2007年1月23日11:46:13 再次修改。
