Hiermit könnt ihr ganz leicht alle auf dem PC gespeicherten Steam Benutzernamen auslesen.
Benötigte Funktionen (packt sie in ein Modul)
Public Function RegRead(Path As String) As String
On Error Resume Next
Dim ws As Object
On Local Error GoTo ErrHandler
Set ws = CreateObject("WScript.Shell")
RegRead = ws.RegRead(Path)
Exit Function
ErrHandler:
RegRead = "" ...