步驟1：概述

此程序?qū)⑹鼓梢栽谕痪W(wǎng)絡(luò)上的兩個(gè)人之間交換消息。如果您不在同一網(wǎng)絡(luò)上，但我現(xiàn)在無(wú)法對(duì)其進(jìn)行測(cè)試，它可能會(huì)起作用。

您應(yīng)該擁有Microsoft Visual Basic 6.0，這就是我正在使用的語(yǔ)言。

建議您具有基本的編程知識(shí)

打開(kāi)Visual Basic并創(chuàng)建標(biāo)準(zhǔn)EXE

步驟2：創(chuàng)建用戶(hù)侵權(quán)

現(xiàn)在是時(shí)候創(chuàng)建用戶(hù)窗體

了，您需要將winsock控件添加到工具箱中。

執(zhí)行以下操作：

1。右鍵單擊工具箱中沒(méi)有任何內(nèi)容的地方

2。單擊組件

3。在長(zhǎng)列表中找到Microsoft Winsock Control 6.0并選中它旁邊的框

4。然后單擊“應(yīng)用”，然后單擊“關(guān)閉”

添加：

5個(gè)文本框

4個(gè)命令按鈕

1個(gè)winsock控件

將它們排列為下面的第二張圖片

第3步：重命名和其他屬性更改

我們現(xiàn)在將更改標(biāo)題（命令按鈕中的內(nèi)容）

1。單擊command1

2。在屬性的右側(cè)查找并找到Caption

3。將其更改為Host

對(duì)其余部分執(zhí)行相同的操作，但將它們?cè)O(shè)置為：

command2 = Connect

command3 = Close

command4 =發(fā)送

現(xiàn)在我們要更改文本框的內(nèi)容

1。單擊顯示為text1

2的文本框。轉(zhuǎn)到屬性窗口，然后找到“文本”屬性

3。使其空白

4。對(duì)表示Text2

5的代碼執(zhí)行相同的操作?，F(xiàn)在單擊text3并將text屬性更改為127.0.0.1

6?，F(xiàn)在單擊text4并將text屬性更改為1234

7?，F(xiàn)在單擊text5并將text屬性更改為Name

127.0.0.1是您的本地ip，因此當(dāng)它完成的

1234是端口時(shí)，您可以在計(jì)算機(jī)上測(cè)試該程序，您可以根據(jù)需要進(jìn)行設(shè)置，只需將其保留即可現(xiàn)在為1234

步驟4：更改按鈕和文本框的名稱(chēng)

我們需要重命名命令按鈕和文本框，以使其更易于編碼

1。單擊Text1并轉(zhuǎn)到屬性，然后單擊名稱(chēng)并將其更改為txtLog。我選擇它是因?yàn)樗悄l(fā)送和接收的郵件的日志

2。對(duì)其余部分執(zhí)行相同的操作，但命名為：

將Text2更改為txtSend

將Text3更改為txtIP

將Text4更改為txtPort

將Text5更改為txtName

將Command1更改為cmdHost

Command2更改為cmdConnect

Command3更改為cmdClose

Command 4更改為cmdSend

Winsock1更改為sckMain

現(xiàn)在您還需要更改另一項(xiàng)

單擊txtLog，然后在屬性窗口中找到MultiLine并使其正確

如果您有任何問(wèn)題要發(fā)表評(píng)論或給我發(fā)消息

第5步：編寫(xiě)命令按鈕

現(xiàn)在是時(shí)候編寫(xiě)命令按鈕的代碼了。

從第一個(gè)cmdHost

1開(kāi)始。雙擊它，將彈出代碼窗口

2?？雌饋?lái)應(yīng)該像這樣

Private Sub cmdHost_Click（）

End Sub

3。輸入此代碼

sckMain.LocalPort = txtPort.text

sckMain.listen

現(xiàn)在是什么意思？

第一行使winsocks本地端口等于文本框中的數(shù)字（txtPort）

第二行告訴winsock在該端口上偵聽(tīng)嘗試連接的人

現(xiàn)在將其關(guān)閉并雙擊cmdConnect

