Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)
-   -   Скрипт под Win7 для создания интернет подключения (http://forum.oszone.net/showthread.php?t=216142)

Digrabober 21-09-2011 16:37 1757436
Скрипт под Win7 для создания интернет подключения
 
Вложений: 1
Вобщем такая проблема, есть скрипт для создания подключения к интернету чрез 3g модем http://depositfiles.com/files/71mwtzpwe, но работает он только под XP, а под Win 7 ни в какую(((.(Пишет Script paused). Кто нибудь сможет помочь? Заранее благодарен.

Creat0R 21-09-2011 18:19 1757522
Предупреждение за нарушение правил форума, пункт 2.7 и пункт 3.19:

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

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

Digrabober 06-10-2011 00:28 1766904
Неужели никто не подскажет, как отключить Script paused?? ((((

Iska 06-10-2011 01:38 1766928
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 07-10-2011 16:08 1768074
Переделал вот так
читать дальше »
Код:
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")

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


Время: 18:12.

Время: 18:12.
© OSzone.net 2001-