Imports System.Text.RegularExpressions  
Imports System.IO  
Imports Microsoft.Win32  
 
Public Class SteamID  
    Public Function GetSteamID() As String  
        Dim regKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Valve\Steam\", True)  
        Dim path As String = regKey.GetValue("InstallPath")  
        Dim location As String = path & "steam.log"  
        Dim content As String  
        Dim read As New StreamReader(location)  
        content = read.ReadToEnd()  
        read.Close()  
        read.Dispose()  
        Dim id = Regex.Match(content, "d:d:d{8}")  
 
        Return id.ToString()  
    End Function  
End Class