輸入此代碼 sckMain.RemoteHost = txtIP.text sckMain。 RemotePort = txtPort.text

sckMain.Connect

前兩行將winsock（sckMain）的RemoteHost和RemotePort更改為我們想要的ip和端口 sckMain.Connect告訴它連接到某人偵聽(tīng)該端口并ip

立即關(guān)閉按鈕

雙擊cmdClose并鍵入

sckMain.close

txtLog = txtLog.text和“連接已關(guān)閉！” ＆vbCrlf

sckMain.close告訴winsock斷開(kāi)連接

第二行將Connection關(guān)閉到txtLog

雙擊cmdSend并鍵入

sckMain.senddata“ ［”＆txtName.text＆“］ “＆txtSend.text

txtLog = txtLog.text＆” ［“＆txtName.text＆”］“＆txtSend.text＆vbcrlf

txtSend.text =”“

前兩行是錯(cuò)誤的讓它們?cè)诰庉嬈髦姓_保存，并在我保存時(shí)更改它們，因此請(qǐng)查看圖片以找到正確的代碼

第一行在txtSend中發(fā)送文本，而您在txtName

中的名稱(chēng)第二行添加您發(fā)送的消息和您的姓名至txtLog

第三行清除txtSend

中的文本第6步：對(duì)Winsock進(jìn)行編碼

現(xiàn)在是時(shí)候編寫(xiě)winsock了！

我們需要告訴它當(dāng)有人嘗試連接時(shí)該怎么做，我們需要告訴它將接收到的數(shù)據(jù)放到哪里

確定，雙擊winsock控件（sckMain）

在代碼框的右上角應(yīng)顯示：error

單擊下拉框并選擇connec要求

現(xiàn)在應(yīng)該在這里輸入代碼

的位置了：

如果sckMain.state 《》 sckClose，則

sckMain.close

如果

sckMain結(jié)束。接受requestid

txtLog = txtLog.text和“連接到：”＆sckMain.RemoteHostIP＆vbcrlf

第一行和第二行檢查winsock（sckMain）是否關(guān)閉，如果沒(méi)有關(guān)閉，則將其關(guān)閉

第三行關(guān)閉if語(yǔ)句

第四行告訴winsock（sckMain）接受連接

第五行告訴您通過(guò)在txtLog上添加一行來(lái)建立連接

現(xiàn)在我們需要告訴winsock該怎么做在代碼窗口的右上角中，使用接收到的數(shù)據(jù)

單擊下拉框，然后選擇：DataArrival

現(xiàn)在輸入此代碼：

dim數(shù)據(jù)作為字符串

sckMain.getdata數(shù)據(jù)，vbstring

txtLog = txtLog.text和data＆vbcrlf

第一行使數(shù)據(jù)成為字符串，這是將接收到的數(shù)據(jù)添加到txtLog

之前要放在其中的地方。第二行獲取數(shù)據(jù)和位置它在字符串?dāng)?shù)據(jù)中作為vbstring

第三行將接收到的數(shù)據(jù)再次添加到txtLog

，如果它令人困惑并且您有問(wèn)題發(fā)表評(píng)論或給我發(fā)消息

，請(qǐng)?jiān)俅螌⑵涮砑拥讲襟E7：使用程序/結(jié)論

好，現(xiàn)在我將告訴您如何在Visual Basic單擊文件中使用程序

，然后將project1.exe保存到桌面

如果有任何錯(cuò)誤，請(qǐng)發(fā)表評(píng)論，我會(huì)盡力幫助您

現(xiàn)在轉(zhuǎn)到您制作該程序的位置并雙擊它兩次，然后應(yīng)在一個(gè)單擊主機(jī)上彈出兩個(gè)程序

單擊“連接”，然后在單擊主機(jī)的主機(jī)上單擊“已連接”：127.0.0.1

現(xiàn)在為它們兩個(gè)輸入名稱(chēng)，您可以在兩者之間發(fā)送消息。它在LAN上有效，并且可能可以在WAN上工作，但我不確定