Código
Const Host As String = "localhost" 'Constante del host Private Sub Command1_Click() Winsock1.Connect Host, 80 'Conectamos al host End Sub Private Sub Command2_Click() Dim Peticion$ Peticion = "POST /archivos/upl2.php HTTP/1.0" & vbCrLf & _ "Host: " & Host & vbCrLf & _ "Content-Type: multipart/form-data, boundary=tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil" & vbCrLf & _ "Content-Length: 197" & vbCrLf & _ vbCrLf & _ "--tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil" & vbCrLf & _ "Content-Disposition: form-data; name='archivo'; filename='imagen.jpg'" & vbCrLf & _ "Content-Type: image/jpeg" & vbCrLf & _ vbCrLf & _ "Soy un jpg modificado!!!" & vbCrLf & _ "--tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil—" Winsock1.SendData Peticion 'Mandamos la peticion End Sub Private Sub Timer1_Timer() If Winsock1.State = sckConnected Then 'Checamos si la conexion es activa o no Command1.Enabled = False Command2.Enabled = True Else Command1.Enabled = True Command2.Enabled = False End If End Sub
Tengo ese codigo como hago para que envie sin parar el archivo al servidor
LO mando via post con Winsock
ya intente poner
Winsock1.SendData Peticion otra ves mas pero no lo envie de nuevo
Un bucle andara ?
Ustedes que son re sabios en este programa me pueden tirar algun consejo ?