Скрипт под Win7 для создания интернет подключения

[Digrabober]

Вобщем такая проблема, есть скрипт для создания подключения к интернету чрез 3g модем

http://depositfiles.com/files/71mwtzpwe

, но работает он только под XP, а под Win 7 ни в какую(((.(Пишет Script paused). Кто нибудь сможет помочь? Заранее благодарен.

Вложения

настойка соединения через 3g модем.rar

(270.51 КБ) 0 скачиваний

настойка соединения через 3g модем.rar

(270.51 КБ) 0 скачиваний

[Creat0R]

Предупреждение за нарушение правил форума,

пункт 2.7

и

пункт 3.19

:




Цитата:



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

Подробнее о принципах создания тем читайте в

этом документе

и Правилах форумов.



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

измените ее заголовок на осмысленный

и напишите об этом в теме.



Переименуйте пожалуйста тему (

Как переименовать свою тему?

).

[Digrabober]

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

[Digrabober]

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")

[Digrabober]

Переделал вот так

читать дальше »

Код:

Код: Выделить всё

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")

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