şifreli bir sayfadan web sorgusu ile data çekmek

[Mostwag]

konudan da anlaşıldığı üzere şifre ile girdiğim bir sayfa var ve her seferde sorguyu düzenle diyip şifre ve kullanıcı adımı girdikden sonra data aktarımı yapabiliyorum. Ne yapmalıyımda bu sorunu aşayım. Teşekkürler...
bu arada sorgu makro kodları arasına .username="******" ve .password="*****" gibi bi denemem oldu yanlız başarısızlıkla...

 

[Levent Menteşoğlu]

Şifre derken web sayfasındaki kullanıcı adı ve şifresinimi kasdediyorsunuz.

 

[Mostwag]

evet aynen öle

 

[Mostwag]

arkadaşlar böyle bir sıkıntısı olan varsa bir çözüm buldum ben öncelikle excel vb den userform açıyoruz ve bu forma compenents den microsoft web browser ı ekliyoruz ardından aşağıdaki kodu yazıyoruz.
Sub otogiris()
Dim username As String
Dim password As String
username = "*********"
password = "******"
WebBrowser1.Document.all("Buraya html kod içindeki username ID si").Value = username
WebBrowser1.Document.all("Buraya html kod içindeki şifre ID si").Value = password
WebBrowser1.Document.Forms("Buraya Giriş Form ID si").submit ' burada formdaki butona tıklıyor

End Sub
Private Sub UserForm_Initialize()
WebBrowser1.Navigate "https://secure.sahibinden.com/giris/"
Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
If WebBrowser1.ReadyState = READYSTATE_COMPLETE Then
UserForm1.otogiris
End If
End Sub
bu kodu userformunuza yapıştırdıktan sonra şimdi excelden web sorgusu yapabilirsiniz şifre girmeden.
Kolay gelsin