vb.net端口偵聽 偵聽端口命令

vb2008(.net)百分跪求高手關(guān)于網(wǎng)絡(luò)連接端口問題!

使用WinSock控件連接對(duì)方的IP和端口,然后在Winsock的"Sub Winsock_Connect()"事件中判斷是否能連接上,能連接上則此端口是開放的：

鎮(zhèn)江網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)建站！從網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、成都響應(yīng)式網(wǎng)站建設(shè)等網(wǎng)站項(xiàng)目制作，到程序開發(fā)，運(yùn)營(yíng)維護(hù)。創(chuàng)新互聯(lián)建站自2013年創(chuàng)立以來到現(xiàn)在10年的時(shí)間，我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn)，來保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)建站。

{{

'Form1:控件:Timer,名:Timer1,Interval:1000

'控件:Winsock,名:Winsock1;

Option Explicit

Dim F_PortScan As Long

Private Sub Timer1_Timer()

F_PortScan = F_PortScan + 1

Winsock1.Close

Winsock1.RemoteHost = "60.7.81.12" '要掃描的IP

Winsock1.RemotePort = F_PortScan '要掃描的端口

Winsock1.Connect '開始連接

Form1.Caption = "正在掃描端口:" F_PortScan

End Sub

Private Sub Winsock1_Connect() '如果連接上

MsgBox F_PortScan "端口開放"

End Sub

}}

vb.net中Socket問題

1.綁定的IP是服務(wù)器的IP地址，服務(wù)器是固定的，客戶端連接的是一個(gè)已知的服務(wù)器端。

2.客戶端的話，連接到服務(wù)器時(shí)，服務(wù)器accept后，就可以獲得客戶端的連接信息，包括IP地址和端口。

我是學(xué)C的，在C語(yǔ)言中，socket-bind-listen-accept-....，在accept函數(shù)中有選項(xiàng)，如下caddr結(jié)構(gòu)體中就存有accept后客戶端的IP地址 連接端口和傳輸方式等信息，clientsock[1]則為accept新的描述符，如你程序中soc2一樣 。

clientsock[1] = accept(sfd,(struct sockaddr*)caddr,len);

VB中應(yīng)該也有類時(shí)的函數(shù)，你網(wǎng)上好好找一下，或者看看相關(guān)書籍.

vb.net 做的通信程序，設(shè)備掉電后出錯(cuò)：無法從傳輸連接中讀取數(shù)據(jù): 遠(yuǎn)程主機(jī)強(qiáng)迫關(guān)閉了一個(gè)現(xiàn)有的連接

看下這個(gè)異常的類型 在捕捉異常的時(shí)候處理為關(guān)閉并重新打開端口監(jiān)聽（這個(gè)看你自己需求） 然后在socketException下面再catch其它exception 進(jìn)行彈出錯(cuò)誤提示之類的操作 就可以了

vb.net UDP 本地發(fā)送和接收怎么使用同一個(gè)端口呢

DatagramSocket用于接收和發(fā)送UDP的Socket實(shí)例。該類有3個(gè)構(gòu)造函數(shù)：DatagramSocket()：通常用于客戶端編程，它并沒有特定監(jiān)聽的端口，僅僅使用一個(gè)臨時(shí)的。程序會(huì)讓操作系統(tǒng)分配一個(gè)可用的端口。DatagramSocket(int port)：創(chuàng)建實(shí)例，并固定監(jiān)聽Port端口的報(bào)文。通常用于服務(wù)端。

vb.net如何使用TCP/IP協(xié)議向服務(wù)器發(fā)送字符串，要用到什么控件和函數(shù)？

TCP協(xié)議是TCP/IP協(xié)議簇中的傳輸層中的一個(gè)協(xié)議，也是TCP/IP協(xié)議簇最為重要的協(xié)議之一。在TCP/IP協(xié)議簇中，有一個(gè)協(xié)議和TCP協(xié)議非常類似，這就是UDP協(xié)議，網(wǎng)絡(luò)上進(jìn)行基于UDP協(xié)議的數(shù)據(jù)傳送時(shí)，發(fā)送方只需知道接收方的IP地址（或主機(jī)名）和端口號(hào)就可以發(fā)送UDP數(shù)據(jù)包。而接收方只需知道發(fā)送方發(fā)送數(shù)據(jù)對(duì)應(yīng)的端口號(hào)，就能夠接收UDP數(shù)據(jù)包了。傳送數(shù)據(jù)的雙方并不需要進(jìn)行連接就能夠?qū)崿F(xiàn)數(shù)據(jù)通訊，這樣就導(dǎo)致基于UDP協(xié)議的網(wǎng)絡(luò)應(yīng)用程序，在傳送數(shù)據(jù)時(shí)無法保證可靠性、完整性和安全性。

