女人自慰AV免费观看内涵网,日韩国产剧情在线观看网址,神马电影网特片网,最新一级电影欧美,在线观看亚洲欧美日韩,黄色视频在线播放免费观看,ABO涨奶期羡澄,第一导航fulione,美女主播操b

0
  • 聊天消息
  • 系統消息
  • 評論與回復
登錄后你可以
  • 下載海量資料
  • 學習在線課程
  • 觀看技術視頻
  • 寫文章/發帖/加入社區
會員中心
創作中心

完善資料讓更多小伙伴認識你,還能領取20積分哦,立即完善>

3天內不再提示

如何在Visual Basic中制作一個簡單的聊天程序

454398 ? 來源:wv ? 2019-10-14 10:50 ? 次閱讀

步驟1:概述

如何在Visual Basic中制作一個簡單的聊天程序

此程序將使您可以在同一網絡上的兩個人之間交換消息。如果您不在同一網絡上,但我現在無法對其進行測試,它可能會起作用。

您應該擁有Microsoft Visual Basic 6.0,這就是我正在使用的語言。

建議您具有基本的編程知識

打開Visual Basic并創建標準EXE

步驟2:創建用戶侵權

現在是時候創建用戶窗體

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

執行以下操作:

1。右鍵單擊工具箱中沒有任何內容的地方

2。單擊組件

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

4。然后單擊“應用”,然后單擊“關閉”

添加:

5個文本框

4個命令按鈕

1個winsock控件

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

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

我們現在將更改標題(命令按鈕中的內容)

1。單擊command1

2。在屬性的右側查找并找到Caption

3。將其更改為Host

對其余部分執行相同的操作,但將它們設置為:

command2 = Connect

command3 = Close

command4 =發送

現在我們要更改文本框的內容

1。單擊顯示為text1

2的文本框。轉到屬性窗口,然后找到“文本”屬性

3。使其空白

4。對表示Text2

5的代碼執行相同的操作。現在單擊text3并將text屬性更改為127.0.0.1

6。現在單擊text4并將text屬性更改為1234

7。現在單擊text5并將text屬性更改為Name

127.0.0.1是您的本地ip,因此當它完成的

1234是端口時,您可以在計算機上測試該程序,您可以根據需要進行設置,只需將其保留即可現在為1234

步驟4:更改按鈕和文本框的名稱

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

1。單擊Text1并轉到屬性,然后單擊名稱并將其更改為txtLog。我選擇它是因為它是您發送和接收的郵件的日志

2。對其余部分執行相同的操作,但命名為:

將Text2更改為txtSend

將Text3更改為txtIP

將Text4更改為txtPort

將Text5更改為txtName

將Command1更改為cmdHost

Command2更改為cmdConnect

Command3更改為cmdClose

Command 4更改為cmdSend

Winsock1更改為sckMain

現在您還需要更改另一項

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

如果您有任何問題要發表評論或給我發消息

第5步:編寫命令按鈕

現在是時候編寫命令按鈕的代碼了。

從第一個cmdHost

1開始。雙擊它,將彈出代碼窗口

2。看起來應該像這樣

Private Sub cmdHost_Click()

End Sub

3。輸入此代碼

sckMain.LocalPort = txtPort.text

sckMain.listen

現在是什么意思?

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

第二行告訴winsock在該端口上偵聽嘗試連接的人

現在將其關閉并雙擊cmdConnect

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

sckMain.Connect

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

立即關閉按鈕

雙擊cmdClose并鍵入

sckMain.close

txtLog = txtLog.text和“連接已關閉!” &vbCrlf

sckMain.close告訴winsock斷開連接

第二行將Connection關閉到txtLog

雙擊cmdSend并鍵入

sckMain.senddata“ [”&txtName.text&“] “&txtSend.text

txtLog = txtLog.text&” [“&txtName.text&”]“&txtSend.text&vbcrlf

txtSend.text =”“

