Перейти из форума на сайт.


Система IP-видеонаблюдения "Линия". Скачать бесплатную демо-версию для 16 камер. НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » AutoIT (Часть 2)

Модерирует : gyra, Maz

Widok (01-06-2010 13:08): Лимит страниц. Продолжаем здесь.  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

AZJIO



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
;  @AZJIO 25.03.2010
; сохраняем несколько сесий, при старте программы все сессии в текущем каталоге будут найдены и можно переключаться между ними. Особенно удобно при переключениями между виндами или LiveCD, когда нужно открыть сессию каталогов, создав рабочую обстановку.

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_OutFile=SaveFolders.exe
#AutoIt3Wrapper_icon=SaveFolders.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseAnsi=y
#AutoIt3Wrapper_Res_Comment=-
#AutoIt3Wrapper_Res_Description=SaveFolders.exe
#AutoIt3Wrapper_Res_Fileversion=1.0.0.2
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_LegalCopyright=AZJIO
#AutoIt3Wrapper_Res_Language=1049
#AutoIt3Wrapper_Run_AU3Check=n
#EndRegion
;**** Directives created by AutoIt3Wrapper_GUI ****
 
#NoTrayIcon
Global $sTmp, $amountS, $amountF=0, $add=0, $sestmp
 
$form
=GUICreate("SaveFolders v0.4",500, 456)
 
GUICtrlCreateLabel("Сессия", 35, 57, 41, 18)
$Session = GUICtrlCreateList ("", 15, 75, 470, 185) ; $CBS_DROPDOWNLIST=0x3 - стиль нередактируемого комбобокса.
 
$Folderlist = GUICtrlCreateList ("", 485, 75, 470, 225)
 
$OpenF = GUICtrlCreateButton("Папка", 132, 55, 73, 20)
GUICtrlSetTip(-1, "Открыть папку файла сессии")
 
$Open = GUICtrlCreateButton("Добавить", 212, 55, 73, 20)
GUICtrlSetTip(-1, "Добавить сессию")
 
$Upd_list = GUICtrlCreateButton("Обновить", 332, 55, 73, 20)
GUICtrlSetTip(-1, "Обновить список")
 
$Save = GUICtrlCreateButton("Сохранить", 412, 55, 73, 20)
GUICtrlSetTip(-1, "Сохранить папки в сессию")
 
$close = GUICtrlCreateButton("Закрыть все папки", 80, 10, 130, 30)
GUICtrlSetTip(-1, "Из текущего списка")
 
$Openfolder = GUICtrlCreateButton("Открыть все папки", 290, 10, 130, 30)
GUICtrlSetTip(-1, "Из текущего списка")
 
;$auto = GUICtrlCreateCheckbox("авто открытие", 340, 134, 97, 18)
;GUICtrlSetState($auto, 1)

 
_search() ; создать список сессий
_GetWindows() ; чтение текущих каталогов
 
GUISetState ()
 
While 1
    $msg = GUIGetMsg()
    Select
        Case
$msg = $OpenF
            $file
=GUICtrlRead ($Session)
            If $file='текущая' Then
                Run('Explorer.exe "'&@ScriptDir&'"')
            Else
                $file = StringRegExpReplace($file, "(^.*)\\(.*)$", '\1')
                Run('Explorer.exe "'&$file&'"')
            EndIf
            GUICtrlSetPos ($form, 970, 562)
 
        Case $msg = $Upd_list
            _GetWindows()
 
        Case $msg = $Save
            $file_save
= FileSaveDialog( "Сохраняем сессию", @ScriptDir & "", "Session (*.inc)", 24, "Session.inc")
            If @error Then ContinueLoop
            If
StringRight($file_save, 4 )<>'.inc' Then $file_save&='.inc'
            $file = FileOpen($file_save, 2)
            If $file = -1 Then
               MsgBox(0, "Ошибка", "Невозможно открыть файл.")
               ContinueLoop
            EndIf

            _GetWindows()
            FileWrite($file, $sTmp)
            FileClose($file)
            _search()
 
        Case $msg = $Open
            $file_open
= FileOpenDialog("Открываем сессию", @ScriptDir & "", "Session (*.inc)", 1 + 4 , "Session.inc")
            If @error Then ContinueLoop
            $file = FileOpen($file_open, 0)
            If $file = -1 Then
               MsgBox(0, "Ошибка", "Невозможно открыть файл.")
               ContinueLoop
            EndIf

            $sTmp = FileRead($file)
            FileClose($file)
            If StringInStr($sestmp, $file_open)=0 Then $add+=1
            $sestmp&='|'&$file_open
            GUICtrlSetPos ($Session, 15,75, 470, $amountS*16+$add*16+5)
            GUICtrlSetData($Session, $file_open)
            GUICtrlDelete($Folderlist)
            $aPath = StringSplit($sTmp, "|")
            $Folderlist = GUICtrlCreateList ("", 15, $amountS*16+80+$add*16, 470, $aPath[0]*16+5)
            GUICtrlSetData($Folderlist, $sTmp)
 
        Case $msg = $Openfolder
            $aPath
