|
|
|
|
| |
Cdrom açıp kapama
Option Base 1
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
Sub main()
Dim Now As String
Dim a(2) As String
a(1) = "set cdaudio door open"
a(2) = "set cdaudio door closed"
total = 1
For i = 1 To (total * 2)
If Int(i / 2) = i / 2 Then
Now = vbString(a(2), 0)
Else
Now = vbString(a(1), 0)
End If
Next i
End Sub
Function vbString(ByVal Command As String, ByVal hWnd As Long) As String
Dim Buff As String
Dim dwR As Long
Buff = Space$(100) ' Create a buffer
dwR = mciSendString(Command, ByVal Buff, Len(Buff), hWnd)
vbString = Buff
End Function
|
|
|
|
|
|
| |
29 Ekim 2007'den beri 24624 ziyaretçi (38769 klik)
Copyrigh(c)2007, Ali AKMAZ All right reserved
|
|
|
|
|
|
|
|
