+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Webrowser1 Komutunu İe İle Kullanma (/konu-webrowser1-komutunu-ie-ile-kullanma.html)
Sayfalar:
1
2
Cvp: Webrowser1 Komutunu İe İle Kullanma - karizmax - 20/06/2018
Ellerinize sağlık,
devamında kullanıcı kodlarını yazdırmam için ne yapabilirim.
örnek kodlar aşağıda ancak giriş yapamıyor, yardımcı olabilr misiniz....
ie.Document.getElementById("username").Value = Cells(28, "a")
ie.Document.getElementById("password2").Value = Cells(29, "a")
ie.Document.getElementById("password1").Value = Cells(30, "a")
Cvp: Webrowser1 Komutunu İe İle Kullanma - ozanakkaya - 21/06/2018
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
Cvp: Webrowser1 Komutunu İe İle Kullanma - karizmax - 21/06/2018
Çok teşekkür ederim..