Создать ссылку на страницу в Интернете Print #intFreeFile, "[InternetShortcut]" Close intFreeFile Private Sub Form_Load() CreateInternetShortCut "C:\WIN\Рабочий стол\test.url", "http://vbnet.ru" Как сохранить содержимое web-страницы на диск Расположите на форме элемент Inet (меню Project|Components - Microsoft Internet Transfer Control 6.0 ). 'Вариант 1 'Расположите на форме элемент Inet (меню Project|Components - Microsoft Internet Transfer Control 6.0).

Private Sub Form_Load() Dim b() As Byte 'установить протокол HTTP Inet1.Protocol = icHTTP 'установить скачиваемый адрес Inet1.URL = "http://www.microsoft.com" 'загрузить данные HTML-страницы в массив b() = Inet1.OpenURL(Inet1.URL, icByteArray) 'создать файл на диске и записать в него информацию Open "c:\test.htm" For Binary Access Write As #1 Put #1. b() 'Вариант 2 'Расположите на форме элемент CommandButton.

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean Dim lngRetVal As Long lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0) If lngRetVal = 0 Then DownloadFile = True Private Sub Command1_Click() On Error GoTo handle Text1.Text = Inet1.OpenURL(Text2.Text, icString) handle: MsgBox "Error " & Err.Description Как вытащить все ссылки из htm-страницы В одном из многочисленных примеров по работе с компонентом WebBrowser я натолкнулся на пример, как можно вытащить все ссылки из любого *.htm файла, находящегося как в интернете, так и локально на жестком диске.

Честно говоря, моя жизнь после нахождения данного примера очень облегчилась, поскольку я часто работаю с инетом, со ссылками. Нажатие на первую кнопку покажет, как можно вытащить все ссылки из файла, а нажатие на вторую кнопку - как можно вытащить ссылки только определенного типа. Но для начала вам надо установить через меню Project | References ссылку на Microsoft Internet Control . Private IEBroj1 As SHDocVw.InternetExplorer Private Sub Form_Load() Set IEBroj1 = New SHDocVw.InternetExplorer Private Sub Form_Unload(Cancel As Integer)