前兩行是錯誤的讓它們在編輯器中正確保存,并在我保存時更改它們,因此請查看圖片以找到正確的代碼

第一行在txtSend中發送文本,而您在txtName

中的名稱第二行添加您發送的消息和您的姓名至txtLog

第三行清除txtSend

中的文本第6步:對Winsock進行編碼

現在是時候編寫winsock了!

我們需要告訴它當有人嘗試連接時該怎么做,我們需要告訴它將接收到的數據放到哪里

確定,雙擊winsock控件(sckMain)

在代碼框的右上角應顯示:error

單擊下拉框并選擇connec要求

現在應該在這里輸入代碼

的位置了:

如果sckMain.state 《》 sckClose,則

sckMain.close

如果

sckMain結束。接受requestid

txtLog = txtLog.text和“連接到:”&sckMain.RemoteHostIP&vbcrlf

第一行和第二行檢查winsock(sckMain)是否關閉,如果沒有關閉,則將其關閉

第三行關閉if語句

第四行告訴winsock(sckMain)接受連接

第五行告訴您通過在txtLog上添加一行來建立連接

現在我們需要告訴winsock該怎么做在代碼窗口的右上角中,使用接收到的數據

單擊下拉框,然后選擇:DataArrival

現在輸入此代碼:

dim數據作為字符串

sckMain.getdata數據,vbstring

txtLog = txtLog.text和data&vbcrlf

第一行使數據成為字符串,這是將接收到的數據添加到txtLog

之前要放在其中的地方。第二行獲取數據和位置它在字符串數據中作為vbstring

第三行將接收到的數據再次添加到txtLog

,如果它令人困惑并且您有問題發表評論或給我發消息

,請再次將其添加到步驟7:使用程序/結論

好,現在我將告訴您如何在Visual Basic單擊文件中使用程序

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

如果有任何錯誤,請發表評論,我會盡力幫助您

現在轉到您制作該程序的位置并雙擊它兩次,然后應在一個單擊主機上彈出兩個程序

單擊“連接”,然后在單擊主機的主機上單擊“已連接”:127.0.0.1

現在為它們兩個輸入名稱,您可以在兩者之間發送消息。它在LAN上有效,并且可能可以在WAN上工作,但我不確定

聲明:本文內容及配圖由入駐作者撰寫或者入駐合作網站授權轉載。文章觀點僅代表作者本人,不代表電子發燒友網立場。文章及其配圖僅供工程師學習之用,如有內容侵權或者其他違規問題,請聯系本站處理。 舉報投訴
  • 程序
    +關注

    關注

    117

    文章

    3819

    瀏覽量

    82348
  • Visual
    +關注

    關注

    0

    文章

    255

    瀏覽量

    34631
