[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.

FlatX007 · Отправлено: **19:13, 18-12-2008** | #**1301**

Объясните кто нибудь, откуда берётся название устройства "REMOVABLE" в окне сообщения в этом скрипте ...

Непонятно одно, что значит в переменной $var[$i] значение в квадратных скобках ? [$i]
Возможно вопрос тупой Но непонимаю Я ... если можно объясните с начала скрипта.

$var = DriveGetDrive( "REMOVABLE" )
If NOT @error Then
MsgBox(4096,"", "Found " & $var[0] & " drives")
For $i = 1 to $var[0]
MsgBox(4096,"Drive " & $i, $var[$i])
Next
EndIf

Creat0R · Конфигурация компьютера

shyra1976,

Цитата:

что бы иконка закривалас при нажатии мышки на нее?

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

Нажимаем сюда для просмотра кода...

Код:

#NoTrayIcon
#include <GDIPlus.au3>
#include <GuiComboBox.au3>
#include <File.au3>
#include <Misc.au3>
#include <Array.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <ButtonConstants.au3>
#include <WinAPI.au3>

Global Const $AC_SRC_ALPHA = 1;, $ULW_ALPHA = 2
Global $launchDir = @DesktopDir, $GUI

Global $hUser32DllOpen = DllOpen("User32.dll")

$temp = "E:\VBA\AutoIt\GUI\1.png"
Transp_PNG($temp)

Func Transp_PNG($temp, $iOpacity = 255, $EnableFade = True)
    If $iOpacity < 0 Then $iOpacity = 0
    If $iOpacity > 255 Then $iOpacity = 255

    ; Load PNG file as GDI bitmap
    _GDIPlus_Startup()
    $pngSrc = $temp
    $hImage = _GDIPlus_ImageLoadFromFile($pngSrc)

    ; Extract image width and height from PNG
    $width = _GDIPlus_ImageGetWidth($hImage)
    $height = _GDIPlus_ImageGetHeight($hImage)

    ; Create layered window

    $GUI = GUICreate("lod3n launcher", $width, $height, -1, -1, $WS_POPUP, $WS_EX_LAYERED)

    GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST")
    GUISetState()
    WinSetOnTop($GUI, "", 1)

    If $EnableFade Then
        ;fade in png background
        For $i = 0 To $iOpacity Step 1
            SetBitmap($GUI, $hImage, $i)
        Next
    Else
        SetBitmap($GUI, $hImage, $iOpacity)
    EndIf

    ; set default button for Enter key activation - renders outside GUI window
    $BtnExit = GUICtrlCreateButton("Exit", $width, $height, 10, 10, $BS_DEFPUSHBUTTON)

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE, $BtnExit
                ExitLoop
        EndSwitch

        If _IsPressed(01, $hUser32DllOpen) Then ExitLoop
    WEnd

    If $EnableFade Then
        ;fade out png background
        For $i = $iOpacity To 0 Step -1
            SetBitmap($GUI, $hImage, $i)
        Next
    Else
        SetBitmap($GUI, $hImage, 0)
    EndIf

    CancelPressed()
EndFunc   ;==>Transp_PNG

Func CancelPressed()
    DllClose($hUser32DllOpen)

    Exit
EndFunc

; Handle the WM_NCHITTEST for the layered window so it can be dragged by clicking anywhere on the image.
Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam)
    Switch $iMsg
        Case $WM_NCHITTEST
            If $hWnd = $GUI Then Return $HTCAPTION
    EndSwitch
EndFunc   ;==>WM_NCHITTEST

; SetBitMap
Func SetBitmap($hGUI, $hImage, $iOpacity)
    Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend

    $hScrDC = _WinAPI_GetDC(0)
    $hMemDC = _WinAPI_CreateCompatibleDC($hScrDC)
    $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
    $hOld = _WinAPI_SelectObject($hMemDC, $hBitmap)
    $tSize = DllStructCreate($tagSIZE)
    $pSize = DllStructGetPtr($tSize)
    DllStructSetData($tSize, "X", _GDIPlus_ImageGetWidth($hImage))
    DllStructSetData($tSize, "Y", _GDIPlus_ImageGetHeight($hImage))
    $tSource = DllStructCreate($tagPOINT)
    $pSource = DllStructGetPtr($tSource)
    $tBlend = DllStructCreate($tagBLENDFUNCTION)
    $pBlend = DllStructGetPtr($tBlend)
    DllStructSetData($tBlend, "Alpha", $iOpacity)
    DllStructSetData($tBlend, "Format", $AC_SRC_ALPHA)
    _WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
    _WinAPI_ReleaseDC(0, $hScrDC)
    _WinAPI_SelectObject($hMemDC, $hOld)
    _WinAPI_DeleteObject($hBitmap)
    _WinAPI_DeleteDC($hMemDC)
EndFunc   ;==>SetBitmap

morgan1991,

Цитата:

Если закрыть доступ к текстовому файлу с расширением .php (на других не пробовал) тогда документ открывается с помощью notepad.

Но он не доступен, если я ошибаюсь и он доступен, то прошу файл в студию.

FlatX007,

Цитата FlatX007:

откуда берётся название устройства "REMOVABLE" в окне сообщения в этом скрипте »

Вопрос не очень понятен, возможно стоит прочитать справку по этой команде (DriveGetDrive)?

Цитата FlatX007:

что значит в переменной $var[$i] значение в квадратных скобках ? [$i] »

Это элемент массива.

Цитата FlatX007:

если можно объясните с начала скрипта. »

Код:

;Получаем в массив все съёмные носители (USB-флэшки, Floppy-диски и т.п.)
$var = DriveGetDrive("REMOVABLE")

If NOT @error Then
    ;Если небыло ошибки, показываем сколько устройств найдено ($var[0])
    MsgBox(4096, "", "Found " & $var[0] & " drives")

    ;В этом же условии (что ошибок не возникло), проходим по всему массиву,
    ;и показываем найденые устройства ($i тут это элемент в массиве, от 1-ого до найденного числа устройств -> $var[0])
    For $i = 1 to $var[0]
        MsgBox(4096,"Drive " & $i, $var[$i])
    Next
EndIf

morgan1991 · Отправлено: **00:04, 19-12-2008** | #**1303**

Цитата Creat0R:

Но он не доступен, если я ошибаюсь и он доступен, то прошу файл в студию. »

У меня любой файл с расширением .php открывается, на win xp sp2 открываю через нотпэд. Прога выдаёт ошибку о том что нет доступа к файлу, нажимаю ок и вуаля текстовый документ открыт можно с ним работать, правда его нельзя изменить но прочитать можно. А вдруг там ценная информация?

Creat0R · Конфигурация компьютера

morgan1991,

Цитата morgan1991:

любой файл с расширением .php открывается, на win xp sp2 открываю через нотпэд »

Какая файловая система? у меня Fat, и файл блокируется.

morgan1991 · Отправлено: **00:37, 19-12-2008** | #**1305**

Цитата Creat0R:

Какая файловая система? у меня Fat, и файл блокируется. »

NTFS

Creat0R · Конфигурация компьютера

Цитата morgan1991:

NTFS »

Maza Faka

А как же тогда это...

Цитата Maza Faka:

Тестировалось на:
WinXP SP3 FS:NTFS »

Что изменилось с SP2 по 3?

morgan1991,
А другие файлы тоже так “блокируются”?

shyra1976 · Отправлено: **06:44, 19-12-2008** | #**1307**

Цитата Creat0R:

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

Я там написал код

Вы могли бы скинуть библиотеку #include <Misc.au3>