[amel27]

Creat0R

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

угу, этот способ часто используется в командных файлах

в некоторых случаях, у минут и у часов будет нехватать нуля

действительно не заметил, но тогда проще штатными средствами:

Код:

$Time = "01:10:43"
$Mins = 8

Dim $TMS0 = StringSplit ($Time,":")
Dim $TMS1 = $TMS0

$Mins = Mod (24*60 + $TMS0[1]*60 + $TMS0[2] - $Mins, 24*60)
$TMS1[2] = Mod ($Mins, 60)
$TMS1[1] = ($Mins - $TMS1[2])/60

$TimeResult = StringFormat("%.2d:%.2d:%.2d",$TMS1[1],$TMS1[2],$TMS1[3])

Чем отличаются между собой: @CR, @LF, и @CRLF ?

в справке же написано: @CR=Chr(13); @LF=Chr(10); @CRLF=@CR & @LF. Соответствуют управляющим (терминальным) кодам "возврата каретки" на начало строки (CR) и переходу на следующую строку (LF), в текстовых файлах по традиции используется @CRLF хотя тут явная избыточность и достаточно чего-нибудь одного.

[Sanja Alone]

Creat0R

Чем отличаются между собой: @CR, @LF, и @CRLF

• CR - "carriage return" ("возврат каретки")
• LF - "line feed" ("перевод строки")
• CRLF - соотв-но, оба действия вместе.

Вся эта кужня с переводами строк основывается на проведении параллели с печатной машинкой

Только последний (сдвоенный) символ является полноценным идентификатором перевода строки и воспринимается всеми ОС DOS (собс-но, он в DOS-е и появился) и Windows (в *NIX, afaik, переводы строк совсем другие), но, в msgbox-ах можно без проблем исп-ть и "половинчатые" (@LF, @CR) переводы строк.

[Creat0R]

amel27
Sanja Alone
Спасибо вам, за столь исчерпывающие описания этих макросов

amel27

тогда проще штатными средствами:

И ещё раз спасибо - Ты оправдываешь поговорку: “Всё гениальное - просто!”

[Creat0R]

Интересно, возможно ли осуществить проверку на подключённость к сети? Т.е проверять подключён ли компьютер к сети, или нет.


P.S:

Кстати, я как-то пару страниц назад, спрашивал на счёт проверки на битую ссылку... так вот, оказалось что можно элементарно проверить является ли заданная ссылка битой - нужно просто попытаться узнать размер файла по ссылке:

Код:

$Link = InetGetSize("http://test/test.zip")
   If $Link = 0 Then MsgBox(48, "Ошибка", "Ссылка по которой вы пытаетесь закачать файл, битая! (не рабочая)")

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

[Sanja Alone]

Creat0R

возможно ли осуществить проверку на подключённость к сети?

С налету видится такой способ:

Код:

If Ping("www.google.com",3000) Then
	Msgbox(0,"Онлайн",'Есть контакт!')
Else
	#cs
	---------------------------------
	Коды ошибок:
		1 = Host is offline
		2 = Host is unreachable
		3 = Bad destination
		4 = Other errors
	---------------------------------
	#ce
	Msgbox(0,"Ошибка","Код ошибки: " & @error)
EndIf

[EgOrus]

Sanja Alone
если человек сидит за проксёй это ничего не даст

[amel27]

если человек сидит за проксёй это ничего не даст

Creat0R
вот несколько модифицированный пример из справки:

Код:

;Установка функции перехвата COM-ошибок
 $oMyError = ObjEvent("AutoIt.Error","MyErrFunc")

 If IsNotConnect() Then
    MsgBox (0,"Проверка связи","Интернет-соединение отсутствует!")
 Else
    MsgBox (0,"Проверка связи","Интернет-соединение установлено!")
 EndIf

;Функция проверки на отсутствие соединения
 Func IsNotConnect()
    Local $oHTTP=ObjCreate("winhttp.winhttprequest.5.1")
    $oHTTP.Open("GET","http://www.google.com")
    $oHTTP.Send()

    Return @error
 EndFunc

;Обработчик COM-ошибок
Func MyErrFunc()
    Select
        Case $oMyError.source = "WinHttp.WinHttpRequest"
            SetError($oMyError.number)
        Case Else
            Msgbox(0,"AutoIt COM Error !", _
                "err.source is: "      & @TAB & $oMyError.source        & @CRLF & _
                "err.description is: " & @TAB & $oMyError.description   & @CRLF & _
                "err.number is: "      & @TAB & hex($oMyError.number,8) & @CRLF & _
                "err.scriptline is: "  & @TAB & $oMyError.scriptline    & @CRLF )
            SetError($oMyError.number)
    EndSelect
Endfunc

[Creat0R]

amel27

вот несколько модифицированный пример из справки:

Супер! Спасибо!

Есть только один маленьки вопрос про...

;Установка функции перехвата COM-ошибок

Как этим пользоваться? т.е как я понял, это возвращает значение ошибки в случае неподключенности? но если так, то когда я подставил в MsgBox переменную $oMyError, то отобразился странный квадрат, как будто кириллица в Utf-8. Т.е вот как я подставил:

Код:

MsgBox (0,"Проверка связи","Интернет-соединение отсутствует: " & $oMyError)

И вот что получилось:

[amel27]

Creat0R
если код ошибки то $oMyError.number, другие параметры описаны в секции "Case Else" - на случай возникновения произвольных ошибок (кроме явно описанной для объекта WinHttp.WinHttpRequest)

[Creat0R]

amel27
Мне нужно было именно описание ошибки ($oMyError.description), спасибо.

----------------------------------
Есть такой вопрос:
Как можно переименовать все файлы с одним расширением, в те же имена, но до самого расширения добавить символы _1 - а если уже существуют такие имена, то вместо _1 нужно подставить _2 и т.д.

Пробую так:

Код:

FileCopy("*.dat", "*_1.dat")

Но начинают появляться немеренное количество дублированных файлов, с именами которые содержат огромное количество символов _1
А добавление к коду определение на совпадение имён файлов (для замены _1 на последующие цыфры), я даже и не рискую делаь (если вообще смогу), т.к немогу решить первую проблему в задаче.
Возможно ли это решить?