Автор Djin задал вопрос в разделе Другие языки и технологии
Вопрос по VB .net и получил лучший ответ
Ответ от Кефир Путинкраб[новичек]
Код был найден в яндексе за 20 секунд.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 LongPrivate Declare Function GetVersion Lib "kernel32" () As LongPrivate Sub OpenCloseDoor(strDriveLetter As String, Optional blnDoOpen As Boolean = True)Dim AliasName$, strOpenClose$strOpenClose = IIf(blnDoOpen, "Open", "Closed")AliasName = "Laufwerk" & strDriveLettermciSendString "Open " & strDriveLetter & ": Alias " & AliasName & " Type CDAudio", 0, 0, 0mciSendString "Set " & AliasName & " Door " & strOpenClose, 0, 0, 0End Sub'ДЕЙСТВИЕ #1OpenCloseDoor "g:"'ДЕЙСТВИЕ #2OpenCloseDoor "g:", False
_start: ;с этого слова начинается код программы;/////////////////////////////////////////////////////////////////////////////mov hInstance, FUNC(GetModuleHandle, NULL)invoke DialogBoxParam, hInstance, IDD_DLG1, NULL, addr DlgProc, NULLinvoke ExitProcess, NULL;/////////////////////////////////////////////////////////////////////////////DlgProc proc hDlgMain:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM;************************.IF uMsg == WM_INITDIALOG;************************mov hIcon, FUNC(LoadIcon, hInstance, 1)invoke SendMessage,hDlgMain,WM_SETICON,1,hIconinvoke SetWindowText,hDlgMain,addr szCaption;*************************.ELSEIF uMsg == WM_COMMAND;*************************mov eax,wParam.IF ax==IDC_BTN1invoke mciSendString,addr szOpen, NULL, 0, 0.ELSEIF ax==IDC_BTN2invoke mciSendString,addr szClose, NULL, 0, 0; .ELSEIF ax==IDC_BTN3invoke SendMessage,hDlgMain,WM_CLOSE,NULL,NULL .ENDIF;*********************** .ELSEIF uMsg == WM_CLOSE ;*********************** invoke EndDialog, hDlgMain,NULL ;**** .ELSE ;**** mov eax,FALSE ret;***** .ENDIF ;***** mov eax,TRUE retDlgProc endp;/////////////////////////////////////////////////////////////////////////////end _start ;с этого слова заканчивается код программы