код onchange
- Код: Выделить всё
<table border="0" cellspacing="0" cellpadding="5">
<tr bgcolor="a13c2f">
<td align="center" nowrap><b>Press</b></td>
</tr>
<tr bgcolor="white">
<td nowrap><input type="hidden" name="set-login-guest" value="$false"><br> <b>Имя: </b><br> <input type="text" name="text-login-user" value="" size="50"> </td>
</tr>
<tr bgcolor="white">
<td nowrap> <b>Пароль: </b><br> <input type="password" name="password-login-password" value="" size="50"> </td>
</tr>
<tr bgcolor="white">
<td nowrap>
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr>
<td align="left">
<b>Язык: </b>
<input type="hidden" name="command-_K4500_ISO639PopUp-reload" value="">
<select name="select-_K4500_ISO639PopUp-selected_shortcut" size="1" id="language" onchange="setLanguage(this.value);this.form.elements['command-_K4500_ISO639PopUp-reload'].value='x'; this.form.submit()">
<option value="">English
<option value="de" selected>Русский
</select><br>
</td>
<td align="right">
<input type="submit" name="submit-login-login" value="Вход"> <br>
</td>
</tr>
</table>
</td>
</tr>
</table>
пробовал через
- Код: Выделить всё
If (CurrentWindow.Frames.Count > 0) Then
For Each Frame As HtmlWindow In CurrentWindow.Frames
FrameUrl = Frame.Url.ToString()
If Frame.Name = "mainFrame" Then
With Frame.Document
theElementCollection = .GetElementsByTagName("select")
For Each curElement As HtmlElement In theElementCollection
Dim acc = curElement.Children
For i = 0 To acc.Count - 1
If acc.Item(i).InnerText = "Russian" Then
theElementCollection = .GetElementsByTagName("option")
For Each curElement3 As HtmlElement In theElementCollection
If curElement3.InnerText.Equals("Russian") Then
curElement.InvokeMember("onchange")
End If
Next
n = 4
End If
Next
Next
End With
End If
Next
End If
но нужное не выбирается. есть идеи???