Cara Membuat Program Sembang Mudah dalam Visual Basic Menggunakan Microsoft Winsock Control: 7 Langkah

2024 Pengarang: John Day | [email protected]. Diubah suai terakhir: 2024-01-30 11:13

Dalam instabilable ini saya akan menunjukkan kepada anda bagaimana membuat program sembang ringkas dalam visual visual. saya akan membahas apa yang dilakukan oleh semua kod tersebut sehingga anda akan belajar semasa anda membuatnya, dan pada akhirnya saya akan menunjukkan cara menggunakannya.

Langkah 1: Gambaran keseluruhan

Projek Baru "," atas ": 0.44341801385681295," kiri ": 0.2802690582959641," tinggi ": 0.2632794457274827," lebar ": 0.5067264573991032}, {" noteID ":" NJL01ANFG0GJ54J "," pengarang ":" twenglish1 "," text ": "ini yang anda mahu pilih kemudian klik terbuka", "atas": 0.25635103926096997, "kiri": 0.017937219730941704, "tinggi": 0.22401847575057737, "lebar": 0.23542600896860988}] ">

Program ini akan membolehkan anda bertukar-tukar mesej antara dua orang di rangkaian yang sama. Mungkin berfungsi jika anda tidak berada di rangkaian yang sama tetapi saya tidak dapat mengujinya sekarang.

Anda harus mempunyai Microsoft Visual Basic 6.0, itulah yang saya gunakan. Pengetahuan pengaturcaraan asas disyorkan Mari kita mulakan !!! buka asas visual dan buat EXE Standard

Langkah 2: Membuat Infrence Pengguna

Kini tiba masanya untuk membuat borang pengguna

anda perlu menambahkan kawalan winsock ke kotak alat lakukan ini dengan: 1. klik kanan di suatu tempat di kotak alat di mana tidak ada apa-apa 2. klik Komponen 3. dalam senarai panjang cari Microsoft Winsock Control 6.0 dan tandakan kotak di sebelahnya 4 kemudian klik terapkan kemudian tutup Tambah: 5 kotak teks 4 butang arahan 1 kawalan winsock mengaturnya agar kelihatan seperti gambar kedua di bawah

Langkah 3: Menamakan Semula dan Perubahan Harta Lain

kita sekarang akan menukar kapsyen (apa yang tertulis di butang arahan) 1. klik arahan12. lihat di sebelah kanan sifat dan cari Caption3. ubah ke Hostdo sama untuk yang lain tetapi buat mereka: command2 = Connectcommand3 = Closecommand4 = Sendnow kita akan mengubah apa yang dikatakan kotak teks1. klik pada kotak teks yang mengatakan teks12. pergi ke tetingkap sifat dan cari harta teks3. buat kosong4. lakukan perkara yang sama untuk yang mengatakan Text25. sekarang klik teks3 dan ubah harta teks menjadi 127.0.0.16. sekarang klik teks4 dan ubah harta teks menjadi 12347. sekarang klik teks5 dan ubah harta teks menjadi Name127.0.0.1 adalah ip tempatan anda sehingga anda dapat menguji program di komputer anda apabila selesai1234 adalah port yang anda boleh membuatnya apa sahaja yang anda mahu tetapi biarkan 1234 buat masa ini

Langkah 4: Menukar Nama Butang dan Kotak Teks

kita perlu menamakan semula butang perintah dan kotak teks agar lebih mudah untuk dikodkan

1. klik Text1 dan pergi ke sifat dan klik pada nama dan ubah menjadi txtLog saya memilihnya kerana ia adalah log mesej yang anda hantar dan terima 2. lakukan perkara yang sama untuk yang lain tetapi buat nama: ubah Text2 ke txtHantar perubahan Teks3 ke txtIP ubah Teks4 ke txtPort ubah Teks5 ke txtName ubah Command1 to cmdHost change Command2 to cmdConnect change Command3 to cmdClose change Command 4 to cmdKirim perubahan Winsock1 ke sckMain sekarang ada satu lagi perkara yang anda perlukan untuk menukar klik txtLog dan di tetingkap hartanah cari MultiLine dan memperbaikinya langkah ini boleh menimbulkan kekeliruan jika anda mempunyai pertanyaan menghantar komen atau menghantar mesej kepada saya

