如何允许和屏蔽网络连接？就像一些软件防火墙那可以断开和连接网络！

Question

如何允许和屏蔽网络连接？
就像一些软件防火墙那可以断开和连接网络！
可以起到限制用户上网的。

Answer 1

IE的自动拨号和挂断    
  automatically dial/hangup the default Internet connection? 
usesWinInet;// Causes the modem to automatically dial the default Internet connection.procedure TForm1.Button1Click(Sender: TObject);vardwConnectionTypes: DWORD;begindwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +INTERNET_CONNECTION_PROXY;if not InternetGetConnectedState(@dwConnectionTypes, 0) then// not connectedif not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE orINTERNET_AUTODIAL_FORCE_UNATTENDED, 0) thenbegin// errorend;end;　// hangup the default Internet connection.procedure TForm1.Button2Click(Sender: TObject);vardwConnectionTypes: DWORD;begindwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +INTERNET_CONNECTION_PROXY;if InternetGetConnectedState(@dwConnectionTypes, 0) then// connectedInternetAutodialHangup(0);end;　
 
 

Answer 2

这类的防火墙通常都接管了WSock32.dll，他想断开谁就容易了。

Answer 3

请问如何使用WSock32.dll呢，
我想做个可以在局域网用，想限制或开启internet的连接！

Answer 4

你没说明变得要求。
如果是单机版本的防火墙(针对自己的电脑)
自己写一个WSock32.dll ，实现里面原来的全部函数，至少要有声明。
把它的WSock32.dll 改称其他名字，比如 WScok32_old.dll在你的函数里面实现的功能，然后再调用原来的WSock32_old.dll 中的响应函数(目前有病毒这么干)。除了替换这个dll文件，还一个办法就是类似金山辞霸，在内存中修改函数入口到自己的函数，然后再调用这个原来的入口。
如果事项做一个局域网的防火墙，就不这么做了。
通常是你需要实现代理服务器或者网关的功能，所有电脑都通过你出去，连接使你维护的，你想拒绝自然容易了。

Answer 5

to pazee：
怎么知道wsock32.dll的所以函数呢？

Answer 6

delphi 提供了一个工具叫做 TDump， 你可以在命令行下tdump wsock32.dll