delphi 自定义网络函数：unit net interface uses sysutils ,windows ,dialogs ,winsock ,classes ,comobj ,wininet //得到本机的局域网ip地址 function getlocalip(var localip:string): boolean //通过ip返回机器名 function getnamebyipaddr(ipad

该程序可自动获取与因特网连接或在局域网内的主机IP地址及用户名。-The program can automatically get connected to the Internet or LAN host IP address and user name.

选择不同命令，可以获取局域网中的所有计算机名称或IP地址，可以监控防蹭网。-Select a different command, you can obtain all LAN computer name or IP address, you can monitor anti-rub network.