[Enes Recep BAĞ]

Teşekkürler Ozan bey,
Söylediğiniz isim ile demeler yaptım ama başarılı olamadım, bu konuyu Enes beyin desteği olmadan geçmem zor gözüküyor.

Erhan Bey istek üzerine yaptığım için acil oldu haklısınız oturumu kapatmayı unuttuk, aslında oturumunuz sürekli aktif ise on error resume next yazarak hatayı es geçebilirsiniz ama diğerleri gibi oturumu kapat isterseniz, şirkette denetlemem bittikten sonra bakarım.
Kolay gelsin.

[omeryılmaz]

Öncelikle örnek çalışmada emeği geçenlere şükranlarımı sunuyorum
Sorum
Web'e Bağlanma Örnek dosyasını açtığımda ilişikte görüntü olarak kaydettiğim hatayı almaktayım ve Form kilitleniyor sebebini çözemedim..


HATA :
Bu Belge, Bilgisayarınıza zarar verebilecek gömülü içerik bulunduruyor. Aşağıdaki seçeneklerden birini belirleyin:
. İçeriğin yürütülmesine izin verme (Önerilen)
. Bu, Bildirdiğim bir içerik türü. Yürütülmesine izin ver.

Hatadan sonra seçenekler bile işaretlenemeden kilitleniyor.
Görev yöneticisinden çıkmak zorunda kalıyorum....

Bu hatayı buna benzer bir çok çalışmada vermektedir..

Saygılar

[Enes Recep BAĞ]

Ömer Bey aldığınız hata flash playerin güncel sürümlerinde yapıyor, Bu bildiğim bir içerik türü. Yürütülmesine izin veri seçtiğinizde sorun olmamalı. İsterseniz F8 ile adımlayarak deneyiniz, nerede hata alıyorsunuz.

[Enes Recep BAĞ]

Enes bey yardımlarınız için tekrar teşekkürler. Fakat olayı sizin getirdiğiniz noktadan daha ileriye götüremiyorum. Tweet butonuna tıklayıp, tweet attıktan sonra twitter dan çıkış yapmak istiyorum. Bu sayede her defasında twitter'a giriş yapmak zorunda kalmadan tweet atabilcem ama ben botun isimlerini bir türlü bulamıyorum. Siz buton isimlerini nasıl ve nerden öğreniyorsunuz acaba ?

Şimdilik aşağıdaki kodları kullanabilirsiniz.

Kod: Tümünü seç

Private Sub Twitter_Click()
On Error Resume Next
Dim adres As String
    Me.Caption = "Www.Twitter.Com"
    adres = "https://twitter.com/intent/tweet?text="
    With ie
    .Navigate adres
    Do While Not .ReadyState = 4: DoEvents: Loop
      Do Until ie.ReadyState = 4: Loop
        .Document.getElementById("username_or_email").Value = "Kullanıcı_adınız"
        .Document.getElementById("password").Value = "Şifreniz"
        .Document.getElementsByName("commit")(0).Click
         erb = InputBox("Tweet notunuzu yazınız.", "Www.ExcelVba.Net")
        .Document.getElementById("Update-form")(2).Value = erb
        End With
      adres = ""
End Sub

Bu kodlar ile karşınıza gelen inputbox ile mesajınızı yazabilirsiniz.
Şuan tweet düğmesini yapamadım, yapsaydım tekrar tweet sayfasına geçmeyi yapacaktım.
Müsait bir anımda tekrardan bakayım.

Siz buton isimlerini nasıl ve nerden öğreniyorsunuz acaba ?

Kodları nereden öğreniyorum;
Aşağıdaki başlığı inceleyiniz.
http://www.excelvba.net/viewtopic.php?f=92&t=12672

[Hanmet]

Enes beyin kodları ile belli bir yere kadar geldim. Asıl sorunum tweet bağlandıktan sonra hesaptan çıkış yapılmıyor. Tarayıcıda açık kalıyor. Çıkış için bir yol tarif edebilir misiniz ?

[Enes Recep BAĞ]

