TCP communicatie, send bytes

[TheJjokerR]

Hey allemaal,

Ik heb een vraagje, ik ben een 2d mmorpg aan het maken en ik zoek eigenlijk een manier om zoiets te doen:

Module modClientTCP

    Sub TcpInit()
        'Initialize the Tcp connection with the Server IP and Port(All given)
    End Sub

    Sub SendData(ByVal data As String)
        'More **** here
        'This would be called like this:
        'Call SendData("x=10;y=11")
        frmGame.Socket.SendData(data)
    End Sub
End Module

Of iniedergeval een manier om een string naar de gegeven port en server ip te sturen.

Ik heb al gegoogled maar kom met niet werkende scripts uit.

Alvast Bedankt.

 

[That Guy]

vb6?

Nou, met het winsocket control kom je een heel eind. Zoiets:

[COLOR="SeaGreen"]'in je form: 1 socket genaamd 'sock'[/COLOR]


With sock
   .RemoteHostIP = "192.168.1.33" [COLOR="SeaGreen"]'verander naar server ip[/COLOR]
   .RemotePort = "1337" [COLOR="SeaGreen"]'verander naar server port[/COLOR]

End With


Do
   sock.Connect [COLOR="SeaGreen"]'connect[/COLOR]
   DoEvents[COLOR="SeaGreen"] 'inderdaad[/COLOR]
While sock.State <> sckConnected


sock.SendData "Hallo daar" [COLOR="SeaGreen"]'send je geval[/COLOR]

 

[TheJjokerR]

Ogh, sorry sorry sorry, ik wist hoe het moest in vb6 ;P Ik heb ook al een spel in vb6, ik bedoel VS 2008, sorry voor het ongemak...

 

[TheJjokerR]

Wups sorry, ik heb het al gevonden, voor iedereen die het wil weten:
http://www.ostrosoft.com/oswinsck/oswinsck_vbnet.asp

Er is dus een winsock ook voor VB.NET..

 

[That Guy]

lekker handig weer en ik maar code schrijven...