一个简单的端口扫描程序： addstr = \"发现端口\" & Str(port) & \"打开\" & Space(5) Select Case port Case 7 plus = \"ECHO服务\" Case 21 plus = \"FTP服务★★★★★\" Case 25 plus = \"SMTP服务★★\" Case 43 plus = \"Whois服务\" Case 53 plus = \"DNS服务☆\" Case 80 plus = \"HTTP服务★★★★★\" C