[TERMINAL]

amel27, Creat0R, Подскажите плз...Как удалить с рабочего стола все ярлыки за исключением ярлыка КОРЗИНА.lnk. Я написал скриптик, но как только он встречает ярлык КОРЗИНА - сразу скрипт перестаёт работать.

[Maza Faka]

TERMINAL
Вообще-то корзина это не ярлык, а класс и так просто с рабочего стола её не удалить, можно через реестр:

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\{645FF040-5081-101B-9F08-00AA002F954E}]
@="Recycle Bin"
Выложи свой скрипт.

[TERMINAL]

Maza Faka, Ты меня не понял-мне все ярлыки нужно удалить за исключением корзины.

[Maza Faka]

TERMINAL
Можно так:

Код:

#include <File.au3>

Dim $path = @DesktopDir
Global $LnkArray = _FileListToArray($path, "*.lnk")
_ArrayDisplay($LnkArray)

For $i = 1 To $LnkArray[0]
    If $LnkArray[$i] <> "Корзина.lnk" Then FileDelete($path &"\"& $LnkArray[$i])
    Next

Но если ярлыков много, то будет быстрее, если переместить ярлык "корзины" в другую папку, удалить все ярлыки и переместить ярлык "корзины" обратно.

[NikLok]

amel27,

для начала можно ТУТ (главы 8, 9 »

Ты не в курсе почему не открывается этот материал более?

А самое главное нет ли у тебя да и у Creatora заодно желание создать аналог BSPI, который я очень уважаю, но автор его редко дорабатывает!
Я думаю преимущества Вам понятны. А сама разработка была бы замечательным учебным примером для остальных!

[Creat0R]

amel27,

можно проверить на соответствие строки

Работает, спасибо - я не думал что это реально построить лишь встроенными функциями AutoIt'а

HORRIBLE, Maza Faka, amel27,

Send("{+ Down}")

не так, Shift+Down это будет: Send("+{Down}")

Но как я понял, требуется зажать Shift, а не Shift и вниз ...

Send("{SHIFTDOWN}"), и соответственно отпустить - Send("{SHIFTUP}").
amel27,

вроде разобрался как управлять кнопками питания, вот UDF и пример:

Я не сомневался , ещё и в придачу “блокирует” закрытие крышки ноута - Спасибо.

[HORRIBLE]

Скажите почему не работает последняя команда, что я не так пишу???
Или тут нельзя этой командой пользоваться, а можно только табом добраться до кнопочки ACCEPT?
Пасибо.

[Maza Faka]

HORRIBLE
Попробуй так:

Код:

ControlClick("Adobe Acrobat 8 Professional", "", "Internet Explorer_Server1")

[Creat0R]

amel27,
По поводу определения флэша...
Я проверил, на системе никогда не устанавливался флэш плеер, функция от piccaso вернула версию 6, я установил плеер, возвращает 9 - вот я и подумал, а что если просто проверять совместимость текущей версии и версии плеера? (или может есть возможность послать запрос (от лица IE) на получение инфы о том, установлен ли в системе Flash плеер?).

Вот что у меня получилось в результате:

Код:

Global $oErr = ObjEvent("AutoIt.Error", "_ComError")

$FlashCurrentVersion = _GetFlashVersion()
$FlashIsCompatible = IsCompatible_Flash_Version($FlashCurrentVersion)

If Not @error Then
    MsgBox(64, "", "Flash Player is compatible (installed last version)? = " & $FlashIsCompatible)
Else
    MsgBox(48, "Error", "Please check your connection to the Internet.")
EndIf

Func IsCompatible_Flash_Version($Version=9)
    If Number($Version) <= 0 Then Return False

    Local $sSource = _HTTPGetSource("www.adobe.com", "/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash")
    If @error Then Return SetError(1, 0, -1)

    Local $InetFlashVersion = StringRegExpReplace($sSource, '(?i)(?s).*?<strong>Version</strong>:(.*?)</li>.*', '\1')
    $InetFlashVersion = StringStripWS($InetFlashVersion, 3)
    $InetFlashVersion = StringLeft($InetFlashVersion, 1)
    If Number($InetFlashVersion) > Number($Version) Then Return False
    Return True
EndFunc

Func _GetFlashVersion()
    Local $oSwf, $sVersion
    $oSwf = ObjCreate("ShockwaveFlash.ShockwaveFlash")
    If @error Then Return 0 ; No flash at all
    $oSwf.AllowScriptAccess = "always"
    $sVersion = $oSwf.GetVariable("$Version")
    If @error Then
        $oSwf = ObjCreate("ShockwaveFlash.ShockwaveFlash.3")
        If @error Then
            $oSwf = ObjCreate("ShockwaveFlash.ShockwaveFlash.2")
            If @error Then Return 0
            Return 2
        EndIf
        Return 3
    EndIf
    $sVersion = StringTrimLeft($sVersion, 3)
    $sVersion = StringLeft($sVersion, StringInStr($sVersion, ",") - 1)
    Return Number($sVersion)
EndFunc

Func _HTTPGetSource($sHost, $sPage)
    TCPStartup()

    Local $sRetSource = ""
    Local $nCurrentLine, $sRcvBytes = 1024
    Local $Name_To_IP = TCPNameToIP($sHost)
    Local $iSocket = TCPConnect($Name_To_IP, 80)

    If $iSocket = -1 Then
        TCPCloseSocket($iSocket)
        Return SetError(1, 0, 0)
    EndIf

    Local $sCommand = "GET " & $sPage & " HTTP/1.1" & @CRLF
    $sCommand &= "Host: " & $sHost & @CRLF
    $sCommand &= "User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)" & @CRLF
    $sCommand &= "Connection: close" & @CRLF & @CRLF

    Local $iBytesSent = TCPSend($iSocket, $sCommand)
    If $iBytesSent = 0 Or @error Then Return SetError(2, @error, 0)

    While 1
        $nCurrentLine = TCPRecv($iSocket, $sRcvBytes)
        If @error <> 0 Then ExitLoop
        If $nCurrentLine <> '' Then $sRetSource &= $nCurrentLine
    WEnd

    TCPCloseSocket($iSocket)
    TCPShutdown()

    Return $sRetSource
EndFunc

Func _ComError()
    ; Just set @error, the script will handle it...
    Local $iErr = $oErr.number
    If $iErr = 0 Then $iErr = -1
    SetError($iErr)
EndFunc

Один нюанс - я не уверен как задать «User Agent» для Http запроса, нужно в принципе для Internet Explorer, но в википедии слишком много вариантов, я выбрал самый простой (средний).

[amel27]

Creat0R

на системе никогда не устанавливался флэш плеер, функция от piccaso вернула версию 6 »

может тогда не заморачиваться?

Код:

Func IsShockwaveInst()
    Local $i
    For $i=13 To 7 Step -1
        If IsObj(ObjCreate("ShockwaveFlash.ShockwaveFlash." & $i)) Then Return True
    Next
    Return False
EndFunc

не думал что это реально построить лишь встроенными функциями AutoIt'а »

ты не понял мою мысль - проблема не в ограниченности языка, а в самой системе кодировок, та же UTF-8 строка всегда будет соответствать некоторой ANSI-последовательности... хотя она будет похожа скорей на набор спецсимволов, чем на осмысленный текст (а вдруг это шифротекст? ), поэтому чем длинней текст тем точней можно угадать кодировку

“блокирует” закрытие крышки ноута »

на самом деле приведенная UDF контролирует POWER-клавиши только для On-Line состояния, для управления клавишами в режиме On-Battery требуется другая такая же UDF (типа PowerKeysCallDCState), в которой первый параметр заменен с "0" на "1":

Код:

    ; ...
    ; Чтение текущей системной политики питания
    Local $ret = DllCall("PowrProf.dll", "int", "CallNtPowerInformation", "int", 1, _
        "ptr", 0, "int", 0, "ptr", DllStructGetPtr($buf), "int", DllStructGetSize($buf))
        ; ...
        ; Применение новой политики
        $ret = DllCall("PowrProf.dll", "int", "CallNtPowerInformation", "int", 1, _
            "ptr", DllStructGetPtr($buf), "int", $SysPwrPolLen, "ptr", 0, "int", 0)
    ; ...