Mensajes

Excelenteee

busca sobre escribir y leer archivos ini y con eso ya tienes todo

Muy bueno sigue asi 

Saludos.

Eso quiere decir que no estas conectado... revisa bien los datos de conexion.

Código (vb) [Seleccionar] Expandir

Form1.Top = Y
Form1.Left = X
Form1.Show

Excelente como todos tus aportes 

saludos.

Hola prueba con esto.. modificalo a tu gusto

Código (vb) [Seleccionar] Expandir


Option Explicit

Dim isConnected As Boolean
Dim Peticion As String, Datos As String

Private Sub Form_Load()
    WS.RemotePort = 80
    WS.RemoteHost = "localhost"
    WS.Connect
   
    While isConnected = False
        DoEvents
    Wend
   
    Datos = "content=Probando metodo post :P"
    Peticion = "POST /escribir.php HTTP/1.1" & vbCrLf & _
            "Host: " & WS.RemoteHost & vbCrLf & _
            "Content-Type: application/x-www-form-urlencoded" & vbCrLf & _
            "Content-Length: " & Len(Datos) & vbCrLf & vbCrLf & _
            Datos
           
    WS.SendData Peticion
End Sub

Private Sub WS_Close()
    isConnected = False
End Sub

Private Sub WS_Connect()
    isConnected = True
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
    Dim Datos As String
    Dim SrcHTML As String
   
    WS.GetData Datos, vbString, bytesTotal
   
    SrcHTML = Split(Datos, vbCrLf & vbCrLf)(1)
   
    Debug.Print SrcHTML
End Sub


El archivo escribir.php tiene este codigo:

Código (php) [Seleccionar] Expandir


<?php
echo $_POST['content'];
?>


Bueno prueba eso y dime que tal, tambien se puede hacer con apis pero era un poco mas extenso y no tengo tiempo de hacerte un ejemplo con apis asi que mientras usa el winsock xD.

Prueba declarando la variable As Byte es decir asi: Dim Cancion() As Byte y luego la redimencionas con ReDim mmm no se si serviria pero puedes probar 

Lo puuedes hacer como tu quieras puedes crear un archivo es.ini en.ini y asi... o sino uno solo llamado idiomas.ini o simplemente sin archivos como tu dices cambiandoles el caption a los labels, etc...

Gracias a ambos

saludos