VPF::Функция на С (win32). - Форум программистов

chaos

Дата 12.8.2005, 09:41 (ссылка)

(нет голосов)

Загрузка ...

Серийный программист

Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: нет
Всего: 44

Здрасте!!!
Возникла такая проблема: необходимо переписать функцию(см.ниже) на VB6.

Ребята помогите!!! Очень надо

Код


CString GetTerminalIPAddress()
{
    //GetSystemMetrics лежит в user32.dll
    //int GetSystemMetrics(int nIndex)

    //SM_REMOTESESSION (нужная константа) = 0x1000


    //WTSQuerySessionInformation лежит в Wtsapi32.dll
    //BOOL WTSQuerySessionInformation(HANDLE hServer, DWORD SessionId,
    //    WTS_INFO_CLASS WTSInfoClass,  LPTSTR *ppBuffer, DWORD *pBytesReturned)

    //WTS_INFO_CLASS это просто enum, WTSClientAddress (нужная константа) имеет значение 14
    //WTS_CURRENT_SERVER_HANDLE = NULL, WTS_CURRENT_SESSION = (DWORD)-1
    //(константы, нужные для вызова)

    //VOID WTSFreeMemory(PVOID pMemory)

    //typedef struct _WTS_CLIENT_ADDRESS {
    //    DWORD  AddressFamily;
    //    BYTE   Address[20]; //<- здесь лежит адрес в 4 байтах со смещением 2
                //(6 если от начала структуры)
    //} WTS_CLIENT_ADDRESS;


    CString soRet;

    char * cpBuffer;
    DWORD dwBufferLen;

    //позволяет узнать, в терминальной ли сессии мы работаем (не 0 - значит да)
    if (0 != ::GetSystemMetrics(SM_REMOTESESSION)
        //запрос ip адреса клиента терминальной сессии (терминала)
        && ::WTSQuerySessionInformation(WTS_CURRENT_SERVER_HANDLE, WTS_CURRENT_SESSION,
            WTSClientAddress, &cpBuffer, &dwBufferLen)
        && cpBuffer)
    {
        //если все хорошо, адрес нам вернули, выдергиваем его
        //(лежит в возвращаемом буфере в 4 байтах, начиная со смещения 6
        //(
        if ( *(((WTS_CLIENT_ADDRESS *)cpBuffer)->Address + 2) )
            //форматирование ip адреса в строку (наверное вам не надо)
            soRet = inet_ntoa(*(in_addr *)(((WTS_CLIENT_ADDRESS *)cpBuffer)->Address + 2));

        //буфер который аллоцировала WTSQuerySessionInformation, нужно освободить
        ::WTSFreeMemory(cpBuffer);
    }

    return soRet;
}

Guest

Дата 12.8.2005, 21:18 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

a s kakogo? si?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »