Keresés Kategóriák Kedvencek

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
  • 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
Geri94 - 10 éve, 4 hónapja

Ez nagyon jó

horike13 - 10 éve, 5 hónapja

izé :PPP

interful - 10 éve, 5 hónapja

Hát ez naon lol. Kira. Nagyon érdekes videókat csinálsz. grt.

Fody89 - 10 éve, 8 hónapja

Ja és azt még elfelejtettem, hogy köszi a videót, nekem nagyon hasznos volt.

Fody89 - 10 éve, 8 hónapja

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()