昨天在壹佰參加了小教專業同學的期末教學活動，令我感觸頗多。

首先我們是以助教的身份參加的，在一開始我和分配好的小組成員坐到了一起。我們組一共是9個人，經過聊天我發現她們竟然都是轉專業的學生，問她們為什么要轉專業，她們的回答五花八門，的確是每個人跟每個人的想法都不一樣啊。接著就是給她們解決問題，主要是針對她們的期末作業VB即時通訊小程序來回答的。在這個過程中我發現她們的小組長的程序是做的最好的，其他人或多或少都會有一點問題，看來她們選的組長真的是很有水準的。

然后就是在組內選出一個人上臺演示她的作品，這就需要這個人有良好的表達能力、溝通能力，還要有信心、有勇氣。在她們給臺下觀眾講解的時候我發現她們真的是巾幗不讓須眉，尤其是第二組上臺的同學，講的非常的棒。不僅程序做沒有問題，而且講解的非常好，她還加入了了很多自己的創新，比如抖一抖，聊天框顏色的改變等等。

另外再說一下這個VB聊天小程序，它是利用了wonsock控件來實現一對一通話。其實在一開始的時候我們做的是在一臺電腦上做兩個窗體完成虛擬的一對一聊天，但是老師要求我們要在兩臺電腦上實現這一功能，于是我們幾個小伙伴就查資料，集思廣益終于實現了這一功能。在這個過程中我們一定不要著急，只要我們不斷調試，不斷嘗試，就一定會成功的。

?

Wonsock控件

常用屬性：

• LocalPort 本地主機端口
• RemoteHost 遠程主機名稱
• RemotePort遠程主機端口

常用方法：

• Listen 監聽TCP數據
• Connect 連接
• Accept 接受連接請求
• Close 關閉連接請求
• SendData/GetData 傳輸/獲取數據

常用事件：

• ConnectionRequest 連接請求
• DataArrival 數據到達

Option Explicit Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub cmdSendMsg_Click()If txtRemoteIp.Text = "" Then '判斷是接收方If txtMessage.Text = "" ThenMsgBox "不能為空，請輸入", , "提示"ElsetxtMsgHistory.Text = txtMsgHistory.Text & vbCrLf & Now & vbCrLf & "李雷說:" & txtMessage.TextWinsock2.SendData (Now & vbCrLf & "我說：" & txtMessage.Text)txtMessage.Text = ""End IfElse '判斷是發送方If txtMessage.Text = "" ThenMsgBox "不能為空，請輸入", , "提示"ElsetxtMsgHistory.Text = txtMsgHistory.Text & vbCrLf & Now & vbCrLf & "我說:" & txtMessage.TextWinsock1.SendData (Now & vbCrLf & "李雷說：" & txtMessage.Text)txtMessage.Text = ""End IfEnd If End SubPrivate Sub Form_Load()Winsock2.LocalPort = 1000 '設置端口 與Winsock2保持一致Winsock2.Listen End SubPrivate Sub cmdFrm2Show_Click()Winsock1.RemoteHost = txtRemoteIp.Text '設置Winsock1的RemoteHost屬性Winsock1.RemotePort = 1000 '設置端口 與Winsock2保持一致Winsock1.Connect 'Winsock1和WinsockHanmm開始通信連接 End SubPrivate Sub winsock2_ConnectionRequest(ByVal requestID As Long)Winsock2.Close '關閉當前winsock2控件的監聽（liSten）狀態Winsock2.Accept requestID '接受當前的通信請求，建立消息通道 End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)Dim txtMessage As String '接收到消息，放在歷史記錄框Winsock1.GetData txtMessage, vbStringtxtMsgHistory.Text = txtMsgHistory.Text & vbCrLf & txtMessage End SubPrivate Sub winsock2_DataArrival(ByVal bytesTotal As Long)Dim txtMessage As String '接收到消息，放在歷史記錄框Winsock2.GetData txtMessage, vbStringtxtMsgHistory.Text = txtMsgHistory.Text & vbCrLf & txtMessage End Sub

?

總結

以上是生活随笔為你收集整理的小教活动总结-VB即时通讯小程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。