Enes beyin kodları ile belli bir yere kadar geldim. Asıl sorunum tweet bağlandıktan sonra hesaptan çıkış yapılmıyor. Tarayıcıda açık kalıyor. Çıkış için bir yol tarif edebilir misiniz ?

Erhan Bey nereye kadar geldiniz, kodlarınızın son halini paylaşabilir misiniz?

[Hanmet]

Sizin kodlarınıza ilave olarak Enter tuşu ile Giriş Yap ve Tweet le tuşunu çalıştırdım ama bu defa da çıkış tuşunda takılı kaldım. Şu anda buna bir çözüm arıyorum..

Kod: Tümünü seç

        .Document.GetElementById("username_or_email").Focus()
        SendKeys.Send("{tab}")   'Şifre Kutusuna geldi..
        SendKeys.Send("{tab}")   'Beni hatırla ya geldi..
        SendKeys.Send("{tab}")   'Şifremi unuttum linkine geldi..
        SendKeys.Send("{tab}")   'Giriş yap ve tweetle butonuna geldi..
        SendKeys.Send("{ENTER}") 'Girişe ENTER yapıldı..


[Hanmet]

Çıkış butonu için bir fikriniz var mı Enes Bey ?

[Enes Recep BAĞ]

Çıkış butonu için bir fikriniz var mı Enes Bey ?

Üzgünüm başarılı olamadım Erhan Bey.

[Enes Recep BAĞ]

Bu programında esprisi kalmadı artık.
Tweeterdan sonra, galiba facebookta kapatılacak.

[kavakli313]

Kod: Tümünü seç

Private Sub TextBox1_Change()
If textbox1.TextLength = 4 Then
        With ie
        Do While .Busy: DoEvents: Loop
        Do While .ReadyState <> 4: DoEvents: Loop
           With .Document.all
            .txtKullanici.Value = Range("h3").Value
            .txtSifre.Value = Range("h4").Value
            .txtGuvenlikKodu.Value = textbox1.Value
           End With
        End With
End If
End Sub

http://aolweb.aol.meb.gov.tr/ogrenci_giris.aspx
Arkadaşlar AÖL sitesinde giriş butonunu tıklattıramadım. Ne yazmam gerekiyor.

[Enes Recep BAĞ]

Merhaba Muharrem Bey,

Kod: Tümünü seç

ie.document.all.Item(70).Click

Kod: Tümünü seç

ie.document.all.txtKullanici.Value = "Kullanıcı adınızı girin"
ie.document.all.txtSifre.Value = "Şifrenizi girin"
ie.document.all.Item(65).Click'Beni hatırla seçeneğini işaretler
ie.document.all.Item(70).Click'Giriş için tıklayınızı, tıklar

[kavakli313]

Merhaba Muharrem Bey,

Kod: Tümünü seç

ie.document.all.Item(70).Click

Kod: Tümünü seç

ie.document.all.txtKullanici.Value = "Kullanıcı adınızı girin"
ie.document.all.txtSifre.Value = "Şifrenizi girin"
ie.document.all.Item(65).Click'Beni hatırla seçeneğini işaretler
ie.document.all.Item(70).Click'Giriş için tıklayınızı, tıklar

Enes bey yardımınız için çok teşekkür ederim, şu şekilde bir kod ile giriş yaptım.

Kod: Tümünü seç

For Each btn In ie.Document.all.tags("input")
            If btn.Value = "Giriş İçin Tıklayınız" Then
            btn.Click
            End If
            Next btn

Ancak giriş yaptıktan sonra dönem dersleri bölümünde combobox var. Buradan dönem seçtiremiyorum. Bu konudada yardımcı olursanız sevinirim. Ekran resmini atıyorum.

[Enes Recep BAĞ]

Görmeden yardımcı olamam maalesef.

[melosa]

Trendyoluda yapabilirmisiniz bir tek onun içinden çıkamadım Get yöntemi olsun dırek werı al olsun her türlü tarayıcınız güncel değil hatası alıyorum