收藏 人收藏

    評論

    相關推薦
    熱點推薦

    何在Visual Studio 2022運行FX3吞吐量基準測試工具?

    我正在嘗試運行 John Hyde 的書“SuperSpeed by Design”的 FX3 吞吐量基準測試工具。 但是,我面臨些困難,希望得到任何指導。 具體來說,我正在使用 Visual
    發表于 05-13 08:05

    何在 樹莓派 上編寫和運行 C 語言程序

    在本教程,我將討論C編程語言是什么,C編程的用途,以及如何在RaspberryPi上編寫和運行C程序。本文的目的是為您介紹在RaspberryPi上進行C編程的基礎知識。如果您想深入了解C編程
    的頭像 發表于 03-25 09:28 ?371次閱讀
    如<b class='flag-5'>何在</b> 樹莓派 上編寫和運行 C 語言<b class='flag-5'>程序</b>?

    零基礎入門:如何在樹莓派上編寫和運行Python程序

    在這篇文章,我將為你簡要介紹Python程序是什么、Python程序可以用來做什么,以及如何在RaspberryPi上編寫和運行
    的頭像 發表于 03-25 09:27 ?453次閱讀
    零基礎入門:如<b class='flag-5'>何在</b>樹莓派上編寫和運行Python<b class='flag-5'>程序</b>?

    Visual Studio運行Hello分類樣本 ,僅在Visual Studio輸出收到錯誤消息,怎么解決?

    Visual Studio* 運行 Hello 分類樣本 ,僅在 Visual Studio* 輸出收到錯誤消息: Exception thrown
    發表于 03-05 08:16

    HarmonyOS NEXT 原生應用開發:社交聊天對話過程實現

    、實現思路 本DEMO旨在展示如何在HarmonyOS NEXT平臺上,利用ArkTS開發語言構建簡易的社交聊天對話界面。用戶可以在此
    發表于 01-07 10:55

    馬斯克旗下xAI計劃推出Grok聊天機器人獨立應用

    與當前市場的佼佼者OpenAI展開競爭。 Grok聊天機器人作為xAI公司的核心產品,直備受關注。此次推出的獨立應用程序,將為Grok提供
    的頭像 發表于 11-29 13:38 ?435次閱讀

    Vector推出套基于Visual Studio Code的免費插件

    在汽車軟件開發過程,除使用MATLAB開發算法外,專業開發者也偏向使用Visual Studio Code來開發代碼,其中軟件測試用例的編寫是確保系統穩定性和可靠性的重要環節。傳統的CAPL腳本
    的頭像 發表于 11-24 14:15 ?1537次閱讀
    Vector推出<b class='flag-5'>一</b>套基于<b class='flag-5'>Visual</b> Studio Code的免費插件

    怎樣搭建基于 ChatGPT 的聊天系統

    搭建基于ChatGPT的聊天系統是涉及多個步驟的過程,包括理解ChatGPT的API、設計用戶界面、處理數據和集成ChatGPT模型
    的頭像 發表于 10-25 16:23 ?915次閱讀

    ChatGPT 與傳統聊天機器人的比較

    隨著人工智能技術的飛速發展,聊天機器人已經成為我們日常生活不可或缺的部分。從簡單的客服助手到復雜的個人助理,這些虛擬助手正在逐漸改變我們與技術的互動方式。在眾多
    的頭像 發表于 10-25 16:16 ?1129次閱讀

    在PyTorch搭建簡單的模型

    在PyTorch搭建簡單的模型通常涉及幾個關鍵步驟:定義模型結構、加載數據、設置損失函數和優化器,以及進行模型訓練和評估。
    的頭像 發表于 07-16 18:09 ?2651次閱讀

    何在esp32的程序體中指定變量的絕對地址,或者相對于程序首地址的固定偏移位置?

    請問下如何在esp32的程序體中指定變量的絕對地址,或者相對于程序首地址的
    發表于 06-21 08:12

    請問cmakelists的變量如何在程序中使用?

    大家好, 我有問題請教,cmakelists.txt的變量如何在程序中使用?比如以下cmakelists.txt文件的PROJECT_
    發表于 06-11 07:34

    簡單的分頻器電路分享

    這是簡單的分頻器電路,該電路的優點是電路小,它僅使用晶體管和其他幾個組件。
    的頭像 發表于 06-10 15:55 ?2627次閱讀
    <b class='flag-5'>一</b><b class='flag-5'>個</b><b class='flag-5'>簡單</b>的分頻器電路分享

    何在沒有安裝visual studio或EZ-USB FX3 SDK的win10電腦上使用FwDownloadApp.exe?

    ~2022 版 VC_redist.x64.exe) 然而,問題依然存在。 有什么好辦法嗎? 如果沒有辦法,請向我解釋如何在 Visual Studio 重建該項目并將 msvcp90.dll 和 msvcr90.dll
    發表于 05-30 08:31

    簡單的C程序設計

    電子發燒友網站提供《最簡單的C程序設計.pptx》資料免費下載
    發表于 05-28 16:41 ?10次下載