none
Transferir texto a una pagina web RRS feed

  • Pregunta

  • Me podrian ayudar a pasar un texto de un textbox a una pagina web, alguien me puede ayudar con esto :) gracias, he intentado, pero no consigo pasar el texto.

            Dim elementos As HtmlElementCollection = WebBrowser1.Document.All
            For Each elemento As HtmlElement In elementos
                If elemento.GetAttribute("name") = "message" Then
                    elemento.SetAttribute("value", TextBoxPARRAFO.Text)
                End If
            Next

    código sección de escritura en la pagina web.

    <div class="mentions" id="u_0_5h" data-sigil="m-mentions-root" data-store-id="11"><div class="mentions-placeholder" id="u_0_5i" data-sigil="js_placeholder">Escriba algo</div><textarea class="composerInput mentions-input" aria-label="Escribe algo" rows="1" data-store="{&quot;defaultvalue&quot;:&quot;&quot;,&quot;initial_weak_references&quot;:[]}" data-sigil="composer-textarea m-textarea-input" data-autoid="autoid_95" data-store-id="10" id="uniqid_1" placeholder=""></textarea><input data-sigil=" mentionsHiddenInput" type="hidden" name="message" value=""><div class="mentions-shadow" aria-hidden="true" style="word-spacing;"></div></div>


    • Cambiado Enrique M. Montejo miércoles, 1 de febrero de 2017 7:14 Pregunta relacionada con controles de Windows Forms.
    domingo, 29 de enero de 2017 17:13

Todas las respuestas

  • Hola Cael1020,

    El código es correcto, lo que pasa es que estás cambiando el valor de un input type="hidden". El cual es un input oculto, por lo que no podrás ver el cambio.

    <input data-sigil=" mentionsHiddenInput" type="hidden" name="message" value="">


    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    • Propuesto como respuesta Joyce_AC lunes, 30 de enero de 2017 17:24
    domingo, 29 de enero de 2017 17:30
  • Si algo asi habia visto no, le entiendo mucho pero con lo que logro entender, entonces que modifico en vb para pasar el texto a la pagina
    domingo, 29 de enero de 2017 17:59
  • Hola Cael1020,

    Pero está enviando el valor al input, solo que no lo puedes ver porque está oculto. Si cambias el tipo hidden a text aparecerá el control que no estaba visible.

    <input data-sigil=" mentionsHiddenInput" type="text" name="message" value="">

    ** Código simplificado :

    Dim msg = WebBrowser1.Document.All.OfType(Of HtmlElement).
                             FirstOrDefault(Function(x) x.GetAttribute("name") = "message")
    
    If msg IsNot Nothing Then  'Si no es nulo es porque encontró el elemento
        msg.SetAttribute("value", TextBoxPARRAFO.Text)
    End If

    Resultado : 

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    domingo, 29 de enero de 2017 18:16
  • codigo

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    
    
            Dim msg = WebBrowser1.Document.All.OfType(Of HtmlElement).
                             FirstOrDefault(Function(x) x.GetAttribute("name") = "message")
    
            If msg IsNot Nothing Then  'Si no es nulo es porque encontró el elemento
                msg.SetAttribute("value", TextBoxPARRAFO.Text)
            End If
        End Sub
    En donde lo pretendo ocupar es en un grup de face, poder insertar el texto en iniciar conversación, pero no se inserto el texto.



    • Editado Cael1020 domingo, 29 de enero de 2017 19:25
    domingo, 29 de enero de 2017 19:19