Últimos Temas de: v3ng4nz3

Dim vDatos() As String
Dim Item As ListItem
Dim i As Long

vDatos = Split(enlace.text, "http://")

For i = LBound(vDatos) To UBound(vDatos)
Set Item = lstListing.ListItems.Add(, , vDatos(i))
Next

Hola a todos.

Por mas que intento no puedo pasar este código, que es para obtener la Steam ID de un usuario de Steam con un sencillo codigo en VB.NET:

Código:

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

Alguien tendría la amabilidad de ayudarme pasando este código a dialecto de VB6?

Muchas gracias