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

评论(0)