[Сеть, интернет] Выбрать определенное значение из списка в окне IE.

#include <IE.au3>
$oIE = _IECreate("www.vkontakte.ru")
WinSetState("В Контакте | Добро пожаловать - Windows Internet Explorer", "", @SW_MAXIMIZE)
_IELoadWait($oIE)
$oDivs = _IETagNameGetCollection ($oIE, "DIV")
For $oDiv In $oDivs
      if StringInStr($oDiv.id,"container0") then
         $oInputs = _IETagNameGetCollection ($oIE, "INPUT")
         For $oInput In $oInputs
	if StringInStr($oInput.value,"- Не выбран -") then
	   ;$oInput.value = "мужской"
	   _IEAction($oInput,"focus")
	   _IEAction($oInput,"click")
	   ;Sleep(1000)
	   $oLIs = _IETagNameGetCollection ($oIE, "LI")
	   $i = 0
	   ConsoleWrite("Кол-во найденных <LI> = "&@EXTENDED&@CRLF)
	   For $oLI In $oLIs
	         $i += 1
		ConsoleWrite($i&". $oInputt.value = "&$oLI.value &@CRLF&$i&". $oInputt.innertext = "&$oLI.innertext&@CRLF)
;___________________________________________________________________________________________________________
;___________________________не понятки..._____________________________________________________________________
		if StringInStr($oLI.innertext,"мужской") then
		   ConsoleWrite("!!!!!!!!!!!!!!!!!!!! вот он под номером: "&$i&@CRLF)
		   ;$oInput.value = "мужской"
		   ;_IEAction($oLI,"focus")
		   ;_IEAction($oLI,"click")
                               $iScreenX = _IEPropertyGet($oLI, "screenx")
		   $iScreenY = _IEPropertyGet($oLI, "screeny")
		   MouseClick("left",$iScreenX+20, $iScreenY+15)
		   ;ControlClick("[CLASS:IEFrame]", "", "Internet Explorer_Server1", "left", 1, $iScreenX+20, $iScreenY)
		EndIf
;______________________________________________________________________________________________________________
		;ExitLoop
	   Next
             ExitLoop
             EndIf
       Next
       ExitLoop
EndIf
Next


_IELinkClickByText($oIE,"Зарегистрироваться")

#include <IE.au3>

$oIE = _IECreate("vkontakte.ru/reg0")
_IELoadWait ($oIE)
Sleep(2577)
$oInput = _IEGetObjById ($oIE, "sex")
_IEFormElementSetValue ($oInput, "мужской")

#include <IE.au3>
$oIE =	_IECreate("http://vkontakte.ru/settings.php?act=privacy")
		_IELoadWait($oIe)
$oForm 	=	_IEFormGetObjByName($oIe, "login")
$login 	= 	_IEFormElementGetObjByName  ($oForm, "email")
$pass 	= 	_IEFormElementGetObjByName  ($oForm, "pass")
				_IEFormElementSetValue ($login, "[email protected]")
				_IEFormElementSetValue ($pass, "rmt1gje0wmie")
				_IEFormSubmit ($oForm)
				_IELoadWait($oIe)
				$pp_wall = _IEGetObjByName($oIE, 'pp_wall')
				$pp_wall.click

#include <IE.au3>
$oIE = _IECreate("http://vkontakte.ru/settings.php?act=privacy")
$oA = _IEGetObjById ($oIE, "pp_friends")
MsgBox(0, "Link Text", $oA.innerText)

#include <IE.au3>
$oIE = _IECreate("www.vkontakte.ru")
$oDivs = _IETagNameGetCollection($oIE,"div")
For $oDiv In $oDivs
	If $oDiv.id <> 0 And $oDiv.id = "container0" Then
		ConsoleWrite($oDiv.id &@CRLF)
	Else
Next

#include <IE.au3>
$oIE = _IECreate("http://vkontakte.ru/settings.php?act=privacy")
$oA = _IEGetObjById ($oIE, "pp_friends")
MsgBox(0, "Link Text", $oA.innerText)

$pp_wall = _IEGetObjByName($oIE, 'pp_friends')
                $pp_wall.click
	  $only_me = _IEGetObjById ($oIE, "ppItem3")
	  $only_me.click

#include <IE.au3>
$oIE = _IECreate("www.vkontakte.ru")
$oDivs = _IETagNameGetCollection($oIE,"div")
$i = 0
For $oDiv In $oDivs
	ConsoleWrite($i &". "&$oDiv.id &@CRLF)
    If $oDiv.id == "container0" Then
        ConsoleWrite("!!!!!!!!!!!!!"&$oDiv.id&"!!!!!!!!!!!!!!!" &@CRLF)
    EndIf
	$i +=1
Next

;~ Нам нужны
;~ -------------------------
;~ input name="first_name"
;~ input name="last_name"
;~ input name="regemail"
;~ input name="regpass"
;~ input name="sex"
;~ <a href="#register" onclick="return register();">Зарегистрироваться</a>
;~ -------------------------
#include <IE.au3>
$oIE = _IECreate("www.vkontakte.ru")
$oInputs = _IETagNameGetCollection ($oIE, "input")
For $oInput In $oInputs
	If $oInput.name = "sex" Then
		_IEFormElementSetValue ($oInput, "2") ; 0 - не выбран, 1 - женский, 2 - мужской
	ElseIf $oInput.name = "last_name" Then
		_IEFormElementSetValue ($oInput, "Last Name")
	ElseIf $oInput.name = "regemail" Then
		_IEFormElementSetValue ($oInput, "[email protected]")
	ElseIf $oInput.name = "regpass" Then
		_IEFormElementSetValue ($oInput, "Password")
	ElseIf $oInput.name = "first_name" Then
		_IEFormElementSetValue ($oInput, "Name")
	EndIf
Next
_IELinkClickByText ($oIE, "Зарегистрироваться")

#include <IE.au3>

Dim $aDomain[4][2] = [['mail.ru', 'Вася'],['inbox.ru', 'Петя'],['bk.ru', 'Коля'],['list.ru', 'Иван']]
$sUrl = 'http://www.mail.ru/'

$oIE = _IECreate($sUrl)
$oForm = _IEFormGetObjByName($oIE, 'Auth')
$oDomain = _IEFormElementGetObjByName($oForm, 'Domain')
$oUser = _IEGetObjByName($oIE, 'login')

For $i = 0 To 3
	_IEFormElementOptionSelect($oDomain, $aDomain[$i][0])
	_IEFormElementSetValue($oUser, $aDomain[$i][1])
	Sleep(2000)
Next

_IEFormElementOptionSelect($oDomain, $aDomain[0][0])
_IEFormElementSetValue($oUser, '')