昨天在壹佰參加了小教專業(yè)同學(xué)的期末教學(xué)活動(dòng)，令我感觸頗多。

首先我們是以助教的身份參加的，在一開(kāi)始我和分配好的小組成員坐到了一起。我們組一共是9個(gè)人，經(jīng)過(guò)聊天我發(fā)現(xiàn)她們竟然都是轉(zhuǎn)專業(yè)的學(xué)生，問(wèn)她們?yōu)槭裁匆D(zhuǎn)專業(yè)，她們的回答五花八門，的確是每個(gè)人跟每個(gè)人的想法都不一樣啊。接著就是給她們解決問(wèn)題，主要是針對(duì)她們的期末作業(yè)VB即時(shí)通訊小程序來(lái)回答的。在這個(gè)過(guò)程中我發(fā)現(xiàn)她們的小組長(zhǎng)的程序是做的最好的，其他人或多或少都會(huì)有一點(diǎn)問(wèn)題，看來(lái)她們選的組長(zhǎng)真的是很有水準(zhǔn)的。

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

另外再說(shuō)一下這個(gè)VB聊天小程序，它是利用了wonsock控件來(lái)實(shí)現(xiàn)一對(duì)一通話。其實(shí)在一開(kāi)始的時(shí)候我們做的是在一臺(tái)電腦上做兩個(gè)窗體完成虛擬的一對(duì)一聊天，但是老師要求我們要在兩臺(tái)電腦上實(shí)現(xiàn)這一功能，于是我們幾個(gè)小伙伴就查資料，集思廣益終于實(shí)現(xiàn)了這一功能。在這個(gè)過(guò)程中我們一定不要著急，只要我們不斷調(diào)試，不斷嘗試，就一定會(huì)成功的。

?

Wonsock控件

常用屬性：

• LocalPort 本地主機(jī)端口
• RemoteHost 遠(yuǎn)程主機(jī)名稱
• RemotePort遠(yuǎn)程主機(jī)端口

常用方法：

• Listen 監(jiān)聽(tīng)TCP數(shù)據(jù)
• Connect 連接
• Accept 接受連接請(qǐng)求
• Close 關(guān)閉連接請(qǐng)求
• SendData/GetData 傳輸/獲取數(shù)據(jù)

常用事件：

• ConnectionRequest 連接請(qǐng)求
• DataArrival 數(shù)據(jù)到達(dá)

Option Explicit Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub cmdSendMsg_Click()If txtRemoteIp.Text = "" Then '判斷是接收方If txtMessage.Text = "" ThenMsgBox "不能為空，請(qǐng)輸入", , "提示"ElsetxtMsgHistory.Text = txtMsgHistory.Text & vbCrLf & Now & vbCrLf & "李雷說(shuō):" & txtMessage.TextWinsock2.SendData (Now & vbCrLf & "我說(shuō)：" & txtMessage.Text)txtMessage.Text = ""End IfElse '判斷是發(fā)送方If txtMessage.Text = "" ThenMsgBox "不能為空，請(qǐng)輸入", , "提示"ElsetxtMsgHistory.Text = txtMsgHistory.Text & vbCrLf & Now & vbCrLf & "我說(shuō):" & txtMessage.TextWinsock1.SendData (Now & vbCrLf & "李雷說(shuō)：" & txtMessage.Text)txtMessage.Text = ""End IfEnd If End SubPrivate Sub Form_Load()Winsock2.LocalPort = 1000 '設(shè)置端口 與Winsock2保持一致Winsock2.Listen End SubPrivate Sub cmdFrm2Show_Click()Winsock1.RemoteHost = txtRemoteIp.Text '設(shè)置Winsock1的RemoteHost屬性Winsock1.RemotePort = 1000 '設(shè)置端口 與Winsock2保持一致Winsock1.Connect 'Winsock1和WinsockHanmm開(kāi)始通信連接 End SubPrivate Sub winsock2_ConnectionRequest(ByVal requestID As Long)Winsock2.Close '關(guān)閉當(dāng)前winsock2控件的監(jiān)聽(tīng)（liSten）狀態(tài)Winsock2.Accept requestID '接受當(dāng)前的通信請(qǐng)求，建立消息通道 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

?

總結(jié)

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

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。