　而TCP協(xié)議卻與之相反，TCP協(xié)議是一種面向連接的，并提供可靠的、完整的、安全的數(shù)據(jù)傳送的網(wǎng)絡(luò)協(xié)議。它提供可靠字節(jié)服務(wù)的協(xié)議。在網(wǎng)絡(luò)中通過TCP協(xié)議傳送數(shù)據(jù)之前，發(fā)送方和接收方之間必須建立連接，這種連接就是所謂的"握手"。網(wǎng)絡(luò)中TCP應(yīng)用，如同日常生活中的打電話，在通話之前，首先要撥號(hào)、震鈴（猶如發(fā)送方向接收方提出TCP連接申請(qǐng)，并等待TCP連接申請(qǐng)通過）。直到對(duì)方拿起電話時(shí)（發(fā)送方和接收方的TCP連接已經(jīng)建立），就可以通話了（傳送數(shù)據(jù)）。本文的主要內(nèi)容就來介紹在Visual Basic .Net實(shí)現(xiàn)基于TCP協(xié)議網(wǎng)絡(luò)數(shù)據(jù)傳送的一種簡(jiǎn)單的方法。

一．簡(jiǎn)介本文在實(shí)現(xiàn)TCP協(xié)議網(wǎng)絡(luò)應(yīng)用時(shí)使用的類庫(kù)：

.Net FrameWork SDK中提供了很多用以實(shí)現(xiàn)TCP協(xié)議或與之相關(guān)協(xié)議的類庫(kù)，本文就選擇五個(gè)比較典型，也是比較簡(jiǎn)單的類加以介紹，即：TcpListener類、TcpClient類、NetworkStream類、StreamReader類和StreamWriter類。TcpClient主要用以提出TCP連接申請(qǐng)。TcpListener主要用以偵聽端口號(hào)，并接收遠(yuǎn)程主機(jī)的TCP連接申請(qǐng)。NetworkStream類是實(shí)現(xiàn)TCP數(shù)據(jù)傳輸?shù)幕A(chǔ)數(shù)據(jù)流，StreamReader類作用是通過操作NetworkStream，實(shí)現(xiàn)從網(wǎng)絡(luò)接收數(shù)據(jù)。StreamWriter類作用是通過操作NetworkStream，實(shí)現(xiàn)向網(wǎng)絡(luò)傳輸數(shù)據(jù)。

1. NetworkStream類：

NetworkStream類主要是提供用于網(wǎng)絡(luò)訪問的基礎(chǔ)數(shù)據(jù)流。它主要是網(wǎng)絡(luò)數(shù)據(jù)傳輸?shù)妮d體，并提供同步、異步方式來訪問網(wǎng)絡(luò)數(shù)據(jù)流。雖然NetworkStream類有構(gòu)造函數(shù)，但在實(shí)際情況中更多是通過TcpClient實(shí)例的GetStream方法來初始化NetworkStream實(shí)例。以下就是使用TcpClient實(shí)例的GetStream方法來初始化NetworkStream實(shí)例具體代碼：

Dim tcpClient As TcpClient

Dim nsStream As NetworkStream

tcpClient = New TcpClient( "" , 8000)

''對(duì)遠(yuǎn)程主機(jī)的8000端口提出TCP連接申請(qǐng)

nsStream = tcpClient.GetStream ( )

''TCP連接建立后，獲得網(wǎng)絡(luò)數(shù)據(jù)傳輸?shù)幕A(chǔ)數(shù)據(jù)流

在下面介紹的程序示例中，就是利用NetworkStream作為傳送和接收數(shù)據(jù)的載體。而操作這個(gè)載體的就是StreamWriter類和StreamReader類。表01和表02是NetworkStream類中一些常用的方法、屬性及其說明。

