Dim i, eXt As Integer
Dim cUrl As String
On Local Error Resume Next
If doc.links.length > 0 Then
For i = 0 To doc.links.length - 1
cUrl = doc.links(i).href
eXt = InStr(cUrl, "toc.php")
'Debug.Print eXt
If eXt > 0 Then
'Logs.Text = "Click >" & doc.links(i).href
'Debug.Print doc.links(i).href
'Debug.Print "Clicked ------------------------"
IE.Document.links(i).Click
Pause (5)
End If
Next
End If
------------------------------
i found this it's work; but my new probleme is how to redirect the new clicked url to (ie2) webbrowser like this
ie2.Navigate2 UrlGo, , "right"
Private Sub IE_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim TextePage, sLink As String
'
Set ppDisp = IE2.object ' for hiere i would like redirect to frame the url
IEPtc.Silent = True
Visible = True
End Sub
thank you