автоматизация интернет подключения Beeline USB modem

AlNest · 18 Окт 2014

Ребят всем доброго времени суток. Помогите пожалуйста с авто запуском программы, а затем подключением её к интернету в заданное время. В данном случае это 5 утра, т.к. не идет учет трафика на моем тарифе.
Приложение в диспетчере именуется как UIMain_Full.exe. Установлено по пути C:\Program Files\USB-модем Билайн.

madmasles · 18 Окт 2014

Re: Beeline USB modem

Предупреждение За нарушение правил форума (пункт Б.5):

Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.

Данные правила могут пополняться локальными правилами раздела.Как правильно называть темы"Beeline USB modem" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.С уважением, ваш Глобальный модератор.

at · 18 Окт 2014

Re: Beeline USB modem

Попробуйте так:

Код:

While 1

		If @HOUR = StringFormat('%02i', '17') And @MIN = StringFormat('%02i', '00') And @SEC = StringFormat('%02i', '00')Then
			_Beeline_Connect()
		EndIf	

WEnd

Func _Beeline_Connect()
MsgBox(64,'info', 'Подключаем Модем',3)
Sleep(5000) 
FileChangeDir('C:\Program Files\USB-модем Билайн\')
Run('UIMain_Full.exe')
WinWaitActive('USB-модем "Билайн"', "Beeline")
Sleep (1000)
Send("Подключить")
EndFunc

AlNest · 18 Окт 2014

Re: Beeline USB modem

at сказал(а):

Попробуйте так:

Код:

While 1

		If @HOUR = StringFormat('%02i', '17') And @MIN = StringFormat('%02i', '00') And @SEC = StringFormat('%02i', '00')Then
			_Beeline_Connect()
		EndIf	

WEnd

Func _Beeline_Connect()
MsgBox(64,'info', 'Подключаем Модем',3)
Sleep(5000) 
FileChangeDir('C:\Program Files\USB-модем Билайн\')
Run('UIMain_Full.exe')
WinWaitActive('USB-модем "Билайн"', "Beeline")
Sleep (1000)
Send("Подключить")
EndFunc

Приложение запускается, но вот только почему-то не выполняется команда send. Чуть увеличил задержку, пока кнопочка "подключить" станет активной, но все равно не подключается. Как быть?

at · 18 Окт 2014

А так:

Код:

While 1

		If @HOUR = StringFormat('%02i', '17') And @MIN = StringFormat('%02i', '00') And @SEC = StringFormat('%02i', '00')Then
			_Beeline_Connect()
		EndIf	

WEnd

Func _Beeline_Connect()
MsgBox(64,'info', 'Подключаем Модем',3)
Sleep(5000) 
FileChangeDir('C:\Program Files\USB-модем Билайн\')
Run('UIMain_Full.exe')
WinWaitActive('USB-модем "Билайн"', '')
Sleep (1000)
ControlClick('USB-модем "Билайн"', '', 'Подключить')
EndFunc

AlNest · 18 Окт 2014

at сказал(а):

А так:

Код:

While 1

		If @HOUR = StringFormat('%02i', '17') And @MIN = StringFormat('%02i', '00') And @SEC = StringFormat('%02i', '00')Then
			_Beeline_Connect()
		EndIf	

WEnd

Func _Beeline_Connect()
MsgBox(64,'info', 'Подключаем Модем',3)
Sleep(5000) 
FileChangeDir('C:\Program Files\USB-модем Билайн\')
Run('UIMain_Full.exe')
WinWaitActive('USB-модем "Билайн"', 'Beeline')
Sleep (1000)
ControlClick('USB-модем "Билайн"', '', 'Подключить')
EndFunc

К сожалению тоже нет =-( Главное окошко программы и все.

at · 18 Окт 2014

Поправил скрипт в последнем посте.

P.S. В WinWaitActive нужно указать правильно название окна, или лучше скопировать его с помощью встроенной в Autoit утилиты AutoIt Window Info - найдете ее либо в меню Пуск, либо по этому пути - C:\Program Files (x86)\AutoIt3\Au3Info_x64.exe. Пробуйте.

AlNest · 18 Окт 2014

at сказал(а):
Поправил скрипт в последнем посте.

P.S. В WinWaitActive нужно указать правильно название окна, или лучше скопировать его с помощью встроенной в Autoit утилиты AutoIt Window Info - найдете ее либо в меню Пуск, либо по этому пути - C:\Program Files (x86)\AutoIt3\Au3Info_x64.exe. Пробуйте.

Сменил на "USB-модем «Билайн»", но к сожалению опять же никакой реакции.

>>>> Window <<<<
Title: USB-модем «Билайн»
Class: TMainform
Position: 240, 100
Size: 800, 600
Style: 0x96000000
ExStyle: 0x00090000
Handle: 0x00DE02A2

>>>> Control <<<<
Class: TImButton
Instance: 9
ClassnameNN: TImButton9
Name:
Advanced (Class): [CLASS:TImButton; INSTANCE:9]
ID: 919278
Text: Подключить
Position: 505, 272
Size: 104, 25
ControlClick Coords: 79, 18
Style: 0x5401000B
ExStyle: 0x00000000
Handle: 0x000E06EE

at · 18 Окт 2014

Еще вариант:

Код:

While 1

		If @HOUR = StringFormat('%02i', '17') And @MIN = StringFormat('%02i', '00') And @SEC = StringFormat('%02i', '00')Then
			_Beeline_Connect()
		EndIf	

WEnd

Func _Beeline_Connect()
MsgBox(64,'info', 'Подключаем Модем',3)
Sleep(5000) 
FileChangeDir('C:\Program Files\USB-модем Билайн\')
Run('UIMain_Full.exe')
WinWaitActive('USB-модем «Билайн»', '')
Sleep (1000)
ControlClick('[CLASS:TImButton; INSTANCE:9]','Подключить','919278')
EndFunc

AlNest · 18 Окт 2014

at сказал(а):

Еще вариант:

Код:

While 1

		If @HOUR = StringFormat('%02i', '17') And @MIN = StringFormat('%02i', '00') And @SEC = StringFormat('%02i', '00')Then
			_Beeline_Connect()
		EndIf	

WEnd

Func _Beeline_Connect()
MsgBox(64,'info', 'Подключаем Модем',3)
Sleep(5000) 
FileChangeDir('C:\Program Files\USB-модем Билайн\')
Run('UIMain_Full.exe')
WinWaitActive('USB-модем «Билайн»', '')
Sleep (1000)
ControlClick('[CLASS:TImButton; INSTANCE:9]','Подключить','919278')
EndFunc

Снова мимо =-(

at · 19 Окт 2014

Дайте, пожалуйста, модель модема или версию программы.

AlNest · 19 Окт 2014

at сказал(а):
Дайте, пожалуйста, модель модема или версию программы.

ZTE MF 190
версия внутреннего ПО ПК :blum:

CW_BLNRUSCOMV1.0.0B07
версия внутреннего ПО:BD_RUBLNMF190V1.0.0B01

Garrett · 19 Окт 2014

OffTopic:
at [?]

модель модема или версию программы.

Я всё думал, когда же это случится и вам надоест тыкать пальцем в небо! ;D

AlNest
Прежде чем спросить!

AlNest · 19 Окт 2014

Помог маусклик. Огромное спасибо ребята :ok:

:IL_AutoIt_1:
Вот конечный результат, координаты пришлось подбирать методом тыка :smile:

)

Код:

While 1

        If @HOUR = StringFormat('%02i', '05') And @MIN = StringFormat('%02i', '38') And @SEC = StringFormat('%02i', '00')Then
            _Beeline_Connect()
        EndIf

WEnd

Func _Beeline_Connect()
MsgBox(64,'info', 'Подключаем Модем',3)
Sleep(5000)
FileChangeDir('C:\Program Files\USB-модем Билайн\')
Run('UIMain_Full.exe')
WinWaitActive('USB-модем «Билайн»', '')
Sleep (20000)
MouseClick('left', 800, 385, 1, 0)
EndFunc

Используйте для AutoIt кода тег [autoit]

madmasles.

at · 19 Окт 2014

Вот так будет красивее:

Код:

While 1
        If @HOUR = StringFormat('%02i', '05') And @MIN = StringFormat('%02i', '38') And @SEC = StringFormat('%02i', '00')Then
            _Beeline_Connect()
        EndIf
WEnd
Func _Beeline_Connect()
MsgBox(64,'info', 'Подключаем Модем',3)
Sleep(5000)
FileChangeDir('C:\Program Files\USB-модем Билайн\')
Run('UIMain_Full.exe')
WinWaitActive('USB-модем «Билайн»', '')
Sleep (20000)
ControlClick('USB-модем «Билайн»', 'Подключить','[ID:919278]')
EndFunc

Astel064 · 20 Ноя 2014

AlNest
Как вариант: откройте "USB-модем «Билайн»", а после, выполните команду: Rasdial "<ИМЯ>", где "<ИМЯ>" - имя сетевого подключения Билайна, которое можно найти в Сетевых подключениях.
Минус: Если программа "USB-модем «Билайн»" не будет запущена, то и подключиться не удастся.

Вместо Rasdial можно использовать RasPhone
Справку по этим командам можно получить в cmd, введя команду и /? (например: Rasdial /?)
Мне кажется, что это будет проще, чем тыкать в кнопку подключения...

Автор темы	Похожие темы	Форум	Ответы	Дата
	Мышь, клавиатура Автоматизация серфинга в интернете	Стол заказов	5	7 Фев 2020
C	[Автоматизация] Переподключиться к интернету	Стол заказов	14	12 Апр 2018
	[Автоматизация] ICS (Общий доступ к интернету) EnableDisableICS.au3	UDF - Пользовательские функции	15	28 Янв 2018
A	[Сеть, интернет] Автоматизация загрузки файла с ФТП сервера и дальнейшая работа с ним	Стол заказов	11	17 Ноя 2017
А	автоматизация процесса расшаривания подключения к интернету	Стол заказов	4	19 Мар 2014

Поиск

Поиск

автоматизация интернет подключения Beeline USB modem

AlNest

Новичок

madmasles

Модератор

at

Гость

AlNest

Новичок

at

Гость

AlNest

Новичок

at

Гость

AlNest

Новичок

at

Гость

AlNest

Новичок

at

Гость

AlNest

Новичок

Garrett

Модератор

AlNest

Новичок

at

Гость

Astel064

Помог мой пост, ставь +!