ayuda para ver codigo de fuente de una web

[DarkFire]

hola, soy nuevo xD! pero kisiera saber como hago para ver un codigo de fuente de una web sin usar un browser, y que lo pueda obtener el codigo en un textbox. me han dicho que puedo usar una ocx, pero io desearia que el programa sea independiente, osea solo el exe y na mas. agradeceria mucho al que me ayduara.

pa los que den ayuda mas privada agregarme  tazmania_rroo@hotmail.com

ty

[krackwar]

Leete las reglas ,no se pueden dar mails en posts solo por mps y no se puede hacer doble post unicamente para que el post no se pierda.
y sobre tu pregunta yo se que descargando la pagina luego la lees i listop.
s4lu2!

[Dynamique]

Si te hicieras tu un navegador .. y ahí ya agregas la opción de ver el Source de la pagina web alomejor hasta seria mas facil xdd

[SKL (orignal)]

Leete las reglas ,no se pueden dar mails en posts solo por mps y no se puede hacer doble post unicamente para que el post no se pierda.
y sobre tu pregunta yo se que descargando la pagina luego la lees i listop.
s4lu2!

mas alla de eso, el foro es una comunidad para compartir informacion, no para que le enviemos los codigos al mail


otra cosa... busca en el apiguide qeu seguro encontras algo...

[naderST]

Coloca en un modulo bas

Código [Seleccionar] Expandir


Option Explicit

Private 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
Private 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
Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer

Public Function wSource(Web As String) As String
    Dim sBuffer As String * 256
    Dim iRet As Integer
    Dim lRet As Long
    Dim sData As String
    Dim hInternet As Long
    Dim hSession As Long
   
    hSession = InternetOpen("tatatata", 1, vbNullString, vbNullString, 0&)
    hInternet = InternetOpenUrl(hSession, Web, vbNullString, 0&, 0&, 0&)
    iRet = InternetReadFile(hInternet, sBuffer, 256, lRet)
    sData = sBuffer
   
    Do While lRet <> 0
        iRet = InternetReadFile(hInternet, sBuffer, 256, lRet)
        sData = sData & Mid(sBuffer, 1, lRet)
    Loop
   
    iRet = InternetCloseHandle(hInternet)
    wSource = sData
End Function



En un form

Código [Seleccionar] Expandir


Private Sub Form_Load()
Text1.Text = wSource("http://www.google.co.ve")
End Sub


[DarkFire]

muchas gracias men, de verdad que me ayudaste

[Littl3]

Si, ami tambien, gracias
salu2