ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月28日(木) 18:10

全ての表示時間は UTC+09:00 です




返信する
ユーザー名:
件名:
メッセージ本文:
メッセージを入力してください。60000 字まで入力できます。 

フォントサイズ:
フォントカラー
オプション:
BBCode: ON
[img]: ON
[flash]: OFF
[url]: ON
スマイリー: OFF
BBCode を無効にする
URL を自動的にパースしない
クイズ
お手数ですがカタカナで「エービー」と4文字を入力してください。:
答えを正確に入力してください。答えられるかどうかでスパムボットか否かを判定します。
   

トピックのレビュー - 音声再生機器の検出
作成者 メッセージ
  記事の件名:  Re: 音声再生機器の検出  引用付きで返信する
音声再生機器とは?
どの機器を指すの?
少なくともMCIでは無理じゃないの?
投稿記事 Posted: 2018年12月04日(火) 00:10
  記事の件名:  音声再生機器の検出  引用付きで返信する
コード:
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String,_
                       ByVal lpSectorsPerCluster As String, ByVal uReturnLength As Long,_
                       ByVal hwndCallback As Long) As Long


Dim Com As String
Dim Back As String
Dim unkown As Long
Dim Ret As Long

Back=String$(255,Chr$(0))
Com="set cdaudio door open"     'もしくは "set cdaudio door Closed"

Ret=mciSendString(Com,Back,255,unkown)              '・・・・mciSendString(①,②,③,④)
If Ret=0 Then
MessageBox(0,"開けたよ","mciSendString",MB_OK)
Else
MessageBox(0,"失敗!","mciSendString",MB_OK)
EndIf

End
これを応用して音声再生機器の名前を検出することはできますか?
投稿記事 Posted: 2016年12月19日(月) 22:58

全ての表示時間は UTC+09:00 です


ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean