Mensajes

En realidad nadie sabe a lo que te referís... por que no te expresaste bien.

Mas allá de eso con Sockets Te podes conectar a cualquier servidor, de lo que sea y escucharlo/enviarle datos....

Fijate la Web de LeandroA http://www.leandroascierto.com.ar/categoria/M%C3%B3dulos/articulo/WinSock32.php Ahí tiene UN modulo y un Ejemplo...

@Karcrack: si queres poner "<?%!-/#¿>" en tu variable cabias la constante code por ""<?%!-||||||||||||||||||||||||||||||||||||||||||||||||/#¿>" y listo Jaja

Jajaja me parece que lo vi al tuyo. era "mConfig". NO? esta bueno.

@F3B14N: Mira vos.. No sabia. Después lo busco. Gracias!!

@79137913: Creo que ninguna no se, depende tu code, cada uno use el que mas le guste jajaja

acá te dejo un modulo echo por mi, espero que te sirva.

http://foro.elhacker.net/programacion_visual_basic/aporte_minibas_guardar_variables_en_un_archivo_ini_permite_multilinea-t311625.0.html

Hola Gente del Foro en vista de lo que alguien Pide mas abajo subo este code que hice cuando empece a programas hace unos años por eso esta medio des prolijo pero es muy funcional...

Código (vb) [Seleccionar] Expandir


Option Explicit
'Función api que recupera un valor-dato de un archivo Ini
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
'Función api que Escribe un valor - dato en un archivo Ini
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
Private Const CODENL = "<?%!-/#¿>"

Public Function Leer_Ini(Key As String, Default As Variant, Optional Aplicacion As String, Optional Path_INI As String) As String
    Dim Aplicacion_Ini As String
    Dim Path__Ini As String
    If Aplicacion = "" Then
        Aplicacion_Ini = "INI-EXAMPLE" 'Nombre de la INI
    Else
        Aplicacion_Ini = Aplicacion
    End If
    If Path_INI = "" Then
        Path__Ini = "C:\Archivo_INI" 'Path De la INI
    Else
        Path__Ini = Path_INI
    End If
    Dim bufer As String * 256
    Dim Len_Value As Long
    Len_Value = GetPrivateProfileString(Aplicacion_Ini, Key, Default, bufer, Len(bufer), Path__Ini)
    Leer_Ini = Left$(bufer, Len_Value)
    Leer_Ini = Replace(Leer_Ini, CODENL, vbNewLine)
End Function

Public Function Grabar_Ini(Key As String, Valor As Variant, Optional Aplicacion As String, Optional Path_INI As String) As String
    Dim Aplicacion_Ini As String
    Dim Path__Ini As String
    If Aplicacion = "" Then
        Aplicacion_Ini = "INI-EXAMPLE" 'Nombre de la INI
    Else
        Aplicacion_Ini = Aplicacion
    End If
    If Path_INI = "" Then
        Path__Ini = "C:\Archivo_INI" 'Path De la INI
    Else
        Path__Ini = Path_INI
    End If
    Valor = Replace(Valor, vbNewLine, CODENL)
    WritePrivateProfileString Aplicacion_Ini, Key, Valor, Path__Ini
End Function


Deje la variable "Path__INI" al igual que "Aplicacion_INI" en la función por que por lo general cuando yo uso las INI uso un solo "Nombre de aplicación" y una sola ubicación que por lo general es una variable del entorno así que es mas cómodo.
Ademas remplazo los "Saltos de linea(vbNewLine)" por el codigo "<?%!-/#¿>" para hacer asi compatible a la INI con multilinea
si no les gusta modifiquen lo como quieran. espero que a alguien le sirva. Gracias

Puedes Usar Archivos "*.ini" Para Guardarlo.

Ejemplo.

Configs.INI

Código (Text) [Seleccionar] Expandir


[MiPrograma]
Text1=agus0
Text2=Agentina
Text3=Buenos Aires


EDITO:

Me olvidaba, para eso se usa las API's

GetPrivateProfileString ---> Para Leer
WritePrivateProfileString --> Para Escribir

VUELVO a EDITAR:

Los archivos INI no soportan MultiLine Por eso lo que yo hice para solucionar ese Problema es remplazar vbNewLine por un Código. Ahora te subo un Ejemplo

No. Lo que Yo digo no es eso. Si encuentro algún Code de ejemplo mañana lo comparto.

Una Pregunta que se me ocurrió ahora como se aplican los Type a las funciones
Biero que cuando Por Ejemplo Vamos a poner MsgBox en el Style nos sale una lista con las posibles opciones vbExclamation, vbInformation, Etc... Como se puede hacer eso
Ejemplo

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
    Call MiFuncion(OPCION_1) '<---- Ahi nos apareceria la lista con las 2 opciones
End Sub

Public Function MiFuncion (???)
if ??? = OPCION_1 Then
    msgbox "1"
end if
    if ??? = OPCION_2 Then
msgbox "2"
    end if
End Function


000webhost.com

Existe el archivo que intentas Leer??