Hur man gör en enkel chatt-program i visual basic med hjälp av Microsoft Winsock Control (5 / 7 steg)
Steg 5: Kodning kommandoknapparna
kan börja med den första cmdHost
1. Dubbelklicka på den, detta kommer att ta upp i kod-fönstret
2. det bör se ut så här
Private Sub cmdHost_Click()
End Sub
3. Skriv in denna kod
sckMain.LocalPort = txtPort.text
sckMain.listen
nu vad betyder det??
den första raden gör en winsocks lokal hamn vara lika med antalet i textrutan (txtPort)
den andra raden berättar winsock att lyssna på så pass hamn för någon som försöker ansluta
Stäng som nu och dubbelklicka på cmdConnect
Skriv in denna kod
sckMain.RemoteHost = txtIP.text
sckMain.RemotePort = txtPort.text
sckMain.Connect
de två första raderna ändra RemoteHost och Fjärrport för winsock (sckMain) till ip och port vi vill
sckMain.Connect berättar den för att ansluta till någon lyssnar den porten och IP-
nu för knappen Stäng
dubbel klick på cmdClose och typ
sckMain.close
txtLog = txtLog.text & "Anslutning stängt!" & vbCrlf
sckMain.close berättar winsock att koppla bort
den andra raden lägger stängs anslutningen till txtLog
dubbel klick på cmdSend och typ
sckMain.senddata "[" & txtName.text & "]" & txtSend.text
txtLog = txtLog.text & "[" & txtName.text & "]" & txtSend.text & vbcrlf
txtSend.text = ""
de två första raderna är fel jag har dem rätt i redigeraren och den ändras dem när jag sparar så titta på bilden för att rätt kod
första raden skickar texten i txtSend och ditt namn i txtName
andra raden lägger meddelandet du och ditt namn till txtLog
tredje raden rensar texten i txtSend