[Котяра]

Может глупый вопрос, но... нашел тут на форуме такой AutoIt-скрипт создания удаленного соединения:

Код:

Run("rundll32.exe netshell.dll,StartNCW")
WinWaitActive ('Мастер новых подключений','Мастер новых подключений')
Send('{Enter}')
Sleep ('500')
WinWaitActive ('Мастер новых подключений','Подключить к Интернету для просмотра веб-узлов и чтения  электронной почты.')
ControlClick ('Мастер новых подключений','Подключить к Интернету для просмотра веб-узлов и чтения  электронной почты.','Button1')
Sleep ('500')
Send('{Enter}')

WinWaitActive ('Мастер новых подключений','Каким образом подключиться к Интернету')
ControlClick ('Мастер новых подключений','Каким образом подключиться к Интернету','Button2')
Sleep ('500')
Send('{Enter}')
WinWaitActive ('Мастер новых подключений','Данное подключение использует модем и обычную телефонную линию или телефонную линию ISDN.')
ControlClick ('Мастер новых подключений','Данное подключение использует модем и обычную телефонную линию или телефонную линию ISDN.','Button1')
Sleep ('500')
Send('{Enter}')
WinWaitActive ('Мастер новых подключений','Им&я поставщика услуг')
ControlSetText ( 'Мастер новых подключений', '', 'Edit1', 'Peterstar' )
Sleep ('500')
Send('{Enter}')
WinWaitActive ('Мастер новых подключений','Номер &телефона:')
ControlSetText ( 'Мастер новых подключений', '', 'Edit1', '3203370,,,' )
Sleep ('500')
Send('{Enter}')
WinWaitActive ('Мастер новых подключений','&Имя пользователя:')
sleep (100)
ControlSetText ( 'Мастер новых подключений', '', 'Edit1', 'Login')
sleep (100)
ControlSetText ( 'Мастер новых подключений', '', 'Edit2', 'Password')
Send('{tab}')
sleep (100)
ControlSetText ( 'Мастер новых подключений', '', 'Edit3', 'Password')
Sleep ('500')
ControlCommand ( 'Мастер новых подключений', '', 'Button13', 'Check', '' )
ControlCommand ( 'Мастер новых подключений', '', 'Button2', 'Check', '' )
Sleep ('500')
Send('{Enter}')
WinWaitActive ('Мастер новых подключений','Завершение работы мастера новых подключений')
ControlCommand ( 'Мастер новых подключений', '', 'Button20', 'UnCheck', '' )
Send('{Enter}')
Exit

Можно ли чуть-чуть его усовершенствовать. Дело в том, что номер дозвона и имя соединения должны быть заданы как тут,а логин и пароль скрипт должен спросить у пользователя. Или это никак не сделать? Я имею ввиду, чтобы после запуска скрипт вывелось окно "Введите логин и пароль" с этими полями. А все остальное как тут.

[Котяра]

Все! Нашел! Надо добавить в самый верх скрипта:

Код:

$login= InputBox("Установка Интернета", "Введите логин Интернета:", "", "")

А потом в скрипте убрать 'Login', а вместо него написать $login
С паролем все по аналогии.

Не понял одно, как сделать, чтобы при нажатии Cancel работа скрипт завершалась, а не переходила как по OK к следующему окну.

[Котяра]

Сделал проверку данных примерно так:

Код:

if $name = '' Then	Exit

Но как перед выходом вывести окно типа "Установка Интернета не удалась."?

[Creat0R]

Котяра,

Надо добавить в самый верх скрипта:

Можно и так, а можно создать сразу окошко с двумя полями ввода..

Код:

_Input_LoginPass_Dialog()
If @error Then Exit

;Тут основное содержание скрипта

