Карталинский форум

Карталинское Веб Общение
Текущее время: 28 мар 2024, 20:43


Часовой пояс: UTC + 5 часов [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 37 ]  На страницу Пред.  1, 2
Автор Сообщение
 Заголовок сообщения: Re: AutoIt3
Непрочитанное сообщениеДобавлено: 13 июл 2012, 19:54 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Настроение: Дружба
Сообщения: 2430
Благодарил (а): 107 раз.
Поблагодарили: 55 раз.
Пол: Муж
Написал скрипт, который автоматически создаёт PPPOE соединение, нужно только вбить логин и пароль от вашего интернета. Скрипт полезен для абонентов сети74, работает только на Windows xp. Выкладываю только его код, вам осталось только вбить свой логин и пароль от вашего интернета, и скомпилировать код в файл ехе, куда вбивать логин и пароль написано ниже.

Цитата:
Run("rundll32.exe netshell.dll,StartNCW")
WinWaitActive ('Мастер новых подключений','Мастер новых подключений')
Send('{Enter}')
Sleep ('500')
WinWaitActive ('Мастер новых подключений','Подключить к Интернету')
Send('{Enter}')
Sleep ('500')
WinWaitActive ('Мастер новых подключений','Потребуется имя пользователя, пароль и номер телефона поставщика услуг Интернета. Если создается высокоскоростное соединение, телефонный номер не требуется.')
ControlClick ('Мастер новых подключений','Потребуется имя пользователя, пароль и номер телефона поставщика услуг Интернета. Если создается высокоскоростное соединение, телефонный номер не требуется.','Button2')
Sleep ('500')
Send('{Enter}')
WinWaitActive ('Мастер новых подключений','Данное высокоскоростное подключение использует высокоскоростной модем или DSL.')
ControlClick ('Мастер новых подключений','Данное высокоскоростное подключение использует высокоскоростной модем или DSL.','Button2')
Sleep ('500')
Send('{Enter}')
WinWaitActive ('Мастер новых подключений','Им&я поставщика услуг')
ControlSetText ( 'Мастер новых подключений', '', 'Edit1', 'Seti74' )
Sleep ('500')
Send('{Enter}')
WinWaitActive ('Мастер новых подключений','&Имя пользователя:')
ControlSetText ( 'Мастер новых подключений', '', 'Edit1', 'ЗДЕСЬ ВВОДИТЕ ЛОГИН ОТ ВАШЕГО ИНТЕРНЕТА' )
Sleep ('500')
WinWaitActive ('Мастер новых подключений','П&ароль:')
ControlSetText ( 'Мастер новых подключений', '', 'Edit2', 'ЗДЕСЬ ВВОДИТЕ ПАРОЛЬ ОТ ВАШЕГО ИНТЕРНЕТА' )
Sleep ('500')
WinWaitActive ('Мастер новых подключений','Под&тверждение:')
ControlSetText ( 'Мастер новых подключений', '', 'Edit3', 'ЗДЕСЬ ЕЩЁ РАЗ ВВОДИТЕ ПАРОЛЬ ОТ ВАШЕГО ИНТЕРНЕТА' )
Sleep ('500')
WinWaitActive ('Мастер новых подключений','И&спользовать следующие имя пользователя и пароль при подключении любого пользователя:')
ControlCommand ( 'Мастер новых подключений', '', 'Button2', 'UnCheck', '' )
Sleep ('500')
Send('{Enter}')
WinWaitActive ('Мастер новых подключений','Добавить &ярлык подключения на рабочий стол')
Sleep ('500')
ControlCommand ( 'Мастер новых подключений', '', 'Button1', 'Check', '' )
Sleep ('500')
Send('{Enter}')
Exit

_________________
Не восхищайся прошлогодним небом, -
Не возвращайся - где был рай когда-то,
И брось дурить - иди туда, где не был!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: AutoIt3
Непрочитанное сообщениеДобавлено: 13 июл 2012, 20:35 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Сообщения: 1264
Откуда: Карталы
Благодарил (а): 9 раз.
Поблагодарили: 70 раз.
Пол: Муж
У меня тоже есть скрипт подключения для XP и 7, в основном для LiveCD использую, чтоб быстро конектится одним кликом.
А ещё сделал скрипт для конекта с помощью мегафоновской флешки. Там надо 30 сек ждать пока подключатся устройства, да ещё утилита сбрасывает в реестре твик "Отображать окно при перетаскивании", скрипт автоматом подключает, показывая подсказки прогресса в трее и восстанавливает твик.

