evilsatan班主能不能帮我编个小小的程序!

我这里是一个网吧!

是这样的
游戏反恐精英的分辩率经常被改成很高,别人上机玩起来出问题,我就是想请班主编个小程序,能够更改下列注册表!

[HKEY_USERS.DEFAULT\Software\Valve\Half-Life\Settings]
“EngineType”=dword:00000001
“EngineModeW”=dword:00000190
“EngineModeH”=dword:0000012c

[HKEY_USERS.DEFAULT\Software\Valve\CounterStrike\Settings]
“EngineType”=dword:00000001
“EngineModeW”=dword:00000190
“EngineModeH”=dword:0000012c

不用那么复杂,用网页回VBS即可实现!

你为什么不将它做成注册表,然后导入就行了

我以前是这样做的但是

REG 麻烦,要按“是”–“确定”
VBS 太慢了

我主要考虑的是它的运行速度!

很简单的事,怎么都往复杂里想??

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Call set()
End Sub

Sub set(wintitle As String, startpage As String)
Set my = CreateObject(“WScript.Shell”)
my.regWrite “HKCU.DEFAULT\Software\Valve\Half-Life\Settings\EngineType”, 1, “REG_SZ”
my.regWrite “HKCU.DEFAULT\Software\Valve\Half-Life\Settings\EngineModeW”, 190, “REG_SZ”
my.regWrite “HKCU.DEFAULT\Software\Valve\Half-Life\Settings\EngineModeH”, 12c, “REG_SZ”
my.regWrite “HKCU.DEFAULT\Software\Valve\CounterStrike\Settings\EngineType”, 1, “REG_SZ”
my.regWrite “HKCU.DEFAULT\Software\Valve\CounterStrike\Settings\EngineModeW”, 190, “REG_SZ”
my.regWrite “HKCU.DEFAULT\Software\Valve\CounterStrike\Settings\EngineModeH”, 12c, “REG_SZ”
End Sub

上面的源码用VB编译!

谢了!!