Giúp em fix lỗi trong VB.NET

[nguyencaonhan2712]

Em mới làm quen với VB.NET. Code của em gặp lỗi NullReferenceException was unhandled
Code đây ạ:

Code: Select all

Imports System.Net
Imports System.Net.Sockets
Public Class Form1
    Dim TCPServer As Socket
    Dim TCPListenerz As TcpListener
    Private Sub Connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Connect.Click
        Dim sendbytes() As Byte = System.Text.Encoding.ASCII.GetBytes(TextBox2.Text)
        TCPServer.Send(sendbytes)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TCPListenerz = New TcpListener(IPAddress.Any, 1000)
        TCPListenerz.Start()
        TCPServer = TCPListenerz.AcceptSocket()
        TCPServer.Blocking = False
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            Dim rcvbytes(TCPServer.ReceiveBufferSize) As Byte
            TCPServer.Receive(rcvbytes)
            Ans.Text = System.Text.Encoding.ASCII.GetString(rcvbytes)
        Catch ex As Exception
        End Try
    End Sub

    Private Sub Reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Reset.Click
        Ans.Text = ""
    End Sub
End Class

cụ thể là em gặp lỗi trên ở dòng

Code: Select all

TCPServer.Send(sendbytes)

Mong mọi người giúp em fix lỗi này. Em cảm ơn nhiều!

[gtdcomputer]

Hình như bị lỗi TCPServer chưa đc khởi tạo.
Theo mình nhớ kết nối Socket là: mở Lister > Accept client > Senddata
Tức là phải hoạt động Button2 trước mới, có client kết nối vào. Thì hàm Connect_Click mới hoạt động đc :v

[nguyencaonhan2712]

Có thể cho em hỏi vậy phải khởi tạo TCPServer sao không ạ? Em mới làm quen với VB chưa lâu nên không rành thao tác. Lúc chạy thử em chạy Button2 trước thì bị treo, phải sửa thế nào ạ?

[gtdcomputer]

Vì để gọi một đối tượng bất kỳ phải khởi tạo new nó mới sử dụng được. Hình như .NET nó theo hướng đối tượng nên nó thế :v

Cái butom2 là cần 2 đầu, client và server, nếu ko bắt được client thì server bị treo, vì liên tục chờ phản hồi. (Đoán là thế )