_________________
предлагаю услуги по настройке компьютера, подробнее


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: AutoIt3
Непрочитанное сообщениеДобавлено: 13 июл 2012, 20:39 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Настроение: Дружба
Сообщения: 2430
Благодарил (а): 107 раз.
Поблагодарили: 55 раз.
Пол: Муж
я пока под хр написал, под 7 не пробовал ещё, но потом попробую.

_________________
Не восхищайся прошлогодним небом, -
Не возвращайся - где был рай когда-то,
И брось дурить - иди туда, где не был!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: AutoIt3
Непрочитанное сообщениеДобавлено: 13 июл 2012, 20:40 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Настроение: Дружба
Сообщения: 2430
Благодарил (а): 107 раз.
Поблагодарили: 55 раз.
Пол: Муж
для LiveCD удобно очень.

_________________
Не восхищайся прошлогодним небом, -
Не возвращайся - где был рай когда-то,
И брось дурить - иди туда, где не был!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: AutoIt3
Непрочитанное сообщениеДобавлено: 13 июл 2012, 21:01 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Сообщения: 1264
Откуда: Карталы
Благодарил (а): 9 раз.
Поблагодарили: 70 раз.
Пол: Муж
xXx
Попробовал твоим скриптом, он застрял на пол пути, сам попробую сделать твоим методом. У меня метод был копирование rasphone.pbk с готовым соединением, только пароль вводился на этапе подключения.

У тебя вроде в некоторых местах отсутствует Enter.Хотя лучше делать клик на указанную кнопку, так как пользователь может активировать другое окно. И задержки в сумме составляют 5 сек. Их лучше ставить перед появлением окна, именно в этот момент может ещё ненарисоваться окно, а когда уже сделал клик нет смысла ждать 500 мсек.

_________________
предлагаю услуги по настройке компьютера, подробнее


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: AutoIt3
Непрочитанное сообщениеДобавлено: 13 июл 2012, 21:11 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Настроение: Дружба
Сообщения: 2430
Благодарил (а): 107 раз.
Поблагодарили: 55 раз.
Пол: Муж
Amigo
понял, попробую поправить. новичок я ещё в этом деле :)

_________________
Не восхищайся прошлогодним небом, -
Не возвращайся - где был рай когда-то,
И брось дурить - иди туда, где не был!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: AutoIt3
Непрочитанное сообщениеДобавлено: 13 июл 2012, 22:03 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Сообщения: 1264
Откуда: Карталы
Благодарил (а): 9 раз.
Поблагодарили: 70 раз.
Пол: Муж
Вот первый набросок. У меня работает нормально, проверил несколько раз. Жаль кнопки "Далее" не имеют постоянного идентификатора, пришлось тоже использовать эмуляцию Enter.

Цитата:
$sLogin = 'Ваш логин'
$sPassword = 'Ваш пароль'
$sNameConnection = 'Сети 74'
$sTitle = 'Мастер новых подключений'

If $CmdLine[0] Then ; если ком-строка содержит логин и пароль, то используем их
$sLogin = $CmdLine[1]
If $CmdLine[0] > 1 Then $sPassword = $CmdLine[2]
EndIf

