[madmasles]

Pozia,
Наверное, так:

Код:

#NoTrayIcon
$aCD_ROM = DriveGetDrive('CDROM')
If @error Then
    MsgBox(16, '', 'Error')
    Exit
EndIf

$iTimeMin = 60000 ; 1 min
$iTimeMax = 180000 ; 3 min

$iTimeStart = TimerInit()
$iChange = Random($iTimeMin, $iTimeMax, 1)
While 1
    If TimerDiff($iTimeStart) >= $iChange Then
        For $i = 1 To $aCD_ROM[0]
            CDTray($aCD_ROM[$i], 'open')
            Sleep(2000)
            CDTray($aCD_ROM[$i], 'closed')
        Next
        $iTimeStart = TimerInit()
        $iChange = Random($iTimeMin, $iTimeMax, 1)
    EndIf
    Sleep(100)
WEnd

[Pozia]

madmasles, можно немножко подправить? Нужно чтобы сидюк после открытия сразу же закрылся, а рандомное время было только для открытия? И можно ли как нибудь сделать чтобы скрипт запускался как системный процесс, чтобы в диспетчере его было сложнее отследить?

[madmasles]

Pozia,
Поправил.

[kaster]

что за шутки

[Pozia]

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