Blok ip op udp poort (vb6)

[anoniem]

Hallo Ik moet voor school een opdracht maken met vb6 dat is Blok de alleen de opgegven ip op de udp poort Weet iemand een site waar een mooi voorbeeld staat ? Bedankt

[anoniem]

Wat dacht je van Google? Volgens mij is de bedoeling van de opdracht dat jij dat helemaal zelf uit gaat vogelen! Succes, en go for it! :wink:

[anoniem]

Google ben ik al geweest maar er is niets te vinden van udp alleen maar tcp

[anoniem]

Probeer dat voorbeeld dan eens aan te passen tot UDP... plak die voorbeelden hier maar eens dus ;)

[anoniem]

Het is een schoolopdracht. Maak deze dan ook zelf. Misschien leer je dan nog eens wat. VisualBasic is toch niet al te moeilijk :roll:.

[anoniem]

ik ben er bijna maar er klopt iets niet in deze code. de remote ip wordt niet of niet goed weer gegeven hoe krijg ik hem dat hij wel goed de remote udp/ip weer geeft de host ip wordt wel goed weer gegeven alleen de remote niet [code:1:094686683c] Option Explicit Declare Function GetUdpTable Lib "IPhlpAPI" (pUdpTable As MIB_UDPTABLE, pdwSize As Long, bOrder As Long) As Long Public Declare Function SetUdpEntry Lib "IPhlpAPI" (pUdpRow As MIB_UDPROW) As Long 'This is used to close an open port. Type MIB_UDPROW dwState As Long dwLocalAddr As String * 4 'address on local computer dwLocalPort As String * 4 'port number on local computer dwRemoteAddr As String * 4 'address on remote computer dwRemotePort As String * 4 'port number on remote computer End Type Type MIB_UDPTABLE dwNumEntries As Long 'number of entries in the table table(100) As MIB_UDPROW 'table of MIB_UDPROW structs End Type 'Public IP_States(13) As String Private Last_Udp_Cnt As Integer 'UDP connection count Function IPconvert(sIP) As String Dim X As Integer 'convert the string into an IP For X = 1 To Len(sIP) IPconvert = IPconvert & Asc(Mid(sIP, X, 1)) & "." Next 'remove last '.' IPconvert = Left(IPconvert, Len(IPconvert) - 1) End Function Function PortConvert(sPort) As String Dim lPort As Long 'Convert string into the port number lPort = Asc(Mid(sPort, 1, 1)) lPort = lPort * 256 lPort = lPort + Asc(Mid(sPort, 2, 1)) PortConvert = lPort End Function [/code:1:094686683c]

[anoniem]

[quote:f713c52c45="Jasper2000"]Hallo Ik moet voor school een opdracht maken met vb6 dat is Blok de alleen de opgegven ip op de udp poort Weet iemand een site waar een mooi voorbeeld staat ?[/quote:f713c52c45] Beetje vage opdracht! 1. Moet je zelf een programma schrijven die luistert op een bepaalde UDP-poort en alle ip-adressen accepteert, behalve dat ene opgegeven IP-adres? 2. Moet je voor alle applicaties die luisteren op UDP-poort x dat ene IP-adres blokkeren? 3. Moet je voor alle applicaties die gebruik maken van UDP dat ene IP-adres blokkeren? 4. ...

[anoniem]

Dit is de opdracht Ik moet een programma schrijven die luistert op een bepaalde UDP-porten (2 stuks) en alle ip-adressen accepteert, behalve dat ene opgegeven IP-adres. ik hoop dat iemand me kan helpen ik kom er gewoon niet uit.

[anoniem]

[quote:ac9c049eb4="Jasper2000"]Dit is de opdracht Ik moet een programma schrijven die luistert op een bepaalde UDP-porten (2 stuks) en alle ip-adressen accepteert, behalve dat ene opgegeven IP-adres. ik hoop dat iemand me kan helpen ik kom er gewoon niet uit.[/quote:ac9c049eb4] even kort door de bocht... 1. Een winsock-control toevoegen aan je form. (wel standaard winsock-component toevoegen aan je programma). 2. Code schrijven die alleen uitgevoerd wordt als de verzende ip-adres niet dat ene opgegeven ip-adres is. Dit kun je vast wel als een property van het control opvragen.