dışında açılan için örnek bu kod sana ekranda açık olan bütün sayfaların linklerini verir
Sub linkal()
Dim IE As Object, Sh As Object, Wn As Object
Set Sh = CreateObject("Shell.Application")
Set Wn = Sh.Windows
For Each IE In Wn
If IE.LocationURL <> "" Then MsgBox IE.LocationURL
Next IE
Set Wn = Nothing
Set Sh = Nothing
End Sub
bu kod ise sana her sayfada sayfanın içinde olan bütün linkleri verir dikkat et bazı sayfalarda yüzlerce link olabiliyor sadece google ana sayfasında bile 30 link var düşün artık
Sub nevarneyokal()
Dim x As Integer
Dim maPageHtml As HTMLDocument
Dim IE As Object, Sh As Object, Wn As Object
Set Sh = CreateObject("Shell.Application")
Set Wn = Sh.Windows
For Each IE In Wn
MsgBox IE.LocationURL
If IE.LocationURL <> "" Then
Set maPageHtml = IE.Document
For x = 0 To maPageHtml.links.Length - 1
MsgBox "asdf" & maPageHtml.links(x)
Next
Else
Exit Sub
End If
Next IE
Set Wn = Nothing
Set Sh = Nothing
End Sub
dikkat ekranda birde windows gezgini açıksa yani bilgisayarımdan bir klasör açıksa onun linkini alır ancak sayfa içindeki linkleri almaya gelince arıza veriyor artık if le select ile sen çözersin
bu arada referanslardan internet controls ve Html object library işaretlemeyi unutma
