Private Sub CommandButton2_Click()

 

Dim ie As Object

Set ie = CreateObject("internetexplorer.application")



ie.Visible = True



ie.Navigate "https://intvd.gib.gov.tr/internetvd/index.jsp"



Do While ie.Busy Or Not ie.ReadyState = READYSTATE_COMPLETE

DoEvents

Loop

 

Call ie.Document.parentWindow.execScript("openLoginPopup()", "JavaScript")

    

ie.Visible = False



Set objShell = CreateObject("Shell.Application")

IE_count = objShell.Windows.Count



For x = 0 To (IE_count - 1)



On Error Resume Next

 

my_url = objShell.Windows(x).Document.Location



    If my_url = "https://intvd.gib.gov.tr/internetvd/dispatch2?cmd=IVD_LOGINPAGE" Then

        Set ie2 = objShell.Windows(x)

        ie2.Visible = False

        

        MsgBox ("Web Sayfasına Aktarım Yapıldı")

     

        ie2.Document.getElementById("username").innerText = Cells(28, "a")

        ie2.Document.getElementById("password2").innerText = Cells(29, "a")

        ie2.Document.getElementById("password1").innerText = Cells(30, "a")

        ie2.Visible = True

'        Exit For

    End If

Next



ie.Quit





End Sub