WebBrowser

Denetimi forma ekleme​

• Düzenleyiciyi açın: Alt+F11 tuşlarıyla Visual Basic Düzenleyicisi'ni açın ve Ekle > Kullanıcı Formu (Insert > UserForm) komutuyla bir form ekleyin.
• Denetimi seçin: Araç Kutusu'ndaki boş bir alana sağ tıklayın, Ek Denetimler (Additional Controls) komutunu seçin ve listeden Microsoft Web Browser kutusunu işaretleyin.
• Forma çizin: Araç Kutusu'nda beliren simgeyi seçip form üzerinde bir alan çizin. Denetimin varsayılan adı WebBrowser1 olur.

Önemli özellikler​

• LocationURL: Denetimde o anda açık olan sayfanın adresini döndürür.
• LocationName: Açık sayfanın başlığını ya da adını döndürür.
• Busy: Denetim bir sayfayı yüklüyorsa True döndürür.
• ReadyState: Yükleme durumunu verir; sayfa tamamen yüklendiğinde 4 değerini (READYSTATE_COMPLETE) alır.
• Document: Yüklenen sayfanın belge nesnesine erişim sağlar; sayfa içeriğini okumak için kullanılır.
• Silent: True yapıldığında betik hatası ve uyarı iletilerinin gösterilmesini engeller.
• Left, Top, Width, Height: Denetimin form üzerindeki konumunu ve boyutunu belirler.

Önemli yöntemler ve olaylar​

WebBrowser1.Navigate URL, [Flags], [TargetFrameName], [PostData], [Headers]

• URL: Açılacak adres; zorunludur. Adres, protokol öneki dahil tam olarak yazılmalıdır.
• Flags: Gezinme davranışını belirleyen seçenekler; isteğe bağlıdır.
• TargetFrameName: Hedef çerçevenin adı; isteğe bağlıdır.
• PostData: POST ile gönderilecek veri; isteğe bağlıdır.
• Headers: Gönderilecek ek HTTP üst bilgileri; isteğe bağlıdır.

• GoBack, GoForward: Gezinti geçmişinde geri ve ileri gider; geçmişte sayfa yoksa hata oluşur.
• GoHome: Giriş sayfasını açar.
• Refresh: Açık sayfayı yeniler.
• Stop: Süren yüklemeyi durdurur.

• DocumentComplete: Sayfa yüklemesi bittiğinde oluşur; yüklenen sayfayla ilgili işlem için en uygun olaydır.
• BeforeNavigate2: Gezinme başlamadan önce oluşur; Cancel parametresini True yaparak gezintiyi iptal edebilirsiniz.
• NavigateComplete2: Gezinme başarıyla başladıktan sonra oluşur; belge henüz tam yüklenmemiş olabilir.
• TitleChange: Sayfa başlığı değiştiğinde oluşur.
• StatusTextChange: Durum çubuğu metni değiştiğinde oluşur.

1. Adreslere protokol öneki ekleme​

Option Explicit

' Adresin başında http yoksa https:// ekler ve sonucu C sütununa yazar
Sub TamAdresOlustur()
    Dim ws As Worksheet
    Dim i As Long
    Dim sonSatir As Long
    Dim adres As String

    Set ws = ThisWorkbook.Worksheets("Adres Listesi")
    sonSatir = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    For i = 2 To sonSatir
        adres = Trim(CStr(ws.Cells(i, "B").Value))
        If LCase(Left(adres, 4)) <> "http" Then
            adres = "https://" & adres
        End If
        ws.Cells(i, "C").Value = adres
    Next i
End Sub

2. Arama adreslerini kodlayarak oluşturma​

Option Explicit

' Ürün adını URL için kodlayıp arama adresini B sütununa yazar
Sub AramaAdresiOlustur()
    Dim ws As Worksheet
    Dim i As Long
    Dim sonSatir As Long
    Dim kodlu As String

    Set ws = ThisWorkbook.Worksheets("Arama Adresleri")
    sonSatir = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    For i = 2 To sonSatir
        kodlu = Application.WorksheetFunction.EncodeURL(CStr(ws.Cells(i, "A").Value))
        ws.Cells(i, "B").Value = "https://www.example.com/ara?q=" & kodlu
    Next i
End Sub

3. UserForm içinde sayfa açma ve başlığı gösterme​

' UserForm1 kod modülüne yazın (WebBrowser1 ve CommandButton1-3 denetimleri formda olmalı)
Private Sub UserForm_Initialize()
    Dim adres As String

    adres = CStr(ThisWorkbook.Worksheets("Form Adresleri").Range("B2").Value)
    WebBrowser1.Silent = True
    WebBrowser1.Navigate adres
End Sub

' Sayfa tamamen yüklenince form başlığını günceller
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Me.Caption = WebBrowser1.LocationName
End Sub

' Geri düğmesi
Private Sub CommandButton1_Click()
    On Error Resume Next
    WebBrowser1.GoBack
    On Error GoTo 0
End Sub

' İleri düğmesi
Private Sub CommandButton2_Click()
    On Error Resume Next
    WebBrowser1.GoForward
    On Error GoTo 0
End Sub

' Yenile düğmesi
Private Sub CommandButton3_Click()
    WebBrowser1.Refresh
End Sub

Kullanırken dikkat edin​

• Internet Explorer bağımlılığı: Denetim Internet Explorer'ın eski Trident motorunu kullanır. Internet Explorer 2022'de kullanımdan kaldırıldığı için birçok modern site (güncel JavaScript, güvenlik protokolleri) bu denetimde düzgün görüntülenmeyebilir ya da betik hataları verebilir. Kritik işlerde buna güvenmeyin.
• Eşzamansız yükleme: Navigate çağrısı sayfanın yüklenmesini beklemez. Sayfa içeriğine (Document) erişmeden önce DocumentComplete olayını kullanın ya da Busy ve ReadyState değerlerini kontrol edin. Bekleme için sonsuz döngü kurmayın; olay tabanlı yaklaşım daha güvenlidir.
• Adres biçimi: Adresi protokol önekiyle birlikte tam olarak yazmayı unutmayın. Türkçe karakter ve boşluk içeren sorgu parametrelerini EncodeURL ile kodlayın.
• Ortam ve sürüm farkları: Denetim Mac için Excel'de bulunmaz. Bazı Office kurulumlarında, özellikle 64 bit sürümlerde, Ek Denetimler listesinde görünmeyebilir ya da başka bilgisayarda açıldığında çalışmayabilir; dosyayı paylaşmadan önce hedef bilgisayarda deneyin.
• Güvenlik: Denetim ActiveX tabanlı olduğundan kurumsal güvenlik ilkeleri kullanımını kısıtlayabilir. Bilmediğiniz sitelerin sayfalarını form içinde açmaktan kaçının ve Silent özelliğini hata iletilerini gizlemek amacıyla bilinçli kullanın.
• İlgili konular: UserForm, Araç Kutusu ve Ek Denetimler, UserForm_Initialize olayı, Hyperlinks.Add yöntemi, FollowHyperlink yöntemi, WorksheetFunction.EncodeURL, KÖPRÜ işlevi.