一个简单的端口扫描程序:
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服务★★★★★" Case 81 plus = "HOSTS2名称 ...