telenetでデーター集信 (ID:81554)

名前

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

本文

ソケット通信で行うのも可能ですが・・・

楽に作るなら、やはりＢＡＳＰ２１を使ってＴＥＬＮＥＴ
した方が簡単です。

因みにこんな感じ・・・

Option Explicit

Private Const Camera = "192.168.0.1"
Private Const User = "admin"
Private Const Pass = ""

Private Basp21 As Object

Private Sub Command1_Click()

Dim ret As Long
    Dim szData As Variant
    Dim szCode As String
    Dim startTime As Single
    
    ret = Basp21.Connect(Camera, 23, 20)
    If ret <> 0 Then
        MsgBox "接続タイムアウト等エラ−", vbInformation + vbOKOnly, "BASP21 TELNET"
        Exit Sub
    End If
    
    ' 接続直後のメッセージの読み出し
    Do
        DoEvents
    Loop While Basp21.read(szData, 16) <> 0
    ret = Basp21.readLine(szData)
    
    ' Login処理
    Do
        ' 受信待ち
        Do
            DoEvents
            ret = Basp21.read(szData, 16)
        Loop While ret <> 0
        ret = Basp21.read(szData, 0)
        
        Select Case Trim$(szData)
        Case "User:"
            ' UserID送信
            szData = User
            ret = Basp21.Write(szData)
            szData = Chr$(&HD)
            ret = Basp21.Write(szData)
            szData = Chr$(&HA)
            ret = Basp21.Write(szData)
    
        Case "Password:"
            szData = Pass
            ret = Basp21.Write(szData)
            szData = Chr$(&HD)
            ret = Basp21.Write(szData)
            szData = Chr$(&HA)
            ret = Basp21.Write(szData)
        Case "User Logged In" & Chr$(13) & Chr$(10)
            Exit Do
        Case "Invalid Password" & Chr$(13) & Chr$(10)
            DoEvents
        End Select
    
        startTime = Timer
        Do
            DoEvents
        Loop While Timer - startTime < 0.1
    
    Loop While True

' JOB処理

' TELNET終了
    ret = Basp21.Close
    
End Sub

Private Sub Command2_Click()

Me.Hide
    Unload Me
    
    Set Form1 = Nothing
    
    End
    
End Sub

Private Sub Form_Load()

Set Basp21 = CreateObject("basp21.socket")

End Sub

Private Sub Form_Unload(Cancel As Integer)

Set Basp21 = Nothing

End Sub

※  これは、ネットワーク上のＣＣＤカメラにＴＥＬＮＥＴで
    アクセスして、制御を行うテストを行った際のものです。
    たまたまＣＣＤカメラにＴＥＬＮＥＴ機能が搭載されてい
    たので、使ったのですが・・・

ご参考までに・・・

以上。

←解決時は質問者本人がここをチェックしてください。

戻る