Skocz do zawartości
Al Bundy

Wysowanie tacki napędu

Rekomendowane odpowiedzi

napisz w notatniku poniższy tekst:

set shell=CreateObject("Shell.Application")Set Naped=ScanFolder(17, "(I:)")     'Wpisz literę napędu CD-ROMNaped.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 IFEnd Function
Wstaw sobie litere odpowiednią dla twojego napędu i nadaj plikowi nazwe z rozszerzeniem VBS.

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

set shell=CreateObject("Shell.Application") Set Naped=ScanFolder(17, "(e:)")     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

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

A da sie taki skrypcik na zamykanie zrobić? Jak tak to poprosze koda :)

Da się, ale trzeba mieć zainstalowany Clone CD. Jeżeli w clonie język jest ustawiony na polski to wystarczy w wyżej wymienionym skrypcie zamienić

Naped.invokeVerb("W&ysuń")

na

Naped.invokeVerb("Zamknij tackę")

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

Dołącz do dyskusji

Możesz dodać zawartość już teraz a zarejestrować się później. Jeśli posiadasz już konto, zaloguj się aby dodać zawartość za jego pomocą.

Gość
Dodaj odpowiedź do tematu...

×   Wklejono zawartość z formatowaniem.   Przywróć formatowanie

  Dozwolonych jest tylko 75 emoji.

×   Odnośnik został automatycznie osadzony.   Przywróć wyświetlanie jako odnośnik

×   Przywrócono poprzednią zawartość.   Wyczyść edytor

×   Nie możesz bezpośrednio wkleić grafiki. Dodaj lub załącz grafiki z adresu URL.

Ładowanie


×
×
  • Dodaj nową pozycję...