Private Sub getMailInfo()
Text = getDefaultMailClient() + " --- " + getDefaultMailAccount()
ListBoxAccountInfo.DataSource = getAccountInfo()
End Sub
Private Function getDefaultMailClient()
Dim result As String
Const CKey As String = "SOFTWAREClientsMail"
Dim mailKey As RegistryKey = Registry.LocalMachine.OpenSubKey(CKey)
result = mailKey.GetValue(Nothing)
mailKey.Close()
If result Is Nothing Then result = ""
Return result
End Function
Private Function getDefaultMailAccount() As String
Dim result As String = ""
Const CKey = "SoftwareMicrosoftInternet Account Manager"
Dim defaultKey As RegistryKey = Registry.CurrentUser.OpenSubKey(CKey)
Dim obj As Object = defaultKey.GetValue("Default Mail Account") defaultKey.Close()
If obj IsNot Nothing Then result = obj.ToString
Return result
End Function
Private Function getAccountInfo() As List(Of String)
Dim result As New List(Of String)
Const CKey = "SoftwareMicrosoftInternet Account ManagerAccounts"
Dim accountKey As RegistryKey = Registry.CurrentUser.OpenSubKey(CKey)
Dim a() As String = accountKey.GetSubKeyNames()
For Each entry As String In a
result.Add(New String("-"c, 50)) result.Add(entry)
result.Add(New String("-"c, 50)) Dim subKey As RegistryKey = accountKey.OpenSubKey(entry)
For Each value As String In subKey.GetValueNames()
result.Add(value + " = " + subKey.GetValue(value).ToString)
Next
subKey.Close()
result.Add(New String("-"c, 50)) Next
accountKey.Close()
Return result
End Function
)
