Eksempler på winsock

Du kan søge efter Winsock på www.planetsourcecode.com

Bla. noget alá dette : http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=30413&lngWId=1

Prøv at søge på eksperten, der er tonsvis af lignende spørgsmål vedrørende WinSock (WinSucks :-). Der er også flere der har lagt links til demo-projekter ud.
Kik f.eks. på: http://www.eksperten.dk/spm/91999
-Sion

okay HVAD går der galt her????

Dim strData As String

Private Sub Command1_Click()
Winsock1.Connect pc20
MsgBox "Du er nu connected"
End Sub

Private Sub Command2_Click()
Winsock1.Listen
Label1.Visible = True
End Sub

Private Sub Command3_Click()
Winsock1.SendData Text1.Text
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData strData, vbString, 500
Text2.Text = strData
End Sub

Der går meget galt :)

Opret to textboxe, en winsock control og en commandbutton. Kopier nu denne kode ind i generel:


Private Sub Command1_Click()
' Bemærk at det som du skrev i form_load
' proseduren er altafgørende for dette!

' Denne kode her som vi skrev i form_load
' Sagde til winsock1 controllen at den skulle
' Lytte og sende til disse:

' Winsock1.RemoteHost = 1000
' Winsock1.RemoteHost = "10.10.10.10"


' Sender indholdet af text1
Winsock1.SendData Text1.Text
End Sub

Private Sub Form_Load()
' Protocolen
Winsock1.Protocol = sckUDPProtocol

' Porten som du skal sende informationer på/fra
Winsock1.LocalPort = 1000
' Det kan være alt muligt bare skriv et tal mellem fx 1000 og 10000

' Den anden computers port
Winsock1.RemotePort = 1000

' Den anden computers IP
Winsock1.RemoteHost = "10.10.10.10"

' Starter med at lytte
Winsock1.Bind
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
' Modtager tekst

' Bemærk at det som du skrev i form_load
' proseduren er altafgørende for dette!

' Denne kode her som vi skrev i form_load
' Sagde til winsock1 controllen at den skulle
' Lytte og sende til disse:

' Winsock1.RemoteHost = 1000
' Winsock1.RemoteHost = "10.10.10.10"

Dim modtagettekst As String
Winsock1.GetData modtagettekst

Text2.Text = modtagettekst
End Sub


Denne kode sender og modtager data. I text1 skriver du den text som winsock skal sende. Text2 bliver så den modtagede text..

Mvh.
KantoRaZa · NorthCode

okay jeg er rimelig med på det hele.... ^^
dog havde jeg ikke skrevet port og ip nummer da jeg havde defineret dem i winsock objektet.....

men jeg er rimelig usikker på hvad den ".bind" dims er og gør kan jeg ikke få din til at for klare mig den. (jeg fatter virkelig HAT af den forklaring som MSDN gir mig)

Bind er det samme som Listen. Altså skal den begynde at "lytte" efter indkommende beskeder.

Her er en af mine projekter med Winsock. Sådan kan det bruges med Server og Klient:

http://www.friserverplads.dk/northcode/opgaver/chat.zip

NorthCode

okay det sidste eksempel er lige en tand størrer end hvad jeg sidder og leger med så jeg skal liige ha lidt tid til at sætte mig ind i hvordan du har flekket den samme.....

det er ok.