• 堕天使 * 于 2001.9.25 http://NetIs.126.com （转载请标明出处）
  ===========
  ** 本文将介绍VB下利用WinSock控件，编写简单的网络应用程序 **
  ** 写给所有对网络编程有兴趣的初学者！**
  ==================================

这是一个简单的“端口扫描的程序”的源代码

一. 控件说明：

窗 口： frmScan

** frmScan 中的控件 **

• TextBox :
  txtIP (对方的IP)
  txtLowerBound (起始端口）
  txtUpperBound (结束端口）
  txtMaxConnections (最多使用的连接数量）
  lstOpenPorts (列出开放的端口）
• CommandButton :
  cmdScan (开始扫描）
  cmdStop (结束扫描）
  cmdClearList (清除开放端口的列表）
• Winsock:
  wskSocket (TCP协议）
• Timer:
  timTimer (超时设置）

二. 程序源代码：

Option Explicit
Dim lngNextPort As Long

Private Sub cmdClearList_Click()
Me.lstOpenPorts.Clear
End Sub

Private Sub cmdScan_Click()
Dim intI As Integer
lngNextPort = Val(Me.txtLowerBound)
For intI = 1 To Val(Me.txtMaxConnections)
Load Me.wskSocket(intI)
lngNextPort = lngNextPort + 1
Me.wskSocket(intI).Connect Me.txtIP, lngNextPort
Next intI
End Sub

Private Sub cmdStop_Click()
Dim intI As Integer
For intI = 1 To Val(Me.txtMaxConnections)
Me.wskSocket(intI).Close
Unload Me.wskSocket(intI)
Next intI
End Sub

Private Sub timTimer_Timer()
Me.sbMain.Panels(1).Text = "Current Port: " + Str(lngNextPort)
End Sub

Private Sub wskSocket_Connect(Index As Integer)
Me.lstOpenPorts.AddItem "Port: " + Str(Me.wskSocket(Index).RemotePort)
Try_Next_Port (Index)
End Sub

Private Sub wskSocket_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Try_Next_Port (Index)
End Sub

Private Sub Try_Next_Port(Index As Integer)
Me.wskSocket(Index).Close
If lngNextPort < Val(Me.txtUpperBound) Then
Me.wskSocket(Index).Connect , lngNextPort
lngNextPort = lngNextPort + 1
Else
Unload Me.wskSocket(Index)
End If
End Sub

=========================================

代码其实很简单，相信大家很容易就看懂了！
最近没什么时间，所以上次的UPD协议迟了两天才写出来。
不过我还是会陆续将一些程序源代码帖出来以供大家参考。

--------------------------------------------------
接下来我将帖出一些程序的源代码供大家参考！
如果你感兴趣的请到 http://NetIs.126.com

版权归 Cninf.com 所有，转载请注明出处，谢谢！



被放逐的天使 ......

....................................................转贴.........................................