Registry 值的讀取

Private Sub CommandButton1_Click()

Const HKEY_CURRENT_USER = &H80000001

strComputer = "."

Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\Devices"

strValueName = "Fax"

oReg.GetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue

'oReg.GetDWORDValue _

 '  HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue

 MyString = "2/2/74"

Data_Parts = Split(strValue, ",", -1, 1)

End Sub