نحوه ایجاد یک برنامه چت ساده در ویژوال بیسیک با استفاده از Microsoft Winsock Control: 7 مرحله

2024 نویسنده: John Day | [email protected]. آخرین اصلاح شده: 2024-01-30 08:58

در این دستورالعمل به شما نشان خواهم داد که چگونه می توانید یک برنامه چت ساده را به صورت ویژوال بیسیک بسازید. من در مورد آنچه همه کد انجام می دهد صحبت خواهم کرد تا در حین ایجاد آن یاد بگیرید ، و در پایان نحوه استفاده از آن را به شما نشان خواهم داد.

مرحله 1: مرور کلی

پروژه جدید "،" بالا ": 0.44341801385681295 ،" سمت چپ ": 0.2802690582959641 ،" ارتفاع ": 0.2632794457274827 ،" عرض ": 0.5067264573991032} ، {" noteID ":" NJL01ANFG0GJ54J "،" نویسنده "،" نوشتار "،" نویسنده "،" نویسنده ":": "این چیزی است که می خواهید انتخاب کنید سپس باز کنید" ، "بالا": 0.25635103926096997 ، "چپ": 0.017937219730941704 ، "ارتفاع": 0.22401847575057737 ، "عرض": 0.23542600896860988}] ">

این برنامه به شما امکان می دهد بین دو نفر در یک شبکه خود پیام ارسال کنید. اگر در یک شبکه نیستید ممکن است کار کند اما من نمی توانم آن را در حال حاضر آزمایش کنم.

شما باید Microsoft Visual Basic 6.0 را داشته باشید ، این همان چیزی است که من از آن استفاده می کنم. دانش اولیه برنامه نویسی توصیه می شود بیایید شروع کنیم !!! Visual Basic را باز کرده و استاندارد EXE را ایجاد کنید

مرحله 2: ایجاد User Infence

اکنون زمان ایجاد فرم کاربر است

شما باید کنترل winSock را به جعبه ابزار اضافه کنید. این کار را با این موارد انجام دهید: 1. در جایی در جعبه ابزار راست کلیک کنید که هیچ چیز در آن وجود ندارد 2. روی Components کلیک کنید 3. در لیست طولانی Microsoft Winsock Control 6.0 را پیدا کرده و کادر کنار آن را علامت بزنید 4 سپس روی اعمال کلیک کنید و سپس افزودن را ببندید: افزودن: 5 جعبه متن 4 دکمه فرمان 1 کنترل winock ترتیب آنها را شبیه تصویر دوم زیر کنید

مرحله 3: تغییر نام و سایر تغییرات در املاک

ما در حال حاضر قصد داریم زیرنویس ها را تغییر دهیم (آنچه در دکمه های فرمان آمده است) 1. فرمان 12 را کلیک کنید سمت راست را در ویژگی ها جستجو کرده و Caption3 را بیابید. بقیه را به Hostdo یکسان تغییر دهید اما آنها را بسازید: روی کادر متنی که می گوید text12 کلیک کنید. به پنجره Properties بروید و ویژگی Text3 را پیدا کنید. خالی کنید 4. همین کار را برای موردی که Text25 می گوید انجام دهید. اکنون روی text3 کلیک کنید و ویژگی متن را به 127.0.0.16 تغییر دهید. اکنون روی text4 کلیک کنید و ویژگی text را به 12347 تغییر دهید. اکنون روی text5 کلیک کنید و ویژگی text را به Name تغییر دهید. Name127.0.0.1 IP محلی شماست ، بنابراین می توانید برنامه را روی رایانه خود تست کنید. می خواهم اما فعلاً آن را 1234 بگذارید

مرحله 4: تغییر نام دکمه ها و جعبه های متن

ما باید کد دکمه های فرمان و جعبه های متن را تغییر نام دهیم تا کدگذاری آنها آسان تر شود

