一个简单的端口扫描程序：

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名称服务\" Case 99 plus = \"NCX99后门★★★★★\" Case 110 plus = \"POP3服务★★★★★\" Case 111 plus = \"Sun RPC服务★★\" Case 135 plus = \"本地服务\" Case 137 plus = \"NETBIOS 名称服务/流影POP\" Case 138 plus = \"NETBIOS 数据存储服务\" Case 139 plus = \"NETBIOS 会议服务★★★\" Case 119 plus = \"NNTP虚拟服务\" Case 163 plus = \"SNMP服务\" Case 443 plus = \"https服务\" Case 512 plus = \"远程执行服务\" Case 513 plus = \"login, remote login\" Case 514 plus = \"cmd, exec with auto auth.\" Case 600 plus = \"Sun IPC服务器\" Case 1080 plus = \"SOCKS代理服务★★★\" Case 1433 plus = \"SQL服务器★★★\" Case 3128 plus = \"HTTP代理服务\" Case 7626 plus = \"木马冰河★★★★★\" Case 8080 plus = \"HTTP代理服务\" Case Else plus = \"未知服务!\"