VBA Winsock API - keine UDP Antworten

Curby Gast 17.09.2014 11:28 #3806592

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

1	`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

1	`ioctlsocket socketId, FIONBIO, 1`


Broadcast senden

1	`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

Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Langsamer Modus Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Melden Danke

Klaus W. (mfgkw) 17.09.2014 13:41 #3806822

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

an welche IP-Adresse und welchen Port?

Antwort Zitieren Bearbeiten Löschen Melden Danke

Curby Gast 17.09.2014 14:00 #3806873

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).

Antwort Zitieren Bearbeiten Löschen Melden Danke

Curby Gast 17.09.2014 14:16 #3806907

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.

Antwort Zitieren Bearbeiten Löschen Melden Danke

Dennis H. (c-logic) 20.09.2014 10:20 #3810625

Dein Non-Block ist vielleicht der Grund ?

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

Antwort Zitieren Bearbeiten Löschen Melden Danke

VBA Winsock API - keine UDP Antworten

Antwort schreiben