PureBasic Forums - English

Code: Select all

Structure IP_ADDR_STRING
	pNext.l
	IpAddress.b[16]
	IpMask.b[16]
	Context.l
EndStructure

Structure IP_ADAPTER_INFO
	Next.l
	ComboIndex.l
	AdapterName.b[260]	; MAX_ADAPTER_NAME_LENGTH + 4
	Description.b[132]	; MAX_ADAPTER_DESCRIPTION_LENGTH + 4
	AdressLength.l
	Address.b[8]				; MAX_ADAPTER_ADDRESS_LENGTH
	Index.l
	Type.l
	DhcpEnabled.l
	CurrentIpAddressPTR.l
	IpAddressList.IP_ADDR_STRING
	GatewayList.IP_ADDR_STRING
	DhcpServer.IP_ADDR_STRING
	HaveWins.l
	PrimaryWinsServer.IP_ADDR_STRING
	SecondaryWinsServer.IP_ADDR_STRING
	LeaseObtained.l
	LeaseExpires.l
EndStructure

Procedure ConvertIPAddress(string$)
   ProcedureReturn MakeIPAddress(Val(StringField(string$,1,".")),Val(StringField(string$,2,".")),Val(StringField(string$,3,".")),Val(StringField(string$,4,"."))) 
EndProcedure

memlength.l=0
If GetAdaptersInfo_(0,@memlength)=#ERROR_BUFFER_OVERFLOW
	membuffer=AllocateMemory(memlength)
	If membuffer
		If GetAdaptersInfo_(membuffer,@memlength)=#ERROR_SUCCESS
			adapters=memlength/SizeOf(IP_ADAPTER_INFO)
			For loop=0 To adapters-1
				ip=ConvertIPAddress(PeekS(membuffer+(loop*SizeOf(IP_ADAPTER_INFO))+OffsetOf(IP_ADAPTER_INFO\IpAddressList)+OffsetOf(IP_ADDR_STRING\IpAddress)))
				If ip
					description$=PeekS(membuffer+(loop*SizeOf(IP_ADAPTER_INFO))+OffsetOf(IP_ADAPTER_INFO\Description))
					mask=ConvertIPAddress(PeekS(membuffer+(loop*SizeOf(IP_ADAPTER_INFO))+OffsetOf(IP_ADAPTER_INFO\IpAddressList)+OffsetOf(IP_ADDR_STRING\IpMask)))
					broadcast=(mask!$ffffffff)|ip
					Debug("description: "+description$+"  ip: "+IPString(ip)+"  mask: "+IPString(mask)+"  broadcast: "+IPString(broadcast))
				EndIf				
			Next
		EndIf
		FreeMemory(membuffer)
	EndIf
EndIf 

Code: Select all

#MIB_IPADDR_PRIMARY = $0001
#MIB_IPADDR_DYNAMIC = $0004
#MIB_IPADDR_DISCONNECTED = $0008
#MIB_IPADDR_DELETED = $0040
#MIB_IPADDR_TRANSIENT = $0080

Structure MIB_IPADDRROW
   dwAddr.l
   dwIndex.l
   dwMask.l
   dwBCastAddr.l
   dwReasmSize.l
   unused1.w
   wType.w
EndStructure

Structure MIB_IPADDRTABLE
   dwNumEntries.l
   *ipAddrTable.MIB_IPADDRROW
EndStructure

Procedure BroadListen()

dwResult.i
dwRetVal.i
TableSize.i = 0
*TableBroadcastAddr.MIB_IPADDRTABLE = AllocateMemory(SizeOf(MIB_IPADDRTABLE))

dwResult = GetIpAddrTable_(*TableBroadcastAddr, @TableSize, #True)

If dwResult = #ERROR_INSUFFICIENT_BUFFER
  *pIPAddrTable = ReAllocateMemory(*TableBroadcastAddr, TableSize)
  dwRetVal = GetIpAddrTable_(*TableBroadcastAddr, @TableSize, #True) ; call it the second time to get the info
  If dwRetVal = #NO_ERROR
    *ipinfo.MIB_IPADDRROW = @*TableBroadcastAddr\ipAddrTable
    For loop = 0 To *TableBroadcastAddr\dwNumEntries - 1
      interfaceindex.i = *ipinfo\dwIndex
      If interfaceindex > 0 
        ipaddr = *ipinfo\dwAddr
        subnetmask = *ipinfo\dwMask
        
        ip_addr$ = PeekS(inet_ntoa_(ipaddr))
        Debug "Interface Index : " + Str(interfaceindex) + " IP address : " + ip_addr$
        
        subnet_mask$ = PeekS(inet_ntoa_(subnetmask))
        Debug "Interface Index : " + Str(interfaceindex) + " Subnet Mask  : " + subnet_mask$
        
        network_listen_addr$ = PeekS(inet_ntoa_(ipaddr & subnetmask))
        Debug "Interface Index : " + Str(interfaceindex) + " Network/Listen IP address : " + network_listen_addr$
        
; Note - don't use the dwBCastAddr member with GetIpAddrTable as per MSDN at http://msdn.microsoft.com/en-us/library/aa366845(VS.85).aspx The proper value for this member is not returned by the GetIpAddrTable function.

        broadcast$ = PeekS(inet_ntoa_((subnetmask!$ffffffff)|ipaddr))
        Debug "Interface Index : " + Str(interfaceindex) + " Broadcast IP address : " + broadcast$
                
        Debug "**************************************************************"
        
        
      EndIf
      *ipinfo = *ipinfo + SizeOf(MIB_IPADDRROW)
    Next
  EndIf
EndIf

EndProcedure

BroadListen()

Code: Select all

Procedure ConvertIPAddress(string$)
	ProcedureReturn MakeIPAddress(Val(StringField(string$,1,".")),Val(StringField(string$,2,".")),Val(StringField(string$,3,".")),Val(StringField(string$,4,"."))) 
EndProcedure