Windows 7 (странная ошибка)

[Arei]

При запуске скомпилированной программы на 7 выдаёт эту ошибку

Помогите пожалуйста.

 

[Ganibal95]

А что за скрипт то?
Мы телепатией не обладаем!!

 

[Arei]

обычный на поиск файла, у меня почти все так стали работать.

 

[Arei]

И это не выход.

 

[Yashied]

И это не выход.

Что именно делает твой скрипт, приведи короткий пример.

 

[Arei]

дело в том что это не от скрипта зависит, а от самой windows потому что много скриптов так блокируется.Может какой то запрет на открытие?

 

[Medic84]

Где поиск? Запущена ли из под администратора? Отключен ли UAC и т.п.
Вы можете подробнее изъяснятться? Просто телепаты в отпуске а мой мыслечитатель на работает в такую погоду.

 

[VladUs]

Arei
Попробуйте запустить скрипт в режиме совместимости с windows xp sp3

 

[Arei]

совместимость с хр не помогает, UAC проверял и при включенной и выключенной результат один, да запускал от админа.НА винчестерах ставится доступ какой нибудь?

 

[Yashied]

Это зависит именно от скрипта, т.к. происходит не поиск файлов, а запись туда, куда не следует, например в Program Files. Если хочешь, что бы было как в XP, то отключи UAC или запускай скрипт с правами администратора.

#AutoIt3Wrapper_Res_RequestedExecutionLevel=requireAdministrator

 

[Arei]

сейчас попробую

 

[Yashied]

UAC проверял и при включенной и выключенной результат один...

UAC отключается только после перезагрузки системы.

 

[Arei]

знаю,выше код не помог

 

[Yashied]

Тогда давай свой код.

 

[Arei]

вот

#AutoIt3Wrapper_Res_RequestedExecutionLevel=requireAdministrator
$aOut = _FileSearch(@HomePath, "prefs.js", 1)

Func _FileSearch($sPath, $sFileMask, $iFlag = 0)
    Local $sOutBin, $sOut, $aOut, $sRead, $hDir, $sAttrib

    Switch $iFlag
        Case 1
            $sAttrib = ' /A-D'
        Case 2
            $sAttrib = ' /AD'
        Case Else
            $sAttrib = ' /A'
    EndSwitch

    $sOut = StringToBinary('0' & @CRLF, 2)
    $aMasks = StringSplit($sFileMask, ';')

    For $i = 1 To $aMasks[0]
        $hDir = Run(@ComSpec & ' /U /C DIR "' & $sPath & '\' & $aMasks[$i] & '" /S /B' & $sAttrib, @SystemDir, @SW_HIDE, 6)

        While 1
            $sRead = StdoutRead($hDir, False, True)

            If @error Then
                ExitLoop
            EndIf

            If $sRead <> "" Then
                $sOut &= $sRead
            EndIf
        Wend
    Next

    $aOut = StringRegExp(BinaryToString($sOut, 2), '[^\r\n]+', 3)

    If @error Then
        Return SetError(1)
    EndIf

    $aOut[0] = UBound($aOut)-1

    Return $aOut
 EndFunc

 

[Yashied]

Кстати, если программа лежит в Program Files и сохраняет свои настройки в .ini файле в той же директории, то в этом случае так же понадобятся права администратора при включенном UAC. Это еще одна причина отказаться от .ini в пользу реестра.

 

[Arei]

Спасибо учту.

 

[Yashied]

У меня это работает при любом раскладе. Попробуй так:

$aOut = _FileSearch(@AppDataDir & '\Mozilla\FireFox\Profiles', 'prefs.js', 1)

 

[Arei]

сам код проверял на xp он рабочий,дело в 7 буду смотреть в ней.

 

[Yashied]

А что выдает

ConsoleWrite(@ComSpec & @CR)

P.S

А вообще, я не вижу что может вызваать это сообщение из этого кода. "DIR" в принципе не показывает никаких сообщений, а больше некому. Этот MessageBox выдает Explorer, но в представленном коде он не используется.