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

解决方案 »

  1.   

    窗口自动刷新
    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