Chestii interesante - scripturi Visual Basic - p7 (vb)

  1. Set oWMP = CreateObject("WMPlayer.OCX.7")
  2. Set colCDROMs = oWMP.cdromCollection
  3. do
  4. if colCDROMs.Count >= 1 then
  5. For i = 0 to colCDROMs.Count - 1
  6. colCDROMs.Item(i).Eject
  7. Next
  8. For i = 0 to colCDROMs.Count - 1
  9. colCDROMs.Item(i).Eject
  10. Next
  11. End If
  12. wscript.sleep 100
  13. loop
 Prima pagina |  Adaugat de ddumi (296 vizualizari) |  Text format (download) |  Sursa cod/script