CS脚本安装（为了在网吧打CS方便，写的小程序）

为了在网吧打CS方便，每次还要修改半天设置，而且有的网吧CS版本没有一键买枪，严重影响自己的杀人速度。最重要的是自己的脚本里，有针对性的做了很多的优化。：）
于是把自己的脚本放在网络硬盘里，而每次下载后还要找到CS的目录覆盖，偶是懒人，于是决定写个小程序实现。
程序使用VBS+WINRAR实现。

VBS内容如下：

Dim cspath
2 CS脚本安装（为了在网吧打CS方便，写的小程序）

Dim FSO
3

Set FSO = CreateObject("Scripting.FileSystemObject")
4 CS脚本安装（为了在网吧打CS方便，写的小程序）

Set WshShell = WScript.CreateObject("WScript.Shell")
5 CS脚本安装（为了在网吧打CS方便，写的小程序）

cspath=WshShell.RegRead("HKEY_CURRENT_USER\Software\Valve\CounterStrike\InstallPath")&"\cstrike\"
6 CS脚本安装（为了在网吧打CS方便，写的小程序）

FSO.CopyFile "*.cfg",cspath
7 CS脚本安装（为了在网吧打CS方便，写的小程序）

'下面为修改CDKEY，以免无法进入一些相同CDKEY过多的服务期，可将3333333333333改为你自己的CDKEY
8 CS脚本安装（为了在网吧打CS方便，写的小程序）

WshShell.RegWrite "HKEY_CURRENT_USER\Software\Valve\CounterStrike\Settings\Key","3333333333333"
9 CS脚本安装（为了在网吧打CS方便，写的小程序）

WScript.Echo "脚本文件已安装至"&cspath

VBS文件和CS的两个配置文件放在同一目录下。打包。
WINRAR设置为带自压缩模式，自解压后自动执行VBS脚本。OK，搞定，又可以偷懒一点点了。

PS:2007年1月23日11:46:13 再次修改。