请问怎样获取本机的子网掩码

[Rain]

请问怎样获取本机的子网掩码

[Rain]

自己顶

[Rain]

再顶

[XBox360]

#include <Registry.hpp>

AnsiString GetSubnetMask()

{

AnsiString SubnetMask;

TRegistry *reg = new TRegistry;

DWORD Version = GetVersion();

if(Version < 0x80000000) //WindowsNT

{

reg->RootKey = HKEY_LOCAL_MACHINE;

if(reg->OpenKeyReadOnly("SYSTEM\\CurrentControlSet\\Services\\Tcpip\\Linkage"))

{

int BuffLength = reg->GetDataSize("Bind");

char *Buff = new char[BuffLength+1];

reg->ReadBinaryData("Bind",Buff,BuffLength);

AnsiString Interface = (AnsiString)Buff;

Interface = Interface.SubString(9,Interface.Length()-8);

delete [] Buff;

reg->CloseKey();



if(reg->OpenKeyReadOnly("SYSTEM\\CurrentControlSet\\Services\\"+Interface+"\\Parameters\\Tcpip"))

{

BuffLength = reg->GetDataSize("SubnetMask");

Buff = new char[BuffLength+1];

reg->ReadBinaryData("SubnetMask",Buff,BuffLength);

SubnetMask = (AnsiString)Buff;

delete [] Buff;

}

}

}

else //Windows9X

{

int i;

reg->RootKey = HKEY_LOCAL_MACHINE;

TStringList *ent = new TStringList;

if(reg->OpenKeyReadOnly("System\\CurrentControlSet\\Services\\Class\\NetTrans"))

reg->GetKeyNames(ent);

reg->CloseKey();

for(i=0;i<ent->Count ;i++)

{

reg->CloseKey();

if(reg->OpenKeyReadOnly("System\\CurrentControlSet\\Services\\Class\\NetTrans\\" +ent->Strings[i]))

{

AnsiString ip = reg->ReadString("IPAddress");

AnsiString node = reg->ReadString("NodeType");

if(ip != "0.0.0.0" && ip != "" && node == "1")

{

SubnetMask = reg->ReadString("IPMask");

if(SubnetMask != "" && SubnetMask != "0.0.0.0")

break;

}

}

}

delete ent;

}

delete reg;

return SubnetMask;

}

[Rain]

谢谢了，学习中