for i, v in GetUdpTable()
  MsgBox % v.LocalIP ":" v.LocalPort


; ==============================================================================
; Retrieves the IPv4 User Datagram Protocol (UDP) listener table
; ==============================================================================

GetUdpTable() {
  static hIPHLPAPI := DllCall("LoadLibrary", "str", "iphlpapi.dll", "ptr"), table := []
  VarSetCapacity(TBL, 4 + (s := (8 * 32)), 0)
  while (DllCall("iphlpapi\GetUdpTable", "ptr", &TBL, "uint*", s, "uint", 1) = 122)
    VarSetCapacity(TBL, 4 + s, 0)

  table := {}, index := 1
  loop % NumGet(TBL, 0, "uint") {
    o := 4 + ((index - 1) * 8)
    table[index, "LocalIP"]   := (( ROW := NumGet(TBL, o,   "uint"))&0xff) "." ((ROW&0xff00)>>8) "." ((ROW&0xff0000)>>16) "." ((ROW&0xff000000)>>24)
    table[index, "LocalPort"] := (((ROW := NumGet(TBL, o+4, "uint"))&0xff00)>>8) | ((ROW&0xff)<<8)
    index++
  }
  return table, DllCall("FreeLibrary", "ptr", hIPHLPAPI)
}

/*  ==============================================================================
References:
- https://msdn.microsoft.com/en-us/library/aa366033(v=vs.85).aspx	GetUdpTable function
- https://msdn.microsoft.com/en-us/library/aa366930(v=vs.85).aspx	MIB_UDPTABLE structure
- https://msdn.microsoft.com/en-us/library/aa366926(v=vs.85).aspx	MIB_UDPROW structure
============================================================================== */

 

声明:站内资源为整理优化好的代码上传分享与学习研究,如果是开源代码基本都会标明出处,方便大家扩展学习路径。请不要恶意搬运,破坏站长辛苦整理维护的劳动成果。本站为爱好者分享站点,所有内容不作为商业行为。如若本站上传内容侵犯了原著者的合法权益,请联系我们进行删除下架。