Question

VB拦截网络连接

如果有网络连接就弹出Msgbox，如果单击是按钮就连接，如果单击否就断开连接。

（要求所有端口）

Answer 1

这个代码已经写的很清楚，当你想使挂钩的事件，呼吁EnableKBDHook的时候，就解除呼叫UnHookKBD。

但是，这拦截其他节目不能有效的。因为你所要做的就是钩子程序，而不是一个全局钩子，全局钩子需要写在里面的DLL，EXE是不够的。

______________________________________________
补充到楼上aspd199：

怎么说你怎么样...总之，试试自己的代码再说吧。

不知道我是谁，但不要在自己不明白的时候，说别人不理解。

MSDN原：
系统钩子是一个共享的资源，以及安装一个影响所有应用程序。所有的系统钩子函数必须是在库中。系统钩子应该仅限于特殊用途的应用或使用应用程序调试期间的发展援助。图书馆不再需要一个钩子钩去掉程序。

如果aspd199你还没有明白我说了几句话：
的Win32的地址空间是独立的，每一个项目都有它自己的地址空间，AddressOf运算符的地址时，设置钩子函数的地址是在当前进程，其他进程在这个地址根本就不是一个钩子处理函数，将导致一个错误。你必须确保你的函数是可见的所有进程，才可以处理全局钩子，所以我说，你必须把你的函数在DLL被映射到公共地址空间，可以让其他人看到。当然，有些人说，到远程代码行，只要你不怕麻烦，和不稳定的，可以以武力解决。但不管是什么显然不是在API的参数变化是可以解决的。

有机会看到的Windows作业系统的原则，不要以为知道几个API的使用是非常大的，要谨慎，务实的角度。

Answer 2

vb做不到，这种要使用ssdt hook的技术hook 关于网络链接的内核api，才能达到监控所以端口的目的