Run("rundll32.exe netshell.dll,StartNCW")
$hWnd = WinWaitActive($sTitle, '', 5) ; ожидаем появление окна активным 5 сек
If Not $hWnd Then Exit ; выход если не дождались окна
SendKeepActive($hWnd) ; удерживать окно активным
Send('{Enter}') ; нажимаем Enter, то есть "Далее"
Sleep(30)
Send('{Enter}') ; нажимаем Enter, то есть "Далее"
Sleep(30)
ControlClick($hWnd, '', '[CLASS:Button; INSTANCE:2]') ; кликаем кнопку "Установить подключение вручную"
Sleep(30)
Send('{Enter}') ; нажимаем Enter, то есть "Далее"
Sleep(30)
ControlClick($hWnd, '', '[CLASS:Button; INSTANCE:2]') ; кликаем кнопку "Через высокоскоростное подключение, запрашивающее имя пользователя и пароль"
Sleep(30)
Send('{Enter}') ; нажимаем Enter, то есть "Далее"
Sleep(30)
ControlSetText($hWnd, '', "[CLASS:Edit; INSTANCE:1]", $sNameConnection) ; Вставляем имя соединения
Send('{Enter}') ; нажимаем Enter, то есть "Далее"
Sleep(30)
If Not ($sLogin And $sPassword) Then Exit ; если нет логина или пароля, то выход
ControlSetText($hWnd, '', "[CLASS:Edit; INSTANCE:1]", $sLogin) ; Вставляем логин
ControlSetText($hWnd, '', "[CLASS:Edit; INSTANCE:2]", $sPassword) ; Вставляем пароль
ControlSetText($hWnd, '', "[CLASS:Edit; INSTANCE:3]", $sPassword) ; Вставляем подтверждение пароля
Send('{Enter}') ; нажимаем Enter, то есть "Далее"
Sleep(30)
ControlCommand($hWnd, '', '[CLASS:Button; INSTANCE:1]', 'Check') ; ставим галочку "Добавить ярлык подключения на рабочий стол"
Send('{Enter}') ; нажимаем Enter, то есть "Готово"
SendKeepActive('') ; отпускаем окно

_________________
предлагаю услуги по настройке компьютера, подробнее


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: AutoIt3
Непрочитанное сообщениеДобавлено: 14 июл 2012, 10:35 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Настроение: Дружба
Сообщения: 2430
Благодарил (а): 107 раз.
Поблагодарили: 55 раз.
Пол: Муж
Amigo писал(а):
Вот первый набросок. У меня работает нормально, проверил несколько раз. Жаль кнопки "Далее" не имеют постоянного идентификатора, пришлось тоже использовать эмуляцию Enter.

Цитата:
$sLogin = 'Ваш логин'
$sPassword = 'Ваш пароль'
$sNameConnection = 'Сети 74'
$sTitle = 'Мастер новых подключений'

If $CmdLine[0] Then ; если ком-строка содержит логин и пароль, то используем их
$sLogin = $CmdLine[1]
If $CmdLine[0] > 1 Then $sPassword = $CmdLine[2]
EndIf

Run("rundll32.exe netshell.dll,StartNCW")
$hWnd = WinWaitActive($sTitle, '', 5) ; ожидаем появление окна активным 5 сек
If Not $hWnd Then Exit ; выход если не дождались окна
SendKeepActive($hWnd) ; удерживать окно активным
Send('{Enter}') ; нажимаем Enter, то есть "Далее"
Sleep(30)
Send('{Enter}') ; нажимаем Enter, то есть "Далее"
Sleep(30)
ControlClick($hWnd, '', '[CLASS:Button; INSTANCE:2]') ; кликаем кнопку "Установить подключение вручную"
Sleep(30)
Send('{Enter}') ; нажимаем Enter, то есть "Далее"
Sleep(30)
ControlClick($hWnd, '', '[CLASS:Button; INSTANCE:2]') ; кликаем кнопку "Через высокоскоростное подключение, запрашивающее имя пользователя и пароль"
Sleep(30)
Send('{Enter}') ; нажимаем Enter, то есть "Далее"
Sleep(30)
ControlSetText($hWnd, '', "[CLASS:Edit; INSTANCE:1]", $sNameConnection) ; Вставляем имя соединения
Send('{Enter}') ; нажимаем Enter, то есть "Далее"
Sleep(30)
If Not ($sLogin And $sPassword) Then Exit ; если нет логина или пароля, то выход
ControlSetText($hWnd, '', "[CLASS:Edit; INSTANCE:1]", $sLogin) ; Вставляем логин
ControlSetText($hWnd, '', "[CLASS:Edit; INSTANCE:2]", $sPassword) ; Вставляем пароль
ControlSetText($hWnd, '', "[CLASS:Edit; INSTANCE:3]", $sPassword) ; Вставляем подтверждение пароля
Send('{Enter}') ; нажимаем Enter, то есть "Далее"
Sleep(30)
ControlCommand($hWnd, '', '[CLASS:Button; INSTANCE:1]', 'Check') ; ставим галочку "Добавить ярлык подключения на рабочий стол"
Send('{Enter}') ; нажимаем Enter, то есть "Готово"
SendKeepActive('') ; отпускаем окно

работает :good:

