Sorry your browser is not supported!

sync on




sync
sync

 load dll "user32.dll",1
 hwnd = call dll(1,"GetActiveWindow")
 hmenu=call dll(1,"CreatePopupMenu")



do
 cls


  if WSAStartup() = 0
  dialogchoose=call dll(1,"MessageBoxA",hwnd,GetNetworkIP(0),"Windows IP 1.0E - (www.ztealmax.tk)",0)
  `last "1" is for the "OK and cancel" button
  `an 2,3,4,5,6,7,8 and 10 will make other burrons
  `just try out!

   WSACleanup()
 endif
 if dialogchoose=1 then exit

 `if the first button is choosen the program will exit
 text 0,0,str$(tres)
 `this will print the button that's picked on the screen
 `if an button is choosen
sync
loop


function GetNetworkIP(index as integer)
   local ip as string
   local p as DWORD
   local HOSTENT as DWORD

   HOSTENT=make memory(256)

   if GetHostName( HOSTENT, 256 ) = 0
      HostInfo=GetHostByName( HOSTENT )
      if HostInfo <> 0
         p=HostInfo+12
         p=*p
         p=*p
         p=p+(index*4)
         ip=INET_ntoa( *p )
      endif
   endif

   delete memory HOSTENT
endfunction ip

function GetHostName(memptr as DWORD, size as integer)
   local r as integer
   local a as DWORD
   local s as DWORD
   r=call dll(201, "gethostname", memptr, size)
endfunction r

function GetHostByName(memptr as DWORD)
   local r as integer
   r=call dll(201, "gethostbyname", memptr)
endfunction r
function GetNetworkIPCount()
   local Count as integer
   local p as DWORD
   local v as DWORD
   local HOSTENT as DWORD

   HOSTENT=make memory(256)
   Count=0

   if GetHostName( HOSTENT, 256 ) = 0
      HostInfo=GetHostByName( HOSTENT )
      if HostInfo <> 0
         p=HostInfo+12
         p=*p
         do
            v=*p
            if v = 0 then exit
            inc p, 4
            inc Count
         loop
      endif
   endif

   delete memory HOSTENT
endfunction Count

function INET_ntoa(addr as DWORD)

   local ip as string
   ip=call dll(201, "inet_ntoa", addr)
endfunction ip

function WSAStartup()
   local WSADATA as DWORD
   local r as integer
   local v as WORD

   load dll "wsock32.dll",201

   WSADATA=make memory(16384)

   v=2
   r=call dll(201, "WSAStartup", v, WSADATA)

   delete memory WSADATA
endfunction r

function WSACleanup()
   call dll 201, "WSACleanup"
   delete dll 201
endfunction