如何获取一个程序的通讯IP

Private Sub Form_Load()
Label1.Caption = Winsock1.LocalIP
End Sub

这个是获取本机的IP地址，我想要的是获取一个程序的通讯IP  如QQ的？

我把我以前写的代码你参考一下吧。我也是想的这个方法。
我程序的目的是只允许的客户端连接指定的服务器，非指定的程序就把这个程序给干掉。与你的目的不同。
同理的代码，不解释。

--------调用---------
    '运行连接扫描
    Shell "cmd /c netstat -n -o > " & path & "tmp.txt", vbHide
    Timer4.Enabled = True               '开定时器



-------定时器代码------
On Error Resume Next
Timer4.Enabled = False
Dim pro As Object
Dim obj As Object
Dim B As Boolean

Dim lPHand As Long
Dim TMBack As Long

Set pro = GetObject("winmgmts:\\.\root\cimv2").execquery("select * from win32_process where name='netstat.exe' ")
For Each obj In pro
    'Debug.Print LCase(obj.Name)
    If LCase(obj.Name) = "netstat.exe" Then
        B = True
        lPHand = OpenProcess(1&, True, obj.Handle)   '获取进程句柄
        TMBack = TerminateProcess(lPHand, 0&)   '关闭进程
        '关闭被Kill进程的所以句柄
        CloseHandle lPHand
    End If
Next
If B Then       '发现有进程后，KILL后重新启动
    If Dir(path & "tmp.txt") <> "" Then
        Kill path & "tmp.txt"           '删除临时文件
    End If
    Shell "cmd /c netstat -n -o > " & path & "tmp.txt", vbHide
    Timer4.Enabled = True
Else
    If Dir(path & "tmp.txt") <> "" Then
    Dim s As Variant
    Dim fj() As String
    Dim fj2() As String
    Dim k As Long
   
    Dim TitleStr As String * 255
    Dim h As Long
    Dim m_Hwnd As Long
   
    s = 打开文件(path & "tmp.txt")
    Kill path & "tmp.txt"
    fj = Split(s, vbCrLf)
   
    For Each s In fj
        s = Trim(s)
        If Len(s) > 0 Then
            Do                              '使用循环继续换,在最前面还是会有一个'
                k = Len(s)
                s = Replace(s, "  ", " ")
            Loop While k <> Len(s)
            fj2 = Split(s, " ")
            If UBound(fj2) = 4 Then
            If fj2(2) = serverIP & ":" & 远程端口 Then            '如果连接了远程端口的
            
            If fj2(4) <> "0" Then
            Set pro = GetObject("winmgmts:\\.\root\cimv2").execquery("select * from win32_process ")
            For Each obj In pro
                If obj.Handle = Val(fj2(4)) And LCase(obj.Name) <> LCase(clientname) Then         '但并不是客户端
                    If 显示消息 Then
                        Msg "发现非法程序：" & obj.Name, vbCritical, 消息标题
                    End If
               
                    lPHand = OpenProcess(1&, True, obj.Handle)   '获取进程句柄
                    TMBack = TerminateProcess(lPHand, 0&)   '关闭进程
                    '关闭被Kill进程的所以句柄
                    CloseHandle lPHand
                End If
            Next
            End If
            End If
            End If
        End If
    Next
    Else        '没有找到 tmp.txt 则重新生成
        Shell "cmd /c netstat -n -o > " & path & "tmp.txt", vbHide
        Timer4.Enabled = True
    End If
End If

首先，你是知道程序的PID ，还是只知道程序名，还是知道IP地址，这三种情况都处理不同的。

知道程序名，使用 netstat -n -b 进行查询。
知道 PID    使用 netstat -n -o 进行查询。
知道 IP地址，反查 程序名，可以使用 netstat -n -b 进行查询。

------使用B参数-------
  TCP    10.92.29.60:50272      101.226.52.201:80      CLOSE_WAIT
 [QQ.exe]

一行一行的读，读完一行， 先保存这一行，然后再读下一行，如果包含指定的字符串（程序名）
那么对上一行进行处理。
处理方式：
1、先去掉多余的空格
            Do
                k = Len(s)
                s = Replace(s, "  ", " ")
            Loop While k <> Len(s)
2、再按 空格分解成数组。
            fj2 = Split(s, " ")
3、判断是否符合要求的数据
            If UBound(fj2) = 4 Then
4、取数据
            fj2(2)
如果不包含所需要的程序名，
刚这行放缓冲，继续读一下行。
直到完成为止，没时间写完整代码，你自己慢慢考虑。

------------O参数---------------
  TCP    10.92.29.60:50225      101.226.52.201:80      CLOSE_WAIT      7960
  TCP    10.92.29.60:50233      101.226.52.201:80      CLOSE_WAIT      7960

直接按流程处理数据，然后比较最后的 PID 是否相符。

再顶一个，别下沉啊。

求一个程序掉线软件就这么难