_________________
Не восхищайся прошлогодним небом, -
Не возвращайся - где был рай когда-то,
И брось дурить - иди туда, где не был!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: AutoIt3
Непрочитанное сообщениеДобавлено: 14 июл 2012, 13:07 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Настроение: Дружба
Сообщения: 2430
Благодарил (а): 107 раз.
Поблагодарили: 55 раз.
Пол: Муж
Галочку "Сделать это подключение подключением к Интернету по умолчанию" лучше снять, что я и сделал.

Цитата:
$sLogin = 'Login'
$sPassword = 'Password'
$sNameConnection = 'Seti74'
$sTitle = 'Мастер новых подключений'

If $CmdLine[0] Then ; если ком-строка содержит логин и пароль, то используем их
$sLogin = $CmdLine[1]
If $CmdLine[0] > 1 Then $sPassword = $CmdLine[2]
EndIf

Run("rundll32.exe netshell.dll,StartNCW")
$hWnd = WinWaitActive($sTitle, '', 5) ; ожидаем появление окна активным 5 сек
If Not $hWnd Then Exit ; выход если не дождались окна
SendKeepActive($hWnd) ; удерживать окно активным
Send('{Enter}') ; нажимаем Enter, то есть "Далее"
Sleep(30)
Send('{Enter}') ; нажимаем Enter, то есть "Далее"
Sleep(30)
ControlClick($hWnd, '', '[CLASS:Button; INSTANCE:2]') ; кликаем кнопку "Установить подключение вручную"
Sleep(30)
Send('{Enter}') ; нажимаем Enter, то есть "Далее"
Sleep(30)
ControlClick($hWnd, '', '[CLASS:Button; INSTANCE:2]') ; кликаем кнопку "Через высокоскоростное подключение, запрашивающее имя пользователя и пароль"
Sleep(30)
Send('{Enter}') ; нажимаем Enter, то есть "Далее"
Sleep(30)
ControlSetText($hWnd, '', "[CLASS:Edit; INSTANCE:1]", $sNameConnection) ; Вставляем имя соединения
Send('{Enter}') ; нажимаем Enter, то есть "Далее"
Sleep(30)
ControlCommand($hWnd, '', '[CLASS:Button; INSTANCE:2]', 'UnCheck') ; убираем галочку "Сделать это подключение подключением к Интернету по умолчанию"
Sleep(30)
If Not ($sLogin And $sPassword) Then Exit ; если нет логина или пароля, то выход
ControlSetText($hWnd, '', "[CLASS:Edit; INSTANCE:1]", $sLogin) ; Вставляем логин
ControlSetText($hWnd, '', "[CLASS:Edit; INSTANCE:2]", $sPassword) ; Вставляем пароль
ControlSetText($hWnd, '', "[CLASS:Edit; INSTANCE:3]", $sPassword) ; Вставляем подтверждение пароля
Send('{Enter}') ; нажимаем Enter, то есть "Далее"
Sleep(30)
ControlCommand($hWnd, '', '[CLASS:Button; INSTANCE:1]', 'Check') ; ставим галочку "Добавить ярлык подключения на рабочий стол"
Send('{Enter}') ; нажимаем Enter, то есть "Готово"
SendKeepActive('') ; отпускаем окно

_________________
Не восхищайся прошлогодним небом, -
Не возвращайся - где был рай когда-то,
И брось дурить - иди туда, где не был!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: AutoIt3
Непрочитанное сообщениеДобавлено: 16 июл 2012, 19:43 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Настроение: Дружба
Сообщения: 2430
Благодарил (а): 107 раз.
Поблагодарили: 55 раз.
Пол: Муж
Не много изменил скрипт, теперь после создания подключения происходит автоматическое подключение к интернету.

Цитата:
#AutoIt3Wrapper_Icon=icon.ico

AdlibRegister("UnLock", 3000)
BlockInput(1)

$sLogin = 'Login' ; Здесь пишем логин от вашего интернета
$sPassword = 'Password' ; Здесь пишем пароль от вашего интернета
$sNameConnection = 'Seti74' ; Имя подключения
$sTitle = 'Мастер новых подключений'

If $CmdLine[0] Then ; если ком-строка содержит логин и пароль, то используем их
$sLogin = $CmdLine[1]
If $CmdLine[0] > 1 Then $sPassword = $CmdLine[2]
EndIf

