Что нового

Кликнуть на элемент меню

TwDY

Новичок
Сообщения
13
Репутация
0
Добрый день, подскажите пожалуйста, меню задано вот в таком виде
Код:
<table class="screen-menu" width="100%" cellpadding="0" cellspacing="0">

	<tr class="screen-menu-level1">

	<td><table border="0" cellpadding="1" cellspacing="1" width="100%"><tr>

		<td class="screen-menu-level1-item-selected">

			<nobr>

			<a href="/detalisation/itemSelected.do?screenMenu.key_selected_item=0" class="screen-menu-level1-item-selected" onclick="return true;">item0</a>

			</nobr>

		</td>

		<td class="screen-menu-level1-item">

			<nobr>

			<a href="/detalisation/itemSelected.do?screenMenu.key_selected_item=1" class="screen-menu-level1-item" onclick="return true;">item1</a>

			</nobr>

		</td>

		<td class="screen-menu-level1-item">

			<nobr>

			<a href="/detalisation/itemSelected.do?screenMenu.key_selected_item=2" class="screen-menu-level1-item" onclick="return true;">item2</a>

			</nobr>

		</td>

		<td class="screen-menu-level1-item">

			<nobr>

			<a href="detalisation/itemSelected.do?screenMenu.key_selected_item=3" class="screen-menu-level1-item" onclick="return true;">item3</a>

			</nobr>

		</td>

		<td class="screen-menu-level1-item">

			<nobr>

			<a href="/web/detalisation/itemSelected.do?screenMenu.key_selected_item=4" class="screen-menu-level1-item" onclick="return true;">item4</a>

			</nobr>

		</td>

		<td class="screen-menu-level1-item">

			<nobr>

			<a href="/detalisation/itemSelected.do?screenMenu.key_selected_item=5" class="screen-menu-level1-item" onclick="return true;">item5</a>

			</nobr>

		</td>

		<td class="screen-menu-level1-item" width="100%">

			 

		</td>

	</tr></table></td>

	</tr>

 

</table>
Как можно кликнуть на item1?
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,323
TwDY,
Попробуйте сделать примерно так.
Код:
#include <IE.au3>

$sUrl = @ScriptDir & '\1.html';url

$oIE = _IECreate($sUrl)
$oTables = _IETableGetCollection($oIE)
For $oTable In $oTables
	If $oTable.ClassName == 'screen-menu' Then
		$oLinks = _IETagNameGetCollection($oTable, 'a')
		For $oLink In $oLinks
			If _IEPropertyGet($oLink, 'innertext') == 'item1' Then
				_IEAction($oLink, 'click')
				_IELoadWait($oIE)
				ExitLoop 2
			EndIf
		Next
	EndIf
	MsgBox(16, 'Error', 'No')
Next
MsgBox(64, 'Info', 'OK')
 

alex33

Скриптер
Сообщения
1,457
Репутация
186
madmasles
OffTopic:

Прям как я стали кодить :D :D :D :smile:
Только проверки на IsObj перед циклом For не хватает... :smile:
 
Верх