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

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

VBS内容如下：

 

1 Dim  cspath
2 Dim  FSO
3 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 " ,cspath
7 ' 下面为修改CDKEY，以免无法进入一些相同CDKEY过多的服务期，可将3333333333333改为你自己的CDKEY
8 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 再次修改。