[borzoy]

Creat0R

Таким образом, если вы хотите узнать как установить Winamp 5.x при помощи AutoIt, то создайте тему [autoit] Winamp 5.х (если таковой еще нет на форуме).

Видимо Модераторы плохо знают правила раз сами их не знают. Сделал как и написано было тему [autoit]Fraps и Punpad Shell4 но какой то модератор удалил эту тему!!!

[jameszero]

borzoy
Я отправил вам оповещение, что ваша тема [autoit] Fraps и Punpad Shell4, с просьбой помочь создать скрипт, перенесена в созданную вами же тему Помогите с тихой установкой Fraps и Runpad Shell, в которой уже начато обсуждение.
Зачем создавать одинаковые темы? ОПК - пункт 2.1
(Тема переименована в [autoit] Fraps и Runpad Shell, ни один пост не удалён)

[Creat0R]

В AutoIt'е плохо (а точнее не корректно) работает функция FileDelete - например если написать её так:

Код:

FileDelete(@TempDir & "\")

То в папке @TempDir будут удалены все файлы (не папки), т.е если я укажу файл для удаления в виде переменной, и каким то образом эта переменная окажется пуста (""), то может произойти нежеланная катастрофа - будьте очень остарожны, я на днях попал на эту удочку (правда к счастью у меня был бекап уалившихся файлов).

[Diamond]

Creat0R

В AutoIt'е плохо (а точнее не корректно) работает функция FileDelete

Здесь, если даже не включать проверку на существование файла, то (в случае с пустой переменной или отсутствием файла) скрипт завершиться с ошибкой, но ничего удалено не будет!
Думаю всё же, такой способ надёжней в плане безопасности, чем мучаться и придумывать разные хитрости, пытаясь исправить баг AutoIt'а.

Код:

Dim $fso
;~ Создание объекта
$fso = ObjCreate("scripting.filesystemobject")

;~ Удаление файла
Func DeleteFile($FileSpec)
If $fso.FileExists($FileSpec) Then
	$fso.DeleteFile($FileSpec, True)
EndIf
EndFunc

;~ Удаление папки
Func DeleteFolder($FolderSpec)
If $fso.FolderExists($FolderSpec) Then
	$fso.DeleteFolder($FolderSpec, True)
EndIf
EndFunc

[Creat0R]

Diamond
Да, это неплохой способ, спасибо, возьмём его пожалуй в арсенал функции аутоита

---

Я что-то не нашёл функции, которая проверяла бы данное число на чётность/не чётность, и решил её сам сделать (понадобилась сея функция), но не уверен что это правильное решение, может уже есть подобная функция, или у кого то есть более универсальное предложение?

Код:

$iNumber = 2075674

If _IsEven($iNumber) Then
    MsgBox(64, "Even check", "The given number <" & $iNumber & "> is an Even number")
Else
    MsgBox(64, "Even check", "The given number <" & $iNumber & "> is not an Even number (it is Odd)")
EndIf

Func _IsEven($NumString)
    If $NumString < 1 Then
        $NumStrArr = StringSplit($NumString, ".")
        If IsArray($NumStrArr) And $NumStrArr[0] > 1 Then $NumString = $NumStrArr[2]
    EndIf
    If IsFloat($NumString / 2) Then
        Return 0
    Else
        Return 1
    EndIf
EndFunc

.........
И ещё, заметил вроде ещё багу в аутоите, проверить очень просто:

Код:

MsgBox(0, "", 0.00001)

Получаем 1e-005 - и это так должно быть? я понимаю что можно заключить в кавычки, и тогда будет отображать дословно, но просто интересно, почему это происходит?

[amel27]

Creat0R
Привет, на самом деле все гораздо проще:

Код:

Func _IsEven ($num)
    If Mod($num,2)=0 Then
        Return 1
    Else
        Return 0
    EndIf
EndFunc

...хотя твои манипуляции с точкой наводят на мысль что обычной четности тебе мало (имеет смысл только для целых чисел).

И ещё, заметил вроде ещё багу в аутоите

Это не баг, это фича. ...Это разное представление одного числа, поэтому все вполне корректно.
Для однозначного представления используй StringFormat:

Код:

MsgBox (0,'',StringFormat('%.5f',0.00001))

[amel27]

Creat0R
Diamond

Красивый способ для FileDelete с форума поддержки:

Код:

Func _FileDelete ($file)
    If Not StringInStr(FileGetAttrib($file),'D') Then
        FileDelete($file)
    EndIf
EndFunc

[Diamond]

Подскажите, как с помощью WinApi поменять частоту обновления экрана?
В интернете есть множество примеров с использованием библиотеки: user32.dll функция: ChangeDisplaySettingsA, но как реализовать это в AutoIt совершенно не представляю. Очень надо!!!

[Creat0R]

amel27

на самом деле все гораздо проще

Действительно, а главное, этот пример есть и в справке, как я его упустил спасибо!

твои манипуляции с точкой наводят на мысль что обычной четности тебе мало

Просто хотел проверять и чётность дробных чисел.

Красивый способ для FileDelete с форума поддержки

Хм, это видимо самый верный способ, просто проверяется если это не папка, тогда удаляется файл... а разработчики вкурсе об этом? почему не сделают “офицеальную” команду в таком же духе

---

Такой вопрос:
Как послать обычное нажатие клавишы Windows (с изображением окон)? нужно отдельно в експлорере вызвать контекстное меню, и единственны способ который мне пришел в голову, так это нажать эту клавишу...
Пробую так:

Код:

Send("#")

Ничего не происходит, в полукруглые скобки заключать пробовал, тоже никакого эффекта, есть идеи?

Или, как можно обновить окно експлорера, но не посыланием F5, а именно полноценным обновлением (в некоторых случаях F5 не помагает).

[Creat0R]

Ещё способ удаления файла:

Код:

Func _FileDelete($Path, $FileName)
    If StringLen($FileName) >= 1 Then FileDelete($Path & "\" & $FileName)
EndFunc

А также способ подсчёта количества символов в файле:

Код:

$FileName = @ScriptDir & "\test.txt"
$FileCharCount = _FileCountChar($FileName, 0)
If $FileCharCount <> -1 Then
    MsgBox(64, "File Characters Count", "In the file <" & $FileName & "> was found [" & $FileCharCount & "] characters (including Carriage Returns and Line Feeds)")
Else
    MsgBox(16, "Error!", "The file <" & $FileName & "> was not found")
EndIf

Func _FileCountChar($FileName, $Flag=0)
    If Not FileExists($FileName) Then Return -1
    Local $CharsCount = 0
    $fRead = FileRead($FileName, FileGetSize($FileName))
    $fReadArr = StringSplit($fRead, "")
    If IsArray($fReadArr) Then
        For $i = 1 To $fReadArr[0]
            If ($Flag = 1 And $fReadArr[$i] <> @CR And $fReadArr[$i] <> @LF) Or ($Flag = 2 And $fReadArr[$i] <> @CR) Or ($Flag = 3 And $fReadArr[$i] <> @LF) Or $Flag = 0 Then $CharsCount += 1
        Next
        Return $CharsCount
      EndIf
EndFunc

Если поставить последний параметр как 1 ($Flag=1), то подсчёт не будет учитывать возврат каретки и перевод строки (@CRLF), если поставить параметр на 2, то будут учитываться все символы кроме @CR, ну а если поставит параметр $Flag = 3, то будут учитываться все символы за исключением символа перевода строки (@LF).