Notifikationer

Markér alle som læst Log ud

therichman Nybegynder

12. juli 2003 - 13:21 Der er 1 kommentar og
1 løsning

Netværkschat til Internetchat

Hej Eksperter.
Her er koden til en chat som kører over netværket. Jeg vil godt have lavet følgende ændringer i den:
1. Den skal kører over internettet
2. Man skal kunne chatte med mere end én IP adresse af gangen (Man kunne fx skille IP adresserne i InputBoxen med ; eller lign.

Her er koden:

W.Protocol = sckUDPProtocol
W.RemotePort = 1000
W.LocalPort = 1000
W.Bind

' Finder modtagerens ip adresse
SendTil = InputBox "Skriv den du vil chatte med´s ip addresse:"
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

Synes godt om

therichman Nybegynder

12. juli 2003 - 13:25 #1

Hov! Der manglede vist lidt:

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

Dim Tekst As String
W.GetData Tekst

Text1.Text = Text1 & Tekst
End Sub

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
Text1.Text = Text1 & Text2 & " : " & Text3 & vbCrLf
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

Synes godt om

danq Nybegynder

19. oktober 2003 - 13:41 #2

Det er ikke et særlig stort problem du er i.. Hvis jeg ikke tager meget fejl så virker dit prog også over internettet.. Du skal bare sørge for at have den rigtige ip(brugerne kan se deres internet ip ved fx at gå ind på http://www.myip.dk ) For at få den til at sende til flere på en gang har du 2 muligheder... Du kan lave en server som styrer det hele eller du kan gøre det via client til client stadig.. Jeg vil kun beskrive client til client metoden da det bliver en smule mere indviklet med server metoden.
idéen du selv kom med med at splitte remote ip'er med ; er fin.. hvis brugeren taster 243.62.62.73;62.744.63.75 så skal du blot splitte dem og lægge dem ind i et array.. derefter kan du køre en
For i = Lbound(string_array) to Ubound(string_array)
Sendtil = string_array(i)
W.SendData "beskeden_du_skal_sende"
i = i + 1
Next
Leg lidt med det.. held og lykke...
--Danq

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic	5	29/08/202512:28	04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic	0	05/08/202510:10	-
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic	0	16/05/202512:31	-
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic	1	22/04/202514:55	25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS