AutoHotkey Community

[5172] Client - AHKsock_Connect() successfully connected!

Msgbox, %A_IpAddress1%

VarSizeType BIV_IPAddress(char *aBuf, char *aVarName)
{
   // aaa.bbb.ccc.ddd = 15, but allow room for larger IP's in the future.
   #define IP_ADDRESS_SIZE 32 // The maximum size of any of the strings we return, including terminator.
   if (!aBuf)
      return IP_ADDRESS_SIZE - 1;  // -1 since we're returning the length of the var's contents, not the size.

   WSADATA wsadata;
   if (WSAStartup(MAKEWORD(1, 1), &wsadata)) // Failed (it returns 0 on success).
   {
      *aBuf = '\0';
      return 0;
   }

   char host_name[256];
   gethostname(host_name, sizeof(host_name));
   HOSTENT *lpHost = gethostbyname(host_name);

   // au3: How many adapters have we?
   int adapter_count = 0;
   while (lpHost->h_addr_list[adapter_count])
      ++adapter_count;

   int adapter_index = aVarName[11] - '1'; // A_IPAddress[1-4]
   if (adapter_index >= adapter_count)
      strcpy(aBuf, "0.0.0.0");
   else
   {
      IN_ADDR inaddr;
      memcpy(&inaddr, lpHost->h_addr_list[adapter_index], 4);
      strlcpy(aBuf, (char *)inet_ntoa(inaddr), IP_ADDRESS_SIZE);
   }

   WSACleanup();
   return (VarSizeType)strlen(aBuf);
}