Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)
-   -   Выпадающие списки vkontakte (http://forum.oszone.net/showthread.php?t=192978)

redwert 04-12-2010 00:17 1557853

Выпадающие списки vkontakte
 
Доброго времени суток))
Помогите мне разобраться как работать с выпадающими списками vkontakte.

Вот то что я перепробовал:
Код:

$oForm  = _IEFormGetObjByName($oIE,"itemForm")
$oInput  = _IEFormElementGetObjByName($oForm,"city")
$Data = "Минск"
_IEFormElementSetValue ($oInput, $Data)

так не работает,

нашел на форуме такой пример:
Код:

$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, "mail@mail.ru")
    ElseIf $oInput.name = "regpass" Then
        _IEFormElementSetValue ($oInput, "Password")
    ElseIf $oInput.name = "first_name" Then
        _IEFormElementSetValue ($oInput, "Name")
    EndIf
Next

Но в этом случае все поля и в том числе поле выпадающего списка заполняется значением "2".
Помогите пожалуйста :)

LexaSF 18-12-2010 12:46 1568731

Это вообще-то не автоит

kaster 18-12-2010 12:48 1568733

LexaSF, не подскажешь, что тогда?

noknown 03-01-2011 06:20 1579575

Ну во-первых это автоит - библиотека IE.au3

А во-вторых, если посмотреть исходный код страницы, то видно что там name почти нигде не используется. А используется id. Вот рабочий код:

Код:

#include <IE.au3>

$oIE = _IECreate("www.vkontakte.ru")
$oInputs = _IETagNameGetCollection ($oIE, "input")
For $oInput In $oInputs       
    If $oInput.id= "index_sex" Then
        _IEFormElementSetValue ($oInput, "2")               
    ElseIf $oInput.id = "index_ln" Then
        _IEFormElementSetValue ($oInput, "Last Name")
    ElseIf $oInput.id = "index_email" Then
        _IEFormElementSetValue ($oInput, "wehihdbcqhbdkw@mail.ru")
    ElseIf $oInput.id = "index_pass" Then
        _IEFormElementSetValue ($oInput, "Password")
    ElseIf $oInput.id = "index_fn" Then
        _IEFormElementSetValue ($oInput, "Name")
        EndIf
Next



Время: 16:12.

Время: 16:12.
© OSzone.net 2001-