Func _Input_LoginPass_Dialog()
    #include <GuiConstants.au3>
    Local $GUI = GUICreate("Ввод данных", 300, 200)

    GUICtrlCreateLabel("Ввод логина:", 20, 30)
    Local $Login_Input = GUICtrlCreateInput("", 20, 50, 260, 20)

    GUICtrlCreateLabel("Ввод пароля:", 20, 90)
    Local $Password_Input = GUICtrlCreateInput("", 20, 110, 260, 20)

    Local $OK_Button = GUICtrlCreateButton("OK", 20, 160, 60, 20)
    Local $Cancel_Button = GUICtrlCreateButton("Отмена", 100, 160, 60, 20)

    GUISetState(@SW_SHOW, $GUI)

    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE, $Cancel_Button
                GUIDelete($GUI)
                Return SetError(1, 0, 0)
            Case $OK_Button
                Local $aRet[2] = [GUICtrlRead($Login_Input), GUICtrlRead($Password_Input)]

                If $aRet[0] = "" Then
                    MsgBox(48, "Внимание!", "Введите пожалуйста логин.")
                    ControlFocus($GUI, "", $Login_Input)
                    ContinueLoop
                EndIf

                If $aRet[1] = "" Then
                    MsgBox(48, "Внимание!", "Введите пожалуйста пароль.")
                    ControlFocus($GUI, "", $Password_Input)
                    ContinueLoop
                EndIf

                GUIDelete($GUI)

                Return $aRet
        EndSwitch
    WEnd
EndFunc

как сделать, чтобы при нажатии Cancel работа скрипт завершалась

Нужно проверять @error:

Код:

$login= InputBox("Установка Интернета", "Введите логин Интернета:", "", "")
If @error = 1 Then Exit

Но как перед выходом вывести окно типа "Установка Интернета не удалась."?

Код:

$login = InputBox("Установка Интернета", "Введите логин Интернета:", "", "")

If @error = 1 Or $login = "" Then
    MsgBox(48, "Внимание!", "Установка Интернета не удалась." & @LF & @LF & "OK   ---->    EXIT")
    Exit
EndIf

[Котяра]

Creat0R, спасибо за ответ.
Теперь я делаю так, чтобы спрашивались 4 параметра: имя подключения, номер, логин, пароль. Цель: создать программу, которая помогала бы "чайникам" настроить подключение к Интернету

[Creat0R]

Котяра,

Теперь я делаю так, чтобы спрашивались 4 параметра: имя подключения, номер, логин, пароль.

Получилось?

На всякий случай:

Код:

$aInputs = _Input_LoginPass_Dialog()
If @error Then Exit

$ConnectionName     = $aInputs[0]
$Number             = $aInputs[1]
$Login              = $aInputs[2]
$Password           = $aInputs[3]

MsgBox(64, "Результаты:", _
    StringFormat("Имя подключения: %s \nНомер: %s \n\nЛогин: %s \nПароль: %s", _
    $aInputs[0], $aInputs[1], $aInputs[2], $aInputs[3]))

;Тут основное содержание скрипта

