telnet での切断

解決

nobu 2006-08-11 08:04:00 No: 96251

下記の[ telenetでデーター集信 ] を参考させていただき
接続、データの取り込みは出来る様になりました。
ありがとうございます。
http://madia.world.coocan.jp/cgi-bin/VBBBS/wwwlng.cgi?print+200401/04010087.txt

ハイパーターミナルではエンター・キーを押すと
プロンプトが出て bye で切断してくれますが
下記のコードでは切断が動作してくれません。
「エンター・キーを押す」動作を別の方法でシュミレート
しないとダメなのでしょうか？ご指導頂けると幸いです。

接続先: dxc.ab5k.net
Please enter your call: には例えば ja1qth

エンター・キーを押すと．．． arc >
と言うコマンド待ちになります。

Private Sub telnet_off()

With Basp21

    szData = Chr$(&HD)      'エンター・キーの積もり
    ret = .Write(szData)

    Do
        DoEvents
            Sleep 10
    Loop While .read(szData, 16) <> 0
    ret = .readLine(szData)

    If InStr(Trim$(szData), " arc >") > 0 Then
        szData = "bye"                         '切断用コマンド
        ret = .Write(szData)
        szData = Chr$(&HD)
        ret = .Write(szData)
        szData = Chr$(&HA)
        ret = .Write(szData)
        ret = .Close
    End If
End With

End Sub

nobu 2006-08-11 17:34:18 No: 96252

済みませんでした。お手数をお掛けしました。
相手からのデータの判断をしている箇所を間違えていました。
修正したら相手からのコマンド・プロンプト、ｂｙｅ送信、
ログオフのメッセージの受信も出来てｔｅｌｎｅｔ切断まで
出来る様になりました。ありがとうございました。