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

<?

$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);
}
?>

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

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

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

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