Özel Arama
Aşağıdaki kod çalışmıyor.
- Kod: Tümünü seç
Private Sub Net_Click()
On Error Resume Next
Dim i As Long
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://www.callnet.com.tr/login"
Do While IE.readyState = 4: DoEvents: Loop 'Do While
Do Until IE.readyState = 4: DoEvents: Loop 'Do Until
IE.Document.getElementById("email").Value = "Kullanıcıadı" 'Worksheets("KONTROL").Range("N1").Value
IE.Document.getElementById("password").Value = "Şifre" 'Worksheets("KONTROL").Range("N2").Value
IE.Document.getElementsByClassName("btn btn-primary")(0).Click
' Set Button = IE.Document.getElementsByClassName("btn btn-primary")
' For Each btn In Button
' btn.Click
' Exit For
' Next
Do While IE.readyState = 4: DoEvents: Loop 'Do While
Do Until IE.readyState = 4: DoEvents: Loop 'Do Until
End Sub
Mevcut sitenin giriş kaynak kodları aşağıdadır
- Kod: Tümünü seç
</a>
</div>
<div class="form" id="login-form">
<div class="form-group">
<label for="login_username">Sicil Numarası</label>
<input type="number" min="1" max="999999" class="form-control" id="login-username" placeholder="Sicil Numaranızı giriniz..." data-nextcontrol="login-password" title="Bu alana sicil numaranızı giriniz. Sicil numarası rakam olmalıdır..." />
</div>
<div class="form-group">
<label for="login_password">Şifre</label>
<input type="password" class="form-control" id="login-password" placeholder="Şifrenizi giriniz..." data-nextcontrol="login-btn" title="Bu alana şifrenizi giriniz..." />
</div>
<div class="form-group">
<button type="button" id="login-btn" class="btn btn-primary btn-block">Giriş <i class="fa fa-play-circle"></i></button>
</div>
</div>
