Alıntı:1- Ekte sunduğum Excel dosyası ile face ve benzeri ekranlara giriş yapabiliyorum. (Erhan beyin kodu ve form sayesinde) Yalnız yine ekte gönderdiğim htm sayfasında alana bir türlü giriş yaptıramadım. loginForm:txtLoginSicilNo olduğu için giriş yapamadım.
.document.getElementById("loginForm:txtLoginSicilNo").Value = Range("A1").Value
komutunu kabul etmiyor. Burada nasıl bir komut kullanmam gerek.
talebinize yönelik olarak;
deneme imkanı ve zaman bulamama nedeni ile ancak kodları yazmak sureti ile paylaşmak durumundayım.aşağıdaki kodları kullanıp deneyiniz.
olası sorun durumunda gerekirse ekran görüntüsü dahil ederek bilgilendiriniz.
Kod:
Dim HTMLDoc As HTMLDocument
Dim MyBrowser As InternetExplorer
Sub facegiris()
Dim MyHTML_Element As IHTMLElement
Dim MyURL As String
On Error GoTo Err_Clear
MyURL = "https://tr-tr.facebook.com/"
Set MyBrowser = New InternetExplorer
MyBrowser.Silent = True
MyBrowser.navigate MyURL
MyBrowser.Visible = True
Do
Loop Until MyBrowser.readyState = READYSTATE_COMPLETE
Set HTMLDoc = MyBrowser.document
HTMLDoc.all.Email.Value = Range("A2").Value
HTMLDoc.all.passwd.Value = Range("B2").Value
For Each MyHTML_Element In HTMLDoc.getElementsByTagName("input")
If MyHTML_Element.Type = "submit" Then MyHTML_Element.Click: Exit For
Next
Err_Clear:
If Err <> 0 Then
Err.Clear
Resume Next
End If
End SubSite Kuralları sayfasında yazılı hususları tekrar incelemenizi temenni etmekle birlikte,lütfen her bir sorunuz için YENİ KONU açmaya özen gösteriniz.teşekkürler.
bilginize...iyi çalışmalar,saygılar.
