[Creat0R]

Sancho111

Error Uknown Function name

Какая у тебя версия AutoIt? и на сколько я помню, должна быть поддержка AutoIt3x...

Установи последнюю версию.

[Creat0R]

Sanja Alone

Можно. Представь себе координатную ось с 21 координатой (10 отрицательных, ноль и 10 положительных)

О, спасибо (как это я пропустил твой пост)...

Сделал функцию для установки скорости произношения речи, но не уверен что это правильно:

Код:

Func _SetSpeachSpeed($Speed)
    If $Speed < 1 Or $Speed > 21 Then Return SetError(1)
    Local $SetRate
    Switch $Speed
        Case 1 To 11
            $SetRate = 4294967280 + ($Speed+5)
            If $Speed = 11 Then $SetRate = 0
        Case 12 To 21
            $SetRate = $Speed-11
    EndSwitch
    Return RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Speech\Voices", "DefaultTTSRate", "REG_DWORD", $SetRate)
EndFunc

P.S
Что то никак не соображу как использовать Regshot.

[VelDmi]

Creat0R

Что то никак не соображу как использовать Regshot.

Жмакаешь кнопку 1 снимок, потом делаешь изменения в системе (например ставишь галочку в или двигаешь ползунок), затем жмакаешь 2 снимок, затем сравнить.
Он сравнит состояния реестра до и после и выдаст изменения.

[Creat0R]

VelDmi

Жмакаешь кнопку 1 снимок, потом делаешь изменения в системе (например ставишь галочку в или двигаешь ползунок), затем жмакаешь 2 снимок, затем сравнить. Он сравнит состояния реестра до и после и выдаст изменения.

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

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

[Sanja Alone]

Creat0R

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

Пуск -> Панель управления -> Речь -> Скорость голоса. Двигаем ползунок и смотрим regshot-ом. Хотя я тебе и так уже все возможные значения выдал интуитивным методом

[Creat0R]

Sanja Alone

Пуск -> Панель управления -> Речь -> Скорость голоса.

Ах вот оно где находится...

Хотя я тебе и так уже все возможные значения выдал интуитивным методом

Да, спасибо, а я видимо подобно интуитивным методом подобрал для этого функцию

P.S
Кстати на её (функции) основе, можно также в своих скриптах строить подобный ползунок .

[Dirk Diggler]

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

Код:

$filename = "now" & @MIN & @SEC & "temp"

$fil = FileOpen( $filename, 2)
$kb = ""

For $i = 1 to 1024 Step 1
	$kb &= "1"
Next

$Mb = ""

For $i = 1 to 1024 Step 1
	$Mb &= $kb & @CRLF
Next

#region --- GuiBuilder code Start ---
; Script generated by AutoBuilder 0.6 Prototype

#include <GuiConstants.au3>

GuiCreate("MyGUI", 147, 45,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
$btStop = GuiCtrlCreateButton("Stop writing!", 10, 10, 130, 30)
GuiSetState()

$volume = 0
Do
    $msg = GuiGetMsg()
	Select
		Case ($msg = $GUI_EVENT_CLOSE) or ($msg = $btStop)
			ExitLoop
		Case Else
		;;;
	EndSelect
	$err= FileWriteLine( $fil, $Mb)
	$volume += 1
Until ($err <> 1) 
FileClose($fil)

GUIDelete()

GuiCreate("MyGUI", 147, 45,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
$btStop = GuiCtrlCreateButton("verifyin'...", 10, 10, 130, 30)
GuiSetState()
$fil = FileOpen( $filename,0 )

$verifyfailed = 0
$verified = 0
While 1
	$msg = GuiGetMsg()
	if  ($msg = $GUI_EVENT_CLOSE) or ($msg = $btStop) Then ExitLoop
	for $k = 1 to 1024 
		$line = FileReadLine($fil)
		If @error = -1 Then ExitLoop
		if $line <> $kb then 
			$verifyfailed = 1
			SetError(1)
		EndIf
		
	Next
	If @error = -1 Then ExitLoop
	$verified += 1	
	
Wend

GUIDelete()
MsgBox(0,"Verify result", "Volume: " & ($volume) & "Mb" & @CRLF & "Verified:" & $verified & "Mb" & @CRLF  & "Verify failed: " & ($verifyfailed = 1))
	
FileClose($fil)
FileDelete($filename)

[Creat0R]

Dirk Diggler

Как бы ускорить?

Ну во-первых, желательно убрать из второго цикла для гуи $msg = GuiGetMsg() - т.к в GuiGetMsg() встроена задержка в 10 мс.

И нет необходимости строить новый гуи и удалять старый, можно использовать и тот же. А для проверки нажатия кнопки, можно использовать метод реагирования на событие (On Event Mode)...

И ещё, зачем SetError(1)? это нигде не используется, или я что-то упустил? Просто быстрее делать:
If .. Then ...

чем:

If ... Then
...
EndIf

Вот немного переделал пример:

Код:

$filename = "now" & @MIN & @SEC & "temp"

$fil = FileOpen( $filename, 2)
$kb = ""

For $i = 1 to 1024 Step 1
    $kb &= "1"
Next

$Mb = ""

For $i = 1 to 1024 Step 1
    $Mb &= $kb & @CRLF
Next

#include <GuiConstants.au3>
GuiCreate("MyGUI", 147, 45,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
$btStop = GuiCtrlCreateButton("Stop writing!", 10, 10, 130, 30)
GuiSetState()

$volume = 0
Do
    $msg = GuiGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE Or $msg = $btStop
            Opt("GuiOnEventMode", 1)
            FileClose($fil)
            $fil = FileOpen( $filename, 0)
            $verifyfailed = 0
            $verified = 0
            $ExitLoop = 0
            GUICtrlSetData($btStop, "Verifyin'...")
            GUICtrlSetOnEvent($btStop, "Verifyin")
            While 1
                If $ExitLoop = 1 Then ExitLoop
                For $k = 1 To 1024
                    $line = FileReadLine($fil)
                    If @error = -1 Then ExitLoop
                    If $line <> $kb Then $verifyfailed = 1
                Next
                If @error = -1 Then ExitLoop
                $verified += 1
            Wend
            ExitLoop
    EndSelect
    $err = FileWriteLine($fil, $Mb)
    $volume += 1
Until ($err <> 1)

 GUIDelete()

MsgBox(0,"Verify result", "Volume: " & ($volume) & "Mb" & @CRLF & "Verified: " & $verified & "Mb" & @CRLF  & "Verify failed: " & ($verifyfailed = 1))

    FileClose($fil)
FileDelete($filename)

Func Verifyin()
    $ExitLoop = 1
EndFunc

Хотя кажется не очень то заметно увеличение в скорости

[Dirk Diggler]

ды вот. эти все потери несущественны по сравнению с теми, что происходят на проверке равенства строк. Вот как бы придумать алгоритм
какой-нть хитрый, ну типа сделать AND по каждому отдельному символу считанной строки и сравнить результат с одим символом?

И ещё, зачем SetError(1)?

забыл после него ExitLoop

[Creat0R]

Dirk Diggler

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

Так это же будет намного медленнее(?)...

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

забыл после него ExitLoop

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