= StringSplit($sTmp, "|")
            For $i=1 To $aPath [0]
                If FileExists($aPath[$i]) Then Run('Explorer.exe "'&$aPath[$i]&'"')
            Next
            Sleep(300)
            _GetWindows()
            Sleep(300)
            WinActivate ( "SaveFolders")
 
        Case $msg = $close
            _close()
            _GetWindows()
 
        Case $msg = $Session
            GUICtrlDelete($Folderlist)
            $file_open=GUICtrlRead ($Session)
            If $file_open ='текущая' Then
            _GetWindows()
            Else
            $file = FileOpen($file_open, 0)
            If $file = -1 Then
               MsgBox(0, "Ошибка", "Невозможно открыть файл.")
               ContinueLoop
            EndIf

            $sTmp = FileRead($file)
            FileClose($file)
            GUICtrlSetData($Session, $file_open)
            $aPath = StringSplit($sTmp, "|")
 
            If $amountS+$aPath[0]+$add > 23 Then
                $aPath[0]=23-$amountS-$add
            EndIf
 
            $Folderlist = GUICtrlCreateList ("", 15, $amountS*16+80+$add*16, 470, $aPath[0]*16+5)
            If $sTmp <> '' Then
            GUICtrlSetData($Folderlist, $sTmp)
            EndIf
            EndIf
 
        Case
$msg = $Folderlist
            ;If GUICtrlRead ($auto)=1 Then
                $myFolder = GUICtrlRead($Folderlist)
                If FileExists($myFolder) Then
                    Run('Explorer.exe "'&$myFolder&'"')
                    ;ShellExecute($myFolder, "", $myFolder) ; выполнение открытие каталога
                EndIf
            ;EndIf
        Case $msg = -3
            Exit
    EndSelect
WEnd
 
; 1 функция чтения текущих каталогов и заполнение их в комбобокс
Func _GetWindows() ; функция самостоятельная, ничего не получает, только создаёт список процессов.
    GUICtrlDelete($Folderlist)
    $AllWindows = WinList() ; вернуть весь список окон, массив с заголовком и идентификатором
    $sTmp = ""
    $amountF=0
    For $i = 1 To $AllWindows[0][0]
        ; находим окна созданные эксплорером и создаём список для комбобокса
        If _IsVisible($AllWindows[$i][1]) and $AllWindows[$i][0] <> "" And $AllWindows[$i][0] <> "Program Manager" And StringRight(_ProcessGetPath(WinGetProcess($AllWindows[$i][0])), 12)='explorer.exe' Then
            $amountF+=1
            If $sTmp = "" Then
                $sTmp &= ControlGetText ( $AllWindows[$i][0], '', "[CLASS:Edit; INSTANCE:1]") ; создаём список путей
            Else
                $sTmp &= "|"&ControlGetText ( $AllWindows[$i][0], '', "[CLASS:Edit; INSTANCE:1]")
            EndIf
        EndIf
    Next
    If $amountS+$amountF+$add > 23 Then
        $amountF=23-$amountS-$add
    EndIf
    $Folderlist = GUICtrlCreateList ("",15, $amountS*16+80+$add*16, 470, $amountF*16+5)
    If $sTmp <> "" Then
        GUICtrlSetData($Folderlist, $sTmp) ; устанавливаем список в комбобокс
    Else
        GUICtrlDelete($Folderlist)
    EndIf
EndFunc
 
; 2 функция закрытия окон, аналогичная _GetWindows(), но с WinClose
Func _close()
    $AllWindows = WinList()
    $sTmp = ""
    For $i = 1 To $AllWindows[0][0]
        If _IsVisible($AllWindows[$i][1]) And $AllWindows[$i][0] <> "" And $AllWindows[$i][0] <> "Program Manager" And StringRight(_ProcessGetPath(WinGetProcess($AllWindows[$i][0])), 12)='explorer.exe' Then
                WinClose($AllWindows[$i][0])
        EndIf
    Next
EndFunc
 
; 3 Функция существования процесса, вызываемая предыдущей функцией
Func _IsVisible($handle) ; проверка открытых окон и свёрнутых на панель задач
    If BitAND(WinGetState($handle), 4) and BitAND(WinGetState($handle), 2) Then ; Вернуть параметры состояния указанного окна. | Выполнить побитовое логическое умножение AND. Первое выражение равно 4, значит процесс существует, второе выражение равно либо 0, либо 2. Если 0, то else Return 0, если 2, то Return 1
            Return 1
        Else
            Return 0 ; это значит процесс игнорировать
    EndIf
EndFunc
 
; 4 поиск сессий
Func _search()
$amountS=1
GUICtrlDelete($Session)
$sestmp='текущая'
$search = FileFindFirstFile(@ScriptDir & "\*.inc")
If $search <> -1 Then
While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop
    $sestmp&='|'&@ScriptDir & "\"&$file
    $amountS+=1
WEnd
EndIf
$Session = GUICtrlCreateList ("", 15, 75, 470, $amountS*16+5)
FileClose($search)
GUICtrlSetData($Session, $sestmp, 'текущая')
EndFunc
 
; 5 зная PID получить путь к файлу создавшему процесс
Func _ProcessGetPath($PID)
    If IsString($PID) Then $PID = ProcessExists($PID)
    $Path = DllStructCreate('char[1000]')
    $dll = DllOpen('Kernel32.dll')
    $handle1 = DllCall($dll, 'int', 'OpenProcess', 'dword', 0x0400 + 0x0010, 'int', 0, 'dword', $PID)
    $ret = DllCall('Psapi.dll', 'long', 'GetModuleFileNameEx', 'long', $handle1[0], 'int', 0, 'ptr', DllStructGetPtr($Path), 'long', DllStructGetSize($Path))
    $ret = DllCall($dll, 'int', 'CloseHandle', 'hwnd', $handle1[0])
    DllClose($dll)
    Return DllStructGetData($Path, 1)
EndFunc

Всего записей: 3509 | Зарегистр. 03-05-2006 | Отправлено: 16:36 25-03-2010 | Исправлено: AZJIO, 05:54 26-03-2010
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » AutoIT (Часть 2)
Widok (01-06-2010 13:08): Лимит страниц. Продолжаем здесь.


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.Board
© Ru.Board 2000-2017

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru