Yardım WebBrowser ile İnstagram'a Girmek

senuba

Yeni Üye
Katılım
28 Eyl 2018
Mesajlar
9
Puanları
1
Yaş
31
Konum
Türkiye
Ad Soyad
Yasin Coşkuner
Herkese merhaba,
WebBrowser ile sosyal medya hesaplarımı kontrol etmek için kolları sıvadım. Fakat İnstagram sayfasına giremiyorum. İe ile açıyorum giriyor, excel Vba içersinden İnstagram anasayfasına bile giremiyorum. Bunu geçmenin bir yolu var mıdır?

WebBrowser1.Navigate2 "Instagram"
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,084
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Merhaba,
Giriş Yap sayfasına bu şekilde ulaşabilirsiniz.
VBA:
Private Sub CommandButton1_Click()
    WebBrowser1.Navigate "https://www.instagram.com/accounts/login/?source=auth_switcher"
End Sub
 

senuba

Yeni Üye
Katılım
28 Eyl 2018
Mesajlar
9
Puanları
1
Yaş
31
Konum
Türkiye
Ad Soyad
Yasin Coşkuner
Maalesef olmuyor.
Butona tıklıyorum ve aşağıdaki görüntü oluşuyor, sayfa gelmiyor

Ekran Alıntısı.JPG
 

senuba

Yeni Üye
Katılım
28 Eyl 2018
Mesajlar
9
Puanları
1
Yaş
31
Konum
Türkiye
Ad Soyad
Yasin Coşkuner
Excel dosyasını atabilir misiniz size zahmet?
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,084
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Boş bir Excel oluşturup UserForm ekledim, ona da WebBrowser ve CommandButton ilave ettim.
Butona da verdiğim kodları yazdım.
Ekstra bir işlem yapmadım.
Dosya ek'te..
 

Ekli dosyalar

senuba

Yeni Üye
Katılım
28 Eyl 2018
Mesajlar
9
Puanları
1
Yaş
31
Konum
Türkiye
Ad Soyad
Yasin Coşkuner
@Admin, WebBrowser için emulator kulanmış olabilir misiniz? Sanıyorum ki, @senuba' nın WebBrowser eski IE modunda çalışıyor.
WebBrowser için IE güncellemesini bir türlü bulamadım. Regedit üzerinden bir kaç şeyi değiştirdim. .Netframework güncelledim, Windows Ayarları içerisinden eski sürümün tik işaretini kaldırdım. Yeni sürüme geçemedim bir türlü.

IE yeni moda nasıl döndürülebilir?
 

senuba

Yeni Üye
Katılım
28 Eyl 2018
Mesajlar
9
Puanları
1
Yaş
31
Konum
Türkiye
Ad Soyad
Yasin Coşkuner
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION

burayı WoW64sys içerisini Local Machine kısımlarında excel.exe değerini hem 9999 hem de 1100 değerlerini denedim. Maalesef :(
 
Üst Alt