Взять определенный кусок текста из 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д