[Creat0R]

Имитация телефонного звонка:

Код:

HotKeySet("{Esc}", "Quit")

_PhoneRing(8)

;===============================================================================
;
; Function Name:    _PhoneRing()
; Description:      Beep Sound Imitation of Phone Rings.
; Parameter(s):     $iRings [Optional] - Rings to beep (5 is the default),
;                       If $iRings > 0 Then this time of rings will be sounded.
;                       If $iRings < 0 Then number after - sign will be used to indicate how long (seconds) the function will ring.
;                       If $iRings = 0 Then the function will ring (loop) forever :)
;                   $iDuration [Optional] - Duration of the Ring to beep (15 is the default).
;                   $iWait - [Optional] How long to wait between each rings in milleseconds (1500 is the default).
;
; Return Value(s):  Always returns 1 regardless of success.
; Requirement(s):   None.
; Author(s):        G.Sandler (a.k.a CreatoR).
;
;===============================================================================
Func _PhoneRing($iRings=5, $iDuration=15, $iWait=1500)
    Local $iCount = 0, $iTimerInit = TimerInit()
    While 1
        $iCount += 1

        For $i = 1 To $iDuration
            Beep(1000, 35)
            Beep(2000, 30)
            Beep(1500, 25)
        Next

        If $iRings > 0 And $iCount = $iRings Then Return 1
        If $iRings < 0 And TimerDiff($iTimerInit) / 1000 >= -$iRings Then Return 1

        Sleep($iWait)
    WEnd
EndFunc

Func Quit()
    Exit
EndFunc