局域网的IP扫描

最新推荐文章于 2024-08-20 13:40:29 发布

Friecin

最新推荐文章于 2024-08-20 13:40:29 发布

阅读量4.6k

点赞数

分类专栏： BCB技术文章标签： buffer struct null include delete string

本文链接：https://blog.csdn.net/Friecin/article/details/321161

版权

BCB技术专栏收录该内容

21 篇文章 0 订阅

订阅专栏

#include <vcl.h>
#include <winsock2.h>
//---------------------------------------------------------------------------
bool    GetLanIPAddress(TStrings *strings)
{
    int             originCount = strings->Count;
    struct hostent *host;
    struct in_addr *ptr;
    DWORD           dwScope = RESOURCE_CONTEXT;
    HANDLE          hEnum;
    NETRESOURCE     *netResource = NULL;
    WSADATA         wsaData;
    int             a, b, c, d;

    WNetOpenEnum(dwScope, NULL, NULL, NULL, &hEnum);
    WSAStartup(MAKEWORD(1,1), &wsaData);
    if ( hEnum ) {
        DWORD Count = 0xFFFFFFFF;
        DWORD BufferSize = 2048;
        LPVOID Buffer = new char[2048];
        WNetEnumResource( hEnum, &Count, Buffer, &BufferSize );
        netResource = (NETRESOURCE*)Buffer;
        char szHostName[200];
        unsigned int i;
        for( i=0; i<BufferSize/sizeof(NETRESOURCE); i++, netResource++ )
        if( netResource->dwUsage    == RESOURCEUSAGE_CONTAINER &&
            netResource->dwType     == RESOURCETYPE_ANY         ) {

            if( netResource->lpRemoteName ) {
                String strFullName = netResource->lpRemoteName;
                if( strFullName.Pos("") == 1 )
                    strFullName = strFullName.SubString(3,strFullName.Length()-2);

gethostname( szHostName, strlen(szHostName) );
host = gethostbyname(strFullName.c_str());

if( host == NULL)
continue;

ptr = (struct in_addr *)host->h_addr_list[0];

                a   = ptr->S_un.S_un_b.s_b1;    //172
                b   = ptr->S_un.S_un_b.s_b2;    //22
                c   = ptr->S_un.S_un_b.s_b3;    //106
                d   = ptr->S_un.S_un_b.s_b4;    //213

                strings->Add(Format("%d.%d.%d.%d",ARRAYOFCONST((a,b,c,d))));
            }
        }

        delete Buffer;
        WNetCloseEnum( hEnum );
    }

WSACleanup();
return(strings->Count > originCount);
}
//---------------------------------------------------------------------------