Sadržaj:

Napravite dosadan program koji otvara i zatvara sve vaše CD diskove: 4 koraka
Napravite dosadan program koji otvara i zatvara sve vaše CD diskove: 4 koraka

Video: Napravite dosadan program koji otvara i zatvara sve vaše CD diskove: 4 koraka

Video: Napravite dosadan program koji otvara i zatvara sve vaše CD diskove: 4 koraka
Video: CS50 2013 - Week 10 2024, Juli
Anonim
Napravite dosadan program koji otvara i zatvara sve vaše CD diskove
Napravite dosadan program koji otvara i zatvara sve vaše CD diskove
Napravite dosadan program koji otvara i zatvara sve vaše CD diskove
Napravite dosadan program koji otvara i zatvara sve vaše CD diskove

ovo mi je prvi Instructable pa mi recite kako mogu poboljšati.

ovo uputstvo govori vam kako napraviti dosadan program koji otvara i zatvara sve vaše CD diskove. biće vam potrebno: računar sa operativnim sistemom Windows

Korak 1: Otvorite Notepad

Otvorite Notepad
Otvorite Notepad

prvo, otvorite bilježnicu

Postoje 2 načina na koja znam da to mogu učiniti na ovaj način 1: kliknite gumb za pokretanje, idite na programe ili sve programe, idite na dodatnu opremu kliknite na bilježnicu način 2: držite tipku Windows, zatim pritisnite R, zatim otpustite tipku Windows, okvir će se pojaviti u tom polju unesite notepad

Korak 2: Upišite skriptu

Upišite skriptu
Upišite skriptu

prozor bilježnice sada bi trebao biti otvoren i kopirajte i zalijepite donji tekst u notepaddoDim tsDim strDriveLetterDim intDriveLetterDim fs 'Kao Scripting. FileSystemObjectConst CDROM = 4On Error Resume NextSet fs = CreateObject ("Scripting. LetSysterSystemFleterSystemFileTbSystemSystemFileTbSystemSystemFileTbSystemSystemFileTecSystemSystemSystemSystemServerSystemSerctSystemSystemScreeTecTecScrServChunterSystemSystemScSerSystemSystemScSerSystemSystemScSerServerServerSystemSerctSystemServerServerServerSystemSerctSystemScSerVideosSaleVideo) ") Na Asc (" Z ") Err. ClearIf fs. GetDrive (Chr (intDriveLetter)). DriveType = CDROM ThenIf Err. Number = 0 ThenstrDriveLetter = Chr (intDriveLetter) Izađite iz ForEnd IfEnd IfNextSet oWMPO 7 ") Postavite colCDROMs = oWMP.cdromCollectionFor d = 0 na colCDROMs. Count - 1colCDROMs. Item (d). EjectNext 'nullFor d = 0 na colCDROMs. Count - 1colCDROMs. Item (d). EjectNext' nullCD owmp = nothingset nothingloop

Korak 3: Sačuvajte i testirajte

sačuvajte datoteku kao cd.vbs na radnoj površini i dvaput kliknite na nju da biste je pokrenuli

Korak 4: Neka prestane

pritisnite ctrl+alt+izbrišite otvoreni upravitelj zadataka kliknite procese kliknite wscript.exe pritisnite završi proces

Preporučuje se: