web adresine kullanıcı adı ve parola ve şifre girmek.

[sametozyavuz]

belirli bir web adresinde kullanıcı adımı ve parolamı girmek istiyorum.
bu konuda yardımıcı olabilir misiniz?
yardımcı olmak isteyene adres özel mesajla gönderilecektir.
belli bir kalıp var ise kodu da ekleyebilirsiniz.

yanlız önce
kullanıcı adı ve parola soran bir sayfa geliyor
sonra bunlar doğru ise şifre soran ikinci bir bölüme geçiyor.
bankalar gibi.
şimdiden herkese teşekkürler.

 

[Murat OSMA]

Adres nedir ?

 

[sametozyavuz]

http://ggbs.tarim.gov.tr/cis/servlet/StartCISPage?PAGEURL=/FSIS/ggbs.AnaMenu.html&POPUPTITLE=AnaMenu

 

[Murat OSMA]

Şu an için bu kodlar işinizi görür.

Deneyiniz;

Sub Tarim_Gov_TR()
    Dim ie As Object
    Set ie = CreateObject("internetexplorer.application")
    With ie
        adres = "http://ggbs.tarim.gov.tr/cis/servlet/StartCISPage?"
        adres = adres & "PAGEURL=/FSIS/ggbs.AnaMenu.html&POPUPTITLE=AnaMenu"
        .navigate adres
        .Visible = True
        Do While Not .readyState = 4: DoEvents: Loop
        Do While .busy: DoEvents: Loop
        With Application
            .Wait Now + TimeValue("00:00:06")
            .SendKeys "kullanıcı adını yazınız"
            .SendKeys "{TAB}"
            .SendKeys "Şifrenizi yazınız"
            .SendKeys "{TAB}"
            .SendKeys "{ENTER}"
        End With
    End With
    Set ie = Nothing
End Sub

 

[sametozyavuz]

.SendKeys "{ENTER}"


sadece bu kod işlem yapmıyor.
geri kalanı çalıştı.

 

[Murat OSMA]

ENTER'a da basarsınız artık.

 

[sametozyavuz]

artık öyle yapacağız. elinize sağlık.

 

[Murat OSMA]

Hoşça kalın !

 

[sametozyavuz]

Şu an için bu kodlar işinizi görür.

Deneyiniz;

Sub Tarim_Gov_TR()
    Dim ie As Object
    Set ie = CreateObject("internetexplorer.application")
    With ie
        adres = "http://ggbs.tarim.gov.tr/cis/servlet/StartCISPage?"
        adres = adres & "PAGEURL=/FSIS/ggbs.AnaMenu.html&POPUPTITLE=AnaMenu"
        .navigate adres
        .Visible = True
        Do While Not .readyState = 4: DoEvents: Loop
        Do While .busy: DoEvents: Loop
        With Application
            .Wait Now + TimeValue("00:00:06")
            .SendKeys "kullanıcı adını yazınız"
            .SendKeys "{TAB}"
            .SendKeys "Şifrenizi yazınız"
            .SendKeys "{TAB}"
            .SendKeys "{ENTER}"
        End With
    End With
    Set ie = Nothing
End Sub

kullanıcı adının içerisinde "i" harfi olduğunda internetexplorera "0" olarak geçiyor. bunu düzeltebilirmiyiz.

 

[Murat OSMA]

Kullanıcı adı ne meselâ ?

 

[Murat OSMA]

Kullanıcı adı yazarken SendKeys'in başındaki nokta işaretini silin.

Örnek olarak İsmail ismini baz alalım.
Bu şekilde deneyin;

SendKeys "ismail"

 

[sametozyavuz]

i sorununun yanıda enter sorunu da çözüldü. teşekkürler.

 

[Murat OSMA]

Rica ederim, iyi günler.

 

[beyinmuhendisi]

Gayet kullanışlı; elinize sağlık ancak Num Lock neden kapanıyor.

 

[sametozyavuz]

numlock için aşağıdaki kodu en sona ekleyin.

SendKeys "{NUMLOCK}"