[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.

[leprecon]

Здрасте всем! У меня возник такой вопрос: Можно ли как нибудь определить с помощью Autoit подключен ли кто к твоему радмин серверу? И если подключен то скрипт должен заблокировать на время работы мышь и клавиатуру. Так как в самом радмине такой фишки нет, то хотелось бы эту фишку добавить при помощи скриптов, который бы наблюдал за сервером и блокировал мышь с клавом во время управления компьютером (не при просмотре, а именно при управлении)

[Maza Faka]

leprecon


Цитата:



заблокировать на время работы мышь и клавиатуру. Так как в самом радмине такой фишки нет



Дык вроде бы в 3-ей версии такую фишку включили.

[leprecon]

Привет



У мня вопрос как сделать подсчет строчек до определенного символа "?"



пример:



?

1 строчка

2 строчка

3 строчка

? (здесь останавливается и выводит сообщение здесь 3 строчки) далее

1 строчка

2 строчка

3 строчка

4 строчка

? (здесь останавливается и выводит сообщение а здесь 4 строчки)

1 строчка

2 строчка

3 строчка

4 строчка

5 строчка

6 строчка

? (здесь останавливается и выводит сообщение а здесь 6 строчки)



и.т.д

[Maza Faka]

Drsmog,



Можно так:





Код:

Код: Выделить всё

#include 
$sumbol = "?"
$y = 0
Dim $aRecords
If Not _FileReadToArray("error.log",$aRecords) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf
For $x = 1 to $aRecords[0]
    $y += 1 
    $result = StringCompare($aRecords[$x], $sumbol, 1)
       If $result  = 0 then
          MsgBox(0,"","До искомого символа "&($y-1)&" строк")
          $y = 0
      endif	
Next

[leprecon]

HORRIBLE,
Цитата HORRIBLE:



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

[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.

См. в сторону OCR, на оф. сайте приводили много примеров.



Drsmog,
Цитата Drsmog:



как сделать подсчет строчек до определенного символа "?"

[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.

Код:

Код: Выделить всё

$hFileOpen = FileOpen("File.txt", 0)
If $hFileOpen = -1 Then Exit
$iCounter = 1
While 1
    $sReadLine = FileReadLine($hFileOpen)
    If @error  0 Then ExitLoop
    If $sReadLine = "?" Then
        MsgBox(64, "Counter", "Насчитано строк: " & $iCounter)
        $iCounter = 0
    Else
        $iCounter += 1
    EndIf
WEnd
FileClose($hFileOpen)

[amel27]

Creat0R,

а что такое OCR??? спасибо за направление)

[Maza Faka]

HORRIBLE,
Цитата HORRIBLE:



что такое OCR?

[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.

OCR - Optical Character Recognition

Оптическое распознавание символов

[leprecon]

Creat0R


Цитата:



как сделать подсчет строчек до определенного символа "?"



Помнится мы такие простые задачки решали с помощью батников

[amel27]

Еще вариант - с точки зрения блоков текста, оптимизирован по скорости чтения файла:

З.Ы. обойтись без RegExp стоило усилий





Код:

Код: Выделить всё

$sFile = "C:\File.Txt"
$sChar = "?" & @CRLF
MsgBox(64, "Counter", "Насчитано строк в блоке 1: " & _FileBlockLines($sFile, $sChar))
MsgBox(64, "Counter", "Насчитано строк в блоке 2: " & _FileBlockLines($sFile, $sChar, 2))
MsgBox(64, "Counter", "Насчитано строк в блоке 3: " & _FileBlockLines($sFile, $sChar, 3))
MsgBox(64, "Counter", "Насчитано строк в блоке 4: " & _FileBlockLines($sFile, $sChar, 4))
MsgBox(64, "Counter", "Насчитано строк в блоке 5: " & _FileBlockLines($sFile, $sChar, 5))
Func _FileBlockLines($sFile, $sDelim, $iBlock = 1)
    Local Const $iBufSize = 16384       ; размер буфера
    Local $iFindLen=StringLen($sDelim)  ; длина разделителя
    Local $iLines=0, $iNum=0            ; счетчики
    ; Открытие файла
    Local $hFile = FileOpen($sFile, 0)
    If $hFile = -1 Then Return SetError(1,0,-1)
    ; Цикл поблочного чтения из файла
    While 1
        $sRead = FileRead($hFile, $iBufSize)
        If @error Then ExitLoop
        ; Цикл подсчета блоков и строк в блоке
        Do
            $iFind = StringInStr($sRead, $sDelim)
            If $iFind Then
                StringReplace(StringLeft($sRead, $iFind-1), @LF, "")
                $iLines += @extended
                $iNum +=1
                ; Если номер искомого блока, то Выход
                If $iNum=$iBlock Then ExitLoop 2
                ; Инициализация для следующего блока
                $sRead = StringTrimLeft($sRead, $iFind+$iFindLen)
                $iLines = 0
            Else
                StringReplace($sRead, @LF, "")
                $iLines += @extended
            EndIf
        Until $iFind=0
    WEnd
    If $sRead="" Then $iLines=-1
    FileClose($hFile)
    Return $iLines
EndFunc

[leprecon]

как в созданное GUI поместить картинку находящююся в интернете, к примеру по адресу (

http://forum.oszone.net/attachment.p...4&d=1216804832

) ?