VB 扫面端口
怎么用VB扫描本地一定范围的端口有没有开放。 还有怎么扫描远程计算机的可连接端口? 谢谢
控件说明:窗口:frmScan**frmScan中的控件*** (对方的IP)txtLowerBound(起始端口)txtUpperBound(结束端口)txtMaxConnections(最多使用的连接数量)lstOpenPorts(列出开放的端口)*Comm (开始扫描)cmdStop(结束扫描)cmdClearList(清除开放端口的列表)* (TCP协议)* (超时设置)**********************二。
程序源代码:=========================================OptionExplicitDimlngNextPortAsLongPrivateSubcmdClearList_Click() tOpenPorts。
ClearEndSubPrivateSubcmdScan_Click()DimintIAsIntegerlngNextPort=Val(Me。txtLowerBound)ForintI=1ToVal(Me。txtMaxConnections) kSocket(intI)lngNextPort=lngNextPort+ kSocket(intI)。
ConnectMe。txtIP,lngNextPortNextintIEndSubPrivateSubcmdStop_Click()DimintIAsIntegerForintI=1ToVal(Me。txtMaxConnections) kSocket(intI)。
kSocket(intI)NextintIEndSubPrivateSubtimTimer_Timer() Main。Panels(1)。Text="CurrentPort:"+Str(lngNextPort)EndSubPrivateSubwskSocket_Connect(IndexAsInteger) tOpenPorts。
AddItem"Port:"+Str( kSocket(Index)。RemotePort)Try_Next_Port(Index)EndSubPrivateSubwskSocket_Error(IndexAsInteger,ByValNumberAsInteger,DescriptionAsString,ByValScodeAsLong,ByValSourceAsString,ByValHelpFileAsString,ByValHelpContextAsLong,CancelDisplayAsBoolean)Try_Next_Port(Index)EndSubPrivateSubTry_Next_Port(IndexAsInteger) kSocket(Index)。
CloseIflngNextPort科大奥锐实验教学|实验室建设|风景区信息化|IT服务软件外包。
答:在注册表的HKEY_CURRENT_USER、Software\Microsoft\Windows\CurrentVersion\Internet Settin...详情>>
答:我建议你去--天下网吧联盟 这里面都是网吧业主和网管交流的论坛,你可以自己注册一个用户进去看看,你可以和他们交流也可以寻求他们的帮助,我想没有你解决不了的问题,...详情>>
答:格式化文本区域的段落标记,用于规定文本和层的属性和位置等。比如: 新浪网 用来规定 新浪网 这三个字居中显示。 文本中心(CENTER)、左(LEFT)或右(R...详情>>