Visual Basic 6 - open close cd rom

05/09/06 15:55

Io ho il codice che non usa mciSendString da qualche parte. Lo cerco e te lo posto.

aaa

05/09/06 18:31

Beh diciamo ke l'applicazione è un software di controllo remoto, se così lo vogliamo chiamare e non appena integro anche questa funzione l'AV rompe. Mi trovo bene con nod,non lo cambierò, io ho provato a cercare su internet ma niente..

Vi ringrazio in anticipo.

Marco Benfatto
M3taLG3ar

aaa

05/09/06 23:08

Fr3d3R!K

io l'ho usato mentre avevo due antivirus il panda e il mio attuale bitdefender...mai avuto questi problemi...certo non polemizzo sul nod32 validissimo antivirus (a quanto dicono tra i migliori)...probabilmente cmq lo riconosce come virus perchè non è consueto che un programma esterno a windows faccia aprire il lettore cd...lo prende come trojan o simile...e se è cosi non è affatto male..

aaa

06/09/06 6:14

M3talG3ar

Appunto non voglio cambiarlo

aaa

07/09/06 9:43

Ripeto mettila dentro ad un timer.
attiva il timer e nel timer dopo l'operazione di apertura chiusura lo stoppi. Nod dovrebbe cascarci
Nod è buono ma moooolto restrittivo

24/10/07 15:13

SuxFrancy

Postato originariamente da Rand:

Basta usare la API "mciSendString"...

Ecco qua il codice date chiesto

Dopo aver dichiarato => 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

per => Aprire il Cd-Rom fai cosi:
Call mciSendString("Set CDAudio Door Open", 0&, 0&, 0&

invece, per chiudere scrivi: per => Aprire il Cd-Rom fai cosi:
Call mciSendString("Set CDAudio Door Closed", 0&, 0&, 0&

...ti puoi fare una funzione cosi...

private sub SettaCDROM(open as boolean)
if open=true then
Call mciSendString("Set CDAudio Door Open", 0&, 0&, 0&

else
Call mciSendString("Set CDAudio Door Closed", 0&, 0&, 0&

end if
end sub

Ciauuu :k:

servirebbe a me in vb.net..

aaa