بازكردن و بستن CD-ROM

[arsalansalar]

در يك پست ديدم كه چند تا از دوستان دنبال باز كردن و بستن CD-ROM هستند ولي جوابي داده نشده بود.
من كد زير را از تالار c# وارداشتم و آن را تبديل به vb.net كردم.

Imports System.Runtime.InteropServices
<DllImport("winmm.dll", EnTryPoint = "mciSendStringA", CharSet = CharSet.Ansi)> _
Protected Shared extern Integer Property lpstrCommand,() As mciSendString(string
End Property
StringBuilder lpstrReturnString,
Integer uReturnLength,
Dim hwndCallback) As IntPtr
باز كردن:
Dim ret As Integer = mciSendString("set cdaudio door open",Nothing,0,IntPtr.Zero)

بستن:
Dim ret As Integer = mciSendString("set cdaudio door closed",Nothing,0,IntPtr.Zero)

[morteza_261]

سلام
من وقتی از کدتون استفاده کردم تقریبا از کل کد خطا گرفت
اگه ممکنه یه کم توضیح که چه باید کرد یا اگه خودتون سورس همچین برنامه ای رو بزارید ممنون میشم

ایام به کام

[arsalansalar]

سلام
من وقتی از کدتون استفاده کردم تقریبا از کل کد خطا گرفت
اگه ممکنه یه کم توضیح که چه باید کرد یا اگه خودتون سورس همچین برنامه ای رو بزارید ممنون میشم

ایام به کام
http://barnamenevis.org/forum/showpost.php?p=481502

[Sub Zero]

من كد زير را از تالار c# وارداشتم و آن را تبديل به vb.net كردم.
شما مطمئنی که به Vb.Net تبدیلش کردی!!!
کد صحیحش اینه .:

Imports System.Runtime.InteropServices

<DllImport("winmm.dll", EntryPoint := "mciSendStringA", CharSet := CharSet.Ansi)> _
Protected Shared Function mciSendString(ByVal lpstrCommand As String, ByVal lpstrReturnString As StringBuilder, ByVal uReturnLength As Integer, ByVal hwndCallback As IntPtr) As Integer
End Function
باز کردن :

Dim ret As Integer = mciSendString("set cdaudio door open", Nothing, 0, IntPtr.Zero)
بستن :

Dim ret As Integer = mciSendString("set cdaudio door closed", Nothing, 0, IntPtr.Zero)
C# 2 VB.Net (http://labs.developerfusion.co.uk/convert/csharp-to-vb.aspx)

[arsalansalar]

آقا شرمنده,سوتي بزرگي بود
اصلا حواسم نبود چيو فرستادم.:گیج: