Hur man gör en enkel chatt-program i visual basic med hjälp av Microsoft Winsock Control (6 / 7 steg)
Steg 6: Kodning Winsock
Vi måste säga det vad man ska göra när någon försöker ansluta och vi måste säga det var att sätta data tas emot
OK dubbelklicka på winsock-control(sckMain)
i det övre högra hörnet av rutan bör det stå: fel
Klicka på nedrullningsbara rutan och välj anslutningsbegäran
nu bör det ha gjort en ny plats att ange kod
i typ:
Om sckMain.state <> sckClose sedan
sckMain.close
slut om
sckMain.accept requestid
txtLog = txtLog.text & "ansluten till:" & sckMain.RemoteHostIP & vbcrlf
första och andra linjer kontrollera om winsock(sckMain) är stängd och om det inte då det stänger den
tredje raden stänger om uttalande
fram instruerar raden winsock (sckMain) att acceptera anslutningar
femte raden talar om att du är ansluten genom att lägga till en linje txtLog
nu måste vi tala winsock vad till gör med data det får
i övre högra hörnet av kodfönstret klickar du på nedrullningsbara rutan och välj: DataArrival
nu in denna kod:
Dim Data som sträng
sckMain.getdata Data, vbstring
txtLog = txtLog.text & vbcrlf & data
första raden gör data en sträng sting är där de data som tas emot ska sättas innan den läggs till txtLog
andra raden får data och placerar den i strängdata som en vbstring
tredje raden lägger till de uppgifter som mottagits till txtLog
nu återigen om det är förvirrande och du har frågor post kommentar eller meddelande mig