Deschideţi şi închideţi uşa de CD-ROM-ul

Postat de Elisei, în exemplele , Umor , tutoriale pe 09 1st, 2009 | 14 raspunsuri

Bazat pe acest video am văzut pe Internet de astăzi am decis să publice acest mesaj simplu cu privire la modul de a face, prin intermediul unui program în Visual Basic Net,. Că uşa de CD-uri pentru a deschide şi închide.

Pentru a rula de exemplu avem nevoie doar de un singur formular şi două butoane (deschidere), aşa cum se arată în imagine:

şi codul de mai jos: 

 Public class Form1
     Declararea de funcţii lib mciSendString "winmm.dll" Alias ​​"mciSendStringA" _
        (LpCommandString ByVal ca şir, lpReturnString ByVal ca şir, _
        ByVal Atâta timp, hwndCallback ByVal Atâta timp), atâta timp UReturnLength

     Private Sub Button1_Click (ByVal Ca expeditor System.Object, ByVal e ca System.EventArgs) Manere Button1.Click

         AbrirCDROM ()
     End Sub

     Private Sub Button2_Click (ByVal Ca expeditor System.Object, ByVal e ca System.EventArgs) Manere Button2.Click
         cerrarCDROM ()
     End Sub

     AbrirCDROM Public Sub ()
         mciSendString ("set de CDAudio uşa deschisă", "", 0, 0)
     End Sub

     CerrarCDROM Public Sub ()
         mciSendString ("set de usa CDAudio închisă", "", 0, 0)
     End Sub

 Sfarsit Clasa

Gata! pentru a se bucure de ea şi, dacă aveţi un copil ... pentru a pune codul intr-o buclă şi a obţine o frânghie.

14 Responses to "Deschideţi şi închideţi uşa de CD-ROM-ul"

  1. Bitacoras.com spune:
    01/09/2009 la 2:07 pm

    Bitacoras.com informaţii ...

    Rata de în Bitacoras.com: bazându-se pe acest film am vazut pe Internet de astăzi am decis pentru a posta acest public simplă cu privire la modul de a face, prin intermediul unui program în Visual Basic Net, că uşa de CD-uri este de a deschide şi închide.. De exemplu, simpl .....

    Răspunde
  2. Ari spune:
    01/09/2009 la 9:28 pm

    A se vedea dacă dormi bine.
    în ceea ce priveşte

    Răspunde
  3. Bitacoras.com spune:
    01/09/2009 la 10:09

    Bitacoras.com informaţii ...

    Rata de în Bitacoras.com: Bazat pe video-am vazut astazi pe internet am decis să publice acest mesaj simplu cu privire la modul de a face, printr-un program în Visual Basic Net, că uşa de CD-uri este de a deschide şi închide.. Pentru a rula sim exemplu .....

    Răspunde
  4. M.altm spune:
    02/09/2009 la 19:38

    Salut, am găsit program foarte bun, aş dori să-l folosească în 2005 vizual de bază.
    Puteţi scrie în această limbă? Mulţumesc mult. Acesta este e-mail pe care le trimiteţi răspunsul, parisparis2@hotmail.es

    Răspunde
  5. Mustang a spus:
    17/09/2009 la 12:29

    curiozitate l-am încercat, în 2005 vizual net
    Am benzi greşeală sau ceva, dar atunci când rula pe butonul de deschis, se deschide dar aruncă un mesaj vizual este după cum urmează:

    Un apel la funcţia PInvoke "WindowsApplication1! WindowsApplication1.Form1 :: mciSendString", a dezechilibrat stiva. Aceasta este probabil pentru că a reuşit

    MDA eroare .. ce înseamnă asta?

    mulţumiri

    Răspunde
  6. efra spune:
    18/09/2009 la 11:26

    Ei bine, l-am încercat în vb.net 2005 şi totul funcţionează perfect ... mi-ar dori să participe, cu cateva exemple pe care le-am ...

    Răspunde
  7. Gustavo spune:
    23/09/2009 la 14:55

    Am, de asemenea, mi-a trimis aceeaşi eroare ca Mustang, care este ceea ce va fi?

    Răspunde
  8. Cristian Garcia spune:
    13/02/2010 la 18:35

    la început nu am înţeles, dar văzându-l de mai multe veses am putut înţelege un pic. dar dacă aţi înţeles că este otoniel

    Răspunde
  9. Ismael spune:
    01/06/2010 la 14:39

    Acest program de drăguţ!

    Răspunde
  10. jrchico spune:
    12/09/2010 la 15:40

    salut prieten Eu folosesc acest cod functioneaza perfect mine:

    Public class Form1
    Declararea privat funcţii mciSendString lib "winmm.dll" Alias ​​"mciSendStringA" (ByVal lpstrCommand ca şir, lpstrReturnString ByVal ca şir, uReturnLength ByVal ca integer, hwndCallback ByVal ca integer) ca integer

    Private Sub Button1_Click (expeditor ByVal Ca System.Object, ByVal e ca System.EventArgs) Manere a.Click
    AbrirCDROM ()
    a.Enabled = Fals
    c.Enabled = True
    End Sub

    Private Sub Button2_Click (ByVal Ca expeditor System.Object, ByVal e ca System.EventArgs) Manere c.Faceţi clic
    cerrarCDROM ()
    c.Enabled = Fals
    a.Enabled = True
    End Sub

    AbrirCDROM Public Sub ()
    mciSendString ("set de CDAudio uşa deschisă", "", 0, 0)
    End Sub

    CerrarCDROM Public Sub ()
    mciSendString ("set de usa CDAudio închisă", "", 0, 0)
    End Sub

    Button1_Click_1 Sub Private (expeditor ByVal Ca System.Object, ByVal e ca System.EventArgs) Manere Button1.Click
    Application.Exit ()
    End Sub

    Private Sub Form1_Load (ByVal Ca expeditor System.Object, ByVal e ca System.EventArgs) Manere MyBase.Load
    End Sub
    Sfarsit Clasa

    Răspunde
  11. jrchico spune:
    12/09/2010 la 15:56

    trebuie să adăugaţi 3 butoane şi etichetă şi o imagine
    la
    C
    Button1

    Stud este de a deschide cdrom
    c buton este de a închide
    button1 este de a ieşi din aplicaţia
    eticheta este opţională
    Poza este opţională

    Răspunde
  12. Eduardo spune:
    05/06/2011 la 2:16 pm

    datorită jrchico

    Răspunde

Comentariu