PrivateSubCommand1_Click()List1.ClearIfText2.Text=""OrText3.Text=""ThenMsgBox"没有端口扫什么扫啊!"&vbCrLf&"输入从1到65535的端口号。
",0+48,"端口号不能为空!"ElseIfText2.Text>"65535"OrText3.Text>"65535"ThenMsgBox"没有这么大的端口号的!"&vbCrLf&"正确的端口号从1到65535。
",0+48,"端口号错了!"EndIfWinsock1.CloseStart=TrueCallSCanningPorts'调用自定义过程List1.AddItem"端口"&Text2.Text&"-"&Text4.Text&"已扫描完成!"'扫描结束了List1.Text=List1.List(List1.NewIndex)EndSub
1