PureBoard

Code: Alles auswählen

;http://www.purebasic.fr/german/archive/viewtopic.php?t=834#5330


Procedure.s Uni2Ansi2(*Unicode.l) 
  Size.l = WideCharToMultiByte_(#CP_ACP, 0, *Unicode, -1, #Null, #Null, #Null, #Null) 
  ansi.s=Space(Size) 
  WideCharToMultiByte_(#CP_ACP, 0, *Unicode, -1, @ansi, Size, #Null, #Null) 
  ProcedureReturn ansi 
EndProcedure 

Structure host_info
  computername.s
  ip_adress.s[8]  ;number of ip adress on the computer
  error.s
EndStructure
Global NewList host_info.host_info()

Procedure.s GetIPbyName (NameIP.s) 
  
  Protected AdressNumber.l
  AddElement( host_info())
  host_info()\computername=NameIP
  
 
    CompilerIf #PB_Compiler_Unicode 
      pHostinfo = gethostbyname_(Uni2Ansi(@NameIP))
    CompilerElse
      pHostinfo = gethostbyname_(NameIP)
    CompilerEndIf
    If pHostinfo = 0 
      
      host_info()\error=  "Unable To resolve domain name" 
    Else 
      CopyMemory (pHostinfo, hostinfo.HOSTENT, SizeOf(HOSTENT)) 
      If hostinfo\h_addrtype <> #AF_INET 
        
        host_info()\error=  "A non-IP address was returned"
      Else 
        
        While PeekL(hostinfo\h_addr_list+AdressNumber*4) 
          ipAddress = PeekL(hostinfo\h_addr_list+AdressNumber*4) 
         
         host_info()\ip_adress[AdressNumber]=StrU(PeekB(ipAddress),0)+"."+StrU(PeekB(ipAddress+1),0)+"."+StrU(PeekB(ipAddress+2),0)+"."+StrU(PeekB(ipAddress+3),0) 
          AdressNumber+1 
        Wend 
      EndIf 
    EndIf 
  ;If InitNetwork() 
 
EndProcedure 
If InitNetwork() 
  GetIPbyName ("jpd-pc")
Else 
  MessageRequester("Info",  "Network can't be initialized")
  End
EndIf 
  
ResetList ( host_info())

While NextElement(host_info())
  Debug  host_info()\computername
  If host_info()\error=""
    For x=0 To 7
      If host_info()\ip_adress[x] <>""
        Debug host_info()\ip_adress[x]
      EndIf   
    Next
  Else
    Debug "Error: "+  host_info()\error
  EndIf   
Wend 

ClearList( host_info())