Run("rundll32.exe netshell.dll,StartNCW")
$hWnd = WinWaitActive($sTitle, '', 5) ; ожидаем появление окна активным 5 сек
If Not $hWnd Then Exit ; выход если не дождались окна
SendKeepActive($hWnd) ; удерживать окно активным
Send('{Enter}') ; нажимаем Enter, то есть "Далее"
Sleep(30)
Send('{Enter}') ; нажимаем Enter, то есть "Далее"
Sleep(30)
ControlClick($hWnd, '', '[CLASS:Button; INSTANCE:2]') ; кликаем кнопку "Установить подключение вручную"
Sleep(30)
Send('{Enter}') ; нажимаем Enter, то есть "Далее"
Sleep(30)
ControlClick($hWnd, '', '[CLASS:Button; INSTANCE:2]') ; кликаем кнопку "Через высокоскоростное подключение, запрашивающее имя пользователя и пароль"
Sleep(30)
Send('{Enter}') ; нажимаем Enter, то есть "Далее"
Sleep(30)
ControlSetText($hWnd, '', "[CLASS:Edit; INSTANCE:1]", $sNameConnection) ; Вставляем имя соединения
Send('{Enter}') ; нажимаем Enter, то есть "Далее"
Sleep(30)
If Not ($sLogin And $sPassword) Then Exit ; если нет логина или пароля, то выход
ControlSetText($hWnd, '', "[CLASS:Edit; INSTANCE:1]", $sLogin) ; Вставляем логин
ControlSetText($hWnd, '', "[CLASS:Edit; INSTANCE:2]", $sPassword) ; Вставляем пароль
ControlSetText($hWnd, '', "[CLASS:Edit; INSTANCE:3]", $sPassword) ; Вставляем подтверждение пароля
Send('{Enter}') ; нажимаем Enter, то есть "Далее"
Sleep(30)
ControlCommand($hWnd, '', '[CLASS:Button; INSTANCE:1]', 'Check') ; ставим галочку "Добавить ярлык подключения на рабочий стол"
Send('{Enter}') ; нажимаем Enter, то есть "Готово"
SendKeepActive('') ; отпускаем окно
$hWnd = WinWaitActive($sTitle, '', 5) ; ожидаем появление окна активным 5 сек
If Not $hWnd Then Exit ; выход если не дождались окна

Run('rasphone "Seti74"') ; Подключаем интернет
Sleep(100)
Send('{Enter}')
Sleep(1000)
Send('{Enter}')
UnLock()

Func UnLock()
BlockInput(0)
Exit
EndFunc

_________________
Не восхищайся прошлогодним небом, -
Не возвращайся - где был рай когда-то,
И брось дурить - иди туда, где не был!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: AutoIt3
Непрочитанное сообщениеДобавлено: 16 июл 2012, 23:21 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Настроение: Улетно
Сообщения: 782
Откуда: Карталы
Благодарил (а): 21 раз.
Поблагодарили: 38 раз.
Пол: Муж
а вот объясните мне пожалуйста, люди, я в этом не шарю. что и как? что куда прописывать? я так понял то, что написано в последнем посте от xXx, нужно где то прописать? а где? растолкуйте пожалуйста

_________________
Никогда не бойся делать то, что ты не умеешь. Ковчег был сооружен любителем. Профессионалы построили "Титаник"


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: AutoIt3
Непрочитанное сообщениеДобавлено: 16 июл 2012, 23:38 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Настроение: Дружба
Сообщения: 2430
Благодарил (а): 107 раз.
Поблагодарили: 55 раз.
Пол: Муж
в верней части кода, где в кавычках написано Login и Password, туда прописывай свой логин и пароль которые написаны в договоре Сети74.

_________________
Не восхищайся прошлогодним небом, -
Не возвращайся - где был рай когда-то,
И брось дурить - иди туда, где не был!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: AutoIt3
Непрочитанное сообщениеДобавлено: 16 июл 2012, 23:40 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Сообщения: 1264
Откуда: Карталы
Благодарил (а): 9 раз.
Поблагодарили: 70 раз.
Пол: Муж
First
Скачиваешь AutoIt, создаешь au3-файл, просто текстовый файл с расширением au3, копируешь в него этот текст выше. Далее в контекстном меню файла выбираешь "Compile Script", рядом появится exe-файл.

