用vb的多线程实现ping与指定ip的端口扫描