COdigo HTML de WebBrowser

[Rudy21]

`pues eso

que por mas que busco en google y en el foro y demas

no ecnuento como hacer que el codigo fuente de la pagina que estoy viendo en el webbrowser entre en un text

le prolema es que si uso inet.open

no me sirve ya que necesito hacer click en un botónq ue hace post en el webbrowser

asi qe necesito ayuda

salu2

Gracias

[seba123neo]

Hola,mira este post:

Codigo de pagina web

saludos.

[Rudy21]

el problema es que eso tienes que darle una URL

pero como ver el codigo de una pagina que a estas viendo en el webbrowser

osea lo qu ees graficamente en el webbrowser verlo en HTML

como "VER CODIGO FUENTE " en IE o asi

porque el codigo qu eme das tengo que darle URL y es lo que no quiero (por POST)

SAlu2

[& eDu &]

Seria:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Text1.text =CodigoWeb(WebBrowser1.LocationURL)
End Sub

Es decir se mostraria el codigo de fuente de la web que se esta visualizando actualmente

[Rudy21]

pero teng que darle la URL

el problema  es que se pierden los valores POST

eso no me sirve :S:S:S

ayuda!!!!

necesito lo que ya c ve en el WEBBROWSER sacarlo en HTML

[naderST]

Hola prueba con esto.. modificalo a tu gusto

Código (vb) [Seleccionar] Expandir


Option Explicit

Dim isConnected As Boolean
Dim Peticion As String, Datos As String

Private Sub Form_Load()
    WS.RemotePort = 80
    WS.RemoteHost = "localhost"
    WS.Connect
   
    While isConnected = False
        DoEvents
    Wend
   
    Datos = "content=Probando metodo post :P"
    Peticion = "POST /escribir.php HTTP/1.1" & vbCrLf & _
            "Host: " & WS.RemoteHost & vbCrLf & _
            "Content-Type: application/x-www-form-urlencoded" & vbCrLf & _
            "Content-Length: " & Len(Datos) & vbCrLf & vbCrLf & _
            Datos
           
    WS.SendData Peticion
End Sub

Private Sub WS_Close()
    isConnected = False
End Sub

Private Sub WS_Connect()
    isConnected = True
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
    Dim Datos As String
    Dim SrcHTML As String
   
    WS.GetData Datos, vbString, bytesTotal
   
    SrcHTML = Split(Datos, vbCrLf & vbCrLf)(1)
   
    Debug.Print SrcHTML
End Sub


El archivo escribir.php tiene este codigo:

Código (php) [Seleccionar] Expandir


<?php
echo $_POST['content'];
?>


Bueno prueba eso y dime que tal, tambien se puede hacer con apis pero era un poco mas extenso y no tengo tiempo de hacerte un ejemplo con apis asi que mientras usa el winsock xD.

[& eDu &]

pero teng que darle la URL

el problema  es que se pierden los valores POST

eso no me sirve :S:S:S

ayuda!!!!

necesito lo que ya c ve en el WEBBROWSER sacarlo en HTML

Lo que yo te he mostrado no hace falta navegar, muesta la url actual, si no hay nada no mostrará nada...

[Lambda]

MsgBox WebBrowser1.Document.body.innerHTML

[Rudy21]

me sirvio mucho el ultimo codigo era lo que buscana

innerhtml

mil gracias