Web Site Otomatik Login

[crion]

Selamlar herkese, bir ufak sorum olacak sizlere. Excel'de koyduğum bir butona tıklayarak Otohasar Anadolu Sigorta linkindeki Login formuna gerekli bilgileri (Kullanıcı adı, şifre, şirket kodu) otomatik olarak excel'den gerekli bilgileri göndererek browser üzerinde direk giriş yapabilmek istiyorum. Böylece gerektiğinde tek butona tıklayarak sisteme login olmak ve gerekli işlemleri hızla halledebileceğim.

Bunun için nasıl bir yol izlenmelidir? Sitenin arabirimi bu tip bir otomatik login destekliyor mudur? Yardımcı olabilirseniz sevinirim.

 

[halit3]

A1 hücresine kullanıcı adı
B1 hücresine Şifre
C1 hücresine Kurum kodu nu yazıp aşağıdaki makroyu çalıştırın.

Sub giris()
Dim URL As String
Dim HTML_Body As Object
Dim IE As Object
URL = "[URL]https://otohasar.anadolusigorta.com.tr/loginfrm.php?ml[/URL]="
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Navigate URL
.Visible = True
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
IE.Document.all("user_name").Value = Cells(1, "a")
IE.Document.all("user_pass").Value = Cells(1, "b")
IE.Document.all("customer_code").Value = Cells(1, "c")
IE.Document.forms(0).submit
End With
Set IE = Nothing
Set HTML_Body = Nothing
MsgBox ("Bitti  ")
End Sub

 

[crion]

sayfa bilgisini de bu koda ekleyerek sonuca ulaştım, yardımınız için teşekkürler

 

[halit3]

sayfa bilgisini de bu koda ekleyerek sonuca ulaştım, yardımınız için teşekkürler

İyi çalışmalar

 

[phaeton]

Günaydın, sayfayı yeni sayfa da değil de, yeni sekmede açtırmamız için ne yapmamız gerekir.
Bir de, sayfa açıldıktan sonra çıkan mesajın çıkmamasını istiyoruz. Bunlar mümkün mü?
Teşekkürler.

 

[sscuba]

Sayın Halit3;
Benzer Konuyu Daha Önce (SGK ya Otomatik Giriş Yapma Yardım!)
Ben Açtım Ama Kimseden Yardım Alamadım Sizin Kodla ben Uyarlamaya Çlıştım ama Yapamadım konu aynı olunca tekrar açmak yerine Link verdim İncelerseniz Sevinirim Teşekkürler
http://www.excel.web.tr/f14/sgk-ya-otomatik-giri-yapma-yardym-t122167.html

 

[phaeton]

Yalnız yönlendirdiğiniz sayfadaki konu makro ile ilgili değil. Halit Bey'in yaptığı ile benzeşiyor fakat makro da verilen linkin yeni sekmede açılmasını istiyorum. İlgi ve alakanız için çok teşekkür ederim.

 

[phaeton]

Halit Bey,
web sitesini explorer yerine chrome de açılması için yardımcı olabilir misiniz?

Teşekkürler

 

[bahocan]

Merhabalar,
Yukarda ki kodlarla form doldurabiliyorum.
Dolu bir formdan veri kopyalamak istediğimde ilgili kodda nasıl bir değişiklik yapmak gerekiyor.
Örneğin formda yeralan "Field158" tanımlı kutucukta "Ali" yazıyor. Bunu nasıl kopyalayıp excele yapıştırırım vba-kod ile.
Desteğinizi rica ediyorum.

 

[baydeniro]

halit3 üstadım paylaşım için çok teşekkürler.

 

[askm]

Merhabalar,
Yukarda ki kodlarla form doldurabiliyorum.
Dolu bir formdan veri kopyalamak istediğimde ilgili kodda nasıl bir değişiklik yapmak gerekiyor.
Örneğin formda yeralan "Field158" tanımlı kutucukta "Ali" yazıyor. Bunu nasıl kopyalayıp excele yapıştırırım vba-kod ile.
Desteğinizi rica ediyorum.

Cells(1, "a")=IE.Document.all("Field158").innertext

 

[KARTAL133]

Merhaba @halit3

Aşağıdaki kodu ile Google Chrome aca bilirmiyiz.


Sub giris()
Dim URL As String
Dim HTML_Body As Object
Dim IE As Object
URL = "https://otohasar.anadolusigorta.com.tr/loginfrm.php?ml="
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Navigate URL
.Visible = True
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
IE.Document.all("user_name").Value = Cells(1, "a")
IE.Document.all("user_pass").Value = Cells(1, "b")
IE.Document.all("customer_code").Value = Cells(1, "c")
IE.Document.forms(0).submit
End With
Set IE = Nothing
Set HTML_Body = Nothing
MsgBox ("Bitti ")
End Sub

 

[KARTAL133]

Merhaba @halit3 hocam

Konu ile yardımcı olmanızı rica ediyorum.