Как заставить дисковод в компьютере друга открываться и закрываться произвольно  

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