方法 說明 BeginRead 開始異步讀者基礎(chǔ)數(shù)據(jù)流。 BeginWrite 開始異步寫入基礎(chǔ)數(shù)據(jù)流。 Close 關(guān)閉流并可選擇關(guān)閉基礎(chǔ)套接字。 EndRead 結(jié)束異步讀取。 EndWrite 結(jié)束異步寫入。 Flush 刷新流中的數(shù)據(jù)。 Read 從流中讀取數(shù)據(jù)。 Seek 將流的當(dāng)前位置設(shè)置為給定值。 SetLength 設(shè)置流的長(zhǎng)度。 Write 將數(shù)據(jù)寫入流。

表01：NetworkStream類中常用的方法及其說明

其中"BeginRead"、"EndRead"和"BeginWrite"、"EndWrite"是二對(duì)異步方法，起作用分別相當(dāng)于"Read"和"Write"方法。

屬性 說明 CanRead 獲取當(dāng)前流是否支持讀取。 CanSeek 獲取流是否支持查找。該屬性總是返回 false。 CanWrite 獲取當(dāng)前流是否支持寫入。 DataAvailable 獲取是否可以在流上讀取數(shù)據(jù)。 Length 流上可用數(shù)據(jù)的長(zhǎng)度。 Position 獲取或設(shè)置流中的當(dāng)前位置。

表02：NetworkStream類中屬性及其說明

2. StreamReader類：

StreamReader類能夠?qū)崿F(xiàn)對(duì)基礎(chǔ)數(shù)據(jù)流的讀操作，從而實(shí)現(xiàn)對(duì)經(jīng)過基礎(chǔ)數(shù)據(jù)流傳送來的數(shù)據(jù)。表03是StreamReader類的常用的方法及其說明：

方法 說明 Close 關(guān)閉StreamReader并釋放與閱讀器關(guān)聯(lián)的所有系統(tǒng)資源。 DiscardBufferedData 允許StreamReader丟棄其當(dāng)前數(shù)據(jù)。 Peek 返回下一個(gè)可用的字符，但不使用它。 Read 讀取輸入流中的下一個(gè)字符或下一組字符。 ReadBlock 從當(dāng)前流中讀取最大數(shù)量的字符并從索引開始將該數(shù)據(jù)寫入緩沖區(qū)。 ReadLine 從當(dāng)前流中讀取一行字符并將數(shù)據(jù)作為字符串返回。 ReadToEnd 從流的當(dāng)前位置到末尾讀取流。

表03：NetworkStream類中常用的方法及其說明

3. StreamWriter類：

StreamWriter類能夠?qū)崿F(xiàn)對(duì)基礎(chǔ)數(shù)據(jù)流的寫操作，從而實(shí)現(xiàn)提供基礎(chǔ)數(shù)據(jù)流來傳送數(shù)據(jù)。表04是StreamWriter類的常用方法及其說明：

方法 說明 Close 關(guān)閉當(dāng)前的StreamWriter和基礎(chǔ)流。 Flush 清理當(dāng)前編寫器的所有緩沖區(qū)，并使所有緩沖數(shù)據(jù)寫入基礎(chǔ)流。 Write 寫入基礎(chǔ)數(shù)據(jù)流。 WriteLine 寫入重載參數(shù)指定的某些數(shù)據(jù)，后跟行結(jié)束符。

表04：StreamWriter類的常用方法及其說明

4.TcpClient 類：

TcpClient 類主要為TCP網(wǎng)絡(luò)服務(wù)提供客戶端連接。TcpClient是類基于Socket類構(gòu)建，

它以更高的抽象程度提供TCP服務(wù)。TcpClient 提供了通過網(wǎng)絡(luò)連接、發(fā)送和接收數(shù)據(jù)的簡(jiǎn)單方法。表05和表06分別是TcpClient類常用方法、屬性及其說明。

方法 說明 Close 關(guān)閉 TCP 連接 Connect 使用指定的主機(jī)名和端口號(hào)將客戶端連接到 TCP主機(jī) GetStream 返回用于發(fā)送和接收數(shù)據(jù)的流

表05：TcpClient類常用的方法

屬性 描述 LingerState 有關(guān)套接字逗留時(shí)間的信息 NoDelay 一個(gè)值，該值在發(fā)送或接收緩沖區(qū)未滿時(shí)啟用延遲 ReceiveBufferSize 接收緩沖區(qū)的大小 ReceiveTimeout TcpClient在啟動(dòng)后為接收數(shù)據(jù)而等待的時(shí)間長(zhǎng)度 SendBufferSize 發(fā)送緩沖區(qū)的大小 SendTimeout 在您啟動(dòng)發(fā)送操作后TcpClient將為接收確認(rèn)而等待的時(shí)間長(zhǎng)度

