Google Chrome ile internete girme

[gulvadi]

Merhaba arkadaşlar
Ben Google Chrome ile internete girip Güvenlik kodu, Kullanıcı adı, şifre yazdırarak ilgili siteye girmek istiyorum. aşağıdaki kodda rekli satır hata veriyor. Sebebi nedir?

Sub Google_Chrome()
  Dim Yol As String
  Dim IE As Object
  Yol = "C:\Program Files\Google\Chrome\Application\chrome.exe"
  Shell (Yol & " -url http:tasimali.meb.gov.tr/")
 With IE
[COLOR="Red"]Do Until IE.ReadyState = 4: DoEvents: Loop[/COLOR]
Do While IE.Busy: DoEvents: Loop
Do Until IE.ReadyState = 4: DoEvents: Loop
With IE.Document.all
Application.WindowState = xlMaximized
guvenlik = InputBox("Güvenlik kodunu giriniz")
  .txtFormKontrol.Value = guvenlik
  .txtuser .Value = "Kullahıcıadı"
  .txtSifre .Value = "şifere"
  .btnSubmit.Click
End With
End With
End Sub

 

[Murat OSMA]

Hatayı almasanız bu kodlarla giriş yapabilecek misiniz ?

 

[gulvadi]

Sub Google_Chrome()
  Dim Yol As String
  Dim IE As Object
  Yol = "C:\Program Files\Google\Chrome\Application\chrome.exe"
  Shell (Yol & " -url http:tasimali.meb.gov.tr/")
End Sub

Şeklide yazılıca giriyor.

 

[Murat OSMA]

IE'nin fonksiyonu nedir burada peki ?
Kodlamayı biliyor musunuz ?

 

[gulvadi]

Kodlamayı iyi bilmiyorum ancak IE öcekinden kalma değişken sanırım.

Sub Googlehrome()
  Dim URL As String
Dim IE As Object
Cells(1, 15).Value = Cells(1, 14)
 Set IE = CreateObject("InternetExplorer.Application")
     IE.Visible = True
     IE.Navigate "http://tasimali.meb.gov.tr/"
With IE
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
Do Until IE.ReadyState = 4: DoEvents: Loop
With IE.Document.all
Application.WindowState = xlMaximized
guvenlik = InputBox("Güvenlik kodunu giriniz")
  .txtFormKontrol.Value = guvenlik
  .txtuser.Value = "Kulanıcı"
  .txtSifre.Value = "şifre"
  .btnSubmit.Click
End With
End With
End Sub

şeklide çalışıyor. Fakat sitem Google Chrome ile işlem yaptıra biliyor.

 

[Murat OSMA]

Anladım.. bakalım bu konuda neler yapabileceğiz..

Denemelerim bittiğinde yollarım.

 

[Murat OSMA]

Şu kodları bir deneyiniz;

Sub Google_Chrome()
    Dim Yol As String
    Yol = "C:\Program Files\Google\Chrome\Application\chrome.exe"
    Shell (Yol & " -url http:tasimali.meb.gov.tr/"), vbMaximizedFocus
        Application.Wait Now + TimeValue("00:00:04")
        SendKeys "{Tab}"
        SendKeys "Kullanıcı_Adı"
        SendKeys "{Tab}"
        SendKeys "Sifre"
        SendKeys "{Tab}"
        SendKeys "{ENTER}"
    Yol = vbNullString
End Sub

Chrome açıldıktan sonra en geç 4 sn. içinde güvenlik kodunu girersiniz..

 

[gulvadi]

Teşekkürler Sayın Murat OSMA giriş çok kolaylaştı.

Sub Google_Chrome()
    Dim Yol As String
    Yol = "C:\Program Files\Google\Chrome\Application\chrome.exe"
    Shell (Yol & " -url http:tasimali.meb.gov.tr/"), vbMaximizedFocus
        Application.Wait Now + TimeValue("00:00:03")
        guvenlik$ = InputBox("Güvenlik kodunu giriniz")
        Application.WindowState = xlMinimized
        SendKeys güvenlik$
        SendKeys "{Tab}"
        SendKeys "Kullanıcı_Adı"
        SendKeys "{Tab}"
        SendKeys "Sifre"
        SendKeys "{Tab}"
        SendKeys "{ENTER}"
    Yol = vbNullString
End Sub

olarak değiştirdim.
64 bit bilgisayarda

Yol = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

olarak çalışıyor.

 

[nihatra]

Sizin yazdığınız kodları bir buton'a mı ekleyeceğiz. Ben butonun kod kızmına yazdım çalışmıyor.Örnek dosyanız var mı teşekkürler.

 

[Murat OSMA]

Teşekkürler Sayın Murat OSMA giriş çok kolaylaştı.

Sub Google_Chrome()
    Dim Yol As String
    Yol = "C:\Program Files\Google\Chrome\Application\chrome.exe"
    Shell (Yol & " -url http:tasimali.meb.gov.tr/"), vbMaximizedFocus
        Application.Wait Now + TimeValue("00:00:03")
        guvenlik$ = InputBox("Güvenlik kodunu giriniz")
        Application.WindowState = xlMinimized
        SendKeys güvenlik$
        SendKeys "{Tab}"
        SendKeys "Kullanıcı_Adı"
        SendKeys "{Tab}"
        SendKeys "Sifre"
        SendKeys "{Tab}"
        SendKeys "{ENTER}"
    Yol = vbNullString
End Sub

olarak değiştirdim.
64 bit bilgisayarda

Yol = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

olarak çalışıyor.

Rica ederim Sn. gulvadi, iyi günler...

 

[Murat OSMA]

Sizin yazdığınız kodları bir buton'a mı ekleyeceğiz. Ben butonun kod kızmına yazdım çalışmıyor.Örnek dosyanız var mı teşekkürler.

Module içerisine yazıp çalıştırabilirsiniz. Örnek dosyaya gerek yok.

 

[nihatra]

Sizin yazdığınız kodları bir buton'a mı ekleyeceğiz. Ben butonun kod kızmına yazdım çalışmıyor.Örnek dosyanız var mı teşekkürler

 

[Murat OSMA]

Sorunuz bana değil miydi ? :dusun:

 

[nihatra]

google chrome ile internete giriş

Sayın Murat Bey cevabınız için teşekkür ederim.

SendKeys "{ENTER}" kodlarından Çift tıklama kodu nasıl yazılır.
Örnek ;SendKeys "{ÇİFT TIKLAMA}" gibi

 

[Murat OSMA]

Nerede lâzım olacak bu olay ?

 

[gulvadi]

Sayın Murat OSMA cevabınızı görmemişim. özür dilerim

 

[Murat OSMA]

Estağfurullah.

 

[evren009]

Bu kodlama sadece http://tasimali.meb.gov.tr/ ye giriş içinmi?

 

[baydeniro]

Murat Osma üstadım kod için teşekkürler. Bu kodu kullanarak Linkedine veya başka bir siteye girmek için kullanıcı ve parola kısmı olarak kodu nasıl revize etmek lazım acaba !

 

[askm]

Eğer site ie de çalışan bir site ise chrome ile girme çabasına girmeyin bence. İe de çalışan kod sırasında başka programlar çalıştırılabilirken. Chrome de sendkey ile işlem yaptığı için yanlış bir işleme sebebiyet verebilir. Kod kısmında gizli olan kullanıcı adı ve şifreniz excell penceresini aktif ederek hücreye yazılmasına sebep olabilir. Yani görünür olur.