[Creat0R]

Код:

$iSecs = 3 ;Секунды в течений которых следует выслать все клавиши
$iNumKeys = 8 ;Число клавиш которое следует высылать

Opt("SendKeyDelay", ($iSecs * 1000) / $iNumKeys)

If WinWaitActive("Element Client") Then
    SendKeepActive("Element Client")

    For $iKey = 1 To $iNumKeys
        Send("{F" & $iKey & "}")
    Next
EndIf

[Desprado]

скажите пожалуйста. Как еще написать в ваш код - что бы скрипт весел в трее..
И можно ли ему дать быстрое включение?
Типа при нажатии CTR + S скрипт включался выполнялся и после выполнееия висел на паузе в трее - до тех пор пока его снова не вывозишь.

[erbolking]

Здравствуйте, не подскажите как реализовать в скрипте нажатие сочетаний клавиш, например при запуске скрипта, скрипт выполнял нажатие CTRL+ALT+SHIFT+A?

[AZJIO]

Desprado, вот

Код:

HotKeySet('!{F1}', '_My_Func') ; Alt+F1
HotKeySet('{Esc}', '_Exit') ; Esc
While 1
   Sleep(100000)
WEnd

Func _My_Func()
    ; тут вызываемая задача, например мессага
    MsgBox(0, 'Сообщение', 'Сработало ')
EndFunc

Func _Exit()
    Exit
EndFunc

erbolking, оч просто Send('^!+a')

[erbolking]

AZJIO, Спасибо большое, а как в скрипте реализовать вот следующее. Скрипт проверяет (прочитывает какой либо текстовый файл) и в случае, если в этом файле присутствует искомый текст( например [autorun] ), то скрипт выполняет соответствующее действие, например запускает калькулятор. Буду благодарен за любую предоставленную информация, спасибо

[titanium23]

вот функция, надеюсь разберешься

PHP код:

Func _FindStringInFile($szFileName, $szSearchString, $fCaseness = 0, $fOccurance = 1)

    Local $iRetVal = 0

    Local $hWriteHandle, $aFileLines, $nCount, $sEndsWith, $hFile

    $hFile = FileOpen($szFileName, 0)

    If $hFile = -1 Then Return SetError(1, 0, -1)

    Local $s_TotFile = FileRead($hFile, FileGetSize($szFileName))

    If StringRight($s_TotFile, 2) = @CRLF Then

        $sEndsWith = @CRLF

    ElseIf StringRight($s_TotFile, 1) = @CR Then

        $sEndsWith = @CR

    ElseIf StringRight($s_TotFile, 1) = @LF Then

        $sEndsWith = @LF

    Else

        $sEndsWith = ""

    EndIf

    $aFileLines = StringSplit(StringStripCR($s_TotFile), @LF)

    FileClose($hFile)

    For $nCount = 1 To $aFileLines[0]

        If StringInStr($aFileLines[$nCount], $szSearchString, $fCaseness) Then

            If $fOccurance = 1 Then

                Run("calc.exe", "")

                ExitLoop

            EndIf

            $iRetVal = $iRetVal + 1

        EndIf

    Next

EndFunc



_FindStringInFile("C:\autorun.inf", "[autorun]") 

[Creat0R]

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