Hogyan nyitogassuk kedvünkre a CD-ROM tálcáját?
Készítette: Baltincs
2009. január 15. 10:00:28 - 16264 megtekintés
2009. január 15. 10:00:28 - 16264 megtekintés
- Néhány apró ötlettel meg tudjuk "viccelni" saját számítógépünket, például a CD-rom tálcájával is csinálhatunk pár trükköt.
-
Amire szükségünk lesz
számítógép -
Számítógép-trükk
Ezzel a scripttel bármennyiszer kinyithatjuk akárki cd-romját.
VBS Script:
MsgBox "Amit akarsz!"
MsgBox "Amit akarsz!"
Set ovladani = CreateObject("WMPlayer.OCX.7" )
Set mechaniky = ovladani.cdromCollection
If mechaniky.Count Then
For i = 0 To mechaniky.Count - 1
mechaniky.Item(I).Eject
mechaniky.Item(I).Eject
mechaniky.Item(I).Eject
mechaniky.Item(I).Eject
MsgBox "Amit akarsz!"
MsgBox "Amit akarsz!"
Next
End If
mechaniky.Item(I).Eject – ezt a sort annyiszor írjuk be, ahányszor ki szeretnénk nyitni a cd-romot.
Mentsük el barmi.vbs-ként a fájlt, majd indítsuk el.
-
Címkék:
windows vbs vbscript jegyzettömb cd rom cd-rom számítógép
02:32
Egyszerű játék készítése VBS segítségével
Joeee555
02:38
Két hasznos segédprogram készítése egyszerűen
Joeee555
03:45
Jegyzettömb trükkök: Szöveg előhozása
horike13
02:44
Jegyzettömb trükkök: Szívatós szkript
horike13
08:19
Vírusirtásra alkalmas helyreállító lemez készítése NOD32-vel vagy ESS-sel - 2. rész
cbs362
11:20
Vírusirtásra alkalmas helyreállító lemez készítése NOD32-vel vagy ESS-sel - 1. rész
cbs362
11:59
Hogyan telepítsünk Windows XP-t? 1. rész - XP beállítások
alfonz
03:16
Hogyan mentsük el egy CD/DVD tartalmát számítógépünkre a Nero program segítségével?
blokad
06:35
Hogyan használjuk egyszerűbben CD vagy DVD meghajtónkat?
korinho23
04:15
Hogyan készítsünk Windows XP SP3-as telepítő CD-t? 2. rész, CD írása
Payskin
03:56
Hogyan tiltsuk le a Windows billentyűt?
ZeroCool.hu
05:20
Hogyan használjuk a Windows billentyűt?
ZeroCool.hu
Fody89 - 15 éve
Sziasztok!
Annyit fűznék hozzá, hogy lehet értelmetlennek tűnik egyeseknek de én például remekül tudom alkalmazni egy Visual Basicben íródott programomban. Egy DVD listázó programban nagyszerűen tudom alkalmazni. Megkerestem a listában a "lényeget" kiírja a sorszámát a dvd-nek és rákattintok a tálca kiadására.
Valaki felvetette, hogy nem lehet átültetni mert nem vb hanem csak egy script.
Átlehet. Csak a változókat deklarálni kell és nem a Set-el hanem például a Dim-mel
Példa:
Dim ovladani = CreateObject("WMPlayer.OCX.7")
Dim mechaniky = ovladani.cdromCollection
mechaniky.Item(0).Eject()
Ez nagyon jó