Взять определенный кусок текста из HTML - VB

Узнай цену своей работы

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

Приветствую снова. Мне нужно взять кусок из текста, и вставить к примеру в TextBox1 Нужно, взять отсюда то, что идет после "Ссылка:" (ПОЛЬЗОВАТЕЛЬСКОЕ ИЗОБРАЖЕНИЕ (ЮЗЕРБАР)) То есть, нужно получить ссылку на пикчу, и сунуть её в TextBox1 Тестовый аккаунт для сайта:

test_cyberforum

;cyberforum Надеюсь на Вашу помощь.
Winsock`a нету... Пробовал поставить, но я криворукий походу
Включил и поставил на форму. (Winsock)

Решение задачи: «Взять определенный кусок текста из HTML»

textual
Листинг программы
Option Explicit
 
Sub GoToWebSite()
    'Данные для заполнения
    Dim UserName$: UserName = "test_cyberforum"
    Dim UserPass$: UserPass = "cyberforum"
 
    Dim appIE As Object: Set appIE = CreateObject("InternetExplorer.Application")
    Dim sURL$: sURL = "http://cfire.mail.ru/account"
    
    With appIE
        .Navigate sURL
        .Visible = False 'Видимость окна
        '.Silent = True
        '.FullScreen = True
 
        Do While (.Busy Or .readyState <> 4): DoEvents: Loop
 
        Dim D As Object: Set D = .document
        
        With D.forms("login_form")
            .all("login").Value = UserName
            .all("password").Value = UserPass
            .all("submit").Click
        End With
 
        Do While (.Busy Or .readyState <> 4): DoEvents: Loop
 
        MsgBox D.all("c_link_i").Value
 
        .Quit
    End With    'appIE
    Set D = Nothing: Set appIE = Nothing
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

15   голосов , оценка 4 из 5
Похожие ответы