_________________
предлагаю услуги по настройке компьютера, подробнее


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: AutoIt3
Непрочитанное сообщениеДобавлено: 16 июл 2012, 23:44 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Настроение: Дружба
Сообщения: 2430
Благодарил (а): 107 раз.
Поблагодарили: 55 раз.
Пол: Муж
вот написал куда логин с паролем писать

Цитата:
$sLogin = 'ЛОГИН' ; Здесь пишем логин от вашего интернета
$sPassword = 'ПАРОЛЬ' ; Здесь пишем пароль от вашего интернета
$sNameConnection = 'Seti74' ; Имя подключения
$sTitle = 'Мастер новых подключений'

_________________
Не восхищайся прошлогодним небом, -
Не возвращайся - где был рай когда-то,
И брось дурить - иди туда, где не был!


Последний раз редактировалось xXx 16 июл 2012, 23:55, всего редактировалось 2 раз(а).

Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: AutoIt3
Непрочитанное сообщениеДобавлено: 16 июл 2012, 23:47 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Сообщения: 1264
Откуда: Карталы
Благодарил (а): 9 раз.
Поблагодарили: 70 раз.
Пол: Муж
xXx
тег [ code] убери

_________________
предлагаю услуги по настройке компьютера, подробнее


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: AutoIt3
Непрочитанное сообщениеДобавлено: 16 июл 2012, 23:52 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Настроение: Дружба
Сообщения: 2430
Благодарил (а): 107 раз.
Поблагодарили: 55 раз.
Пол: Муж
Amigo
Убрал уж

_________________
Не восхищайся прошлогодним небом, -
Не возвращайся - где был рай когда-то,
И брось дурить - иди туда, где не был!


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: AutoIt3
Непрочитанное сообщениеДобавлено: 15 дек 2012, 20:51 
Не в сети
Пользователь
Пользователь
Аватара пользователя

Настроение: Дружба
Сообщения: 2430
Благодарил (а): 107 раз.
Поблагодарили: 55 раз.
Пол: Муж
Цитата:
$sTitle = 'Set up a new connection'

Run('rasphone.exe -a')

$hWin = WinWait($sTitle, '', 5)
If Not $hWin Then
BlockInput(0)
MsgBox(16, 'Error', 'Нет окна')
Exit
EndIf

SendKeepActive($hWin)
ControlClick($hWin, '', '[CLASS:Button; INSTANCE:4]')
SendKeepActive('')
$sTitle = 'Set up a new connection'
$sLogin = 'Login' ; Здесь пишем логин от вашего интернета
$sPassword = 'Pass' ; Здесь пишем пароль от вашего интернета
$sNameConnect = 'Seti74'

If $CmdLine[0] Then
$sLogin = $CmdLine[1]
If $CmdLine[0] > 1 Then $sPassword = $CmdLine[2]
EndIf

$hWin = WinWait($sTitle, '', 5)
If Not $hWin Then
BlockInput(0)
MsgBox(16, 'Error', 'Нет окна')
Exit
EndIf

SendKeepActive($hWin)
If Not ($sLogin And $sPassword And $sNameConnect) Then Exit
ControlSetText($hWin, '', "[CLASS:Edit; INSTANCE:1]", $sLogin)
ControlSetText($hWin, '', "[CLASS:Edit; INSTANCE:2]", $sPassword)
ControlSetText($hWin, '', "[CLASS:Edit; INSTANCE:3]", $sNameConnect)
ControlCommand($hWin, '', '[CLASS:Button; INSTANCE:8]', 'Check')
ControlCommand($hWin, '', '[CLASS:Button; INSTANCE:9]', 'Check')
ControlClick($hWin, '', '[CLASS:Button; INSTANCE:1]')
SendKeepActive('')
Sleep(1000)
Run('rasphone.exe -d "Seti74"')
SendKeepActive($hWin)
Sleep(1000)
Send('{Enter}')
SendKeepActive('')


Вот как и обещал написал скрипт для автоматического создания PPPoE подключения в Windows7.

_________________
Не восхищайся прошлогодним небом, -
Не возвращайся - где был рай когда-то,
И брось дурить - иди туда, где не был!


Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 37 ]  На страницу Пред.  1, 2   | Активные темы |  


Часовой пояс: UTC + 5 часов [ Летнее время ]


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 12


Вы можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © phpBB Group
ѥ골񦲳񲯢 ԰᪗eb