WWW.ИСХОДНИКИ.РУ cpp.sources.ru
java.sources.ru web.sources.ru soft.sources.ru
jdbc.sources.ru asp.sources.ru api.sources.ru

  Форум на исходниках
  Visual Basic
  Как открыть сидюк?

профайл | регистрация | faq

Автор Тема:   Как открыть сидюк?
ZMeY опубликован 10-08-2001 18:35 MSK   Click Here to See the Profile for ZMeY   Click Here to Email ZMeY  
Народ, может кто знает как на бейсик написать прогу открывающую сидюк!
Поделитись опытом пожалуста!
Pivo опубликован 11-08-2001 15:42 MSK     Click Here to See the Profile for Pivo    
Add the following code to a BAS module:

Option Explicit

Public 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

Открыть дверцу CD-Rom:
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)

Закрыть дверцу CD-Rom:
Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&)



Powered by: Ultimate Bulletin Board, Freeware Version 5.10a
Purchase our Licensed Version- which adds many more features!
© Infopop Corporation (formerly Madrona Park, Inc.), 1998 - 2000.