Mensajes

No me atrevería a decir que fue algo tonto pues todos alguna vez hemos hecho algo tonto en la vida y si vienes al foro a pedir ayuda obviamente no sabes como resolverlo, yo mas bien lo llamaría desesperado "en el buen sentido" lo que te recomiendo es que coloques todos los cables en la portátil como estaban y compres un cargador genérico que ahora los hay por doquier y hasta se les varia el voltaje y como son suichados ellos te darán el amperaje que necesite tu portátil,

http://images02.olx.es/ui/18/02/10/1330304280_323330210_3-Adaptador-Cargador-UNIVERSAL-para-Laptop-Portatil-ENVIO-GRATIS-Ordenadores.jpg

SALUDOS MASTER BLACK, ya pude resolver mi necesidad, es decir u amigo me la resolvio, el hombre es un Crack en VB6 e hizo algunas magias con PHP, la pagina solo actualiza los valores necesarios cada minuto sin necesidad de refrescar la pagina completa ya que lleva imagenes y seria una fastidio, aca te dejo la direccion que estamos probando y la que quedara finalmente es la imagen que ves abajo lo que debe actualizase son los cuadros de colores

El me dijo que subiria la informacion aca al foro para compartirla

http://reporteslegales.com/josecampos/





Uploaded with ImageShack.us

Creo que encontre algo voy a estudiarlo bien aunque creo que le faltan unas modificaciones, luego te lo envio

Voy a seguir buscando a ver si consigo un codigo en VB6 que haga esa funcion, cualquier cosa te mantengo informado muchas gracias siempre

AMIGO MASTER:

tuve el atrevimiento de colocar en el codigo  PHP en vez de google.es le puse ver.php asi me muestra el resultado de una vez

echo "<script>location.href='http://www.jose-campos.com/prueba/ver.php';</script>";

y para probarlos introduje directamente esto en el navegador y va bien

http://www.jose-campos.com/prueba/recogerdatos.php?dato1=999%20&%20dato2=666

solo falta ver la razon por la cual el VB6 no hace su trabajo

el problema es que el VB no esta comunicándose con la web

[http://www.jose-campos.com/prueba/recogerdatos.php?dato1=78 & dato2=241]

cuando envio esto manualmente desde mi navegador si actualiza los datos

http://www.jose-campos.com/prueba/recogerdatos.php?dato1=78 & dato2=241

[Option ExplicitPublic Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As LongPublic Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As LongPublic Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As IntegerPublic Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As IntegerPublic Const IF_FROM_CACHE = &H1000000Public Const IF_MAKE_PERSISTENT = &H2000000Public Const IF_NO_CACHE_WRITE = &H4000000 Private Const BUFFER_LEN = 256]

como te explique antes coloque parte del codigo en un modulo y la otra parte en el formulario aca te lo envio

ESTO LO PUSE EN EL MODULO1

Option Explicit
Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Public Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Public Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer

Public Const IF_FROM_CACHE = &H1000000
Public Const IF_MAKE_PERSISTENT = &H2000000
Public Const IF_NO_CACHE_WRITE = &H4000000
     
Private Const BUFFER_LEN = 256



Y ESTO EN EL CODIGO DEL FORMULARIO:.


   Dim hInternet As Long, hSession As Long, lReturn As Long

    'get the handle of the current internet connection
    hSession = InternetOpen("vb wininet", 1, vbNullString, vbNullString, 0)
    'get the handle of the url

    Dim sURL As String
    'sURL = "http://www.jose-campos.com/prueba/recogerdatos.php?dato1=&dato1&dato2=&dato2"
    sURL = "http://www.jose-campos.com/prueba/recogerdatos.php?dato1=" & dato1 & "&dato2=" & dato2

    If hSession Then hInternet = InternetOpenUrl(hSession, sURL, vbNullString, 0, IF_NO_CACHE_WRITE, 0)
    'if we have the handle, then start reading the web page
    If hInternet Then
        'get the first chunk & buffer it.
        iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
        sData = sBuffer
        'if there's more data then keep reading it into the buffer
        Do While lReturn <> 0
            iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
            sData = sData + Mid(sBuffer, 1, lReturn)
        Loop
    End If

    'close the URL
    GetUrlSource = sData
End Function

ActualizarDatos ("500º","60º")


Private Sub Form_Load()

End Sub

[[MOD] No hagas doble o triple post como los anteriores, usa el botón "modificar" para añadir comentarios. Gracias.]

esta es la que me da error me dice que seesperaba el signo =, la puse final del codigo

ActualizarDatos ("500º","60º")

[MOD] No hagas doble o triple post como los anteriores, usa el botón "modificar" para añadir comentarios. Gracias.

ya no me da error esa linea pero me sigue dando error la ultima me dice tambien que se esperaba (=)

aca el codigo tal cual como lo puse


Public Function ActualizarDatos(dato1 As String, dato2 As String) As String
    Dim sBuffer As String * BUFFER_LEN, iResult As Integer, sData As String
    Dim hInternet As Long, hSession As Long, lReturn As Long

    'get the handle of the current internet connection
    hSession = InternetOpen("vb wininet", 1, vbNullString, vbNullString, 0)
    'get the handle of the url

    Dim sURL As String
    'sURL = "http://www.jose-campos.com/prueba/recogerdatos.php?dato1=&dato1&dato2=&dato2"
    sURL = "http://www.jose-campos.com/prueba/recogerdatos.php?dato1=" & dato1 & "&dato2=" & dato2

    If hSession Then hInternet = InternetOpenUrl(hSession, sURL, vbNullString, 0, IF_NO_CACHE_WRITE, 0)
    'if we have the handle, then start reading the web page
    If hInternet Then
        'get the first chunk & buffer it.
        iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
        sData = sBuffer
        'if there's more data then keep reading it into the buffer
        Do While lReturn <> 0
            iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
            sData = sData + Mid(sBuffer, 1, lReturn)
        Loop
    End If

    'close the URL
    GetUrlSource = sData
End Function

ActualizarDatos ("500º","60º")