如何获取一个程序的通讯IP，想以此方法来判断本程序是否与服务器通讯（这里不是检测服务器，而是看本机的程序是否联网），如果没有通讯（网络问题，时好时坏）就读不出此程序的联网IP，如果联网正常，就会出现IP与端口，如图 ，能不能用VB直接判断，效果如下图

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

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

自己顶一个
用CMD命令读取到盘里然后再读取txt里面的指定内容，如果有就说明在联网通讯，反之就没有，我觉得这样读取很占内存，请高手简化一下，尽量用简化的代码，获得高效的效率，谢谢！
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Const PROCESS_QUERY_INFORMATION = &H400
Const STILL_ALIVE = &H103

Private Sub Command1_Click()
Dim pId As Long, pHnd As Long
If Dir("d:\temp.txt") <> "" Then Kill "d:\temp.txt"
pId = Shell("cmd /c netstat -an>>d:\temp.txt", vbMinimizedFocus)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pId)
Do
Call GetExitCodeProcess(hProcess, ExitCode)
DoEvents
Loop While ExitCode = STILL_ALIVE
Call CloseHandle(hProcess)

Open "d:\temp.txt" For Input As #1
Line Input #1, aa
'MsgBox aa
Close #1

End Sub
就想读取指定这个格式

[ 本帖最后由 lzb3158 于 2015-2-4 11:46 编辑 ]

风版主，我看不懂，能不能麻烦你帮我弄一个源码，我想这个对你来说，只是小儿科，对于我们才接触VB的人比登天还难。

再顶一下，别下沉！求各版主帮一忙，本人VB小白。

再顶一个，别下沉啊。

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