Cargar variable con dato de internet ahora siiii!

[Impersecuto]

Justo cuando escribia este post se cayo el foro y mi post quedo convertido en cualquier cosa rara.

Ahora si les hago mi consulta.

Aca en Chile el precio del dolar respecto al peso chileno varia practicamente todos los dias y son muchos los sitios de internet chilenos que publican en su pagina principal dicho dato.

¿Que deberia hacer para conseguir que una aplicacion de VB luego de iniciarse accediera a alguna de estas paginas y cargara el precio del dolar en una variable?

Espero sea un procedimiento sencillo.

Muchisimas gracias de antemano y saludos.

[WarGhost]

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

[Impersecuto]

Gracias WarGhost.

Este un link a una pagina que muestra el precio del dolar y se actualiza a diario. Puedes encontrarlo cargado al lado superior derecho de la pagina.

www.bellmicro.cl



Te lo voy a agradecer mucho.

Saludos.

[WarGhost]

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

[Impersecuto]

Tienes razon. Mil disculpas, me habia equivocado de link.

Ahora si:

www.bellmicro.cl

Gracias.

[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

[Impersecuto]

Muchas gracias voy a probar tu ejemplo

Saludos.

[Mr.Chispa]

eh probado este interesante codigo, cuando lo corro carga perfecto  , pero el problema es cuando lo quiero cerrar, se me tilda todo, ¿¿¿alguien sabe cual es el problema??? si sirve de algo uso vb6. saludos

[WarGhost]

a mi también me pasa pero no se porque:

si quitas ws.Close ya na pasa.

[Mr.Chispa]

probe sacando el ws.close y se me sigue tildando cuando lo cierro,
solo cuando le saco ws.connect deja de tildarce. 
pero cuando creo un exe y lo corro sin el vb, todo anda perfecto