Код:
AUTOITSETOPTION("TrayIconHide", 0)
AutoItSetOption("TrayIconDebug", 1)
Run(@SystemDir & "\rundll32.exe netshell.dll,StartNCW")
WinWaitActive("Мастер новых подключений", "Этот мастер поможет:")
WinActivate("Мастер новых подключений", "Этот мастер поможет:")
ControlClick("Мастер новых подключений", "Этот мастер поможет:", "Button2")
WinWaitActive("Мастер новых подключений", "&Подключить к Интернету")
WinActivate("Мастер новых подключений", "&Подключить к Интернету")
ControlClick("Мастер новых подключений", "&Подключить к Интернету", "Button6")
WinWaitActive("Мастер новых подключений", "&Выбрать из списка поставщиков услуг Интернета")
WinActivate("Мастер новых подключений", "&Выбрать из списка поставщиков услуг Интернета")
ControlClick("Мастер новых подключений", "&Выбрать из списка поставщиков услуг Интернета", "Button2")
ControlClick("Мастер новых подключений", "&Выбрать из списка поставщиков услуг Интернета", "Button9")
WinWaitActive("Мастер новых подключений", "Через &обычный модем")
WinActivate("Мастер новых подключений", "Через &обычный модем")
ControlClick("Мастер новых подключений", "Через &обычный модем", "Button12")
WinWaitActive("Мастер новых подключений", "Введите в следующем поле имя поставщика услуг Интернета.")
ControlSetText("Мастер новых подключений", "Введите в следующем поле имя поставщика услуг Интернета.", "Edit1", "Интернет_PEOPLEnet")
WinActivate("Мастер новых подключений", "Введите в следующем поле имя поставщика услуг Интернета.")
ControlClick("Мастер новых подключений", "Введите в следующем поле имя поставщика услуг Интернета.", "Button12")
WinWaitActive("Мастер новых подключений", "Введите номер телефона.")
ControlSetText("Мастер новых подключений", "Введите номер телефона.", "Edit1", "#777")
WinActivate("Мастер новых подключений", "Введите номер телефона.")
ControlClick("Мастер новых подключений", "Введите номер телефона.", "Button12")
WinWaitActive("Мастер новых подключений", "Введите имя и пароль", 5)
$ANSWER1 = InputBox("Имя пользователя", "Введите Ваш номер в сети PEOPLEnet", "8092XXXXXXX@people.net.ua", "", -1, -1)
$ANSWER2 = InputBox("Имя пользователя", "Введите пароль в сети PEOPLEnet", "000000", "", -1, -1)
ControlSetText("Мастер новых подключений", "Введите имя и пароль", "Edit1", $ANSWER1)
ControlSetText("Мастер новых подключений", "Введите имя и пароль", "Edit2", $ANSWER2)
ControlSetText("Мастер новых подключений", "Введите имя и пароль", "Edit3", $ANSWER2)
WinActivate("Мастер новых подключений", "Введите имя и пароль")
ControlClick("Мастер новых подключений", "Введите имя и пароль", "Button19")
WinWaitActive("Мастер новых подключений", "Завершение работы мастера новых подключений")
WinActivate("Мастер новых подключений", "Завершение работы мастера новых подключений")
ControlClick("Мастер новых подключений", "Завершение работы мастера новых подключений", "Button1")
WinActivate("Мастер новых подключений", "Завершение работы мастера новых подключений")
ControlClick("Мастер новых подключений", "Завершение работы мастера новых подключений", "Button23")
