Satura rādītājs:

Izveidojiet kaitinošu programmu, kas atver un aizver visus jūsu kompaktdisku diskdziņus: 4 soļi
Izveidojiet kaitinošu programmu, kas atver un aizver visus jūsu kompaktdisku diskdziņus: 4 soļi

Video: Izveidojiet kaitinošu programmu, kas atver un aizver visus jūsu kompaktdisku diskdziņus: 4 soļi

Video: Izveidojiet kaitinošu programmu, kas atver un aizver visus jūsu kompaktdisku diskdziņus: 4 soļi
Video: CS50x 2023 - Lecture 1 - C 2024, Novembris
Anonim
Izveidojiet kaitinošu programmu, kas atver un aizver visus jūsu CD diskus
Izveidojiet kaitinošu programmu, kas atver un aizver visus jūsu CD diskus
Izveidojiet kaitinošu programmu, kas atver un aizver visus jūsu CD diskus
Izveidojiet kaitinošu programmu, kas atver un aizver visus jūsu CD diskus

šī ir mana pirmā pamācība, tāpēc, lūdzu, pastāstiet man, kā es varu uzlabot.

šī pamācība stāsta, kā izveidot kaitinošu programmu, kas atver un aizver visus jūsu cd diskus. jums būs nepieciešams: dators, kurā darbojas Windows

1. darbība: atveriet Notepad

Atveriet Notepad
Atveriet Notepad

Pirmkārt, atveriet piezīmju grāmatiņu

Ir divi veidi, kā es zinu, kā rīkoties šādā veidā 1: noklikšķiniet uz pogas Sākt, dodieties uz programmām vai visām programmām, dodieties uz piederumiem, noklikšķiniet uz piezīmju grāmatiņas 2. veids: turiet nospiestu Windows taustiņu, pēc tam nospiediet R, pēc tam atlaidiet Windows tiks parādīts lodziņā ierakstiet piezīmju grāmatiņu

2. darbība. Ierakstiet skriptu

Ierakstiet skriptu
Ierakstiet skriptu

piezīmju grāmatiņas logam tagad jābūt atvērtam un ielīmējiet zemāk esošo tekstu notepaddoDim tsDim strDriveLetterDim intDriveLetterDim fs 'Kā skriptu. FileSystemObjectConst CDROM = 4On Kļūda Resume NextSet fs = CreateObject ("Scripting. FileSystemDrive ") Uz Asc (" Z ") Err. ClearIf fs. GetDrive (Chr (intDriveLetter)). DriveType = CDROM ThenIf Err. Number = 0 ThenstrDriveLetter = Chr (intDriveLetter) Exit ForEnd IfEnd IfNextSet owMP 7 ") Iestatiet colCDROMs = oWMP.cdromCollectionFor d = 0 uz colCDROMs. Count - 1colCDROMs. Item (d). EjectNext 'nullFor d = 0 līdz colCDROMs. Count - 1colCDROMs. Item (d). EjectNext' nullset owmp = nothingset nekas

3. darbība: saglabājiet un pārbaudiet

saglabājiet failu savā darbvirsmā kā cd.vbs un veiciet dubultklikšķi uz tā, lai palaistu

4. solis: pārtrauciet to

nospiediet ctrl+alt+dzēst atvērto uzdevumu pārvaldnieku klikšķu procesus noklikšķiniet uz wscript.exe nospiediet beigu procesu

Ieteicams: