vb 查看当前TCP UDP 连接

来源：百度知道 编辑：UC知道 时间：2024/05/30 17:32:46
如何查看当前TCP UDP连接， 就像类似防火墙一样，不停的刷新当前网络连接 TCP和UDP。尤其是UDP. 因为TCP好做，UDP我找了很多资料都没有做成功，
楼下的代码不是很好的，还有,NETSTAT-AN是查案不到UDP连接的，希望你多学习，共同进步

还有，你这个代码我有更好的代码，如果你需要我可以教你

帮你写了一下，可以查看所有连接，用的是netstat的命令
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", vbNormalFocus)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pId)
Do
Call GetExitCodeProcess(hProcess, ExitCode)
DoEvents
Loop While ExitCode = STILL_ALIVE
Call CloseHandle(hProcess)

Open "d:\