Paano Gumawa ng isang Simpleng Program sa Chat sa Visual Basic Gamit ang Microsoft Winsock Control: 7 Hakbang

2024 May -akda: John Day | [email protected]. Huling binago: 2024-01-30 13:15

Sa ganitong hindi maituturo ay ipapakita ko sa iyo kung paano gumawa ng isang simpleng programa sa chat sa visual basic. pupunta ako sa kung ano ang ginagawa ng lahat ng code upang matutunan mo habang ginagawa mo ito, at sa huli ipapakita ko sa iyo kung paano ito gamitin.

Hakbang 1: Pangkalahatang-ideya

Bagong Project "," itaas ": 0.44341801385681295," left ": 0.2802690582959641," taas ": 0.2632794457274827," width ": 0.5067264573991032}, {" noteID ":" NJL01ANFG0GJ54J "," may-akda ":" twenglish1 "," text: "ito ang nais mong piliin pagkatapos mag-click buksan", "itaas": 0.25635103926096997, "kaliwa": 0.017937219730941704, "taas": 0.22401847575057737, "lapad": 0.23542600896860988}] ">

Papayagan ka ng program na ito na makipagpalitan ng mga mensahe sa pagitan ng dalawang tao sa iyong parehong network. Maaari itong gumana kung ang iyong wala sa parehong network ngunit hindi ko ito masubukan ngayon.

Dapat ay mayroon kang Microsoft Visual Basic 6.0, iyon ang ginagamit ko. Inirerekumenda ang pangunahing kaalaman sa pagprograma Hayaan na magsimula !!! buksan ang basic basic at lumikha ng isang Standard EXE

Hakbang 2: Paglikha ng User Infrence

Ngayon ay oras na upang likhain ang form ng gumagamit

kakailanganin mong idagdag ang control ng winsock sa toolbox gawin ito sa pamamagitan ng: 1. i-right click sa isang lugar sa toolbox kung saan walang 2. i-click ang Mga Components 3. sa mahabang listahan hanapin ang Microsoft Winsock Control 6.0 at lagyan ng tsek ang kahon sa tabi nito 4 Pagkatapos mag-click ilapat pagkatapos isara ang Magdagdag: 5 mga kahon ng teksto 4 na mga pindutan ng utos 1 winsock control ayusin ang mga ito upang magmukhang ang pangalawang larawan sa ibaba

Hakbang 3: Pagpapalit ng pangalan at Iba Pang Mga Pagbabago sa Pag-aari

papalitan namin ngayon ang mga caption (kung ano ang sinasabi sa mga pindutan ng utos) 1. i-click ang command12. tumingin sa kanang bahagi sa mga pag-aari at hanapin ang Caption3. baguhin ito sa Hostdo pareho para sa natitira ngunit gawin silang: command2 = Connectcommand3 = Closecommand4 = Sendnow babaguhin natin kung ano ang sinasabi ng mga kahon ng teksto1. mag-click sa text box na nagsasabing text12. pumunta sa window ng mga pag-aari at hanapin ang Text property3. gawing blangko4. gawin ang pareho para sa isa na nagsasabing Text25. ngayon i-click ang text3 at palitan ang pag-aari ng teksto sa 127.0.0.16. ngayon i-click ang text4 at palitan ang teksto ng pag-aari sa 12347. ngayon i-click ang text5 at palitan ang pag-aari ng teksto sa Name127.0.0.1 ay ang iyong lokal na ip upang masubukan mo ang programa sa iyong computer kapag ang tapos na1234 ay ang port na maaari mo itong gawin kahit anong gusto mo gusto ngunit iwanan lamang ito 1234 sa ngayon

Hakbang 4: Pagbabago ng Mga Pangalan ng Mga Pindutan at Mga Kahon ng Teksto

kailangan naming palitan ang pangalan ng mga pindutan ng utos at mga kahon ng teksto upang gawing mas madali silang i-code

1. i-click ang Text1 at pumunta sa mga pag-aari at mag-click sa pangalan at palitan ito sa txtLog pinili ko iyon dahil ito ang log ng mga mensahe na iyong ipinadala at natanggap 2. gawin ang pareho para sa natitira ngunit gawin ang mga pangalan: baguhin ang Text2 upang txtSend ang pagbabago Text3 to txtIP change Text4 to txtPort change Text5 to txtName change Command1 to cmdHost Change Command2 to cmdConnect change Command3 to cmdClose change Command 4 to cmdPadala ang pagbabago ng Winsock1 sa sckMain ngayon mayroong isa pang bagay na kailangan mong baguhin ang pag-click sa txtLog at sa paghahanap ng window ng mga katangian Ang MultiLine at gawing totoo ang hakbang na ito ay maaaring maging sanhi ng pagkalito kung mayroon kang anumang mga katanungan mag-post ng isang puna o mensahe sa akin

