Автор Тема: Изменить внешний IP адрес ADSL модема через веб морду  (Прочитано 615 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн roma351234567890 [?]

  • Новичок
  • *
  • Сообщений: 11
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Телнета нет, rasdial тут вроде тоже не катит. Модем китайский, wget-ом не получается, либо знаний не хватает, JS тоже нет знаний.

Только средствами WebBrowser, а не IE. Никакие элементы не определяются, только Internet Explorer_Server1.
С помощью ControlClick сделал, но хочется более продвинутый вариант, который также будет примером для меня дальнейших подобных действий.
Входим в веб морду модема:
Код: AutoIt [Выделить]
$Tit = "Веб-браузер"
$RadioR = ObjCreate("Shell.Explorer.2")
$RadioRambler = GUICreate($Tit, 1000, 636, -1, -1)
$GUIActiveX = GUICtrlCreateObj($RadioR, -1, -1, 1000, 636)
GUISetState(@SW_SHOW)
$RadioR.navigate("http://192.168.1.1/login.htm")


(нажмите для показа/скрытия)

Справа от User Name: есть поле для логина
Справа от Password: есть поле для пароля
И подтвердить нажатием на Login. Нажатие на Login можно заменить на
Код: AutoIt [Выделить]
ControlSend ( $Tit, "", "Internet Explorer_Server1", "{ENTER}" )

но хочется примера правильного нажатия.
(нажмите для показа/скрытия)
И как я понимаю, за нажатие на нужную кнопку отвечает строка:
<input type="button" name="connect_chg" value="disconnect" onClick = "submitPPPoe(this.form,'1','disconnect');"> </TD>
Которую и нужно нажать.


Русское сообщество AutoIt


Оффлайн roma351234567890 [?]

  • Новичок
  • *
  • Сообщений: 11

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Только через два дня дошло, что в Shell.Explorer.2 можно использовать и команды вида _IE....
Первая страница работает, а вот во второй не могу найти не имени, ни id кнопки. Sleep стоит на всякий случай, потому что ещё не прочитал про "дождаться загрузки страницы".

Код: AutoIt [Выделить]
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
$Tit = "Веб-браузер"

$Form1 = GUICreate($Tit, 1000, 636, -1, -1)
$Obj1 = ObjCreate("Shell.Explorer.2")
$Obj1_ctrl = GUICtrlCreateObj($Obj1, -1, -1, 1000, 636)
GUISetState(@SW_SHOW)
_IENavigate($Obj1, "http://192.168.1.1/login.htm")

$oForm = _IEFormGetCollection ($Obj1, 0)
_IEFormElementSetValue (_IEFormElementGetObjByName ($oForm, "username"), "1")
_IEFormElementSetValue (_IEFormElementGetObjByName ($oForm, "password"), "1")
_IEAction(_IEGetObjByName ($oForm, "loginBtn"), "click")

Sleep (3000)
$oForm1 = _IEFormGetCollection ($Obj1, 0)
_IEAction(_IEGetObjByName ($oForm, "connect_chg"), "click")


Русское сообщество AutoIt

Re: Изменить внешний IP адрес ADSL модема через веб морду
« Ответ #1 Отправлен: Апрель 07, 2018, 15:58:35 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
5 Ответов
5131 Просмотров
Последний ответ Июль 30, 2010, 12:57:44
от madmasles
11 Ответов
5959 Просмотров
Последний ответ Сентябрь 15, 2010, 16:01:25
от tarasov.evgeny
15 Ответов
9237 Просмотров
Последний ответ Июль 21, 2011, 05:55:37
от gregaz
1 Ответов
3158 Просмотров
Последний ответ Январь 07, 2012, 10:54:27
от Ganibal95
21 Ответов
12432 Просмотров
Последний ответ Октябрь 26, 2011, 14:25:36
от claster
9 Ответов
6908 Просмотров
Последний ответ Февраль 02, 2012, 13:20:06
от beliy
2 Ответов
1724 Просмотров
Последний ответ Март 06, 2013, 14:39:29
от erlik
0 Ответов
1715 Просмотров
Последний ответ Сентябрь 09, 2013, 16:45:30
от madmasles
1 Ответов
1409 Просмотров
Последний ответ Октябрь 21, 2015, 10:03:23
от madmasles
1 Ответов
1441 Просмотров
Последний ответ Июнь 18, 2016, 14:02:17
от InnI