CreateObject("internetexplorer.application")

[harziyan]

İyi akşamlar;
Excel üzerinden internetten veri alışverişi yaparken exporer kullanmak istediğimizde CreateObject("internetexplorer.application") kodunu kullanarak İE'yi açıp işlemler yapabiliyoruz. Araştırdığım her yerde her yeni sorguda yeniden İE açılmasını sağlayan yukarıdaki kod kullanılıyor. Acaba açılmış olan İE tarayıcısına veri, tuş, kod vs. gönderme işlemleri yapılabiliyor mu? Varsa örnek bir kod alabilir miyim?

 

[Zeki Gürsoy]

Merhaba;

Uygun "If" ilave ederek doğru pencereyi yakalayabilirsiniz...

Sub IE_Pencereleri()
Dim Shel As Object, w As Object, x As String
Set Shel = CreateObject("Shell.Application")

    For Each w In Shel.Windows
        [COLOR=DarkGreen]' IE uyg. ise,[/COLOR]
        If TypeName(w.Document) = "HTMLDocument" Then
            x = "Pencere Başlığı  = " & w.LocationName & Chr(13) & Chr(13)
            x = x & "Gezinti Adresi    = " & w.LocationURL
            MsgBox x
        Else [COLOR=DarkGreen]' Windows gezgini ise[/COLOR]
            [COLOR=DarkGreen]' w.Quit[/COLOR]
        End If
    Next

Set Shel = Nothing
End Sub

 

[harziyan]

Tamamdır, çoook teşekkür ederim. Mükemmel çalışıyor.:bravo:

 

[harziyan]

Hocam bu şekilde Firefox'u da kullanabilmenin bir yolu var mı?

 

[harziyan]

Görüntülemeye çalıştığım siteye ancak firefox ile girdiğimde sitedeki tüm ögeler görüntülenebiliyor. Aynı siteyi İE ile açtığımda site tuhaf bir şekilde görüntüleniyor. (çerçeveler, checkboxlar kayboluyor, tıklanacak??? sayfa soldan sağa doğru uzamaya başlıyor vs) Araştırmalarım sonucunda bunun sebebinin de webmaster olduğunu öğrendim. Site İE'de denenmeden yapılmış...Bu sebepten ötürü firefoxu kullanmam elzem!

 

[antonio]

Merhaba;

Uygun "If" ilave ederek doğru pencereyi yakalayabilirsiniz...

Sub IE_Pencereleri()
Dim Shel As Object, w As Object, x As String
Set Shel = CreateObject("Shell.Application")

    For Each w In Shel.Windows
        [COLOR=DarkGreen]' IE uyg. ise,[/COLOR]
        If TypeName(w.Document) = "HTMLDocument" Then
            x = "Pencere Başlığı  = " & w.LocationName & Chr(13) & Chr(13)
            x = x & "Gezinti Adresi    = " & w.LocationURL
            MsgBox x
        Else [COLOR=DarkGreen]' Windows gezgini ise[/COLOR]
            [COLOR=DarkGreen]' w.Quit[/COLOR]
        End If
    Next

Set Shel = Nothing
End Sub

Zeki Hocam VBA Mkaro kodları ile internet explorer yada chrome tarayıcısı üzerinde gmail hesabına giriş yapıp bir mesaj göndermek mümkün müdür? (Outlook hiç devreye girmeyecek).

 

[harziyan]

Bunlarla giriş yapabilirsin...

Sub gmail()
Set ie = CreateObject("internetexplorer.application")
ie.Visible = True
ie.Navigate "http://gmail.google.com"
Do While ie.Busy
Loop
Set doc = ie.document
Set user = doc.getElementById("Email")
user.Value = "........."
Set pass = doc.getElementById("Passwd")
pass.Value = ".........."
Set go = doc.getElementById("signIn")
go.Click
End Sub

 

[antonio]

Bunlarla giriş yapabilirsin...

Sub gmail()
Set ie = CreateObject("internetexplorer.application")
ie.Visible = True
ie.Navigate "http://gmail.google.com"
Do While ie.Busy
Loop
Set doc = ie.document
Set user = doc.getElementById("Email")
user.Value = "........."
Set pass = doc.getElementById("Passwd")
pass.Value = ".........."
Set go = doc.getElementById("signIn")
go.Click
End Sub

