როგორ შევქმნათ მარტივი ჩატის პროგრამა Visual Basic– ში Microsoft Winsock Control– ის გამოყენებით: 7 ნაბიჯი

2024 ავტორი: John Day | [email protected]. ბოლოს შეცვლილი: 2024-01-30 10:21

ამ instuctable მე გაჩვენებთ თუ როგორ უნდა გააკეთოთ მარტივი ჩატის პროგრამა ვიზუალურ ძირითადში. მე გავაანალიზებ რას აკეთებს ყველა კოდი, ასე რომ თქვენ ისწავლით მის შექმნისას და ბოლოს მე გაჩვენებთ თუ როგორ გამოიყენოთ იგი.

ნაბიჯი 1: მიმოხილვა

ახალი პროექტი "," ზედა ": 0.44341801385681295," მარცხნივ ": 0.2802690582959641," სიმაღლე ": 0.2632794457274827," სიგანე ": 0.5067264573991032}, {" noteID ":" NJL01ANFG0GJ54J "," ავტორი "," ავტორი "," ტექსტი "," ავტორი ":: "ეს არის რისი არჩევა გსურთ, შემდეგ დააჭირეთ გახსნას", "ზედა": 0.25635103926096997, "მარცხნივ": 0.017937219730941704, "სიმაღლე": 0.22401847575057737, "სიგანე": 0.23542600896860988}] ">

ეს პროგრამა საშუალებას მოგცემთ გაცვალოთ შეტყობინებები ორ ადამიანს შორის იმავე ქსელში. ეს შეიძლება იმუშაოს, თუ თქვენ არ ხართ იმავე ქსელში, მაგრამ მე არ შემიძლია მისი გამოცდა ახლა.

თქვენ უნდა გქონდეთ Microsoft Visual Basic 6.0, ეს არის ის, რასაც მე ვიყენებ. პროგრამირების ძირითადი ცოდნაა რეკომენდირებული დავიწყოთ !!! გახსენით ვიზუალური ძირითადი და შექმენით სტანდარტული EXE

ნაბიჯი 2: მომხმარებლის ინფრენციის შექმნა

ახლა დროა შევქმნათ მომხმარებლის ფორმა

თქვენ უნდა დაამატოთ winSock კონტროლი ინსტრუმენტთა კოლოფში ამის გაკეთება: 1. მარჯვენა ღილაკით სადღაც ინსტრუმენტის ყუთში სადაც არაფერია 2. დააწკაპუნეთ კომპონენტებზე 3. გრძელი სიიდან იპოვეთ Microsoft Winsock Control 6.0 და მონიშნეთ ყუთი მის გვერდით 4. შემდეგ დააწკაპუნეთ მიმართვაზე და დახურეთ დამატება: 5 ტექსტური ყუთი 4 ბრძანების ღილაკი 1 winockock კონტროლი დაალაგეთ ისინი ისე როგორც მეორე სურათს ქვემოთ

ნაბიჯი 3: სახელის გადარქმევა და სხვა საკუთრების ცვლილებები

ჩვენ ახლა შევცვლით წარწერებს (რაც წერია ბრძანების ღილაკებში) 1. დააჭირეთ ბრძანებას 12. შეხედეთ თვისებებს თვისებების მარჯვენა მხარეს და იპოვეთ წარწერა 3. შეცვალეთ იგი Hostdo იგივე დანარჩენებისთვის, მაგრამ გააკეთეთ ისინი: command2 = Connectcommand3 = Closecommand4 = Sendnow ჩვენ ვაპირებთ შევცვალოთ ის, რასაც ამბობს ტექსტური ყუთები 1. დააწკაპუნეთ ტექსტის ყუთზე, სადაც ნათქვამია text12. გადადით თვისებების ფანჯარაში და იპოვეთ Text თვისება 3. გახადე ცარიელი 4. იგივე გააკეთე იმათთვის, ვინც ამბობს Text25. ახლა დააწკაპუნეთ text3 და შეცვალეთ ტექსტის თვისება 127.0.0.16. ახლა დააწკაპუნეთ ტექსტზე 4 და შეცვალეთ ტექსტის თვისება 12347. ახლა დააწკაპუნეთ ტექსტზე 5 და შეცვალეთ ტექსტის თვისება სახელზე 127.0.0.1 არის თქვენი ადგილობრივი ip, ასე რომ თქვენ შეგიძლიათ შეამოწმოთ პროგრამა თქვენს კომპიუტერზე, როდესაც ის შესრულებულია 1234 არის პორტი, შეგიძლიათ გააკეთოთ ის რაც თქვენ მინდა, მაგრამ ახლავე დავტოვო 1234

