- Katılım
- 15 Nisan 2007
- Mesajlar
- 3,471
- Excel Vers. ve Dili
- Office 2010 & 2013 tr
Selamlar,
Aşağıdaki kodla explorer üzerinde açık olan bir web sitesini nesne olarak tanımlayıp web sitesinin üzerinde istediğim işlemleri yapabiliyordum. Fakat explorer işlevselliğini yitirmeye başladığı için seleniuma geçmek bir zorunluluk haline geldi. Bahsettiğim işlemi selenium ile yapmak mümkün mü?
Aşağıdaki kodla explorer üzerinde açık olan bir web sitesini nesne olarak tanımlayıp web sitesinin üzerinde istediğim işlemleri yapabiliyordum. Fakat explorer işlevselliğini yitirmeye başladığı için seleniuma geçmek bir zorunluluk haline geldi. Bahsettiğim işlemi selenium ile yapmak mümkün mü?
HTML:
Function IEObject() As Object
'-------------------------------------------
Set ShellApp = CreateObject("Shell.Application")
Set ShellWindows = ShellApp.Windows()
Dim sName As String
For Each ObjWind In ShellWindows
If (Not ObjWind Is Nothing) Then
sName = ObjWind.Name
If sName = "Internet Explorer" Then
Set IEObject = ObjWind
adres1 = InStr(ObjWind.LocationURL, "e-okul.meb.gov.tr")
adres2 = InStr(ObjWind.LocationURL, "eokul.meb.gov.tr")
If adres1 + adres2 <> 0 Then
Set IEObject = ObjWind
Exit For
End If
Else
Set IEObject = Nothing
End If
End If
Next
'------------------------------------------------------
End Function