Sayın harziyan, ilginiz için çok teşekkür ederim. "Oturumu açık bırak" işaretli iken giriş yaptı, oturum kapatıldıktan sonra ilgili yerlere kullanıcı adı ve şifreyi girmedi. Ayrıca esasen amacım sadece web sunucusuna giriş yapmakla sınırlı değil, örneğin belli bir mesajı alici123@example.com ve alici456@example.com adreslerine de gönderebilsin.
Tekrar teşekkürler..

 

[cellswhite]

Yanlıs yere yazdıgım için sildim.

 

[Zeki Gürsoy]

Görüntülemeye çalıştığım siteye ancak firefox ile girdiğimde sitedeki tüm ögeler görüntülenebiliyor. Aynı siteyi İE ile açtığımda site tuhaf bir şekilde görüntüleniyor. (çerçeveler, checkboxlar kayboluyor, tıklanacak??? sayfa soldan sağa doğru uzamaya başlıyor vs) Araştırmalarım sonucunda bunun sebebinin de webmaster olduğunu öğrendim. Site İE'de denenmeden yapılmış...Bu sebepten ötürü firefoxu kullanmam elzem!

Firefox' u ie gibi otomasyon kullanamazsınız çünkü, "firefox.exe" bir activex exe değildir. Yani butonları clikleyemez, kutulara değer atayamazsınız.

 

[Zeki Gürsoy]

Zeki Hocam VBA Mkaro kodları ile internet explorer yada chrome tarayıcısı üzerinde gmail hesabına giriş yapıp bir mesaj göndermek mümkün müdür? (Outlook hiç devreye girmeyecek).

Bu bilgiyi vermekte pek emin değilim. Oto giriş için aşağıdaki proseduru kullanabilirsiniz.

Sub gmailTest()
    Set ie = CreateObject("InternetExplorer.Application")
    
    ie.Visible = True
    ie.navigate "http://gmail.google.com"
    
    Do While ie.Busy: DoEvents: Loop
    Do Until ie.ReadyState = 4: DoEvents: Loop
    
    ie.document.all.Email.Value = "abcdef"       [COLOR=DarkGreen] ' mail adı[/COLOR]
    ie.document.all.Passwd.Value = "şifre"       [COLOR=DarkGreen] ' şifre[/COLOR]
    ie.document.All.PersistentCookie.Checked = False [COLOR=DarkGreen]' cookie devre dışı(işaretsiz)[/COLOR]
    ie.document.all.signIn.Click                [COLOR=DarkGreen]  ' oturum aç clik[/COLOR]
End Sub

 

[antonio]

Bu bilgiyi vermekte pek emin değilim. Oto giriş için aşağıdaki proseduru kullanabilirsiniz.

Sub gmailTest()
    Set ie = CreateObject("InternetExplorer.Application")
    
    ie.Visible = True
    ie.navigate "http://gmail.google.com"
    
    Do While ie.Busy: DoEvents: Loop
    Do Until ie.ReadyState = 4: DoEvents: Loop
    
    ie.document.all.Email.Value = "abcdef"       [COLOR=DarkGreen] ' mail adı[/COLOR]
    ie.document.all.Passwd.Value = "şifre"       [COLOR=DarkGreen] ' şifre[/COLOR]
    ie.document.All.PersistentCookie.Checked = False [COLOR=DarkGreen]' cookie devre dışı(işaretsiz)[/COLOR]
    ie.document.all.signIn.Click                [COLOR=DarkGreen]  ' oturum aç clik[/COLOR]
End Sub

Zeki Hocam çok teşekkürler.. Kodlar çalıştı. Tüm tarayıcıları kapatmış olduğum halde internet expoler çalıştı ve gmail hesabı açıldı. Ancak kodların devamında tarayıcıya dokunmama gerek kalmasın, ön görmüş olduğum bir e-posta içeriği belirli kişilere kendiliğinden gitsin ve oturum kapansın, tarayıcı penceresi de kaybolsun istesem mümkün müdür?

 

[Zeki Gürsoy]

Oturum açıldıktan sonra çıkışı tek sefere mahsus pencere köşesi "X" yerine "oturumu kapat" deyin. Sonraki açılışlar kendiliğinden açılmayacaktır. Yine de açılıyorsa, taracının "parolamı anımsa" özellğinden (neresinde olduğunu bilmiyorum) kaldırın.