ნაბიჯი 4: ღილაკების და ტექსტური ყუთების სახელების შეცვლა

ჩვენ გვჭირდება სახელის გადარქმევა ბრძანების ღილაკებისა და ტექსტური ყუთებისათვის, რათა უფრო ადვილი იყოს მათი კოდირება

1. დააწკაპუნეთ ტექსტზე 1 და გადადით თვისებებზე და დააწკაპუნეთ სახელზე და შეცვალეთ txt ლოგი მე ეს ავირჩიე რადგან ეს არის შეტყობინებების ჟურნალი, რომელსაც თქვენ უგზავნით და იღებთ 2. იგივე გააკეთეთ დანარჩენებისთვის, მაგრამ გააკეთეთ სახელები: შეცვალეთ Text2 to txt გაგზავნეთ ცვლილება Text3 to txtIP შეცვლა Text4 to txt პორტის შეცვლა Text5 to txt სახელის შეცვლა Command1 cmd ჰოსტის შეცვლა Command2 cmd შეაერთეთ ცვლილება Command3 cmd დახურეთ ცვლილება ბრძანება 4 cmd გაგზავნეთ ცვლილება Winsock1 to sck მთავარი ახლა არის კიდევ ერთი რამ რაც თქვენ უნდა შეცვალოთ დააწკაპუნეთ txtLog და თვისებების ფანჯარაში MultiLine და გახადეთ ეს ჭეშმარიტი, ამ ნაბიჯმა შეიძლება გამოიწვიოს დაბნეულობა, თუ თქვენ გაქვთ რაიმე შეკითხვა, გამოაქვეყნეთ კომენტარი ან მომწერეთ

ნაბიჯი 5: ბრძანების ღილაკების კოდირება

ახლა დროა დავწეროთ კოდი ბრძანების ღილაკების დასაწყებად პირველი cmdHost1– ით. ორჯერ დააწკაპუნეთ, ეს გამოჩნდება კოდის ფანჯარაში 2. ეს უნდა გამოიყურებოდეს როგორც პირადი ქვე cmdHost_Click () ბოლო ქვე 3. შეიყვანეთ ეს codesckMain. LocalPort = txtPort.textsckMain.list იცოდეთ რას ნიშნავს ეს? პირველი ხაზი ხდის winocksocks ადგილობრივ პორტს ტოლს ტექსტში (txtPort) დახურეთ და ორჯერ დააწკაპუნეთ cmdConnectent this codesckMain. RemoteHost = txtIP.textsckMain. RemotePort = txtPort.textsckMain. პირველი ორი ხაზის დაკავშირება შეცვალეთ RemoteHost და winotsock (sckMain) RemotePort ip და პორტში, რომელიც ჩვენ გვინდა sckMain. Con რომ დაუკავშირდეთ ვინმეს, რომელიც უსმენს ამ პორტს და ipnow მჭიდროდ ორჯერ დააწკაპუნეთ cmdClose და typesckMain.closetxtLog = txtLog.text & "კავშირი დაიხურა!" & vbCrlfthe sckMain.close ეუბნება ვინსოკს გათიშვა მეორე ხაზი დასძენს კავშირს txtLogdouble დააწკაპუნეთ cmdSend და typesckMain.senddata "[" & txtName.text & "]" & txtSend.texttxtLog = txtLog.text & "[" & txtName ტექსტი & "]" & txtSend.text & vbcrlftxtSend.text = "" პირველი ორი სტრიქონი არასწორია, მე მაქვს ისინი რედაქტორში და ის ცვლის მათ შენახვისას, ასე რომ შეხედეთ სურათს სწორი კოდი პირველი სტრიქონი აგზავნის ტექსტს txt გაგზავნეთ და თქვენი სახელი txtNameesecond line ამატებს თქვენს მიერ გამოგზავნილ შეტყობინებას და თქვენი სახელი txt ლოგის მესამე ხაზი ასუფთავებს ტექსტს txtSend