表06：TcpClient類常用的屬性

5.TcpListener 類：

TcpListener類的主要作用是從TCP網(wǎng)絡(luò)客戶端偵聽連接，TcpListener類基于Socket 類

提供更高理念級(jí)別的TCP服務(wù)。可以使用TcpListener從TCP客戶端偵聽連接。像 FTP 和 HTTP 這樣的應(yīng)用層協(xié)議是在 TcpListener 類的基礎(chǔ)上建立的。表7和表8分別是TcpListener類常用方法、屬性及其說明：

方法 說明 AcceptSocket 接受掛起的連接請(qǐng)求 AcceptTcpClient 接受掛起的連接請(qǐng)求 Pending 確定是否有掛起的連接請(qǐng)求 Start 開始偵聽網(wǎng)絡(luò)請(qǐng)求 Stop 關(guān)閉偵聽器表7：TcpListener 類常用的方法

屬性 說明 LocalEndpoint 獲取當(dāng)前TcpListener的基礎(chǔ)EndPoint Active 獲取一個(gè)值，該值指示 TcpListener 是否正主動(dòng)偵聽客戶端連接 Server 獲取基礎(chǔ)網(wǎng)絡(luò)Socket

表8：TcpListener 類常用的屬性

二．Visual Basic .Net實(shí)現(xiàn)基于TCP協(xié)議數(shù)據(jù)傳送程序的體系結(jié)構(gòu)：

在下面介紹的用Visual Basic .Net實(shí)現(xiàn)基于TCP協(xié)議的數(shù)據(jù)傳送程序是由二個(gè)子程序組成的。也可以看成是服務(wù)器端程序和客戶端程序，其中：服務(wù)器端程序的功能是偵聽端口號(hào)，接收遠(yuǎn)程主要的TCP連接申請(qǐng)，并接收遠(yuǎn)程主機(jī)傳送來的文字?jǐn)?shù)據(jù)。另外一個(gè)子程序，也就是所謂的客戶端程序，主要實(shí)現(xiàn)向網(wǎng)絡(luò)的遠(yuǎn)程主機(jī)提出TCP連接申請(qǐng)，并在連接申請(qǐng)通過后，向遠(yuǎn)程主機(jī)傳送文字?jǐn)?shù)據(jù)。下面來詳細(xì)介紹Visual Basic .Net實(shí)現(xiàn)TCP協(xié)議網(wǎng)絡(luò)數(shù)據(jù)傳送的服務(wù)器端程序和客戶端程序的具體步驟。

三．服務(wù)器端程序的具體實(shí)現(xiàn)步驟：

服務(wù)器端程序的實(shí)現(xiàn)關(guān)鍵在于偵聽端口號(hào)，接收遠(yuǎn)程主機(jī)的TCP連接申請(qǐng)，獲得網(wǎng)絡(luò)數(shù)據(jù)傳輸?shù)幕A(chǔ)數(shù)據(jù)流，并通過基礎(chǔ)數(shù)據(jù)流接收數(shù)據(jù)。接收數(shù)據(jù)使用的是StreamReader中ReadLine方法，由于ReadLine方法是一個(gè)阻塞式的方法，所以在下面具體的實(shí)現(xiàn)步驟中，是接收數(shù)據(jù)是在創(chuàng)建的線程中完成的，具體可參閱下面實(shí)現(xiàn)步驟中的第十一和十二步。以下是Visual Basic .Net實(shí)現(xiàn)TCP協(xié)議客戶端程序?qū)崿F(xiàn)的具體步驟：

1. 啟動(dòng)Visual Studio .Net。

2. 選擇菜單【文件】|【新建】|【項(xiàng)目】后，彈出【新建項(xiàng)目】對(duì)話框。

3. 將【項(xiàng)目類型】設(shè)置為【Visual Basic項(xiàng)目】。

4. 將【模板】設(shè)置為【W(wǎng)indows應(yīng)用程序】。

5. 在【名稱】文本框中輸入【服務(wù)器端程序】。

