Web Browser Üzerindeki Açık Url Adreslerini Tespit Etme.

[hamitcan]

Merhaba,
Chrome üzerinde açık olan pencerelerin url adreslerini kod ile nasıl tespit ederim.
Örn: Aşağıdaki adres gibi
Teşekkürler.

 

[Haluk]

IE olsaydı, yapılırdı ama Chrome için herhalde Selenium kullanmak gerekir...

.

 

[hamitcan]

Üstad IE için bir örnek alabilir miyim ? IE üzerinde de açabilirim, sorun yok.
Asıl amacım ilgili url içinde güvenlik amacıyla konan kelimeyi çıkartmak. Sistem bazı linklere erişimi kısıtlıyor. Bende bu durumu aşmak için url içindeki kelimeyi kaldırmak istiyorum.
Teşekkürler...

 

[halit3]

Bir tane ben yazayım.

Sub deneme()

For Each acık_url In CreateObject("Shell.Application").Windows
If TypeName(acık_url.Document) = "HTMLDocument" Then
i = i + 1
Cells(i, 1) = acık_url.LocationURL
End If
Next

End Sub

 

[hamitcan]

Teşekkürler Halit Bey, çalıştı. Ama Haluk Bey'in bahsettiği gibi sadece IE üzerinde çalıştı.

 

[halit3]

Kot IE de çalışır Chrome de çalışmaz

 

[halit3]

Açık olan Google Chrome sayfalarını tesbit eden kod
not :açık olan sayfalardan sadece aktif olanı tesbit ediyor birden fazla Google Chrome açıksa bunlardanda aktif olanı tesbit ediyor
Google Chrome iç içe açılan sayfalarda sadece aktif olanı tesbit ediyor.

örnek kod bu site ile ilgili kapatma işlemini yapıyor.

Sub Chrome_sayfası_kapat()
Columns("A:A").ClearContents
Dim aranan As Variant
With CreateObject("Word.Application")

For Each aranan In .Tasks
deg1 = Split(aranan.Name, "Google Chrome")
If UBound(deg1) > 0 Then
j = j + 1
Cells(j, 1) = aranan.Name
deg2 = Split(aranan.Name, "Excel WEB TR Forum")
'deg2 = Split(aranan.Name, "Facebook")
If UBound(deg2) > 0 Then
If aranan.Visible Then

MsgBox aranan.Name
'.Tasks(aranan.Name).Close ' wep sitesini kapat
End If
End If
End If
Next aranan
End With

End Sub