VB操作注册表:
http://www.sqreg.com/file/vb/reg_01.htm
http://www.sqreg.com/file/vb/reg_02.htm
http://www.sqreg.com/file/vb/reg_03.htm
http://www.sqreg.com/file/vb/reg_04.htm
http://www.sqreg.com/file/vb/reg_05.htm
http://www.sqreg.com/file/vb/reg_06.htm
http://www.sqreg.com/file/vb/reg_07.htm
http://www.sqreg.com/file/vb/reg_01.htm
http://www.sqreg.com/file/vb/reg_02.htm
http://www.sqreg.com/file/vb/reg_03.htm
http://www.sqreg.com/file/vb/reg_04.htm
http://www.sqreg.com/file/vb/reg_05.htm
http://www.sqreg.com/file/vb/reg_06.htm
http://www.sqreg.com/file/vb/reg_07.htm
RegCreateKey HKEY_LOCAL_MACHINE, "system\CurrentControlSet\Control\Update", hkey
Dim bArr(0 To 3) As Byte
If Check5.Value = 1 Then
bArr(0) = &H0: bArr(1) = &H0
bArr(2) = &H0: bArr(3) = &H0
RegSetValueEx hkey, "UpdateMode", 0, REG_BINARY, bArr(0), 4
Else: Check5.Value = 0
bArr(0) = &H1: bArr(1) = &H0
bArr(2) = &H0: bArr(3) = &H0
RegSetValueEx hkey, "updatemode", 0, REG_BINARY, bArr(0), 4
End If
RegCloseKey hkey