Nesine.com sitesi giriş ekranında Kullanıcı adı ve Şifre gelmiyor

[pNouma]

Merhaba;

https://www.nesine.com/sportoto

Aşağıdaki kod ile sitesine kullanıcı adı ve şifre ile giriş yapmak istediğim zaman;

internet explorer açıldığında, ekli ekran görüntüsünde yer alan en üst barda görünmesi gereken kullanıcı adı ve şifre ile giriş alanı gelmiyor?

screenshot

bu konuda nerede hata yapıyor olabilirm?
desteğiniz için şimdiden teşekkür ederim.
iyi Çalışmalar.

Sub test()
    Dim ie As Object
    Dim tckn, psw
    
 ''   On Error Resume Next
    
tckn = Sayfa2.Range("AE27")
psw = Sayfa2.Range("AE28")

    
20:

''Shell "TaskKill/f/im iexplore.exe"

    basla = Timer: While (Timer - basla) < 1: Wend

    Set ie = VBA.CreateObject("internetexplorer.application")
    
    With ie
        .Visible = True
                apiShowWindow ie.hwnd, SW_MAXIMIZE

        .navigate "https://www.nesine.com/sportoto"
            Do While Not .readystate = 4: DoEvents: Loop
            basla = Timer: While (Timer - basla) < 1: Wend
             
             Application.Wait (Now + TimeValue("0:00:01"))

            .document.getelementbyName("header-username-input").Value = tckn
            .document.getelementbyName("header-password-input").Value = psw
            
            For Each aa In .document.getelementsbytagname("a")
                If aa.innertext = "GİRİŞ" Then
                   ' aa.Click
                    Exit For
                End If
            Next aa
            
   End With
   
   Set ie = Nothing
   
End Sub

 

[emin37300]

Merhaba;

https://www.nesine.com/sportoto

Aşağıdaki kod ile sitesine kullanıcı adı ve şifre ile giriş yapmak istediğim zaman;

internet explorer açıldığında, ekli ekran görüntüsünde yer alan en üst barda görünmesi gereken kullanıcı adı ve şifre ile giriş alanı gelmiyor?

screenshot

bu konuda nerede hata yapıyor olabilirm?
desteğiniz için şimdiden teşekkür ederim.
iyi Çalışmalar.

Sub test()
    Dim ie As Object
    Dim tckn, psw
  
''   On Error Resume Next
  
tckn = Sayfa2.Range("AE27")
psw = Sayfa2.Range("AE28")

  
20:

''Shell "TaskKill/f/im iexplore.exe"

    basla = Timer: While (Timer - basla) < 1: Wend

    Set ie = VBA.CreateObject("internetexplorer.application")
  
    With ie
        .Visible = True
                apiShowWindow ie.hwnd, SW_MAXIMIZE

        .navigate "https://www.nesine.com/sportoto"
            Do While Not .readystate = 4: DoEvents: Loop
            basla = Timer: While (Timer - basla) < 1: Wend
           
             Application.Wait (Now + TimeValue("0:00:01"))

            .document.getelementbyName("header-username-input").Value = tckn
            .document.getelementbyName("header-password-input").Value = psw
          
            For Each aa In .document.getelementsbytagname("a")
                If aa.innertext = "GİRİŞ" Then
                   ' aa.Click
                    Exit For
                End If
            Next aa
          
   End With
 
   Set ie = Nothing
 
End Sub

Nesne.com İnternet Explorer tarayıcısında desteği bırakalı çok oldu, bu yüzden İnternet Explorer dışında Chrome edge firefox vs. gibi tarayıcılar ile giriş yapmanız gerekiyor bu tarayıcıları doğrudan kontrol edemezsiniz ya 3. Part yazılım ile Selenium web driver gibi yada yazılıma gerek olmadan Chrome Devtools Protokolü ile kontrol ederek yapmanız gerekiyor. Bu konuyla ilgili daha önce bir çalışma yapmıştım