AutoIt: 3.3.12.0
Версия: 1.0
Категория: Разное
Описание: Это программка, передает сигнал с микрофона на лампочки клавиатуры, в итоге, у нас получается небольшой показатель громкости!
P/S: Правда я не знаю, понадобится он кому-то или нет!
Код:
Источник: autoit-script.ru
Автор(ы): GUIMish
Версия: 1.0
Категория: Разное
Описание: Это программка, передает сигнал с микрофона на лампочки клавиатуры, в итоге, у нас получается небольшой показатель громкости!
P/S: Правда я не знаю, понадобится он кому-то или нет!
Код:
Код:
Opt("SendCapslockMode", 0)
Opt("TrayMenuMode", 1)
Send("{CAPSLOCK off}")
Send("{SCROLLLOCK off}")
Send("{NUMLOCK off}")
$mciError = _mciSendString("open new type waveaudio alias mywave", _StringRepeat(" ", 100), 100, 0)
$mExit = TrayCreateItem("Выход")
While 1
$mciError = _mciSendString("status mywave level", _StringRepeat(" ", 100), 100, 0);
If (107/2)+$mciError[2]/2 > 55 Then
Send("{NUMLOCK on}")
Else
Send("{CAPSLOCK off}")
Send("{SCROLLLOCK off}")
Send("{NUMLOCK off}")
EndIf
If (107/2)+$mciError[2]/2 > 60 Then
Send("{CAPSLOCK on}")
Else
Send("{CAPSLOCK off}")
Send("{SCROLLLOCK off}")
Send("{NUMLOCK off}")
EndIf
If (107/2)+$mciError[2]/2 > 80 Then
Send("{SCROLLLOCK on}")
Else
Send("{CAPSLOCK off}")
Send("{SCROLLLOCK off}")
Send("{NUMLOCK off}")
EndIf
Switch TrayGetMsg()
Case $mExit
Send("{CAPSLOCK off}")
Send("{SCROLLLOCK off}")
Send("{NUMLOCK on}")
Exit
EndSwitch
WEnd
Func _mciSendString($lpszCommand, $lpszReturnString, $cchReturn, $hwndCallback)
Return DllCall("winmm.dll", "long", "mciSendStringA", "str", $lpszCommand, "str", $lpszReturnString, "long", $cchReturn, "long", 0)
EndFunc
Func _StringRepeat($sString, $iRepeatCount)
;==============================================
; Local Constant/Variable Declaration Section
;==============================================
Local $sResult
Select
Case Not StringIsInt($iRepeatCount)
SetError(1)
Return ""
Case StringLen($sString) < 1
SetError(1)
Return ""
Case $iRepeatCount <= 0
SetError(1)
Return ""
Case Else
For $iCount = 1 To $iRepeatCount
$sResult &= $sString
Next
Return $sResult
EndSelect
EndFunc
Источник: autoit-script.ru
Автор(ы): GUIMish