Langkah 5: Mengekodkan Butang Perintah

sekarang saatnya untuk menulis kod untuk butang arahan bermula dengan yang pertama cmdHost1. klik dua kali, ini akan memunculkan kod tetingkap2. ia akan kelihatan seperti iniPrivate Sub cmdHost_Click () End Sub3. masukkan kod ini tutup itu dan klik dua kali pada cmdConnectenter kod inickMain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain. Sambungkan dua baris pertama menukar RemoteHost dan RemotePort winsock (sckMain) ke ip dan port yang kita mahukan sckMain. Connect. untuk berhubung dengan seseorang yang mendengar di port itu dan ipnow untuk klik dua kali dekat pada cmdClose dan typesckMain.closetxtLog = txtLog.text & "Sambungan ditutup!" & vbCrlfthe sckMain.close memberitahu winsock untuk memutuskan sambungan baris kedua menambah Sambungan ditutup ke txtLogdouble klik pada cmdSend dan typesckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & "[" & txtName teks & "]" & txtSend.text & vbcrlftxtSend.text = "" dua baris pertama salah, saya mempunyai betul di editor dan ia mengubahnya ketika saya menyimpan jadi lihat gambar untuk baris pertama codefirst yang tepat menghantar teks dalam txtSend dan nama anda di baris txtNamesecond menambah mesej yang anda hantar dan nama anda ke txtLogthird baris membersihkan teks di txtSend

Langkah 6: Pengekodan Winsock

sekarang saatnya untuk membuat kod winsock! kita perlu memberitahu apa yang harus dilakukan apabila seseorang cuba menyambung dan kita perlu memberitahu di mana untuk meletakkan data yang diterimanya, klik dua kali pada kawalan winsock (sckMain) di sudut kanan atas kotak kod yang seharusnya dinyatakan: ralat klik kotak lungsur dan pilih permintaan sambungan sekarang ia semestinya telah membuat tempat baru untuk memasukkan kodin di sana ketik: Jika sckMain.state sckClose thensckMain.closeend ifsckMain.accept requestidtxtLog = txtLog.text & "Disambungkan ke: "& sckMain. RemoteHostIP & vbcrlffirst and second lines memeriksa apakah winsock (sckMain) ditutup dan jika tidak maka ia menutup maka garis ketiga menutup jika garis pernyataan if memberitahu winsock (sckMain) untuk menerima sambungan baris kelima memberitahu bahawa anda terhubung dengan menambahkan baris ke txtLognow kita perlu memberitahu winsock apa yang harus dilakukan dengan data yang diperolehnya di sebelah kanan atas tetingkap kod klik kotak lungsur turun dan pilih: DataArrivalnow masukkan kod ini: redup Data as stringsckMain.getdata Data, vbstring txtLog = txtLog.text & data & baris vbcrlffirst menjadikan data sebagai rentetan yang menjadi titik di mana data yang diterima akan dimasukkan sebelum ditambahkan ke baris txtLogsecond mendapatkan data dan meletakkannya dalam data rentetan sebagai garis vbstringthird menambah data yang diterima untuk txtLognow sekali lagi jika ia membingungkan dan anda mempunyai soalan menghantar komen atau mesej saya

Langkah 7: Menggunakan Program / Kesimpulan

ok sekarang saya akan memberitahu anda bagaimana menggunakan program ini

dalam fail klik asas visual kemudian buat project1.exe simpan ke desktop anda jika ada kesilapan tinggalkan komen dan saya akan cuba membantu anda sekarang ke tempat anda membuat program dan klik dua kali dua kali dan dua program akan muncul satu klik hos dan pada satu lagi klik sambung dan pada satu yang anda klik hos di atasnya hendaklah mengatakan: Bersambung ke: 127.0.0.1 sekarang taipkan nama untuk mereka berdua dan anda boleh menghantar mesej antara kedua-dua ia berfungsi di LAN dan ia mungkin berfungsi di WAN tetapi saya tidak pasti tinggalkan komen yang memberitahu saya bagaimana saya melakukannya atau jika anda mempunyai soalan atau jika anda hanya merasakan jika anda menyukainya atau tidak menyukainya, beri penilaian