Tags:    visual-basic

Brug af netværk/Internettet

For at lave multiplayerspil, chatte og andre former for netværks kommunikation, skal du bruge en indbygget kontrol i Windows system. Det du skal bruge er den såkaldte: winsock kontrol.

Du finder den her:




Efterfølgende skal du trykke ”components”.

Nu vil denne skærm dukke op.





Vælg ”Microsoft winsock control”. Tryk ”ok” eller ”anvend”.

Der er nu kommet et nyt objekt i toolboksen - det er winsock kontrollen. Prøv at placere den et tilfældigt sted på formen. Den vil ikke være synlig når programmet køres. Den fungerer ligesom fx en timer.

Klik på den og ændre navnet til ”W”

Gå ind i formens load procedure.

Skriv dette:

Private Sub Form_Load()
    W.Protocol = sckUDPProtocol
    W.RemotePort = 1000
    W.LocalPort = 1000
    W.Bind
End Sub

Linje 1. (W.Protocol = sckUDPProtocol)

I denne linje angives protokollen. Du skal ikke uden videre sætte dig ind i dette, bare vend dig til at skrive det.

Linje 2,3. (W.RemotePort = 1000), W.LocalPort = 1000

Her skriver vi til winsock kontrollen, at den port som den skal ”lytte” og sende til skal være 1000. Her kan du skrive et hvilket som helst tal, næsten. Bare mellem 1000 og 10000.

Den lokale port skal så ligeledes være 1000

Linje 4 (W.Bind)

I denne linje fortæller vi winsock at den skal ”lytte” efter indkommende beskeder. Hvis denne linje glemmes, vil winsock kun kunne sende tekster, ikke modtage.

Start

Vi laver det hele i et program. På denne måde kan kun to chatte sammen!


· Opret en textbox, text1
· I denne box skal de indkommende beskeder dukke op i
· Opret endnu en textbox, text2
· I denne kommer Ip adressen til at stå i
· Opret textbox3, text3
· I denne box kan du skrive beskeder til den anden.
Det hele skal se sådan ud.





Det er meget vigtigt at alle navnene er de samme, ellers vil programmet ikke virke.

Variabler

Kopier denne variabel ind i formens generel procedure:

Public SendTil As String


----Form Load----

Kopier denne kode ind i form_load proceduren.

Private Sub Form_Load()
    W.Protocol = sckUDPProtocol
    W.RemotePort = 1000
    W.LocalPort = 1000
    W.Bind
    
    ' Finder modtagerens ip adresse
    SendTil = InputBox("Skriv den som du vil sende til's ip adresse:", "Ip.")
        
    If SendTil = "" Then: MsgBox "Programmet kan ikke køre uden en remote ip adresse!" &
 vbCrLf & vbCrLf & "Men vent evt. op at den anden skriver til dig, så vil programmet virke!", vbCritical
        
    W.RemoteHost = SendTil
    
    ' Ip adressen
    Text2.Text = W.LocalIP
    
    ' Restart alle kontroller
    Text1.Text = ""
    
    Text3.Text = ""
    
    Command1.Caption = "Send"
End Sub

Sær denne kode ind i Winsock DataArrival:

Private Sub W_DataArrival(ByVal bytesTotal As Long)
SendTil = W.RemoteHost

Dim Tekst As String
W.GetData Tekst

Text1.Text = Tekst
End Sub

og Command1_click

Private Sub Command1_Click()
On Error GoTo fejl2

' Hvis der ikke er skrevet noget
If Text3.Text = "" Then: GoTo fejl

' Hvis alt er normalt
W.SendData Text3.Text

' ikke skrevet noget
Exit Sub:
fejl:

MsgBox "Der er fejl! Du skal skrive noget.", vbCritical

' ingen at sende til
Exit Sub
fejl2:

MsgBox "Der kan ikke sendes data! Der er muligvis ikke angivet en at sende til!", vbCritical

SendTil = InputBox("Skriv evt. den andens ip:")

End Sub

[k]Hvordan køres programmet?[/k]

Du kører programmet ved fx at have to computere koblet sammen. Det er faktisk ofte at selvom man ikke kan få netværket til at virke i Windows, så virker det i denne slags programmer.

Du kan også have to computere på Internettet, det er samme princip.


Programmerne køres sådan.

Du skal på forhånd kende din modtagers ipadresse - skriv derefter ip-adressen i startfeltet. Prøv programmet på dine egen computer(e). Det vil helt sikkert give dig inspiration til chatprogrammer, multiplayerprogrammer o.l.

Held og lykke!

Hvad synes du om denne artikel? Giv din mening til kende ved at stemme via pilene til venstre og/eller lægge en kommentar herunder.

Del også gerne artiklen med dine Facebook venner:  

Karma barometer (30 dage)

IT jobs | Kontakt | Om Udvikleren.dk | Om karma | IT nyheds arkiv | Annoncering

X