MsCommで着信番号を表示させたい (ID:122893)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Access VBAでシリアルポートに接続したTAから着信番号を表示したいのですがうまくできません。 過去ログやMSDNのサンプルと同じように記述していますがTAからの反応がありません。 TAはNTT INSメイトD-4です。ハイパーターミナルでは着信番号を表示できています。 ================================== Private Sub Form_Load() With MSComm1 .CommPort = 4 .Handshaking = 2 - comRTS .RThreshold = 20 .RTSEnable = True .Settings = "9600,n,8,1" .SThreshold = 1 .PortOpen = True End With End Sub Private Sub コマンド2_Click() Dim Buffer As String If MSComm1.PortOpen = False Then MSComm1.PortOpen = True End If Buffer = "ABC" MSComm1.Output = Buffer MSComm1.InputMode = comInputModeText Do '10文字受信するまで待機 DoEvents Loop Until MSComm1.InBufferCount >= 10 Buffer = MSComm1.Input end sub ======================================= ちなみに、アナログ回線でナンバーディスプレイアダプタをした場合は 上記のコードで取得できました。 憶測ですがTAとの通信がうまくいってないような気がしています。 ポートを開いた後、Output の辺りが怪しいのですが...。 よろしくお願い致します。