DOBON.NET どぼん!のVB道掲示板過去ログ

Re:度々ありがとうございます

  • 題名: Re:度々ありがとうございます
  • 著者: どぼん!(管理人)
  • 日時: 2002/07/11 2:00:00
  • ID: 83
  • インデックスを表示
試しに下のようなコードを書いてみました。間違いもあるかもしれませんが、参考にしていただければ幸いです。

> Winsockコントロールの.net版は出そうにないし、
> 素直にSocketクラスを勉強してみます

ライセンスの問題がなければ、WinsockコントロールをVB.netで使うことは可能だとは思いますが、.netでは使わないほうがいいでしょうね。

  Dim objListener As System.Net.Sockets.TcpListener
  objListener = New System.Net.Sockets.TcpListener(2001)
  objListener.Start()

  Dim objClient As System.Net.Sockets.Socket
  objClient = objListener.AcceptSocket()
  Console.WriteLine("クライアント接続")

  Try
    Do
      Dim bytData(1024) As Byte
      Dim intLength As Integer
      intLength = objClient.Receive(bytData)
      If intLength = 0 Then
        Console.WriteLine("クライアントが切断")
        objClient.Close()
        Exit Do
      End If
      Console.WriteLine("データ受信")
      Console.WriteLine(System.Text.Encoding.ASCII.GetString(bytData, 0, intLength))
    Loop
  Catch ex As Exception
    Console.WriteLine(ex.ToString())
    objClient.Close()
  End Try

  objListener.Stop()

DOBON.NET | プログラミング道 | プログラミング掲示板