Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Скрипт под Win7 для создания интернет подключения

Ответить
Настройки темы
Скрипт под Win7 для создания интернет подключения

Новый участник


Сообщения: 3
Благодарности: 0

Профиль | Отправить PM | Цитировать

Изменения
Автор: Digrabober
Дата: 21-09-2011
Вложения
Тип файла: rar настойка соединения через 3g модем.rar
(270.5 Kb, 21 просмотров)
Вобщем такая проблема, есть скрипт для создания подключения к интернету чрез 3g модем http://depositfiles.com/files/71mwtzpwe, но работает он только под XP, а под Win 7 ни в какую(((.(Пишет Script paused). Кто нибудь сможет помочь? Заранее благодарен.

Отправлено: 16:37, 21-09-2011

 

Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать

Предупреждение за нарушение правил форума, пункт 2.7 и пункт 3.19:

Цитата:
2.7: В заголовке темы обязательно обозначайте название предмета, которого касается вопрос, а в теле сообщения максимально подробно опишите проблему (приведите аппаратную/программную конфигурацию, а также изложите ситуацию, в которой возникает проблема)...
Подробнее о принципах создания тем читайте в этом документе и Правилах форумов.

3.19: Запрещается... Создавать темы, имеющие неинформативные или состоящие из заглавных букв заголовки (например, "Помогите!", "HELP!", "У меня проблема"). Такие темы будут закрыты или перенесены в Тест-форум. Если вы хотите вернуть перенесенную тему обратно, пока ее не закрыли в Тест-форуме, измените ее заголовок на осмысленный и напишите об этом в теме.
Переименуйте пожалуйста тему (Как переименовать свою тему?).

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»
http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Отправлено: 18:19, 21-09-2011 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 3
Благодарности: 0

Профиль | Отправить PM | Цитировать

Неужели никто не подскажет, как отключить Script paused?? ((((

Отправлено: 00:28, 06-10-2011 | #3


Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

Digrabober, а что там подсказывать? Обычный щёлк-щёлк. Берите и переделывайте под мастер Windows 7 и под себя:
читать дальше »
Код: Выделить весь код
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")
Это сообщение посчитали полезным следующие участники:

Отправлено: 01:38, 06-10-2011 | #4


Новый участник


Сообщения: 3
Благодарности: 0

Профиль | Отправить PM | Цитировать

Переделал вот так
читать дальше »
Код: Выделить весь код
AUTOITSETOPTION("TrayIconHide", 0)
AutoItSetOption("TrayIconDebug", 1)
Run(@SystemDir & "\rundll32.exe netshell.dll,StartNCW")
WinActivate("Мастер новых подключений", "Этот мастер поможет:")
ControlClick("Мастер новых подключений", "Этот мастер поможет:", "Button2")
WinActivate("Мастер новых подключений", "&Подключить к Интернету")
ControlClick("Мастер новых подключений", "&Подключить к Интернету", "Button6")
WinActivate("Мастер новых подключений", "&Выбрать из списка поставщиков услуг Интернета")
ControlClick("Мастер новых подключений", "&Выбрать из списка поставщиков услуг Интернета", "Button2")
ControlClick("Мастер новых подключений", "&Выбрать из списка поставщиков услуг Интернета", "Button9")
WinActivate("Мастер новых подключений", "Через &обычный модем")
ControlClick("Мастер новых подключений", "Через &обычный модем", "Button12")
ControlSetText("Мастер новых подключений", "Введите в следующем поле имя поставщика услуг Интернета.", "Edit1", "Интернет_PEOPLEnet")
WinActivate("Мастер новых подключений", "Введите в следующем поле имя поставщика услуг Интернета.")
ControlClick("Мастер новых подключений", "Введите в следующем поле имя поставщика услуг Интернета.", "Button12")
ControlSetText("Мастер новых подключений", "Введите номер телефона.", "Edit1", "#777")
WinActivate("Мастер новых подключений", "Введите номер телефона.")
ControlClick("Мастер новых подключений", "Введите номер телефона.", "Button12")
$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")
WinActivate("Мастер новых подключений", "Завершение работы мастера новых подключений")
ControlClick("Мастер новых подключений", "Завершение работы мастера новых подключений", "Button1")
WinActivate("Мастер новых подключений", "Завершение работы мастера новых подключений")
ControlClick("Мастер новых подключений", "Завершение работы мастера новых подключений", "Button23")

но теперь другая проблема: после ввода логина и пароля всё исчезает, а подключение к интернету так и не создаётся.(((

Отправлено: 16:08, 07-10-2011 | #5



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Скрипт под Win7 для создания интернет подключения

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Доступ - Удаленный доступ из под XP к Win7 Glebush Microsoft Windows 7 5 09-08-2011 13:34
Драйвер - [решено] Замена видеокарты под лицензионной Win7 Argond Microsoft Windows 7 3 29-07-2011 21:26
PowerShell - Как на Powershell win7 написать скрипт для перемещения папок профиля на другой диск? lypky Скриптовые языки администрирования Windows 3 08-01-2011 00:49
Разное - Запуск Lines под Win7 neftcom Microsoft Windows 7 4 27-03-2010 19:37
Драйвера для M2N-E под Win7 Van4eLLo Материнские платы и память 2 15-02-2010 22:37


« Предыдущая тема | Следующая тема »


 
Переход