Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: v3ng4nz3 en 6 Septiembre 2010, 22:57 PM

Título: [Ayuda] Pasar codigo de VB.Net a VB6
Publicado por: v3ng4nz3 en 6 Septiembre 2010, 22:57 PM
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:

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


Título: Re: [Ayuda] Pasar codigo de VB.Net a VB6
Publicado por: BlackZeroX en 8 Septiembre 2010, 08:19 AM
.
Eso solo lee una clave del registro usa las apis para leer el registro de windows.
y por ultimo con expresiones regulares obtienes lo deseado.

Es lo que se entiende!¡.

P.D.: No creo que nadie te lo pase a VB6.

Dulces Lunas!¡.
Título: Re: [Ayuda] Pasar codigo de VB.Net a VB6
Publicado por: v3ng4nz3 en 10 Septiembre 2010, 01:12 AM
Yo por mas que lo intento no hace lo que necesito... como ejecuta esa funcion?