[kagorec]

Maza Faka Тебя также с новым
Спасибо, посмотрю мануал может чтонибудь да получится ...
Насчет посмотреть в топике этт 194 страницы просмотреть с моим диалапом, а можно пример скрипта ?

[МИШАНЧИК]

Ну может всё таки кто нибудь напишет скрипт для Nero8?

[Maza Faka]

kagorec

194 страницы просмотреть с моим диалапом

Посмотри в версии для печати, дай поиск по слову PixelChecksum.

МИШАНЧИК

Ну может всё таки кто нибудь напишет скрипт для Nero8?

Я бы с удовольствием тебе помог, но у меня нет Nero8 (юзаю 6 версию), а качать этого монстра из инета на диал-апе удовольствие сомнительное.

[Angelus]

Добрый день, такой вопрос.....есть параметр, нужно что бы он проверял соответствие пути, и если есть лишнии символы то выдал сообщение....

Код:

Func nst_serv ()
Dim $wtf_exe = '*\*.???'
	
Dim $serv1_realm = ControlGetText ( 'Настройка', '', 'Edit1' )
Dim $serv1_exe = ControlGetText ( 'Настройка', '', 'Edit2' )
Dim $serv1_reg = ControlGetText ( 'Настройка', '', 'Edit3' )
Dim $serv1_ip = ControlGetText ( 'Настройка', '', 'Edit4' )
Dim $serv1_ping = ControlGetText ( 'Настройка', '', 'Edit5' )

Dim $dat_serv1[5][2] = [ [ $key1, $serv1_realm ], [ $key2, $serv1_exe ], [ $key3, $serv1_reg ], [ $key4, $serv1_ip ], [ $key5, $serv1_ping ] ]

If $wtf_exe = $serv1_realm Then 
MsgBox ( 16, 'Ошибка', 'Возможно допущенны следующие ошибки:' & @CRLF & _
'- В пути realmlist`а написано имя файла' & @CRLF & _
'- В пути к экзешнику написано имя файла' & @CRLF & _
'- В конце путей стоит " \ "' & @CRLF & _
'- В ip адресе realmlist`a написано "set realmlist"' )
Else
IniWriteSection ( $file, $serv[0], $dat_serv1, 0 )
EndIf

Выполняется только если ввести в параметр $wtf_exe поный путь......

[Maza Faka]

Angelus
FileExists()?

[Angelus]

Я хочу что бы он путь проверял...и если в графе вписано путь и в конце имя файла тогда он выдал сообщение....если не вписано имя файла...то записал в ини файл то что в графе....

[Maza Faka]

Angelus
Так? :

Код:

$parsing = StringRegExp($serv1_realm, "\..{3}$", 3)

If @error Then
    IniWrite("c:\test\test.ini", "Section", $serv1_realm, "value")
Else
    MsgBox(64, "Message", "File name")
EndIf

[Creat0R]

Не удаётся в новой версии AutoIt 3.2.10.0 переделать самопальную функцию _FileSelectFolder() »

Удалось!

Код:

Func _FileSelectFolder($sText='', $iRoot=0, $iFlags=0, $sInitDir=@ScriptDir, $hWnd=0, $sCallbackProc='_FileSFCallbackProc')
    Local $pidl, $iRes='', $pCallbackProc=0, $iMask = $BIF_ALLOLDSTYLEFLAGS, $Error = 0
    ; Контроль входных параметров
    ;$sInitDir = StringRegExpReplace($sInitDir, '([^\\])\\*$', '\1\\')
    ;If StringRight($sInitDir, 1)=':' Then $sInitDir &= '\'
    If BitAND($iFlags, $BIF_NEWDIALOGSTYLE) Then $iMask = $BIF_ALLNEWSTYLEFLAGS
    ; Создание и инициализация основных структур данных
    Local $uBI = DllStructCreate ("hwnd;ptr;ptr;ptr;int;ptr;ptr;int") ; BROWSEINFO
    Local $uTX = DllStructCreate ("char[260];char") ; Текст приглашения
    Local $uMP = DllStructCreate ("char[260]") ; MAX_PATH
    Local $uCB = DllStructCreate ("char[260];int") ; CallBack структура
    DllStructSetData ($uTX, 1, $sText)
    DllStructSetData ($uCB, 1, $sInitDir)
    DllStructSetData ($uCB, 2, $iFlags)
    ; Заполнение структуры BROWSEINFO
    DllStructSetData ($uBI, 1, $hwnd)
    DllStructSetData ($uBI, 3, DllStructGetPtr($uMP))
    DllStructSetData ($uBI, 4, DllStructGetPtr($uTX))
    DllStructSetData ($uBI, 5, BitAND($iFlags, $iMask))
    DllStructSetData ($uBI, 7, DllStructGetPtr($uCB))
    ; Получение указателя на CallBack-функцию
    If $sCallbackProc <> '' Then $pCallbackProc = DllCallbackRegister($sCallbackProc, 'int', 'hwnd;int;long;ptr')
    If @error Then Return SetError(2, @error, '') ; ОШИБКА получения указателя
    DllStructSetData($uBI, 6, DllCallbackGetPtr($pCallbackProc))
    ; Получение указателя на корневую папку (PIDL)
    Local $iRet = DllCall ("shell32.dll", "ptr", "SHGetSpecialFolderLocation", _
        "int", 0 , "int", $iRoot , "ptr", DllStructGetPtr($uBI, 2))
    If $iRet[0]=0 Then
        ; Запуск системного диалога
        $pidl = DllCall ("shell32.dll", "ptr", "SHBrowseForFolder", "ptr", DllStructGetPtr($uBI))
        $iRes = DllStructGetData($uMP, 1) ; сохраняем имя объекта
        If $pidl[0] Then
            ; Обработка полученного указателя (PIDL)
            $iRet = DllCall ("shell32.dll", "int", "SHGetPathFromIDList", "ptr", $pidl[0], "ptr", DllStructGetPtr($uMP))
            If $iRet[0] Then $iRes = DllStructGetData($uMP, 1)
            DllCall ("ole32.dll", "int", "CoTaskMemFree", "ptr", $pidl[0]) ; чистим за собой
        Else
            $Error = 1
        EndIf
        DllCall ("ole32.dll", "int", "CoTaskMemFree", "ptr", DllStructGetData ($uBI, 2)) ; чистим за собой
    Else
        SetError(1, 0, '') ; ОШИБКА в параметре корневой папки
    EndIf
    If $pCallbackProc Then DllCallBackFree($pCallbackProc) ; закрытие указателя
    Return SetError($Error, 0, $iRes)
EndFunc

Оказывается DllCallbackRegister() возвращает не указатель, а идентификатор, нужно было всего лишь использовать DllCallbackGetPtr() для получения указателя, и далее использовать его при вызове заполнении структуры .

[Angelus]

Да спасибо...сработало....интересная команда....

[Maza Faka]

Creat0R
Ругается на:

WARNING: $BIF_ALLOLDSTYLEFLAGS: possibly used before declaration.

, какое значение должно содержаться в константе(?) $BIF_ALLOLDSTYLEFLAGS?