VBA Winsock API - keine UDP Antworten

[Curby (Gast)]

Hallo alle,

ich verwende Access 2013, VBA, WInsock API.

Ich bastel grade ein Client - Server Suchprogramm. D.h. ich schicke 
einen UDP Broadcast und schaue, woher ich entsprechende Antworten 
bekomme.

Über Wireshark konnte ich ermitteln, dass meine UDP Nachricht vom Client 
an den Broadcast geschickt wird und mein Server auch tatsächlich die 
erwartete Textantwort sendet.

Jedoch erziele ich mit recvfrom keine Antworten. Ich habe den Socket an 
Adresse 0 gebunden, also INADDR_ANY.

Ich verbinde den Socket auf Port 10102 mit der Adresse 255.255.255.255 
und binde ihn auf 0, Port 10102.

WSA Initialisieren

    res = WSAStartup(&H202, WSA)
    If res = -1 Then
        MsgBox "Ein Fehler ist aufgetreten: " & WSAGetLastError, vbCritical, "Fehler"
        Exit Function
    End If

Socket erstellen

socketId = socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP)

Broadcast konfigurieren

Dim Broadcast As Long
        Broadcast = 1
        res = setsockopt(socketId, SOL_SOCKET, SO_BROADCAST, Broadcast, 1)

Socket binden

bind_addr.sin_family = AF_INET
        bind_addr.sin_port = htons(10102)
        bind_addr.sin_addr = htonl(0)
        bind_addr.sin_zero = String$(8, 0)
        res = bind(socketId, bind_addr, Len(bind_addr))

Socket verbinden

    I_SocketAddress.sin_family = AF_INET
    I_SocketAddress.sin_port = htons(10102)
    I_SocketAddress.sin_addr = inet_addr("255.255.255.255")
    I_SocketAddress.sin_zero = String$(8, 0)
    x = connect(socketId, I_SocketAddress, Len(I_SocketAddress))

Socket auf nicht-blockieren schalten

ioctlsocket socketId, FIONBIO, 1

Broadcast senden

count_it = send(socketId, ByVal strSend, Len(strSend), 0)

Nachricht empfangebn

Dim GotData As sockaddr_in

        count_it = recvfrom(socketId, ByVal strMessage, Len(strMessage), 0, GotData, Len(GotData))

Socket und WSA schließen

    x = closesocket(socketId)
        If x = SOCKET_ERROR Then
        MsgBox ("ERROR: closesocket = " + Str$(x))
        Exit Sub
    End If
    
    x = WSACleanup()

Ich hoffe wirklich, dass mich mal jemand aufkklären kann :(..

bis denne und vielen dank

[Klaus W. (mfgkw)]

Curby schrieb:
> ... mein Server auch tatsächlich die
> erwartete Textantwort sendet.

an welche IP-Adresse und welchen Port?

[Curby (Gast)]

An die von meinem Clienten. Ich sende an 255.255.255.255:10102 die 
Nachricht und bekomme die antwort an 192.168.178.37:10102 (IP des 
Clienten).

[Curby (Gast)]

Wireshark:

Senden:
"7","2.303202000","192.168.178.37","255.255.255.255","UDP","54","Source 
port: ezproxy-2  Destination port: ezproxy-2"

Antwort:
"10","2.378678000","192.168.178.110","192.168.178.37","UDP","55","Source 
port: ezproxy-2  Destination port: ezproxy-2"

Aber recvfrom hat 0 Bytes an Daten im Puffer.

[Dennis H. (c-logic)]

Dein Non-Block ist vielleicht der Grund ?

http://stackoverflow.com/questions/17064069/recvfrom-error-10035-using-non-blocking-sockets