Как проверить наличие конкретной ссылки в браузере

[theal]

Как узнать есть ли ссылка на сайте или нет..Потому что иногда приходится проверять ссылку на свой сайт при обмене ссылками

[awl100Alex]

...проверять ссылку на свой сайт...

Код: Выделить всё

Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long

Private Sub Form_Load()
If InternetCheckConnection("http://www.mail.ru/", _
                            FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
   MsgBox "Ссылка НЕ работает! :(", vbInformation
Else
   MsgBox "Ссылка работает! :)", vbInformation
End If
End Sub

...есть ли ссылка на сайте...
...проверять ссылку на свой сайт...

Это два разных вопроса!

[theal]

Это не совсем то что надо..К примеру майл ру--сайт на котором находится ссылка на мой сайт (www.test.ru) мне надо на открывшемся сайте www.mail.ru проверить наличие ссылки на мой сайт www.test.ru

[awl100Alex]

Тогда, может быть, нужно будет получить сначала текст страницы http://www.mail.ru и втавить твою ссылку через, к примеру - WebBrowser1.Document.links(i).href в InternetCheckConnection. Это как вариант можно попробовать.

[theal]

Это каким образом??Можно в коде если не трудно?

[awl100Alex]

Может быть и так...

Код: Выделить всё

Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Dim ie As Object

Private Sub Form_Load()
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "http://www.mail.ru"
End Sub

Private Sub Command1_Click()
For i = 1 To ie.Document.links.length - 1
If InStr(1, ie.Document.links(i).href, "www.test.ru") <> 0 Then
  If InternetCheckConnection(ie.Document.links(i).href, _
                             FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
    MsgBox "Ссылка НЕ работает! :(", vbInformation
  Else
    MsgBox "Ссылка работает! :)", vbInformation
  End If
End If
'List1.AddItem ie.Document.links(i).href
Next
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set ie = Nothing
End Sub

[theal]

Чё то ошибку скидывает на вот этой строке и результатов 0:

If InStr(1, ie.Document.links(i).href, "www.test.ru") <> 0 Then

[awl100Alex]

Создай List1 запусти и просмотри: есть ли вообще там ссылка на твой сайт??? Укажи вместо http://www.test.ru полный адрес.

[awl100Alex]

У меня все работает. Вот посмотри проект...

P.S.
Забыл... добавь еще вот это, для верности кода...

Код: Выделить всё

Private Sub Form_Unload(Cancel As Integer)
Set ie = Nothing
End Sub

[theal]

If InStr(1, ie.Document.links(i).href, "http://sputnik.mail.ru") <> 0 Then я изменил сайт в котором проверяем наличие ссылки..и сразу же та же самая ошибка (рунтайм эррор 91)

[awl100Alex]

А ты можешь дать полную ссылку твоего сайта?

[theal]

http://www.centom.at.ua

[awl100Alex]

Cсылка без выбрыконов... вроде как должна определяться.
Попробуй скачать обновленный проект и еще раз попробовать.

P.S.
Надеюсь получилось...
И еще одно: не спеши нажимать на Command1_Click. Нужно время для загрузки страницы - это нужно учитывать! Не то получишь неполный список ссылок. Ну я думаю, ты это всё и так понял.

[theal]

А как к примеру ,дано--ссылка (a) если такой ссылки нет-->чтобы проверялось наличие ссылки (b) b и так далее...Только всё это нужно проверять в компоненте WebBrowser1. То есть открываю страницу--проверяю наличие ссылки.Если такой нет ищем следующую ссылку.Если нет и следующей---тогда закрываем программу.(Всё должно выполняться автоматически без нажатий кнопок)

[awl100Alex]

А как к примеру ,дано--ссылка (a) если такой ссылки нет-->чтобы проверялось наличие ссылки (b) b и так далее... То есть открываю страницу--проверяю наличие ссылки.Если такой нет ищем следующую ссылку.(Всё должно выполняться автоматически без нажатий кнопок)

Если я правильно понял то, что тебе нужно, то вот тебе проект, который...
1) Открывает страницу сайта.
2) Находит все искомые ссылки из массива (базы данных) по порядку.
3) Выполняет переход (клик) по каждой из найденных на странице сайта ссылкам.