Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Wysuwanie sie stacji CD-ROM
anonim




Typ: Nie zarejestrowany
Wysuwanie sie stacji CD-ROM

Jak zrobic aby wysuwala i zamykala sie stacja CD-ROM? i jak zrobic aby program np. po 5 sek. "drukowal" jakis tekst?

18-11-2004 16:00
  
Usercontrol
mr. Tom



Typ: neutral
Postów: 191
Zarejestrowany: Oct 2003

Ja jeszcze dopowiem dwa zdania: Jak zrobić, aby wysunął się cd-rom 1 i 2, ja mam dwa cdromy i wysuwa sie zawsze ten pierwszy.

18-11-2004 18:37
Pokaż profil Usercontrol  Wyślij email do Usercontrol   Odwiedź stronę Usercontrol       1518548
anonim




Typ: Nie zarejestrowany

to powiedz chociaz jak zrobiles ze jeden sie otwiera

22-11-2004 11:06
  
Usercontrol
mr. Tom



Typ: neutral
Postów: 191
Zarejestrowany: Oct 2003

Poszukaj w dziale Workshop

22-11-2004 19:12
Pokaż profil Usercontrol  Wyślij email do Usercontrol   Odwiedź stronę Usercontrol       1518548
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003


set shell=CreateObject("Shell.Application"
Set Naped=ScanFolder(17, "(H"    'Wpisz literę napędu CD-ROM
Naped.invokeVerb("W&ysuń"
Set Naped=ScanFolder(17, "(I"    'Wpisz literę napędu CD-ROM
Naped.invokeVerb("W&ysuń"

Function ScanFolder(vDir, Element)
  set folder = Shell.NameSpace(vDir)
  For i = 0 to Folder.Items.Count-1
    If Instr(lcase(folder.items.item(i)),lcase(Element))>0 then
      Set ScanFolder=folder.items.item(i)
      exit for
    End If
  Next
  If Not ISObject(Scanfolder) Then
    Wscript.Quit
  End IF
End Function




_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

22-11-2004 22:57
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1