Foro de elhacker.net

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