Release Cassetto CD

[tribale]

Raga come sempre nuovo programma sfornato ecco qui cassetto CD XD qst vi permette con un solo klik di aprire e kiudere il Cassetto cd...
Download:

Perfavore, Entra oppure Registrati per vedere i Link!

Screen:

Spoiler

spero vi piaccia commentate ^^

potete aumentare anke rep ^^ se volete

 

[g.tommys]

stupendo

 

[tribale]

grz ^^

 

[R3tr0s]

sempleìice ma bello complimenti!

p.s. TRIBALE CORREGGI IL LINK, IL VERO LINK è QUESTO=

Perfavore, Entra oppure Registrati per vedere i Link!

 

[:Dj-Fede:]

Bello wow

 

[tribale]

link corretto
grz

 

[Mike12]

Bellissimo xD

 

[R3tr0s]

TRIBALE MI PUOI DIRE LE SOURCE xD

 

[Mike12]

si te lo stavo per chiedere pure io , hai usato le api di windows?

Grz in anticipo

 

[xXx.saiev.xXx]

potresti scrivere le sourcee! plsssss

 

[Delta]

Sto non Ditelo Piu Ora e assente quando ritorna le mette

cmq e vb??

 

[xXx.saiev.xXx]

ecco le source!

fare 2 command button e scrivere :

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub command1_Click()
mciSendString "Set cdaudio door Open", 0, 0, 0
End Sub
Private Sub command2_Click()
mciSendString "Set cdaudio door closed", 0, 0, 0
End Sub

fonte :

Perfavore, Entra oppure Registrati per vedere i Link!

 

[tribale]

si raga ero assente sono contento ke vi piaccia ora dico tutto oK?
creare 2 command button e scrivere su uno Apri CD e su un Altro Chiudi CD clikkare 2 volte su un comand button e inserite qst

Option Explicit

Private Type MCI_OPEN_PARMS
dwCallback As Long
wDeviceID As Long
lpstrDeviceType As String
lpstrElementName As String
lpstrAlias As String
End Type

Private Const MCI_OPEN = &H803
Private Const MCI_OPEN_TYPE = &H2000&
Private Const MCI_SET = &H80D
Private Const MCI_SET_DOOR_OPEN = &H100&
Private Const MCI_SET_DOOR_CLOSED As Long = &H200&
Private Const MCI_CLOSE = &H804

Private Declare Function mciSendCommand Lib "winmm.dll" Alias "mciSendCommandA" (ByVal wDeviceID As Long, ByVal uMessage As Long, ByVal dwParam1 As Long, ByRef dwParam2 As Any) As Long

Private openParams As MCI_OPEN_PARMS

Private Sub Form_Load()
openParams.wDeviceID = 0
openParams.lpstrDeviceType = "cdaudio"
Call mciSendCommand(0, MCI_OPEN, MCI_OPEN_TYPE, openParams)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call mciSendCommand(openParams.wDeviceID, MCI_CLOSE, 0, ByVal 0&)
End Sub

Private Sub cmdApriCD_Click()
Call mciSendCommand(openParams.wDeviceID, MCI_SET, MCI_SET_DOOR_OPEN, ByVal 0&)
End Sub

Private Sub cmdChiudiCD_Click()
Call mciSendCommand(openParams.wDeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, ByVal 0&)
End Sub

poi la grafica la aggiustate voi xD

 

[FireFox]

Semplice ma carino.

 

[tribale]

grz ff

 

[Tkd-Alex]

mi sapete dire la source per aprire incvece il lettore dvd?
please