Имя пользователя:
Пароль:
 

Название темы: Visual Basic 2008
Показать сообщение отдельно

Аватара для Uzvern

Старожил


Сообщения: 161
Благодарности: 4

Профиль | Сайт | Отправить PM | Цитировать


Можно показать на примере цикл For Each, на каком-нмбудь понятном примере. просто пробовал разобраться - бестолку.

Кстати, для авторизации на сайте/форуме, нашел код :
Код: Выделить весь код
 WebBrowser1.Navigate("//forum.oszone.net/index.php") 


    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted 
        WebBrowser1.Document.GetElementById("vb_login_username").InnerText = "ЛОГИН" 
        WebBrowser1.Document.GetElementById("vb_login_password").InnerText = "ПАРОЛЬ" 

        Dim theElementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input") 
        For Each curElement As HtmlElement In theElementCollection 
            If curElement.GetAttribute("value").Equals("Войти") Then 
                curElement.InvokeMember("click") 
            End If 
        Next 
End Sub
За код спасибо http://bbs.vbstreets.ru/

Последний раз редактировалось Uzvern, 25-06-2008 в 10:50.


Отправлено: 10:34, 25-06-2008 | #140

Название темы: Visual Basic 2008