Arkadaşlar, vba üzerinden username, pass ve click butonu ile html intranet sayfasına müdahale ettim.
ancak açılan 2.sayfadaki combobox 'a bir türlü müdahale edemiyorum,
yardım lütfen.
Sayfasnın HTML KODU ŞU ŞEKİLDE:
ancak açılan 2.sayfadaki combobox 'a bir türlü müdahale edemiyorum,
yardım lütfen.
Kod:
Sub ef()
Dim IE As InternetExplorer, tmpUrl As String
Set IE = New InternetExplorerMedium
IE.Visible = True
tmpUrl = "https://daytime.intra/ng/ngLogin.faces"
IE.Navigate tmpUrl
Do While IE.Busy
DoEvents
Loop
Do While Not IE.ReadyState = 4: DoEvents: Loop
IE.Document.getElementsByName("form1:textusername")(0).Value = "George"
IE.Document.getElementsByName("form1:password")(0).Value = "123456"
IE.Document.getElementById("form1:btnLogin").Click
'Buraya kadar tüm makrolar çalışıyor
'Sayfadaki ilgili alanlara kullanıcı adı ve şifreyi giriyor ve butona click yaparak yeni bir web sayfası açılıyor
'Bu açılan yeni sayfada işte COMBOBOX VAR Bir türlü KONTROL edemediğim!!!:
Do While Not IE.ReadyState = 4: DoEvents: Loop
IE.Document.getElementById("form2:menuSistem").Focus
IE.Document.getElementById("form2:menuSistem").Value = "Afternoon" (Burada COMBObox 'daki değeri neden seçtiremiyorum)
Do While Not IE.ReadyState = 4: DoEvents: Loop
End Sub
------------------------------------------------------------------------------------------
Combobox'da default olarak "Choose" geliyor, ben bunu "Afternoon" olarak neden bir türlü seçtiremiyorum sizce??
BU ComboBox 'ın adı sayfanın kaynağına baktığımda " form2:menuSistem" olarak görünüyorSayfasnın HTML KODU ŞU ŞEKİLDE:
HTML:
}
function func_logout() {
inFormOrLink = true;
document.getElementById('form2').target = '_top';
document.getElementById('form2:hiddenSistemURL').value = 'LOGOUT';
document.getElementById('form2:menuSistem').value = '1';
customWindow('_top','/sso/Logout.faces', 'K');
}
<TD width="234px" height="25px" bgcolor="#F4F4F4" align="left" valign="bottom"><select id="form2:menuSistem" name="form2:menuSistem" size="1" onchange="func_1('form2:menuSistem')" class="selectOneMenu"> <option value="0">Choose</option> <option value="62">Morning</option> <option value="44">Afternoon</option> <option value="19">Night</option></select></TD>