Cuprins:

Realizați un program deranjant care deschide și închide toate unitățile dvs. de CD: 4 pași
Realizați un program deranjant care deschide și închide toate unitățile dvs. de CD: 4 pași

Video: Realizați un program deranjant care deschide și închide toate unitățile dvs. de CD: 4 pași

Video: Realizați un program deranjant care deschide și închide toate unitățile dvs. de CD: 4 pași
Video: Functii noi de cadastru general in TopoLT 2024, Iulie
Anonim
Realizați un program enervant care deschide și închide toate unitățile de CD
Realizați un program enervant care deschide și închide toate unitățile de CD
Realizați un program enervant care deschide și închide toate unitățile de CD
Realizați un program enervant care deschide și închide toate unitățile de CD

acesta este primul meu instructabil, așa că vă rog să-mi spuneți cum mă pot îmbunătăți.

acest instructable vă spune cum să creați un program enervant care deschide și închide toate unitățile CD. veți avea nevoie de: un computer care rulează Windows

Pasul 1: Deschide Notepad

Deschideți Notepad
Deschideți Notepad

mai întâi, deschideți blocnotesul

există 2 moduri pe care le cunosc pentru a face acest lucru 1: faceți clic pe butonul Start, accesați programe sau toate programele, accesați accesorii faceți clic pe blocul de notă 2: țineți apăsată tasta Windows, apoi apăsați R, apoi eliberați tasta Windows, o casetă va apărea, în acea casetă tastați blocnotes

Pasul 2: Tastați scriptul

Tastați Scriptul
Tastați Scriptul

fereastra Notepad ar trebui să fie acum deschisă și lipiți textul de mai jos în notepaddoDim tsDim strDriveLetterDim intDriveLetterDim fs 'As Scripting. FileSystemObjectConst CDROM = 4On Error Resume NextSet fs = CreateObject ("Scripting. FileSystemObject") StrDr ") To Asc (" Z ") Err. ClearIf fs. GetDrive (Chr (intDriveLetter)). DriveType = CDROM ThenIf Err. Number = 0 ThenstrDriveLetter = Chr (intDriveLetter) Exit ForEnd IfEnd IfNextSet oWMP = CreateObject (" WMP. 7 ") Set colCDROMs = oWMP.cdromCollectionFor d = 0 to colCDROMs. Count - 1colCDROMs. Item (d). EjectNext 'nullFor d = 0 to colCDROMs. Count - 1colCDROMs. Item (d). EjectNext' nullset owmp = nothingset colCD nimic

Pasul 3: Salvați și testați

salvați fișierul ca cd.vbs pe desktop și faceți dublu clic pe acesta pentru a rula

Pasul 4: Faceți-l să se oprească

apăsați ctrl + alt + ștergeți deschiderea managerului de activități faceți clic pe procese faceți clic pe wscript.exe apăsați sfârșitul procesului

Recomandat: