Actualizar campos en pagina web desde un programa de visual basic

[JOSE-CAMPOS]

donde quiera que lo coloque me da error



no tendra algo que ver la (,) que lleva? porque me dice que se esperaba "="



aca tambien me da error dice que se esperaba fin de instruccion

sURL = "[url="http://www.jose-campos.com/prueba/recogerdatos.php?dato1="&dato1&"&dato2="&dato2"]http://www.jose-campos.com/prueba/recogerdatos.php?dato1="&dato1&"&dato2="&dato2[/url]

[BlackM4ster]

Código [Seleccionar] Expandir

sURL = "http://www.jose-campos.com/prueba/recogerdatos.php?dato1=" & dato1 & "&dato2=" & dato2
Ponlo asi

[JOSE-CAMPOS]

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º")

[BlackM4ster]

marcame en negrita la linea que da error porfavor

[JOSE-CAMPOS]

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.

[BlackM4ster]

a ver, pero donde la estás poniendo?
pasame el codigo fuente ENTERO

[JOSE-CAMPOS]

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

[JOSE-CAMPOS]

cuando envio esto manualmente desde mi navegador si actualiza los datos

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

[BlackM4ster]

si, la funcion la tienes que colocar en TU codigo, despues de haber conseguido los datos que quieres

[JOSE-CAMPOS]

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