Заставьте дисковод в компьютере друга открываться и закрываться произвольно.
На своем компьютере откройте Блокнот. Напишите в блокноте текст “Set ovladani = CreateObject(”WMPlayer.OCX.7" ) Set mechaniky = ovladani.cdromCollection If mechaniky.Count Then For i = 0 To mechaniky.Count – 1
