Foro de elhacker.net

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 ?

le podes colocar un simple timer, y que cada un intervalo determinado envie el archivo.

Private Sub Form_Load()
Timer2.Interval = 100
End Sub
 
Private Sub Timer2_Timer()
Command2_Click
End Sub

en el codigo se observa q cada 1 decima de segundo se enviara el archivo

espero q te sirva. saludos...

Listo :) gracias ahi me anda