1. روی Text1 کلیک کنید و به خواص بروید و روی نام کلیک کنید و آن را به txt تغییر دهید. Log من این را انتخاب کردم زیرا گزارش پیامهایی است که ارسال و دریافت می کنید. برای بقیه نیز همین کار را انجام دهید اما نام ها را تغییر دهید: Text3 به txtIP تغییر Text4 به txtPort تغییر Text5 به txt نام تغییر Command1 به cmd تغییر تغییرات Command2 به cmd اتصال تغییر Command3 به cmd بستن تغییر دستور 4 به cmd ارسال تغییرات Winsock1 به sck اصلی در حال حاضر یک چیز دیگر وجود دارد که باید برای تغییر آن کلیک کنید MultiLine و آن را صادق کنید این مرحله در صورت داشتن هرگونه سوال می توانید باعث ایجاد سردرگمی شوید یا برای من پیام ارسال کنید

مرحله 5: کدگذاری دکمه های فرمان

اکنون زمان آن فرا رسیده است که کد را برای دکمه های فرمان با اولین cmdHost1 شروع کنید. روی آن دوبار کلیک کنید ، کد پنجره 2 ظاهر می شود. این باید شبیه زیر باشد Private Private cmdHost_Click () End Sub3. این کد را وارد کنید آن را ببندید و روی cmdConnectenter این codesckMain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain دوبار کلیک کنید. دو خط اول را RemoteHost و RemotePort از winsock (sckMain) را به ip و پورت مورد نظر خود به sckMain. Connect تغییر دهید. برای اتصال به فردی که در آن پورت گوش می دهد و ipnow برای دوبار نزدیک روی cmdClose و typesckMain.closetxtLog = txtLog.text & "اتصال بسته شد!" & vbCrlfthe sckMain.close به winsock می گوید که خط دوم را قطع کنید و اتصال را بسته به txt اضافه می کند. دوبار روی cmdSend و typesckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & "[" & txtName کلیک کنید. text & "]" & txtSend.text & vbcrlftxtSend.text = "" دو خط اول اشتباه است ، من آنها را درست در ویرایشگر دارم و وقتی آنها را ذخیره می کنم آنها را تغییر می دهد ، بنابراین به تصویر کد مناسب نگاه کنید ، خط اول متن را برای شما ارسال می کند txtSend و نام شما در txt خط نام دوم پیامی را که ارسال کرده اید و نام شما را به txt اضافه می کند خط سوم متن را در txt پاک می کند

مرحله 6: کدگذاری Winsock

اکنون زمان کد نویسی است جعبه کد باید اینگونه نوشته شود: "& sckMain. RemoteHostIP & vbcrlffirst و خطوط دوم بررسی می کنند که winsock (sckMain) بسته شده است و اگر اینطور نیست ، خط سوم بسته می شود خط سوم if if می گوید: با افزودن یک خط به txtLognow ما باید به winsock بگوییم که با داده هایی که دریافت می کند در بالا سمت راست پنجره کد ، روی کادر کشویی کلیک کنید و انتخاب کنید: DataArrivalnow این کد را وارد کنید: dim Data as stringsckMain.getdata Data، vbstring txtLog = txtLog.text & data & vbcrlffirst خط داده ها را به رشته ای تبدیل می کند که sting جایی است که داده های دریافتی قبل از اضافه شدن به txt قرار داده می شوند اگر گیج کننده بود و سوالی داشتید ، داده های دریافتی دوباره به txtLognow دریافت کنید یا برای من پیام ارسال کنید

مرحله 7: استفاده از برنامه/نتیجه گیری

خوب حالا می خواهم نحوه استفاده از برنامه را به شما بگویم

در فایل کلیک بصری و سپس project1.exe را در صورت وجود خطا در دسکتاپ خود ذخیره کنید و نظر خود را بنویسید و من سعی می کنم به شما کمک کنم تا به جایی که برنامه را ساخته اید بروید و دوبار روی آن دوبار کلیک کنید و دو برنامه باید ظاهر شود میزبان یک کلیک و روی دیگر کلیک کنید اتصال و روی میزنمی که روی میزبان کلیک کرده اید باید گفته شود: متصل به: 127.0.0.1 حالا نام هر دو را وارد کنید و می توانید بین دو پیام در LAN و آن پیام ارسال کنید ممکن است روی WAN کار کند ، اما مطمئن نیستم که نظرات خود را در مورد نحوه عملکرد من یا اگر سوالی دارید یا اگر دوست دارید یا دوست دارید یا دوست ندارید به آن امتیاز دهید