6. 在【位置】的文本框中輸入【E:\VS.NET項(xiàng)目】，然后單擊【確定】按鈕，這樣在"E:\VS.NET項(xiàng)目"目錄中就產(chǎn)生了名稱為"服務(wù)器端程序"的文件夾，并在里面創(chuàng)建了名稱為"服務(wù)器端程序"的項(xiàng)目文件。

7. 把Visual Studio .Net的當(dāng)前窗口切換到【Form1.vb（設(shè)計(jì)）】窗口，并從【工具箱】中的【W(wǎng)indows窗體組件】選項(xiàng)卡中往Form1窗體中拖入下列組件，并執(zhí)行相應(yīng)的操作：

一個(gè)Label組件。

一個(gè)StatusBar組件。

一個(gè)ListBox組件。

一個(gè)Button組件，并在這個(gè)Button組件拖入Form1的設(shè)計(jì)窗體后，雙擊它，則系統(tǒng)會(huì)在Form1.vb文件分別產(chǎn)生這個(gè)組件的Click事件對(duì)應(yīng)的處理代碼。

8. 按照表05所示調(diào)整窗體中各組件屬性的數(shù)值：

組件類型 組件名稱 屬性 設(shè)置結(jié)果 Form Form1 Text 服務(wù)器端程序 Form1 MaximizeBox False Form1 FormBorderStyle FixedSingle Button Button1 Text 啟動(dòng)服務(wù) Button1 FlatStyle Flat Label Label1 Text 服務(wù)尚未啟動(dòng) StatusBar StatusBar1 Text 無連接！表05：【服務(wù)器端程序】項(xiàng)目中組件設(shè)定數(shù)值表

　9. 把Visual Studio .Net的當(dāng)前窗口切換到Form1.vb的代碼編輯窗口，并在Form1.vb文件的最前面添加下列代碼，下列代碼在Form1.vb中導(dǎo)入程序中要使用的類所在的命名空間：

Imports System.Net.Sockets

''使用到TcpListen類

Imports System.Threading

''使用到線程

Imports System.IO

''使用到StreamReader類

10. 在Form1.vb中創(chuàng)建各種可視組件的代碼中添加下列代碼，下列代碼的作用是創(chuàng)建全局使用的實(shí)例和變量：

Private iPort As Integer = 8000

''定義偵聽端口號(hào)

Private thThreadRead As Thread

''創(chuàng)建線程，用以偵聽端口號(hào)，接收信息

Private tlTcpListen As TcpListener

''偵聽端口號(hào)

Private blistener As Boolean = True

''設(shè)定標(biāo)示位，判斷偵聽狀態(tài)

Private nsStream As NetworkStream

''創(chuàng)建接收的基本數(shù)據(jù)流

Private srRead As StreamReader

''從網(wǎng)絡(luò)基礎(chǔ)數(shù)據(jù)流中讀取數(shù)據(jù)

Private tcClient As TcpClient

11. 在Form1.vb中的InitializeComponent過程之后添加下列代碼，下列代碼的作用是定義Listen過程，此過程的作用是偵聽本地機(jī)的8000端口號(hào)，接受網(wǎng)絡(luò)主機(jī)的TCP連接申請(qǐng)，并接收從建立申請(qǐng)的遠(yuǎn)程主機(jī)發(fā)送來的文本數(shù)據(jù)：

Private Sub Listen ( )

Try

　tlTcpListen = New TcpListener ( iPort )

　''以8000端口號(hào)來初始化TcpListener實(shí)例

　tlTcpListen.Start ( )

　''開始監(jiān)聽

　StatusBar1.Text = "正在監(jiān)聽..."

　tcClient = tlTcpListen.AcceptTcpClient ( )

　''通過TCP連接請(qǐng)求

　nsStream = tcClient.GetStream ( )

　''獲取用以發(fā)送、接收數(shù)據(jù)的網(wǎng)絡(luò)基礎(chǔ)數(shù)據(jù)流

　srRead = New StreamReader ( nsStream )

　''以得到的網(wǎng)絡(luò)基礎(chǔ)數(shù)據(jù)流來初始化StreamReader實(shí)例

　StatusBar1.Text = "已經(jīng)建立TCP連接！"

　''循環(huán)偵聽

　While blistener

Dim sMessage As String = srRead.ReadLine ( )

''從網(wǎng)絡(luò)基礎(chǔ)數(shù)據(jù)流中讀取一行數(shù)據(jù)

If ( sMessage = "STOP" ) Then

　tlTcpListen.Stop ( )

　''關(guān)閉偵聽

　nsStream.Close ( )

　srRead.Close ( )

　''釋放資源

　StatusBar1.Text = "無連接！"

　thThreadRead.Abort ( )

　''中止線程

　Return

Else

　''判斷是否為斷開TCP連接控制碼

　Dim sTime As String = DateTime.Now.ToShortTimeString ( )

　''獲取接收數(shù)據(jù)時(shí)的時(shí)間

　ListBox1.Items.Add ( sTime + " " + sMessage )

End If

　End While

Catch ex As System.Security.SecurityException

　MessageBox.Show ( "偵聽失??！" , "錯(cuò)誤" )

End Try

End Sub

12. 用下列代碼替換Form1.vb中的Button1的Click事件對(duì)應(yīng)的處理代碼，下列代碼功能是用上面定義的Listen過程來初始化并啟動(dòng)線程，接收建立TCP連接的遠(yuǎn)程主機(jī)發(fā)送來的文本數(shù)據(jù)：

Private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click

　thThreadRead = New Thread ( New ThreadStart ( AddressOf Listen ) )

　''以Listen過程來初始化線程實(shí)例

　thThreadRead.Start ( )

　''啟動(dòng)線程

　Button1.Enabled = False

　Label1.Text = "服務(wù)已經(jīng)啟動(dòng)！"

　Label1.ForeColor = Color.Red

End Sub

13. 用下列代碼替換Form1.vb中的Dispose過程，下面代碼的作用是重新定義Dispose過程，在Dispose過程手動(dòng)清除使用的資源，回收垃圾：

Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean )

　Try

thThreadRead.Abort ( ) ''中止線程

tlTcpListen.Stop ( ) ''關(guān)閉偵聽

tcClient.Close ( )

nsStream.Close ( )

srRead.Close ( ) ''釋放資源

　Catch

　End Try

　If disposing Then

If Not ( components Is Nothing ) Then

　components.Dispose ( )

End If

　End If

　MyBase.Dispose ( disposing )

End Sub

14. 至此在上述步驟都正確執(zhí)行后，【服務(wù)器端程序】項(xiàng)目的全部工作就完成了。編譯、生成可執(zhí)行文件后，接著介紹客戶端程序的實(shí)現(xiàn)步驟。

四．客戶端端程序的具體實(shí)現(xiàn)步驟：

客戶端端序的實(shí)現(xiàn)關(guān)鍵在于向網(wǎng)絡(luò)中的遠(yuǎn)程主機(jī)提出TCP連接申請(qǐng)，并在申請(qǐng)通過后，得到傳輸數(shù)據(jù)的基礎(chǔ)數(shù)據(jù)流，并通過對(duì)基礎(chǔ)數(shù)據(jù)流進(jìn)行寫操作向遠(yuǎn)程主機(jī)傳送文本數(shù)據(jù)。由于在客戶端程序中沒有使用阻塞式的方法，所以程序中沒有使用到線程。對(duì)遠(yuǎn)程主機(jī)提出TCP連接申請(qǐng)的具體實(shí)現(xiàn)方法請(qǐng)參閱以下第步；對(duì)基礎(chǔ)數(shù)據(jù)流進(jìn)行寫操作，從而實(shí)現(xiàn)向遠(yuǎn)程主機(jī)傳送文本數(shù)據(jù)的方法請(qǐng)參閱以下第步。下面客戶端程序的具體實(shí)現(xiàn)步驟：

1. 啟動(dòng)Visual Studio .Net。

2. 選擇菜單【文件】|【新建】|【項(xiàng)目】后，彈出【新建項(xiàng)目】對(duì)話框。

3. 將【項(xiàng)目類型】設(shè)置為【Visual Basic項(xiàng)目】。

4. 將【模板】設(shè)置為【W(wǎng)indows應(yīng)用程序】。

5. 在【名稱】文本框中輸入【客戶端程序】。

6. 在【位置】的文本框中輸入【E:\VS.NET項(xiàng)目】，然后單擊【確定】按鈕，這樣在"E:\VS.NET項(xiàng)目"目錄中就產(chǎn)生了名稱為"客戶端程序"的文件夾，并在里面創(chuàng)建了名稱為"客戶端程序"的項(xiàng)目文件。

7. 把Visual Studio .Net的當(dāng)前窗口切換到【Form1.vb（設(shè)計(jì)）】窗口，并從【工具箱】中的【W(wǎng)indows窗體組件】選項(xiàng)卡中往Form1窗體中拖入下列組件，并執(zhí)行相應(yīng)的操作：

二個(gè)Label組件。

二個(gè)TextBox組件。

一個(gè)StatusBar組件。

二個(gè)Button組件，并在這二個(gè)Button組件拖入Form1的設(shè)計(jì)窗體后，雙擊它們，則系統(tǒng)會(huì)在Form1.vb文件分別產(chǎn)生這二個(gè)組件的Click事件對(duì)應(yīng)的處理代碼。

8. 按照表01所示調(diào)整窗體中各組件屬性的數(shù)值：

組件類型 組件名稱 屬性 設(shè)置結(jié)果 Form Form1 Text 客戶端程序 Form1 MaximizeBox False Form1 FormBorderStyle FixedSingle Button Button1 Text 連接 Button1 FlatStyle Flat Button2 Text 發(fā)送 Button2 FlatStyle Flat Label Label1 Text 服務(wù)器IP地址： Label2 Text 信息： StatusBar StatusBar1 Text 無連接！ TextBox TextBox1 Text "" TextBox1 BorderStyle FixedSingle TextBox2 Text "" TextBox2 BorderStyle FixedSingle

表06：【客戶端程序】項(xiàng)目中組件設(shè)定數(shù)值表

有任何疑問請(qǐng)追問，滿意請(qǐng)采納，謝謝。

vb.net2005 tcp聊天程序問題

‘客戶端向這樣寫：在窗體說放兩個(gè)文本框、兩個(gè)標(biāo)簽、兩個(gè)按鈕、一個(gè)列表框

Imports System.Net

Imports System.Net.Sockets

Imports System.IO

Imports System.Threading

Public Class Form1

'網(wǎng)絡(luò)基礎(chǔ)數(shù)據(jù)流

Private ns As NetworkStream

Private swriter As StreamWriter

Private nsread As StreamReader

Private tcpclient As TcpClient

Private tcpconnected As Boolean = False

Private clisocket As Socket

Private mythread As Thread

'發(fā)送

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Me.TextBox2.Text "" Then

swriter.WriteLine(Me.TextBox2.Text)

swriter.Flush()

Me.TextBox2.Text = ""

Else

MessageBox.Show("發(fā)送信息不能為空！", "錯(cuò)誤提示")

End If

End Sub

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose()

End If

End If

MyBase.Dispose(disposing)

End Sub

'建立連連接

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim ipremote As IPAddress

Dim tcpclient As TcpClient

Try

ipremote = IPAddress.Parse(Me.TextBox1.Text)

Catch ex As Exception

MessageBox.Show("IP地址不合法！", "錯(cuò)誤提示")

End Try

Try

tcpclient = New TcpClient(Me.TextBox1.Text, 8000)

ns = tcpclient.GetStream

swriter = New StreamWriter(ns)

Me.StatusBar1.Text = "已經(jīng)連接上"

Me.Button2.Enabled = False

Me.Button1.Enabled = True

tcpconnected = True

Catch ex As Exception

MessageBox.Show("無法與遠(yuǎn)程8000端口建立連接！", "錯(cuò)誤提示")

End Try

End Sub

Private Sub listen()

Try

Dim tcplistener As New TcpListener(IPAddress.Parse("127.0.0.1"), 8000)

tcplistener.Start()

tcpclient = tcplistener.AcceptTcpClient

ns = tcpclient.GetStream()

nsread = New StreamReader(ns)

While True

Dim msg As String = nsread.ReadLine

If msg = "stop" Then

tcplistener.Stop()

ns.Close()

nsread.Close()

mythread.Abort()

Else

Dim mytime As String = DateTime.Now.ToShortTimeString

Me.ListBox1.Items.Add(mytime + " " + msg)

End If

End While

Catch ex As System.Security.SecurityException

MessageBox.Show("偵聽失敗！", "錯(cuò)誤")

End Try

End Sub

End Class

分享文章：vb.net端口偵聽 偵聽端口命令
本文網(wǎng)址：http://muchs.cn/article18/docoodp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供外貿(mào)建站、虛擬主機(jī)、商城網(wǎng)站、定制開發(fā)、全網(wǎng)營(yíng)銷推廣、微信公眾號(hào)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)