{

    u_short     irdaAddressFamily;

    u_char      irdaDeviceID[4];

    char        irdaServiceName[25];

} SOCKADDR_IRDA, *PSOCKADDR_IRDA, FAR *LPSOCKADDR_IRDA;

SOCKADDR_IRDA Аddress = {AF_IRDA, 0, 0,0,0,"Service_Name"};

typedef struct _WINDOWS_DEVICELIST

{

    ULONG                       numDevice;

    WINDOWS_IRDA_DEVICE_INFO    Device[1];

} WINDOWS_DEVICELIST, *PWINDOWS_DEVICELIST, FAR *LPWINDOWS_DEVICELIST;

typedef struct _WINDOWS_IRDA_DEVICE_INFO

{

    u_char  irdaDeviceID[4];

    char    irdaDeviceName[22];

    u_char  irdaDeviceHints1;   //Отсутствует в Windows CE

    u_char  irdaDeviceHints2;   //Отсутствует в Windows CE

    u_char  irdaCharSet;

} WINDOWS_IRDA_DEVICE_INFO, *PWINDOWS_IRDA_DEVICE_INFO,

  FAR *LPWINDOWS_IRDA_DEVICE_INFO;

#include <windows.h>

#include <af_irda.h>

#include <stdio.h>

#pragma comment ( lib, "WS2_32.Lib" )

void main()

{

SOCKET sd;

SOCKADDR_IRDA address = {AF_IRDA, 0, 0,0,0,"MyServer"};

DEVICELIST devList;

char helloClient[25];

int mode = 1;

sd = socket (AF_IRDA, SOCK_STREAM, 0);

// Перевод сокета в режим поиска

setsockopt (sd, SOL_IRLMP, IRLMP_DISCOVERY_MODE, (char *)&devList,(int)&mode);

// Получаем сигнал от нового устройствa – функция блокирующая

recv(sd, (char *)&devList, sizeof(devList), 0);

// Выключаем режим поиска

mode = FALSE;

setsockopt (sd, SOL_IRLMP, IRLMP_DISCOVERY_MODE, (char *) &devList, (int)&mode);

// Выбираем первое устройство в списке

for(int i=0;i<=3;i++)address.irdaDeviceID[i] = (char)devList.Device[i].irdaDeviceID;

// Соединение клиента с сервисом по имени MyServer на выбранном устройстве

connect(sd, (struct sockaddr*)&address, sizeof(SOCKADDR_IRDA));

// Шлем сообщение

send(sd, "Hello Server!", strlen("Hello World!")+1, 0);

// Ожидание и получение ответа.

recv(sd, helloClient, sizeof(helloClient), 0);

printf("%s\n", helloClient);

closesocket(sd);

}

HANDLE hModem;

...

например hModem = CreateFile( "COM1"... );

..

WriteFile( hModem, "ATZ".. );