Func _Input_LoginPass_Dialog()
    #include <GuiConstants.au3>
    Local $GUI = GUICreate("Ввод данных", 300, 280)

    GUICtrlCreateLabel("Ввод имени подключения:", 20, 20)
    Local $ConnectionName_Input = GUICtrlCreateInput("", 20, 40, 260, 20)

    GUICtrlCreateLabel("Ввод номера (подключения?):", 20, 70)
    Local $Number_Input = GUICtrlCreateInput("", 20, 90, 260, 20)

    GUICtrlCreateLabel("Ввод логина:", 20, 120)
    Local $Login_Input = GUICtrlCreateInput("", 20, 140, 260, 20)

    GUICtrlCreateLabel("Ввод пароля:", 20, 170)
    Local $Password_Input = GUICtrlCreateInput("", 20, 190, 260, 20, $ES_LEFT+$ES_AUTOHSCROLL+$ES_PASSWORD)

    Local $OK_Button = GUICtrlCreateButton("OK", 20, 240, 60, 20)
    Local $Cancel_Button = GUICtrlCreateButton("Отмена", 100, 240, 60, 20)

    GUISetState(@SW_SHOW, $GUI)

    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE, $Cancel_Button
                GUIDelete($GUI)
                Return SetError(1, 0, 0)
            Case $OK_Button
                Local $aRet[4]

                $aRet[0] = GUICtrlRead($ConnectionName_Input)
                $aRet[1] = GUICtrlRead($Number_Input)
                $aRet[2] = GUICtrlRead($Login_Input)
                $aRet[3] = GUICtrlRead($Password_Input)

                If $aRet[0] = "" Then
                    MsgBox(48, "Внимание!", "Введите пожалуйста имя подключения.")
                    ControlFocus($GUI, "", $ConnectionName_Input)
                    ContinueLoop
                EndIf

                If $aRet[1] = "" Then
                    MsgBox(48, "Внимание!", "Введите пожалуйста номер (подключения?).")
                    ControlFocus($GUI, "", $Number_Input)
                    ContinueLoop
                EndIf

                If $aRet[2] = "" Then
                    MsgBox(48, "Внимание!", "Введите пожалуйста логин.")
                    ControlFocus($GUI, "", $Login_Input)
                    ContinueLoop
                EndIf

                If $aRet[3] = "" Then
                    MsgBox(48, "Внимание!", "Введите пожалуйста пароль.")
                    ControlFocus($GUI, "", $Password_Input)
                    ContinueLoop
                EndIf

                GUIDelete($GUI)

                Return $aRet
        EndSwitch
    WEnd
EndFunc

[Creat0R]

Известно что у функции FileSetTime есть баг (довольно критичный в моём случае).

Установленные секунды округляются до чётного числа:

Код:

$File = @TempDir & "\Test.txt"

$hOpenFile = FileOpen($File, 2)
FileWrite($hOpenFile, "Test")
FileClose($hOpenFile)

$SetTime = 20060322083529 ; - 2

FileSetTime($File, $SetTime)

$GetTime = FileGetTime($File, 0, 1)

MsgBox(0, "", StringFormat("Set Time: %s \nGet Time: %s", $SetTime, $GetTime))

FileDelete($File)

Мне нужно установить время какими нибудь другими средствами (API?), более точными, но не используя внешние утилиты (типа Nircmd).

Это возможно реализовать? нет возможности ждать пока исправят это дело в AutoIt (на бету переходить не могу по техническим причинам ).

P.S
А на счёт печяти никто так и не знает решения? amel27, не подскажешь?

[Котяра]

Creat0R, у меня получается. Вообще, AutoIt, классная штука
Можно даже программы писать. Например, деинсталлятор:

Код:

$proceeduninstall = MsgBox(4148, "Внимание!", "Сейчас программа будет удалена. Хотите продолжить?")
if $proceeduninstall = '7' Then Exit
FileDelete(@ScriptDir & "\example.txt")

Правильно я понял, как деинсталлятор делать?

тут удаляется один файл example.txt
Uninstall.exe (скомпиленный скрипт) кладете в папку программу

[Creat0R]

Котяра,

Правильно я понял, как деинсталлятор делать?

Простой, да. Если делать более продвинуты, например, чтобы брал информацию об установленных приложении с системы, то нужно поработать ещё - Например вот неплохой деинсталлятор.

А если делать деинсталлятор для своей проги, то желательно чтобы он умел читать лог файл, который оставил за собой инсталлятор, и удалять только не тронутые (не изменённые) файлы .

[Creat0R]

CaptureIt v1.0 - Эта утилита предназначена для захвата изображений с вашего экрана.


=================
Главные возможности:
=================

• Захват всего экрана.
• Захват отдельных окон или выбранных элементов окна.
• Захват выбранной части экрана.
• Сохранение захваченного изображения в тихом режиме.
• Открытие захваченного изображения в графическом редакторе.
• Вывод на печать захваченного изображения.
• Помещение захваченного изображения в буфер обмена.
• Закачка захваченного изображения (на imageshack.us).
  
• Поддерживаемые форматы изображений:
  
  PNG
  GIF
  JPG - Качество настраивается.
  BMP - Формат настраивается.

Особое спасибо amel27 за функции _FileOpen/SaveDialog, и за решение с улавливанием событий мышки