给个WSASend 发包的例子
WSASend(....); 参数太多不懂调用

比如我要给192.168.1.1的10000端口发送一个封包 数据为1234 请问大家该如何写 给我源代码好琢磨

[解决办法]
MSDN的例子

C/C++ code

#include <winsock2.h>#include <ws2tcpip.h>#include <stdio.h>#include <stdlib.h>#define DATA_BUFSIZE 4096#define SEND_COUNT   10void __cdecl main() {    WSADATA wsd;    struct addrinfo *result = NULL,        hints = {0};    WSAOVERLAPPED SendOverlapped = {0};    SOCKET ListenSocket = INVALID_SOCKET,        AcceptSocket = INVALID_SOCKET;    WSABUF DataBuf;    DWORD SendBytes, Flags;    char buffer[DATA_BUFSIZE];    int err, rc, i;    // Load Winsock    rc = WSAStartup(MAKEWORD(2,2), &wsd);    if (rc != 0) {        fprintf(stderr, "Unable to load Winsock: %d\n", rc);        return;    }    // Initialize the hints to obtain the     // wildcard bind address for IPv4    hints.ai_family = AF_INET;    hints.ai_socktype = SOCK_STREAM;    hints.ai_protocol = IPPROTO_TCP;    hints.ai_flags = AI_PASSIVE;    rc = getaddrinfo(NULL, "27015", &hints, &result);    if (rc != 0) {        fprintf(stderr, "getaddrinfo failed: %d\n", rc );        return;    }    ListenSocket = socket(result->ai_family,         result->ai_socktype, result->ai_protocol);    if (ListenSocket == INVALID_SOCKET) {        fprintf(stderr, "socket failed: %d\n",             WSAGetLastError());        freeaddrinfo(result);        return;    }    rc = bind(ListenSocket, result->ai_addr,         (int)result->ai_addrlen);    if (rc == SOCKET_ERROR) {        fprintf(stderr, "bind failed: %d\n",             WSAGetLastError());        freeaddrinfo(result);        closesocket(ListenSocket);        return;    }    rc = listen(ListenSocket, 1);    if (rc == SOCKET_ERROR) {        fprintf(stderr, "listen failed: %d\n",             WSAGetLastError());        freeaddrinfo(result);        closesocket(ListenSocket);        return;    }    // Accept an incoming connection request    AcceptSocket = accept(ListenSocket, NULL, NULL);    if (AcceptSocket == INVALID_SOCKET) {        fprintf(stderr, "accept failed: %d\n",             WSAGetLastError());        freeaddrinfo(result);        closesocket(ListenSocket);        return;    }    printf("Client Accepted...\n");    // Create an event handle and setup an overlapped structure.    SendOverlapped.hEvent = WSACreateEvent();    if (SendOverlapped.hEvent == NULL) {        fprintf(stderr, "WSACreateEvent failed: %d\n",             WSAGetLastError());        freeaddrinfo(result);        closesocket(ListenSocket);        closesocket(AcceptSocket);        return;    }    DataBuf.len = DATA_BUFSIZE;    DataBuf.buf = buffer;    for(i=0; i < SEND_COUNT ;i++) {        rc = WSASend(AcceptSocket, &DataBuf, 1,             &SendBytes, 0, &SendOverlapped, NULL);        if ( (rc == SOCKET_ERROR) &&                 (WSA_IO_PENDING != (err = WSAGetLastError()))) {            fprintf(stderr, "WSASend failed: %d\n", err);            break;        }        rc = WSAWaitForMultipleEvents(1, &SendOverlapped.hEvent, TRUE, INFINITE, TRUE);        if (rc == WSA_WAIT_FAILED) {            fprintf(stderr, "WSAWaitForMultipleEvents failed: %d\n", WSAGetLastError());            break;        }        rc = WSAGetOverlappedResult(AcceptSocket, &SendOverlapped, &SendBytes, FALSE, &Flags);        if (rc == FALSE) {            fprintf(stderr, "WSASend operation failed: %d\n", WSAGetLastError());            break;        }        printf("Wrote %d bytes\n", SendBytes);        WSAResetEvent(SendOverlapped.hEvent);    }    WSACloseEvent(SendOverlapped.hEvent);    closesocket(AcceptSocket);    closesocket(ListenSocket);    freeaddrinfo(result);    WSACleanup();    return;} 
 
[解决办法]
try:

Delphi(Pascal) code
procedure TForm1.SendCommand(); var k :Integer; str :string; SendBytes : DWORD; errorCode :Integer; PerIoData :LPPER_IO_OPERATION_DATA; lphEvents :LPWSAEVENT; dwFlags :DWORD; begin str := Trim(edtCommand.Text) + chr($D); dwFlags := 0; New(PerIoData); ZeroMemory(@(PerIoData.Overlapped), sizeof(OVERLAPPED)); ZeroMemory(@(PerIoData.Buffer), DATA_BUFSIZE+1); for k:= 1 to Length(str) do PerIoData.Buffer[k-1] := str[k]; PerIoData.DataBuf.buf := @PerIoData.Buffer; PerIoData.DataBuf.len := length(str); PerIoData.Overlapped.hEvent := WSACreateEvent(); if (WSASend(m_socket, @(PerIoData.DataBuf), 1, @SendBytes, dwFlags, @(PerIoData.Overlapped), nil) = SOCKET_ERROR) then begin if (WSAGetLastError() <> ERROR_IO_PENDING) then Memo1.Lines.Add('WSASend() failed'); end; lphEvents := @PerIoData.Overlapped.hEvent; if WSAWaitForMultipleEvents(1, lphEvents, True, WSA_INFINITE, False)= WSA_WAIT_EVENT_0 then begin self.Memo1.Lines.Add('WSASend() success'); .....开始调用WSARecv接收命令的返回值..... end else Memo1.Lines.Add('WSASend() failed'); end;
[解决办法]
看：

http://topic.csdn.net/t/20021128/19/1214199.html