hnyzq
1
我这里是一个网吧!
是这样的
游戏反恐精英的分辩率经常被改成很高,别人上机玩起来出问题,我就是想请班主编个小程序,能够更改下列注册表!
[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
hnyzq
4
我以前是这样做的但是
REG 麻烦,要按“是”–“确定”
VBS 太慢了
我主要考虑的是它的运行速度!
凤_凰
5
很简单的事,怎么都往复杂里想??
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