端口扫描器代码

addstr="发现端口"&Str(port)&"打开"&Space(5)SelectCaseportCase7plus="ECHO服务"Case21plus="FTP服务★★★★★"Case25plus="SMTP服务★★"Case43plus="Whois服务"Case53plus="DNS服务☆"Case80plus="HTTP服务★★★★★"Case81