Что нового

[Сеть, интернет] Автоматическая настройка нового подключения Интертелеком

vit619

Новичок
Сообщения
2
Репутация
0
Для Интертелеком
Код:
#RequireAdmin
#NoTrayIcon

If @OSBuild < 7600 Then
	MsgBox(16, "Ошибка", "Только для Windows 7 и выше!")
	Exit
EndIf

$answer = MsgBox(1, "Intertelecom", "Сейчас будет создано подключение Intertelecom")
If $answer = 2 Then
   Exit
EndIf

Run('C:\Windows\system32\rundll32.exe xwizards.dll,RunWizard {7071ECA0-663B-4BC1-A1FA-B97F3B917C55} /z -ShowFinishPage')
_WinWaitActivate("Подключение к Интернету","")
ControlClick("Подключение к Интернету", "", "[CLASSNN:Button9]")
ControlClick("Подключение к Интернету", "", "[CLASSNN:Button4]")
ControlClick("Подключение к Интернету", "", "[CLASSNN:Button1]")
_WinWaitActivate("Подключение к Интернету","")
ControlClick("Подключение к Интернету", "", "[CLASS:Button; TEXT:&Коммутируемое]")
_WinWaitActivate("Подключение к Интернету","")
ControlSetText("Подключение к Интернету", "", "[CLASSNN:Edit1]", "#777")
ControlSetText("Подключение к Интернету", "", "[CLASSNN:Edit2]", "IT")
ControlSetText("Подключение к Интернету", "", "[CLASSNN:Edit3]", "IT")
ControlSetText("Подключение к Интернету", "", "[CLASSNN:Edit4]", "Intertelecom")
ControlClick("Подключение к Интернету", "", "[CLASSNN:Button11]")
ControlClick("Подключение к Интернету", "", "[CLASSNN:Button1]")
_WinWaitActivate("Подключение к Интернету","")
ControlClick("Подключение к Интернету", "", "[CLASSNN:Button1]")
_WinWaitActivate("Подключение к Интернету","")
Sleep(250)
ControlClick("Подключение к Интернету", "", "[CLASSNN:Button1]")
MsgBox(64, "Готово", "Готово")

Для People.NET
Код:
#RequireAdmin
#NoTrayIcon

$answer = MsgBox(1, "People.NET", "Сейчас будет создано подключение People.NET")
If $answer = 2 Then
   Exit
EndIf

If @OSBuild < 7600 Then
	MsgBox(16, "Ошибка", "Только для Windows 7 и выше!")
	Exit
EndIf

$Number = InputBox("Шаг 1", "Введите номер телефона", "38092")
   If @error = 1 Then
	  Exit
   EndIf
$Password = InputBox("Шаг 2" ,"Введите пароль", "00000000", "•")
   If @error = 1 Then
	  Exit
   EndIf
$Text = ("@people.net")

Run('C:\Windows\system32\rundll32.exe xwizards.dll,RunWizard {7071ECA0-663B-4BC1-A1FA-B97F3B917C55} /z -ShowFinishPage')
_WinWaitActivate("Подключение к Интернету","")
ControlClick("Подключение к Интернету", "", "[CLASSNN:Button9]")
ControlClick("Подключение к Интернету", "", "[CLASSNN:Button4]")
ControlClick("Подключение к Интернету", "", "[CLASSNN:Button1]")
_WinWaitActivate("Подключение к Интернету","")
ControlClick("Подключение к Интернету", "", "[CLASS:Button; TEXT:&Коммутируемое]")
_WinWaitActivate("Подключение к Интернету","")
ControlSetText("Подключение к Интернету", "", "[CLASSNN:Edit1]", "#777")
ControlSetText("Подключение к Интернету", "", "[CLASSNN:Edit2]", $Number&'@people.net')
ControlSetText("Подключение к Интернету", "", "[CLASSNN:Edit3]", $Password)
ControlSetText("Подключение к Интернету", "", "[CLASSNN:Edit4]", "People.NET")
ControlClick("Подключение к Интернету", "", "[CLASSNN:Button11]")
ControlClick("Подключение к Интернету", "", "[CLASSNN:Button1]")
_WinWaitActivate("Подключение к Интернету","")
ControlClick("Подключение к Интернету", "", "[CLASSNN:Button1]")
_WinWaitActivate("Подключение к Интернету","")
Sleep(250)
ControlClick("Подключение к Интернету", "", "[CLASSNN:Button1]")
MsgBox(64, "Готово", "Готово")
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
Предупреждение За нарушение правил форума (пункт В.11):
Любые отрывки AutoIt кода необходимо заключать в тег [autoit]
autoit.gif
(подробнее), а обычный код соответственно в тег [code]
code.gif
(подробнее). Также большие выдержки текста помещайте под тег [spoiler]
spoiler.gif
(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.


С уважением, ваш Глобальный модератор.
 
Верх