How to get your own IP in Blitz?

' Get the IP on this machine
ips=CountHostIPs("")
If Not ips End '; No countee, no IP

IP=HostIP(1)
DotIP$=DottedIP(ip)

Global octetList:TList = CreateList()

Type Toctet
	Field value
	Method New()
		octetList.Addlast(Self)
	EndMethod
End Type

Global octets[3]

Print "Source Integer IP:"+IP
Print "Sourse Padded  IP:"+DotIP$
Print
Print "=---Converting---="
Print

If ParseIP(DotIP)
	count=3
	
	For Local O:Toctet = EachIn octetList
		octets[count] = o.value
		Print "Octet "+count+" ="+octets(count)
		count=count-1
	Next
EndIf

byte4=octets[3] Shl 24
byte3=octets[2] Shl 16
byte2=octets[1] Shl 8
byte1=octets[0]
ip2=byte4 Or byte3 Or byte2 Or byte1

Print "Converted:" + DotIP +" back to :"+ ip2

WaitKey()
End

Function parseip(ip$)
	If Len(ip$)>6
		ip$=ip$
		lastperiod=1
		For t=1 To 4							'; four octets
			period=Instr(ip,".",lastperiod)		'; Separtated by 3 periods
			If period=0
				If t=4							'; If its the last octet Then we dont expect To find a period
					period=Len(ip)+1			'; stay within bounds
				Else	
					Return False
				EndIf
			EndIf
		
			If period>lastperiod
				octet = Int( Mid$(ip,lastperiod,period-lastperiod) )
				If octet>=0 And octet<=255
					o:Toctet=New Toctet
					o.value = octet
				Else
					Return False
				EndIf
			Else
				Return False
			EndIf
			lastperiod=period+1
		Next
		octet=0
		Return True
	Else
		Return False
	EndIf
End Function

Local Hostent:THostent, pHostent:Byte Ptr, pIP:Int Ptr
Local Index:Int

Hostent = New THostent
pHostent = w_gethostbyname("".ToCString())

If pHostent = Null Then
	Print "No IPs found"
	End
Else
	MemCopy Hostent, pHostent, SizeOf(Hostent)
EndIf

Repeat
	pIP = Hostent.ipAddrList[Index]
	If pIP = Null Then
		Exit
	Else
		Index :+ 1
		Print DottedIP(s_ntohl(Var pIP))
	EndIf
Forever

Function GetIP$( url$="" )'Default local ip

	Local Hostent:THostent, pHostent:Byte Ptr, pIP:Int Ptr
	Local Index:Int

	Hostent = New THostent
	pHostent = w_gethostbyname(url.ToCString())

	If pHostent = Null
		'DebugLog "No IPs found"
		Return 0
	Else
		MemCopy Hostent, pHostent, SizeOf(Hostent)
	EndIf

	pIP = Hostent.ipAddrList[Index]
	If pIP = Null 'fail
		Return 0
	Else
		Index :+ 1
		Return DottedIP(s_ntohl(Var pIP))
	EndIf

EndFunction

'Print GetIP() 'To Test

Type THostent
   Field bpName:Byte Ptr 
   Field bpAliases:Byte Ptr Ptr 
   Field shAddrtype:Short 
   Field shLength:Short 
   Field ipAddrList:Int Ptr Ptr 
End Type

Type TWSAData
   Field shVersion:Short
   Field shHighVersion:Short
   Field sDescription:String
   Field sSystemStatus:String
   Field shMaxSockets:Short
   Field shMaxUdpDg:Short
   Field bpVendorInfo:Byte Ptr
End Type

Extern "OS"
   Function w_gethostbyname:Byte Ptr(pName:Byte Ptr) = "gethostbyname@4"

   Function w_WSAStartup:Int(shVersion:Short, tWSA:Byte Ptr) = "WSAStartup@8"
   Function s_WSACleanup:Int() = "WSACleanup@0"
End Extern

Function s_WSAStartup(shVersion:Short, tWSA:TWSAData Var)
   Local bTemp:TBank, iReturn:Int, bChar:Byte, shIndex:Short
   Local sDescription:String, sSystemStatus:String
   
   bTemp = CreateBank(400)
   
   iReturn = w_WSAStartup(shVersion, BankBuf(bTemp))
   If iReturn <> 0 Then
      Return iReturn
   Else
      For shIndex = 4 To 260
         bChar = PeekByte(bTemp, shIndex)
         If bChar = 0 Then Exit
         sDescription = sDescription+Chr(bChar)
      Next
      
      For shIndex = 261 To 359
         bChar = PeekByte(bTemp, shIndex)
         If bChar = 0 Then Exit
         sSystemStatus = sSystemStatus+Chr(bChar)
      Next
   
      tWSA.shVersion     = PeekShort(bTemp, 0)
      tWSA.shHighVersion = PeekShort(bTemp, 2)
      tWSA.sDescription  = sDescription
      tWSA.sSystemStatus = sSystemStatus
      tWSA.shMaxSockets  = PeekShort(bTemp, 390)
      tWSA.shMaxUdpDg    = PeekShort(bTemp, 392)
      tWSA.bpVendorInfo  = Null

      Return iReturn
   EndIf
End Function

Local tWSA:TWSAData = New TWSAData
s_WSAStartup(MAKESHORT(2, 0), tWSA)

And terminate it with:
s_WSACleanup

Function w_gethostbyname:Byte Ptr(pName:Byte Ptr) = "gethostbyname"