XBSXBS【置顶】XBS防逃费1.1 已经发布2016年4月9日 分类：原创软件 标签： 浏览：4832次【置顶】XBSMOV2016年2月22日 分类：原创软件 标签： 浏览：2164次XBS计费2016年10月2日 分类：代码片段 标签： 浏览：55次http://xbs99.cn/xbsbill/index.htmlRadmin批量管理个人版（即将发布）2016年8月9日 分类：代码片段 标签： 浏览：252次用于批量管理Radmin自动连接Radmin服务端支持Host联机数据保存到FTP服务器上获取TCP连接信息显示PID2016年8月1日 分类：代码片段 标签： 浏览：2759次#COMPILE EXE#REGISTER NONE#DIM ALLGLOBAL hDlg AS LONG#INCLUDE "Win32API.inc"#INCLUDE "TlHelp32.inc"#INCLUDE "IPHLPAPI.INC"#INCLUDE "WS2_32.inc"'https://msdn.microsoft.com/en-us/library/windows/desktop/aa366386(v=vs.85).aspx%TCP_TABLE_BASIC_LISTENER       =0%TCP_TABLE_BASIC_CONNECTIONS    =1%TCP_TABLE_BASIC_ALL            =2%TCP_TABLE_OWNER_PID_LISTENER   =3%TCP_TABLE_OWNER_PID_CONNECTIONS=4%TCP_TABLE_OWNER_PID_ALL        =5%TCP_TABLE_OWNER_MODULE_LISTENER=6%TCP_TABLE_OWNER_MODULE_CONNECTIONS=7%TCP_TABLE_OWNER_MODULE_ALL     =8%AF_INET=2'%NO_ERROR=0TYPE MIB_TCPROW_OWNER_PIDdwState AS LONGdwLocalAddr AS LONGdwLocalPort AS LONGdwRemoteAddr AS LONGdwRemotePort AS LONGdwOwningPid AS LONGEND TYPE'--------------------------------------------------------------------------'DWORD GetExtendedTcpTable('  _Out_   PVOID           pTcpTable,'  _Inout_ PDWORD          pdwSize,'  _In_    BOOL            bOrder,'  _In_    ULONG           ulAf,'  _In_    TCP_TABLE_CLASS TableClass,'  _In_    ULONG           Reserved');DECLARE FUNCTION GetExtendedTcpTable LIB "IPHLPAPI.DLL" ALIAS "GetExtendedTcpTable" (BYVAL pTcpTableEx AS DWORD, lSize AS LONG, BYVAL BORDER AS LONG,BYVAL Flags AS LONG, BYVAL TableClass AS LONG, BYVAL bReserved AS LONG) AS LONG'---------------------------------------------------------------------------------------------------------------FUNCTION GetProcessName(BYVAL Pid AS LONG) AS STRINGLOCAL Proc      AS PROCESSENTRY32LOCAL hand      AS LONGLOCAL Snap      AS LONGLOCAL Theloop   AS LONGSnap = CreateToolhelp32Snapshot(&H1+&H2+&H4+&H8, 0)Proc.dwSize = LEN(Proc)Theloop = Process32First(Snap,Proc)WHILE Theloop <> 0IF  Proc.th32ProcessID=Pid THENFUNCTION=Proc.szExeFileEXIT LOOPEND IFTheloop = Process32Next(BYVAL Snap, Proc)WENDCloseHandle(Snap)END FUNCTION'---------------------------------------------------------------------------------------------------------------FUNCTION StrIP(BYVAL ip AS DWORD) AS STRINGLOCAL p AS BYTE PTRp=VARPTR(ip)FUNCTION=USING$("#_.#_.#_.#", @p, @p[1], @p[2], @p[3])END FUNCTION'---------------------------------------------------------------------------------------------------------------FUNCTION GetTcpUdp() AS LONGLOCAL i                  AS LONGLOCAL TcpTable()         AS MIB_TCPROW_OWNER_PID'LOCAL pTablePtr()        AS BYTELOCAL pTcpTable          AS STRINGLOCAL nRows              AS DWORDLOCAL pdwSize            AS DWORDLOCAL strA               AS STRINGIF GetExtendedTcpTable(BYVAL 0,pdwSize, 1, %AF_INET,%TCP_TABLE_OWNER_PID_CONNECTIONS,0)=%ERROR_INSUFFICIENT_BUFFER AND pdwSize>0 THENpTcpTable=NUL$(pdwSize)IF GetExtendedTcpTable(BYVAL STRPTR(pTcpTable),pdwSize, 1, %AF_INET,%TCP_TABLE_OWNER_PID_CONNECTIONS,