Mundarija:

Barcha disklarni ochadigan va yopadigan bezovta qiluvchi dasturni tuzing: 4 qadam
Barcha disklarni ochadigan va yopadigan bezovta qiluvchi dasturni tuzing: 4 qadam

Video: Barcha disklarni ochadigan va yopadigan bezovta qiluvchi dasturni tuzing: 4 qadam

Video: Barcha disklarni ochadigan va yopadigan bezovta qiluvchi dasturni tuzing: 4 qadam
Video: BİR O'ZİNGİZ KO'RİNG / DUNYODAGİ ENG G'ALATİ ER-XOTİNLAR / Buni Bilasizmi? 2024, Noyabr
Anonim
Barcha disklarni ochadigan va yopadigan bezovta qiluvchi dasturni tuzing
Barcha disklarni ochadigan va yopadigan bezovta qiluvchi dasturni tuzing
Barcha disklarni ochadigan va yopadigan bezovta qiluvchi dasturni tuzing
Barcha disklarni ochadigan va yopadigan bezovta qiluvchi dasturni tuzing

Bu mening birinchi ko'rsatmam, shuning uchun menga qanday qilib yaxshilashim mumkinligini ayting.

Bu ko'rsatma sizga barcha disklarni ochadigan va yopadigan zerikarli dasturni qanday qilish kerakligini aytadi. Sizga kerak bo'ladi: Windows ishlaydigan kompyuter

1 -qadam: Notepad -ni oching

Notepad -ni oching
Notepad -ni oching

Birinchidan, bloknotni oching

Men buni bilishning 2 yo'li bor: 1: boshlash tugmachasini bosing, dasturlarga yoki barcha dasturlarga o'ting, aksessuarlarga o'ting bloknot 2 -ni bosing: Windows tugmachasini bosib ushlab turing, keyin R tugmachasini bosing, keyin Windows tugmachasini qo'yib yuboring. ochiladi, bu qutiga bloknot yozing

2 -qadam: skriptni kiriting

Skriptni kiriting
Skriptni kiriting

Notepad oynasi endi ochiq bo'lishi kerak va pastdagi matnni notepaddoDim tsDim strDriveLetterDim intDriveLetterDim fs -ga Scripting. FileSystemObjectConst CDROM = 4On xatosini davom ettirish NextSet fs = CreateObject ("ScripRobl. FileSetif)." ") Asc (" Z ") Err. ClearIf fs. GetDrive (Chr (intDriveLetter)). DriveType = CDROM ThenIf Err. Number = 0 ThenstrDriveLetter = Chr (intDriveLetter) ForEnd IfEnd IfNextSet oWMP = CreateOb (WWOC). 7 dyuym) colCDROMs = oWMP.cdromCollectionFor uchun d = 0 ni colCDROMs. Count - 1colCDROMs. Item (d) ga o'rnating. hech narsa

3 -qadam: saqlash va sinov

faylni ish stolida cd.vbs sifatida saqlang va ishga tushirish uchun uni ikki marta bosing

4 -qadam: To'xtating

ctrl+alt+ni bosing ochiq vazifa menejerini o'chirish jarayonlarini bosing wscript.exe tugatish jarayonini bosing

Tavsiya: