vb中winsock代碼問題 教了給分

這個代碼是vb幫助裏的。Winsock網絡編程接口 ，兩個個主要屬性：RemoteHost、RemotePort。四個主要方法：Connect（用在客戶端）、Listen（用在服務器端）、GetData（用於接受數據）、SendData（用於發送數據）。

使用Winsock：如果要使兩臺計算機進行通訊，可分別在客戶端、服務器端建立含有Winsock控件的窗口。

服務器端：

Private Sub Form_Load()

Winsock1.LocalPort = 1001'設置通信端口編號0---65535，最好用1000以後的口。

Winsoc1.Listen '設置監聽客戶端的連接要求

End Sub

以下代碼是接受客戶端的連接要求

Private Sub Winsock1_ConnectionRequest(Byvalrequestld As Long)

If Winsock1.State <> sckClosed Then Winsock1.Close

Winsock1.Acceptrequested

End Sub

以下代碼是接受客戶端發來的數據,並存入tmPstr.

Private Sub Winsock1_DataArrival(ByvalbytesTotal As Long)

Dim tmPstr As String

Winsock1.GetData tmPstr

if tmpstr="妳好啊" then

Winsock1.SendData "OK" '向客戶端發送OK

end if

End Sub

客戶端:

Private Sub Form_Load()

'Winsock 控件的名字為 Winsock1。

Winsock1.RemoteHost = "169.213.71.153" '服務器端的ip

Winsock1.RemotePort = 1001 '服務器端的LocalPort

Winsock1.Connect '向服務器端發送連接請求

End Sub

Private Sub Command1_Click()

Winsock1.SendData "妳好啊!"

End Sub

以下代碼是接受服務器端發來的數據

Private Sub Winsock1_DataArrival(ByvalbytesTotal As Long)

Dim mystr As String

Winsockfwq.GetData mystr

text1.text= mystr '將服務器傳來的OK在文本筐中顯示

End Sub

以上是Winsock控件的基本工作過程,當然要靈活使用他,妳還的好好看看Winsock

的常用屬性\方法\事件.

上一篇:ug10.0快捷鍵大全，ug10.0常用快捷鍵有哪些

下一篇:c語言程序設計實驗報告內容