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)