Hakbang 5: Pag-coding ng Mga Command Buttons

Ngayon ay oras na upang isulat ang code para sa mga pindutan ng utos na nagsisimula sa unang cmdHost1. i-double click ito, ilalabas nito ang code window2. dapat ganito ang hitsura nitoPrivate Sub cmdHost_Click () End Sub3. ipasok ang mga codeckMain. LocalPort = txtPort.teXTckMain.listennow ano ang ibig sabihin nito ?? ang unang linya ay ginagawang pantay ng lokal na port ng winsock ang bilang sa textbox (txtPort) sinabi ng pangalawang linya sa winsock upang makinig sa port na iyon para sa isang taong sumusubok na kumonekta isara iyon at mag-double click sa cmdConnectenter ang mga codeckMain. RemoteHost = txtIP.teXTckMain. RemotePort = txtPort.teXTckMain. Connectng unang dalawang linya ay binago ang RemoteHost at ang RemotePort ng winsock (sckMain) sa ip at port na nais namin sa sckMain. upang kumonekta sa isang taong nakikinig sa port na iyon at ipnow para sa malapit na pag-click sa cmdClose at mga typeckMain.closetxtLog = txtLog.text & "Sarado ang koneksyon!" & vbCrlfthe sckMain.close ay nagsasabi sa winsock upang idiskonekta ang pangalawang linya ay nagdaragdag ng Koneksyon na sarado sa txtLogdouble mag-click sa cmdSend at mga typeckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & "[" & txtName. text & "]" & txtSend.text & vbcrlftxtSend.text = "" mali ang unang dalawang linya na mayroon ako sa kanila mismo sa editor at binabago ang mga ito kapag nai-save ko kaya tingnan ang larawan para sa tamang linya ng codefirst na nagpapadala ng teksto sa Ang txtSend at ang iyong pangalan sa txtNamesecond line ay nagdaragdag ng mensahe na iyong ipinadala at ang iyong pangalan sa txtLogthird line ay nililimas ang teksto sa txtSend

Hakbang 6: Pag-coding sa Winsock

Ngayon ay oras na upang mai-code ang winsock! kailangan nating sabihin dito kung ano ang gagawin kapag may isang taong sumusubok na kumonekta at kailangan nating sabihin dito kung saan ilalagay ang data na natanggap nito sa dobleng pag-click sa winsock control (sckMain) sa kanang sulok sa itaas ng ang kahon ng code ay dapat sabihin nito: errorclick ang drop down box at piliin ang kahilingan sa koneksyon ngayon dapat gumawa ng isang bagong lugar upang ipasok ang codein doon uri: Kung sckMain.state sckClose thensckMain.closeend ifsckMain.accept requestidtxtLog = txtLog.text & "Nakakonekta sa: "& sckMain. RemoteHostIP & vbcrlffirst at mga pangalawang linya ay suriin kung ang winsock (sckMain) ay sarado at kung hindi pagkatapos ay isasara nito ang itthird na linya ay isinasara ang kung sinabi ng linya ng pahayag na sa winsock (sckMain) na tanggapin ang koneksyon ng ika-apat na linya ay nagsasabi sa iyo na nakakonekta ka sa pamamagitan ng pagdaragdag ng isang linya sa txtLognow kailangan nating sabihin sa winsock kung ano ang gagawin sa data na kinukuha nito sa kanang tuktok ng window ng code i-click ang drop down box at piliin ang: DataArrivalnow ipasok ang code na ito: malabo ang Data bilang stringsckMain.getdata Data, vbstring txtLog = txtLog.text & data & vbcrlffirst line ay ginagawang isang string ang sting na kung saan ang data na natanggap ay ilalagay bago ito idagdag sa txtLogsecond line ay makakakuha ng data at inilalagay ito sa data ng string habang nagdaragdag ang isang linya ng vbstringthird ang natanggap na data upang txtMakilala muli kung ito ay nakalilito at mayroon kang mga katanungan mag-post ng puna o mensahe sa akin

Hakbang 7: Paggamit ng Program / Konklusyon

ok ngayon sasabihin ko sa iyo kung paano gamitin ang programa

sa visual basic file ng pag-click pagkatapos ay gumawa ng proyekto. isang pag-click host at sa kabilang pag-click kumonekta at sa isa na na-click mo host dito ay dapat sabihin: Nakakonekta sa: 127.0.0.1 ngayon i-type ang isang pangalan para sa pareho sa kanila at maaari kang magpadala ng mga mensahe sa pagitan ng dalawang ito ay gumagana sa LAN at ito maaaring gumana sa WAN ngunit hindi ako sigurado na mag-iwan ng mga puna na nagpapaalam sa akin kung paano ako o kung mayroon kang mga katanungan o kung gusto mo lang ito kung gusto mo ito o hindi mo gusto ito i-rate ito