ნაბიჯი 6: Winsock– ის კოდირება

ახლა დროა winockock- ის კოდირება! ჩვენ უნდა ვუთხრათ რა უნდა გააკეთოს, როდესაც ვინმე ცდილობს დაკავშირებას და ჩვენ უნდა ვუთხრათ მას, თუ სად უნდა განათავსოს ის მონაცემები კოდის ყუთში უნდა იყოს ნათქვამი: შეცდომა დააწკაპუნეთ ჩამოსაშლელ ყუთზე და აირჩიეთ კავშირის მოთხოვნა ახლა მას უნდა ჰქონოდა ახალი ადგილი კოდის ჩასაწერად იქ ჩაწერეთ: if sckMain.state sckClose thensckMain.closeend ifsckMain.accept requestidtxtLog = txtLog.text & "დაკავშირებულია: "& sckMain. RemoteHostIP & vbcrlff პირველი და მეორე სტრიქონები შეამოწმეთ თუ არა winock (sckMain) დახურულია და თუ არა, მაშინ ის იხურება მესამე ხაზი იხურება იმ შემთხვევაში, თუ მეექვსე ხაზი ეუბნება winnerock (sckMain) მიიღოს კავშირები მეხუთე ხაზი გეუბნებათ რომ თქვენ ხართ დაკავშირებული ხაზის დამატებით txtLognow ჩვენ უნდა ვუთხრათ ვინსოკს რა უნდა გააკეთოს იმ მონაცემებთან, რომელსაც იღებს იგი კოდის ფანჯრის ზედა მარჯვენა კუთხეში დააწკაპუნეთ ჩამოსაშლელ ყუთზე და აირჩიეთ: DataArrivalnow შეიყვანეთ ეს კოდი: dim მონაცემები as stringsckMain.getdata Data, vbstring txtLog = txtLog.text & data & vbcrlffirst ხაზი მონაცემებს ხდის სტრიქონს, სადაც მიღებული მონაცემები იქნება ჩასმული სანამ txt დაემატება txtLognow– ში მიღებული მონაცემები კიდევ ერთხელ თუ დამაბნეველია და გაქვთ შეკითხვები გამოაქვეყნეთ კომენტარი ან მომწერეთ

ნაბიჯი 7: პროგრამის/დასკვნის გამოყენება

კარგი, ახლა მე გეტყვით, თუ როგორ გამოიყენოთ პროგრამა

ვიზუალურ ძირითად დაწკაპუნების ფაილში, შემდეგ გააკეთეთ project1.exe შეინახეთ იგი თქვენს სამუშაო მაგიდაზე, თუ რაიმე შეცდომაა დატოვეთ კომენტარი და მე შევეცდები დაგეხმაროთ ახლავე იქ, სადაც პროგრამა გააკეთეთ და ორჯერ დააწკაპუნეთ მასზე და ორი პროგრამა უნდა გამოჩნდეს ერთი დაწკაპუნების მასპინძელი, მეორეზე დააწკაპუნეთ დაკავშირება და მასზე, რომელზეც დააწკაპუნეთ მასპინძელზე, უნდა იყოს ნათქვამი: დაკავშირებულია: 127.0.0.1 – თან, ახლა ჩაწერეთ სახელი ორივე მათგანისთვის და შეგიძლიათ გაგზავნოთ შეტყობინებები ორს შორის, ის მუშაობს LAN– ზე და შეიძლება WAN– ზე იმუშაოს, მაგრამ დარწმუნებული არ ვარ, დატოვეთ კომენტარები, რომ გამაგებინოთ როგორ მოვიქეცი, თუ გაქვთ შეკითხვები, ან უბრალოდ გგონიათ მოგეწონათ თუ არ მოგეწონათ შეაფასეთ