Aşağıdaki kodu kullanarak QR kodu okutup giriş yapabilirsiniz.
(Bu kodu önceki programların giriş işlemlerini yapan kısmıyla değiştirmeniz gerekir.)
Private Sub CommandButton1_Click()
Dim eokul As New Selenium.WebDriver, element As WebElement, sec As SelectElement, resim As Selenium.Image, anapencere As Selenium.Window
Dim y As Integer, x As Integer, sinif As Integer
Dim snfMvcd As String
eokul.Start "chrome"
eokul.Get "
https://mebbis.meb.gov.tr/index.aspx"
eokul.FindElementByXPath("/html/body/div[1]/div/div[2]/div/div/form/div[3]/div[5]/div/a[1]").Click
eokul.Wait 1000
MsgBox "QR KODU OKUTUN SONRA DEVAM EDİN" 'Burada QR kodunUN girilmesini bekliyoruz.
eokul.FindElementByXPath("/html/body/form/section/div/div/div[2]").Click
eokul.Wait 1000
eokul.FindElementByXPath("/html/body/form/div[8]/div/div/div[2]/ul/li[1]/a").Click ' e-okul giriş tıklama
eokul.Wait 1000
eokul.SwitchToNextWindow
eokul.Wait 1000
eokul.SwitchToPreviousWindow
eokul.Get "
https://e-okul.meb.gov.tr/IlkOgretim/OKL/IOK00011.aspx" 'ORTAOKUL KURUM İŞLEMLERİNE GİR
eokul.Wait 1000