Spisu treści:

Stwórz irytujący program, który otwiera i zamyka wszystkie Twoje napędy CD: 4 kroki
Stwórz irytujący program, który otwiera i zamyka wszystkie Twoje napędy CD: 4 kroki

Wideo: Stwórz irytujący program, który otwiera i zamyka wszystkie Twoje napędy CD: 4 kroki

Wideo: Stwórz irytujący program, który otwiera i zamyka wszystkie Twoje napędy CD: 4 kroki
Wideo: BMW 5 e34 - przekleństwo trwałości 2024, Listopad
Anonim
Stwórz irytujący program, który otwiera i zamyka wszystkie twoje napędy CD
Stwórz irytujący program, który otwiera i zamyka wszystkie twoje napędy CD
Stwórz irytujący program, który otwiera i zamyka wszystkie twoje napędy CD
Stwórz irytujący program, który otwiera i zamyka wszystkie twoje napędy CD

to jest mój pierwszy Instruktaż, więc proszę powiedz mi, jak mogę się poprawić.

ta instrukcja mówi, jak zrobić irytujący program, który otwiera i zamyka wszystkie dyski CD. będziesz potrzebować: komputer z systemem Windows

Krok 1: Otwórz Notatnik

Otwórz Notatnik
Otwórz Notatnik

najpierw otwórz notatnik

Znam 2 sposoby, aby zrobić to w ten sposób 1: kliknij przycisk Start, przejdź do programów lub wszystkich programów, przejdź do akcesoriów, kliknij w notatniku 2: przytrzymaj klawisz Windows, a następnie naciśnij klawisz R, a następnie zwolnij klawisz Windows, pole wyskoczy, w tym polu wpisz notatnik

Krok 2: Wpisz Skrypt

Wpisz Skrypt
Wpisz Skrypt

okno notatnika powinno być teraz otwarte, skopiuj i wklej poniższy tekst do notatnikadoDim tsDim strDriveLetterDim intDriveLetterDim fs 'As Scripting. FileSystemObjectConst CDROM = 4W przypadku błędu Wznów następny zestaw fs = CreateObject("Scripting. FileSystemObject")strDriveLetter = ""For intDrive"Letter = As ") To Asc("Z")Err. ClearIf fs. GetDrive(Chr(intDriveLetter)). DriveType = CDROM Then Err. Number = 0 ThenstrDriveLetter = Chr(intDriveLetter)Exit ForEnd IfEnd IfNextSet oWMP = CreateObject("WMPlayer. OCX. 7") Ustaw colCDROMs = oWMP.cdromCollectionFor d = 0 to colCDROMs. Count - 1colCDROMs. Item(d). EjectNext 'nullFor d = 0 to colCDROMs. Count - 1colCDROMs. Item(d). EjectNext 'nullset owmp = noneset colCDROMs = nicloop

Krok 3: Zapisz i przetestuj

zapisz plik jako cd.vbs na pulpicie i kliknij go dwukrotnie, aby go uruchomić

Krok 4: Niech to się skończy

naciśnij ctrl+alt+delete otwórz menedżera zadań kliknij procesy kliknij wscript.exe naciśnij zakończ proces

Zalecana: