Загрузка содержимого сайта в html - Visual Basic .NET

  1. Здравствуйте! Для загрузки содержимого сайтов пользовался подобными методами:vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22         Dim oHttp As Object         Dim strURL As String           strURL = "https://www.instagram.com/"           On Error Resume Next         oHttp = CreateObject("MSXML2.XMLHTTP")         If Err.Number <> 0 Then             oHttp = CreateObject("MSXML.XMLHTTPRequest")         End If         On Error GoTo 0         If oHttp Is Nothing Then             MsgBox("Не удалось инициализировать объект MSXML!")             Exit Sub         End If           oHttp.Open("GET", strURL, False)         oHttp.Send()         TextBox1.Text = oHttp.ResponseText         Debug.Print(oHttp.ResponseText)         oHttp = Nothing         MsgBox("Данные успешно импортированы!", vbInformation)илиvb.net1 2 3 4 5 6 7 8         Dim client As New WebClient     'Создаем объект client класса WebClient         Dim url As String = "https://www.shutterstock.com/ru/"  'Создаём строку для хранения 'url         Dim stream As Stream  'Создаём объект stream класса Stream         stream = client.OpenRead(url)  'Считываем данные         Dim reader As New StreamReader(stream)  'Создаём объект reader 'класса StreamReader         Dim result As String = reader.ReadToEnd() 'Используем метод         'ReadToEnd() ' для чтения содержимого потока до конца         MsgBox(result) 'Выводим содержимое переменной resultИ эти способы прекрасно, пока не попытался считать сайт https://www.shutterstock.com/ru/ При загрузке постоянно выдает ошибку и загрузка прерывается. Почему это происходит? Авторизация тут не важно, мне необходима информация только на главной странице или на страницах поиска, но они открыты и без авторизации.


textual

Код к задаче: «Загрузка содержимого сайта в html - Visual Basic .NET»

 
        WebBrowser1.ScriptErrorsSuppressed = True
        WebBrowser1.Navigate("https://www.shutterstock.com/ru/")

СДЕЛАЙТЕ РЕПОСТ

13   голосов, оценка 4.308 из 5



Похожие ответы
  1. Как программно можно сохранить ветви с корнями и потом загрузить? Эта тема не подходит Сохранение и загрузка TreeView. Как правильно реализовать действие? Спасибо.vb.net1 TreeView.DataBindings

  1. Добрый день. Долгое время пытался разобраться сам, но не совсем понимаю, как правильно сформировать запрос на поиск. Собственно в чем проблема: задался целью написать форму, содержание которой бы динамически менялось в зависимости от выбранной кнопки. Можно сказать - почти вкладки. "Новый проект" и "Проекты" - это кнопки. По нажатию кнопки "проекты" отображается одни данные, при нажатии кнопки "новый проект" - другие. Так задумывалось. Вопрос - как это реализовать? Моя идея состояла в том, чтобы заранее создать помимо формы Usercontrol,ы с необходимым наполнением, а потом либо как то копировать содержимое контрола в форму, либо как-то включать Usercontrol в форму. Беда в том, что я не знаю как это сделать( Или может Usercontrol тут ни при чем? В любом случае мне показалось что должен быть какой-то удобный способ не создавать кучу форм а работать в рамках одной формы просто динамически меняя содержимое, при этом чтобы это содержимое где-то заранее расположить как хочется.

  1. Может кто сталкивался, как можно подгрузить сторонние библиотеки не из папки запуска приложения, а из другого, указанного?

  1. Всем здравствуйте. На VB-6 автовыделение реализовывалось так:

  1. Данные загружаю из Excel в DataGridView2 все нормально. Далее необходимо загрузить в DataGridView2 новый файл из Excel. Предварительно чистим:vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 ' Чистим Excel         Dim xlp() As Process = Process.GetProcessesByName("EXCEL")         For Each Process As Process In xlp             Process.Kill()             If Process.GetProcessesByName("EXCEL").Count = 0 Then                 Exit For             End If         Next           ' Чистим DataGridView2         DataGridView2.DataSource = Nothing         Dim command As OleDb.OleDbCommand   ' = connection.CreateCommand()         Dim da As New OleDb.OleDbDataAdapter(command)         dtt.Clear()                         '   Чистим datatable             ' Загружаем в таблицу-DataGridView2 файл Excel         LoadDataKey(My.Application.Info.DirectoryPath + "" + Label1.Text + ".xlsx", iShtName2)При повторной загрузке не выходя из формы вызывает ошибку строка: da.Fill(dtt) в этом коде:vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20     Private Sub LoadDataKey(ByVal iPath As String, ByVal iShtName2 As String)         ' Взять данные из Excel         Dim connectionString As String         Dim connection As OleDb.OleDbConnection           Try             'Для Excel 12.0             connectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + iPath + "; Extended Properties=""Excel 12.0 Xml;HDR=YES"";"             connection = New OleDb.OleDbConnection(connectionString)             connection.Open()         Catch ex12 As Exception             MsgBox("Не знаю такой версии Excel")         End Try           'Выборка данных         Dim command As OleDb.OleDbCommand = connection.CreateCommand()         command.CommandText = "Select * From [Лист1$]"           Dim da As New OleDb.OleDbDataAdapter(command)         da.Fill(dtt)

  1. Всем привет! Мужики, помогите решить задачу. В RTB1 есть список строк. В каждой новой строке записана фамилия и имя, например: Иванов Иван Петров Петр ... Задача. 1. Вывести в листбокс только фамилии. С этим проблем нет, через сплит откидываю имена и закидываю фамилии в листбокс. 2. Пользователь выбирает в листбоксе определенные фамилии (с помощью мультиселекта) и выбранные фамилии перекидываются в RTB2. Проблема в том, что к этим фамилиям нужно вернуть обратно имена, которые были откинуты через сплит. Как вернуть имена, которые были откинуты через сплит, не пойму?

  1. Может кто знает и подскажет! Есть база данных в Accesse которая имеет две таблицы. На форме я сделал DataGridView в которой при нажатии выводится таблица. Как мне сделать программно чтобы в таблице в зависимости от значения была закрашена ячейка (как в Excele) Например если в таблице 3 тогда цвет зеленый если 0 тогда желтый. И еще таблица будет всегда пополняться данными. Все это делаю в Visual basik 2010

  1. Привет всем! Нужно помощь, у меня есть аксес с данными, как быстро откивает базу на dgv.

  1. Доброго времени суток! Моя проблема в следующем: Код получает список файлов (порядка 400-500) из папки в сети и время последнего изменения файловvb.net1 2 3 4 5 6 7 Dim Root As String() = Directory.GetFiles(Path)             For Each S As String In Root                 FI = New FileInfo(S)                 Dim dt As Date = FI.LastWriteTime                            listDataSource.Add(New Record(x, FI.Name, FI.ToString, dt.AddMinutes(My.Settings.Slip)))                 x = x + 1             NextТ. к. скорость обмена с удаленным компом низкая цикл проходит за секунд 20-25 (что очень долго) тормозит именно вот эта строчка:vb.net1    Dim dt As Date = FI.LastWriteTimeНо вся фишка в том что через проводник Windows папка (с именами и временем) открывается за 1-2 секунды. Есть ли варианты более быстрой загрузки ?