Webden Veri Al (Şifre)

[ozgurpeh]

Merhaba,

V
Webden alınan veri ile ilgili olarak, ilgili siteye ait kullanıcı adı ve şifreyi otomatik olarak nasıl gireriz ? Mesela bu site için excell foruma excelde bağlantı kurup kullanıcı adı ve şifresini nasıl gireriz ? böyle bir yol var mı ?

 

[hoguz2]

Merhaba ,

login olunacak sitede robot kontrolu yoksa çok çeşitli yollarla giriş yapilabilir.

Sub Excel_web_tr_giris()
    Set IE = CreateObject("InternetExplorer.Application")
    my_url = "http://www.excel.web.tr/index.php"
    With IE
        .Visible = True
        .Navigate my_url
        .Top = 50
        .Left = 530
        .Height = 400
        .Width = 400
    Do Until Not IE.Busy And IE.readyState = 4
        DoEvents
    Loop
    End With
    IE.Document.getElementById("navbar_username").Value = "hoguz2"
    IE.Document.getElementById("navbar_password").Value = "*****password****"
Set objInputs = IE.Document.getElementsByTagName("input")
For Each ele In objInputs
If ele.Title Like "Foruma girmek*" Then
    'If ele.Title Like "Foruma girmek için kullanıcı adı ve şifrenizi giriniz, eğer üye değilseniz 'kayıt' linkinden kayıt olabilirsiniz." Then
        ele.Click
    End If
Next
       Do Until Not IE.Busy And IE.readyState = 4
        DoEvents
    Loop
End Sub

 

[ridvanucok]

Merhaba ,

login olunacak sitede robot kontrolu yoksa çok çeşitli yollarla giriş yapilabilir.

Sub Excel_web_tr_giris()
    Set IE = CreateObject("InternetExplorer.Application")
    my_url = "http://www.excel.web.tr/index.php"
    With IE
        .Visible = True
        .Navigate my_url
        .Top = 50
        .Left = 530
        .Height = 400
        .Width = 400
    Do Until Not IE.Busy And IE.readyState = 4
        DoEvents
    Loop
    End With
    IE.Document.getElementById("navbar_username").Value = "hoguz2"
    IE.Document.getElementById("navbar_password").Value = "*****password****"
Set objInputs = IE.Document.getElementsByTagName("input")
For Each ele In objInputs
If ele.Title Like "Foruma girmek*" Then
    'If ele.Title Like "Foruma girmek için kullanıcı adı ve şifrenizi giriniz, eğer üye değilseniz 'kayıt' linkinden kayıt olabilirsiniz." Then
        ele.Click
    End If
Next
       Do Until Not IE.Busy And IE.readyState = 4
        DoEvents
    Loop
End Sub

Merhaba,

Kod çalışıyor. Bilginize

Teşekkürler.

 

[hoguz2]

rica ederim..

 

[ozgurpeh]

evet, excel forum için çalisiyor burda dikkat edilmesi gereken detay nedir ? mesela örnek olarak facebook a girecek olsakta ayni mantik mi ?

 

[askm]

End With komutuna kadar istenilen web sayfasının açılıp, boyutlandırılması ve tam yüklenmesi sağlanıyor (bekleniyor). Buraya kadar mantık aynı.Yalnız asıl kod burdan sonra başlıyor. İşlem yapmak istediğiniz web sayfasının arka planında kodlar bulunuyor. Bu kısımdaki kodlar da bunlara göre yazılıyor. Web sayfasının kod kısmında id olduğu için getElementById ile istenilen elemana ulaşılmış oluyor. Bazı durumlarda id olmuyor. Bu duırumda da tagname vb. diğer yöntemler kullanılıyor. Yani veri çekeceğiniz ya da login olacağınız sayfaya göre kod yazmak gerekiyor.

 

[hoguz2]

internette bu tür kodları bulabilirsiniz.

nasıl yapıldığını Öğrenmek için incelemeniz anlamaya çalışmanız gerek ..

Herhangi bir browserda istediğiniz sayfanın login için kullanılan öğelerini üstüne sağ tıklayıp "öğeyi incele" dediğinizde kodlar açılacaktır. O kodların içinde gecen ID ler tag itemler tap indexler name ler title lar vs işimize hangisi yarayacaksa , kullanılarak yani öğelere verilmiş isimler referans gösterilerek VBA dan o programa ASP.net PHP C++ vs hükmedilebiliyor.. o programlardan da Excele hükmedilebilir . yazılımcılar bunları bir birine entegre olabilecek şekilde geliştiriyor.


Sub facebookPost()
Dim IE As Object
Dim sUser As String, sPass As String

'~~> Change as Applicable
sUser = "hoguz2@fdjksaha.com.tr"
sPass = "*****password*****"

Set IE = CreateObject("INTERNETEXPLORER.Application")

IE.Navigate ("www.Facebook.com")
IE.Visible = True

Do While IE.Busy: DoEvents: Loop

Application.Wait (Now + TimeValue("00:00:02"))

IE.Document.all.Item("email").Value = sUser
IE.Document.all.Item("pass").Value = sPass
IE.Document.all.Item("loginbutton").Click
End Sub