监视连接外网的端口，谢谢---已解决

zzyzzyboy

我想监控本机连接外网的邮件服务器也就是POP3端口号是110，如果有程序连接外网的110端口，程序马上弹出窗口告诉我，请问怎么发现连接外网的110端口，谢谢

鸟人

Local $port_list = @ScriptDir & '\port_list.txt'
RunWait(@ComSpec & " /c " & 'netstat -ano >' & $port_list, '', @SW_HIDE)
Local $file = FileOpen($port_list)
If $file <> -1 Then
        While 1
                Local $line = FileReadLine($file)
                If @error = -1 Then ExitLoop
                If StringInStr($line, ':80') Then
                        Local $aArray = StringSplit($line, Chr(32))
                        MsgBox(4096, '发现占用端口80程序:', _GetProcPath($aArray[$aArray[0]]))
                EndIf
        WEnd
EndIf
FileClose($file)
Func _GetProcPath($iPID)
        Local $aProc = DllCall('kernel32.dll', 'hwnd', 'OpenProcess', 'int', 0x00000410, 'int', 0, 'int', $iPID)
        If $aProc[0] = 0 Then Return SetError(1, 0, '')
        Local $vStruct = DllStructCreate('int[1024]')
        DllCall('psapi.dll', 'int', 'EnumProcessModules', 'hwnd', $aProc[0], 'ptr', DllStructGetPtr($vStruct), 'int', _
                        DllStructGetSize($vStruct), 'int_ptr', 0)
        Local $aReturn = DllCall('psapi.dll', 'int', 'GetModuleFileNameEx', 'hwnd', $aProc[0], 'int', _
                        DllStructGetData($vStruct, 1), 'str', '', 'int', 2048)
        If StringLen($aReturn[3]) = 0 Then Return SetError(2, 0, '')
        Return $aReturn[3]
EndFunc   ;==>_GetProcPath

zzyzzyboy

鸟人 发表于 2012-11-3 21:37

    追问一下
如果我加个循环不停的检测会不会造成频繁写入PORT_LIST.TXT而严重影响性能，谢谢

huangwei

谢谢分享，楼主辛苦了