Hi all,
i've been having this problem and its kiiling me! i'm a newbie at this so i hope someone would be able to help me.
picture link: http://i98.photobucket.com/albums/l2...plication2.jpg
this pops up whenever i click on the Disconnect button after i have connected.
these are the following codes for the program.
I hope someone would be able to help me, i would really appreciate it!
Keith.
i've been having this problem and its kiiling me! i'm a newbie at this so i hope someone would be able to help me.
picture link: http://i98.photobucket.com/albums/l2...plication2.jpg
this pops up whenever i click on the Disconnect button after i have connected.
these are the following codes for the program.
Code:
Imports SN = System.Net Imports SNS = System.Net.Sockets Imports ST = System.Text Imports System.Net Public Class _Default Dim tcpClient As New System.Net.Sockets.TcpClient Dim connectport As String Sub dc(ByVal tcpclient As SNS.TcpClient) Dim NetworkStream As SNS.NetworkStream = tcpclient.GetStream tcpclient.Client.Close() NetworkStream.Close() msg("Disconnected from port:" + connectport) status("IP:" + "Disconnected" + vbCrLf + "Port:" + "Disconnected") End Sub Private Sub dcBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dcBtn.Click Try dc(tcpClient) Catch ex As Exception msg("Socket Exception is : " & ex.Message) End Try End Sub End Class Partial Class _Default Inherits System.Web.UI.Page Sub msg(ByVal message As String) Msgbox.Text = Msgbox.Text + message + vbCrLf End Sub Sub status(ByVal message As String) statusbox.Text = message + vbCrLf End Sub Sub outputconnect(ByVal tcpclient As SNS.TcpClient) 'Input IP Address and TCP port Dim address As String Dim port As String address = ipbox.Text port = portbox.Text connectport = portbox.Text If tcpclient.Connected = False Then tcpclient.Connect(address, port) msg("Connected to IP:" + address + " via port:" + port) status("IP:" + address + vbCrLf + "Port:" + port) End If End Sub Private Sub connectBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles connectBtn.Click tcpClient = New System.Net.Sockets.TcpClient Try outputconnect(tcpClient) Catch ex As Exception msg("Socket Exception is : " & ex.Message) End Try End Sub End Class
I hope someone would be able to help me, i would really appreciate it!
Keith.
Comment