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.
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.
;D Salu2
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 (http://www.bellmicro.cl)
Te lo voy a agradecer mucho.
Saludos.
a mi no me aparece nada solo la foto de una niña y login :huh:
Tienes razon. Mil disculpas, me habia equivocado de link.
Ahora si:
www.bellmicro.cl (http://www.bellmicro.cl)
Gracias.
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 ;)
Muchas gracias voy a probar tu ejemplo
Saludos.
eh probado este interesante codigo, cuando lo corro carga perfecto ;D, 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
a mi también me pasa pero no se porque:
si quitas ws.Close ya na pasa.
probe sacando el ws.close y se me sigue tildando cuando lo cierro,
solo cuando le saco ws.connect deja de tildarce. :huh:
pero cuando creo un exe y lo corro sin el vb, todo anda perfecto :-\
A mi me anda Perfecto y el codigo me fue de mucha Ayuda
MUCHISIMAS GRACIAS!!!!!! ;D ;D ;D ;D ;D ;D