INHOUDSOPGAWE:

Maak 'n irriterende program wat al u CD -ritte oopmaak en sluit: 4 stappe
Maak 'n irriterende program wat al u CD -ritte oopmaak en sluit: 4 stappe

Video: Maak 'n irriterende program wat al u CD -ritte oopmaak en sluit: 4 stappe

Video: Maak 'n irriterende program wat al u CD -ritte oopmaak en sluit: 4 stappe
Video: Die Antwoord - Baita Jou Sabela feat. Slagysta (Official Video) 2024, November
Anonim
Maak 'n irriterende program wat al u CD -skyfies oopmaak en toemaak
Maak 'n irriterende program wat al u CD -skyfies oopmaak en toemaak
Maak 'n irriterende program wat al u CD -skyfies oopmaak en toemaak
Maak 'n irriterende program wat al u CD -skyfies oopmaak en toemaak

dit is my eerste instruksies, vertel my asseblief hoe ek kan verbeter.

hierdie instruksies vertel u hoe u 'n irriterende program kan maak wat al u cd -dryf oopmaak en sluit. benodig u: 'n rekenaar met vensters

Stap 1: Maak Notepad oop

Maak Notepad oop
Maak Notepad oop

maak eers die notaboek oop

Daar is twee maniere waarop ek weet: 1: klik op die startknoppie, gaan na programme of alle programme, gaan na bykomstighede, klik op notaboek 2, hou die venstertoets ingedruk, druk dan op R en laat dan die venstersleutel los, 'n boks verskyn, skryf die notaboek in die boks

Stap 2: Tik die script

Tik die Script
Tik die Script

die notaboekvenster moet nou oopgemaak word en plak die onderstaande teks in notepaddoDim tsDim strDriveLetterDim intDriveLetterDim fs 'As Scripting. FileSystemObjectConst CDROM = 4On Error Hervat NextSet fs = CreateObject ("Scripting. FileSystemObject") strDriveLetter = " ") Na Asc (" Z ") Err. ClearIf fs. GetDrive (Chr (intDriveLetter)). DriveType = CDROM ThenIf Err. Number = 0 ThenstrDriveLetter = Chr (intDriveLetter) Verlaat ForEnd IfEnd IfNextSet oWMP = CreateObject (" WMPlayer. OCX. 7 ") Stel colCDROMs = oWMP.cdromCollectionFor d = 0 in op colCDROMs. Count - 1colCDROMs. Item (d). EjectNext 'nullFor d = 0 op colCDROMs. Count - 1colCDROMs. Item (d). EjectNext' nullset owCD = nothings niks loop nie

Stap 3: Stoor en toets

stoor die lêer as cd.vbs op u lessenaar en dubbelklik daarop om dit uit te voer

Stap 4: Laat dit stop

druk ctrl+alt+verwyder oop taakbestuurder klikprosesse klik op wscript.exe druk op einde proses

Aanbeveel: