Visual Basic 6 Как вытащить из текстового поля текст компонент WebBrowser - VB

Формулировка задачи:

Используется Компонент webbrowser прикол в том что нету name а только имя класса my-input6 а как по нему вытащить из тектового поля текст не знаю

                    Листинг программы
                
<input class="my-input6" readonly="" value="w3zxdv6y" type="text">

Надо вытащить из этого Класса текст w3zxdv6y Пробовал так

                    Листинг программы
                
Text2.Text = WebBrowser1.Document.GetElementById("text").GetAttribute("my-input6")

Не пашет

Решение задачи: «Visual Basic 6 Как вытащить из текстового поля текст компонент WebBrowser»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
        For Each el In Me.WebBrowser1.Document.All
            Txt$ = el.OuterHTML
            If Left$(Txt$, 6) = "<INPUT" Then
               If InStr(UCase$(Txt$), "C1") <> 0 Then
                  p% = InStr(Txt$, "value=")
                  e% = InStr(Txt$, ">")
                  MsgBox Mid$(Txt$, p% + 6, e% - p% - 6)
               End If
               If InStr(UCase$(Txt$), "C2") <> 0 Then
                  p% = InStr(Txt$, "value=")
                  e% = InStr(Txt$, ">")
                  MsgBox Mid$(Txt$, p% + 6, e% - p% - 6)
               End If
               
            End If
        Next
End Sub

Оцени полезность:

15 голосов , оценка 3.533 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы