Function Delay(Pause As Single)
Dim Start As Single
Start = Timer
Do While Timer < Start + Pause
DoEvents
Loop
End Function
Private Sub Command1_Click()
List1.Clear
Dim x
IEBroj1.Navigate "http://smartic.ru/load/2"
Delay 3
For i = 1 To IEBroj1.Document.links.length - 1
List1.AddItem IEBroj1.Document.links(i).href
Next
End Sub
Private Sub List1_DblClick()
Text1.Text = "<a href=" + Text2.Text + List1.Text + Text2.Text + ">" + "***" + "</a>"
End Sub
Список ссылок вида <a href"ссылка">имя</a>
Есть сайт,мне нужно сделать html документ в котором будут ссылки на все файлы. В ручную сохранять всё долго,файлов не так мало...Хотелось бы чтобы можно было сразу в мой html документ вставлять полноценную ссылку типа:
<a href"ссылка">имя</a>
Всё работает,но как помимо ссылки взять и имя,не знаю...
Помогите,может код какой есть или ещё что-нить.
----------------------------------------------------------
Есть мысл что надо перелопатить значения WebBrowser1.Document.links
Типо Title, tagname и т.д. Но известные мне не подходят... Помогите пожалуйста.
<a href"ссылка">имя</a>
Код:
Всё работает,но как помимо ссылки взять и имя,не знаю...
Помогите,может код какой есть или ещё что-нить.
----------------------------------------------------------
Есть мысл что надо перелопатить значения WebBrowser1.Document.links
Типо Title, tagname и т.д. Но известные мне не подходят... Помогите пожалуйста.
О!СПАСИБО!!!ТО ЧТО НУЖНО!!!