Cómo asignar valor a un cuadro de texto en vb en una página webEjemplo: Do While brow.Busy Application.DoEvents() Loop Public Sub fill() En caso de error Reanudar Siguiente Do While brow.WebDoc As Objeto = brow.Document.all Dim webTag As Object Dim lengthTag As Integer = webDoc.length - 1 Para countTag As Integer = 0 Para lengthTag webTag = webDoc.item(countTag) Seleccione Case Strings.LCase(webDoc.item(countTag). ttag) item(countTag) Select Case Strings.LCase(webDoc.item(countTag).tagname) Case "textarea" 'Área de texto en la página webSeleccione Case webTag.name Case "body" 'Text' proviene del código fuente de la página web , diferentes sitios web pueden ser diferentes, puedes modificarlos según la situación real. webTag.value = strBody 'Este es un valor predefinido como se muestra a continuación. WebTag.all.item(1).selected = True 'Seleccione el primer valorEnd Select Case "input" 'Cuadro de entrada en la página webSeleccione Case Strings.LCase(webTag.type) Case "text" 'text Seleccione Case nombre webTag. "nombre", "ID de usuario", "apodo" 'Nombre de usuario webTag.value = strName Caso "asunto" 'Asunto', "nombre de usuario", "apodo".
webTag.value = strName Case "subject" 'Título webTag.value = strSubject Case "regid" 'Código de registro webTag.webTag.value = strHomephone 'Número de teléfono' Case "url_title" 'Nombre del enlace' webTag.value = urlTitle Case "url " 'Enlace' webTag.value = url Caso "email" 'Dirección de correo electrónico' webTag.value = correo electrónico Caso "img" 'Imagen webTag.value = img Caso "midi" 'Música webTag.value = midi Caso "año" ' Año webTag.value = strYear Case "prompt" 'Recuperar pregunta de solicitud de contraseña webTag.value = strPrompt Case "answer" 'Obtener respuesta de contraseña webTag.value = strAnswer End Select Case "password" 'Selección de contraseña Case webTag.name Case "passwd", "contraseña", "confirmar", "recontraseña" 'Contraseña, confirmar contraseña webTag.value = strPass End Seleccionar caso "contraseña" 'Selección de contraseña Caso webTag.name Caso "contraseña", "contraseña", "confirmar", "recontraseña" 'Contraseña, confirmar contraseña