Lan-chat, Hva trengs til det?

[Jonas]

Heisann

 

Er det noe spesielt som må til for at en vanlig winsock chat skal virke på et nettverk uten internett eller er det bare å koble til en lokal ip?

 

Jonas

[aadnk]

Nei, i grunnen ikke. Du kobler deg ganske enkelt til "lan" IP-addressen som vanlig. Du kan også vurdere om det er like greit å bruke UDP protokollen, spesielt ettersom du da kan broadcaste data til alle brukerene på nettverket. ¨

 

Broadcast IP'en kan være f.eks 255.255.255.255.

[Jonas]

Okidoki, men hva mener du med udp? Hvis jeg bruker udp, vil data bli sendt ut til hele nettverket og den/de som vil kan mota det ved å bruke mitt program? Det hadde vært tøft

[aadnk]

Ja, til alle datamaskiner som hører etter på den relevante porten. Du setter protokollen til UDP slik:

 

Winsock.Protocol = sckUDPProtocol

 

Men du skal alltid være forsiktig når du bruker UDP. Pakker kan forsvinne, og nettverkets datamaskiner blir mer overlastet med broadcasting ettersom alle datamaskiner, selv de som ikke pakken er beregnet på, vil måtte bruke tid og resurser på å analysere den.

[Jonas]

Ok, men så lenge maskinen ikke lytter så vil ikke noe skje?

[aadnk]

Maskinen vil forkaste pakken hvis ingen porter lytter etter den.

[Jonas]

Hvordan setter man opp server med udp da? På tcp lytter man med listen, men udp skal jo ikke lytte, den skal sende! Skal jeg ikke sette opp, men bare sende data? Kan en client som lytter sende data til server også?

[Musty]

er vel mulig å sette opp en irc kanal på et lokalt lan, og det vil i mine øyne være det mest praktiske tror jeg...

[insider]

Er et program som heter lan chat som dere kan bruke.

finner det kansje på www.download.com

[aadnk]

Legg inn to Winsock kontroller, kalt wsServer og wsClient i en Form. Inkluder også en command button kalt cmdSend. Lim så inn denne koden:

 

Private Sub cmdSend_Click()

wsClient.RemoteHost = "127.0.0.1"
wsClient.RemotePort = 110
wsClient.SendData "hello"

End Sub

Private Sub Form_Load()

wsServer.Bind 110

End Sub

Private Sub wsServer_DataArrival(ByVal bytesTotal As Long)

Dim Buff$

wsServer.GetData Buff
MsgBox Buff

End Sub

 

Slik bruker du UDP protokollen med Winsock.

[Thorsen]

Hvis det er et program for chatting på lan uten internett tilgang du er ute etter er BorgChat det perfekte valget, gratis fra http://borgchat.softnews.ro/

[Jonas]

Er aadnk den eneste her som har noe oppi toppen? Poenget er at jeg vil lage et program!

 

Takk aadnk

Endret 17. mai 2004 av Jonas

[ratata]

kan anbefale å lese litt på winsockvb .. står mykje bra om korleis ein bruker winsock