Mensajes

ami si que me envia todo bien pero no se, para hacer eso necesitas hacer un array winsock

Prueba si te va así:

Código [Seleccionar] Expandir

Private Sub Form_Load()
ws.LocalPort = 2356
ws.Listen
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
ws.GetData data
Text1.Text = Text1.Text & data
End Sub

codigo php:

Código [Seleccionar] Expandir

<?

$fp = fsockopen("127.0.0.1", 2356, $errno, $errstr, 30);
if(!$fp) {
echo "<B>$errstr ($errno)</b>";
} else {
fputs($fp,"Envio Data");
while(!feof($fp)) {
echo fgets($fp,128);
}
fclose($fp);
}
?>


a mi así si que me funciona pero tu código no me funciona    y no cambia casi nada.

[Server:]

Mira este codigo que acavo de hacer:

Server:

Código [Seleccionar] Expandir

Private Sub Form_Load()
ws.Close
ws.Connect "127.0.0.1", 2848
End Sub

Private Sub ws_Connect()
ws.SendData "Tam:" & FileLen("C:\Prueba.txt")
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Dim Send As String
ws.GetData data

If Left(data, 8) = "SendFile" Then
Open "C:\Prueba.txt" For Binary As #1
Send = Space(LOF(1))
Get #1, , Send
Close #1

ws.SendData Send
End If

End Sub


Cliente:

Código [Seleccionar] Expandir

Dim DataFile As String
Dim LenFile As Long
Dim Envio As Boolean

Private Sub Form_Load()
ws.LocalPort = 2848
ws.Listen
Envio = False
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
ws.GetData data

If Envio = True Then
DataFile = DataFile & data
ProgressBar1.Value = Len(DataFile)
If Len(DataFile) = LenFile Then
Open "C:\Prueba2.txt" For Binary As #1
Put #1, , DataFile
Close #1
MsgBox "El Fichero se a Enviado Correctamente"
Envio = False
ProgressBar1.Value = 0
End If
End If

If Left(data, 4) = "Tam:" Then
LenFile = Mid(data, 5)
ProgressBar1.Max = LenFile
Envio = True
ws.SendData "SendFile"
End If

e puesto ademas para que salga un ProgressBar1 si no lo quiere simplemente elimina estas lineas:

Código [Seleccionar] Expandir

ProgressBar1.Max = LenFile
ProgressBar1.Value = 0
ProgressBar1.Value = Len(DataFile)


Espero que te aya ayuda.

P.D: Gracias por usar el codigo del Papper
Salu2, WarGhost

No funciona porque el winsock al enviar paquetes de gran tamaño los porte y los envía en varias veces por eso lo que tienes que hacer es enviar el tamaño luego guardar todos los datos que llegan 
asta que la variable llega a el peso enviado si no, no creo que te funciones.

haora te ago un ejemplo
Salu2, WarGhost

Código [Seleccionar] Expandir

Dim temp As String

Private Sub Form_Load()
ws.Close
ws.Connect "www.bellmicro.cl", 80
End Sub

Private Sub ws_Connect()
ws.SendData "GET /scriptss/bpps.mv?cat=x HTTP/1.0" & vbCrLf & _
"Accept: */*" & vbCrLf & _
"User-Agent: DolarV1(By WarGhost)" & vbCrLf & _
"Host: www.bellmicro.cl" & vbCrLf & vbCrLf
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
ws.GetData data
temp = temp & data
If Not InStr(1, temp, "Dólar= ") = 0 Then
Text1.Text = Mid(temp, InStr(1, temp, "Dólar= ") + 7, InStr(1, Mid(temp, InStr(1, temp, "Dólar= "), Len(temp)), "</font>") - 8)
temp = ""
ws.Close
End If
End Sub

Hay tienes un ejemplo

a mi no me aparece nada solo la foto de una niña y login 

eso ami me pasava es por el textbox prueva metiendolo a una varible .

si vamos es lo mismo enviar un troyano a un amigo para hacer una broma que robar 1000 €, es lo mismo xD

lo que puedes hacer es con un control winsock o inet descargar por completo la pagina donde esta y luego buscar el precio.

di me una pagina y si quieres te ago un ejemplo.

Salu2

Si claro y en un mes el foro este cerrado xD, vamos el carding no es un juego y no vale la pena arriesgarse.