在线端口扫描(ip端口扫描在线)
最后更新：2023-12-15 21:15
VB6.0 扫描端口
计算机网络技术的日益发展和普及，为信息共享提供了一条全球性的高速通道，但目前采用的TCP/IP协议族潜在着安全漏洞，其安全机制并不健全，如何保护企业内部网络中的资源及信息不受外部攻击者肆意破坏或盗窃，是企业网络安全需要解决的重要问题。当我们担心被黑客攻击或怀疑电脑被植入木马时，我们往往求助于防火墙,本系统即通过实时监控全部TCP连接的方法来实现防黑客攻击。同时网络管理人员在整个网络运行期间，能否实时监控联网计算机的运行状态和操作对网络安全具有极其重要的作用.下面就以Visual Basic 6.0作为开发工具讲述两个主要模块的设计和实现。 系统概述该系统由两个子系统组成：服务器端系统和客户端(工作站)系统。服务器端系统安装在网络管理人员的计算机上，用于实施各种对联网计算机的监控操作;客户端系统安装在每台联网的计算机上，它运行后以图标的方式出现在系统任务栏的提示区中，不影响工作站的其他操作，只用于响应服务器端的监控命令，并根据服务的需要，及时采样工作站的相应数据返回给服务器端。该系统的运行环境可以运行于Win98、Win95或WinNT、Win2000下。在系统的开发中，引入了WINSOCK通讯控件，除此之外，为较好地实现各项监控操作，还用到了几个API函数。系统功能1、监控全部TCP连接：实时监控所有服务器端口的连接情况、及时对异常连接发出警告并提示用户删除异常连接;2、屏幕监控：该功能允许服务器随时把被监控工作站的屏幕画面抓取到服务器中，网络管理人员对相应工作站所进行的操作一目了然，若发现有非法操作即可采取发送警告或强制措施，强迫其停止相应操作;3、对工作站进行锁机、关机、限制鼠标活动等;4、服务器和工作站之间的信息互送。功能的实现1、监控全部TCP连接TCP/IP(Transmission Control Protocol/Internet Protocol：传输控制协议/互联网协议)是一个包括TCP、IP、 UDP、ARP、RARP和ICMP等在内的网络协议集。TCP/IP经常被称为“将Internet绑定在一起的粘合剂”，它允许在空间上分离的多个信息网络连接在一起形成一个巨大的虚拟网络。TCP和UDP(用户数据报协议)是两个最常用的数据传输协议，它们都使用设置监听端口的方法来完成数据传输。在本文中讨论TCP连接。通过使用TCP， Internet客户机可以打开到另一个Internet客户机的虚拟连接并传送数据流。与UDP不同，TCP协议通过重传丢失的数据报保证传输的可靠性。它也保证在接收端的应用程序按发送的顺序将接收到的位和字节重新组装起来以获取完整的数据。要获得与服务器系统中全部有效的TCP连接，用到GetTcpTable这个API函数，它定义如下：Private Declare Function GetTcpTable Lib "iphlpapi.dll" (ByRef pTcpTable As MIB_TCPTABLE, ByRefpdwSize As Long, ByVal bOrder As Long) As Long其中参数pPcpTable是已生成的 TCP连接表缓冲区的指针，参数pdwsize是缓冲区大小(当缓冲区不够大时，该参数返回实际需要的大小)，参数bOrder指示连接表是否需要按“Local IP”、“Localport”、“Remote IP”、“Remote port”依次进行排序，1为按此顺序。通过一个TIMEER控件的TIMER的事件来比较前后两个TCP连接表，我们可以立即发现异常并发出警告。本系统用声音和报警标志提醒用户注意可能的外界入侵。收到警告信号后，我们应首先将可疑连接删除掉，SetTcpEntry函数可以帮助我们删除可疑连接。其定义为：Private Declare Function SetTcpEntry Lib "iphlpapi.dll" (ByRef pTcpTable As MIB_TCPROW) As Long其中参数pTcptable为指向tcp表行的指针。然后将欲删连接的状态置为MIB_TCP_STATE_DELETE_TCB(值为12)即可删除该连接。TIMER事件源代码：Private Sub Timer1_Timer()Dim Return1 As Long, i As LongDim Tmp1 As Long, Tmp2 As LongDim Ip_Buf(1 To 4) As ByteDim Win_Path As String, Tmp3 As StringReturn1 = GetTcpTable(TCP1, Len(TCP1), 1)If Last_Num_Of_Entries <>0 And _Last_Num_Of_Entries <>TCP1.dwNum_Of_Entries Then'异常时发出警告Picture1.Visible = True '警告标志On Error Resume NextWin_Path = String(145, 0)'利用API函数GetWindowsDirectory获得当前系统目录i = GetWindowsDirectory(Win_Path, 145)Win_Path = Left(Win_Path, i)'利用API函数sndPlaySound发出报警声音i = sndPlaySound(Win_Path + "MediaDing.wav", &H1)On Error GoTo 0ElseIf Picture1.Visible = True ThenPicture1.Visible = FalseEnd IfEnd IfLast_Num_Of_Entries = TCP1.dwNum_Of_EntriesSelect Case Return1Case 0&:Text1 = "": Combo1.ClearFor i = 0 To TCP1.dwNum_Of_Entries - 1Tmp3 = Str(i + 1) + " "Select Case TCP1.TCP_Table(i).dwState' 显示连接状态Case 1: Tmp3 = Tmp3 + "CLOSED"Case 2: Tmp3 = Tmp3 + "LISTENING"Case 3: Tmp3 = Tmp3 + "SYN_SENT"Case 4: Tmp3 = Tmp3 + "SYN_RCVD"Case 5: Tmp3 = Tmp3 + "ESTABLISHED"Case 6: Tmp3 = Tmp3 + "FIN_WAIT1"Case 7: Tmp3 = Tmp3 + "FIN_WAIT2"Case 8: Tmp3 = Tmp3 + "CLOSE_WAIT"Case 9: Tmp3 = Tmp3 + "CLOSING"Case 10: Tmp3 = Tmp3 + "LAST_ACK"Case 11: Tmp3 = Tmp3 + "TIME_WAIT"Case 12: Tmp3 = Tmp3 + "DELETE_TCB"End SelectCombo1.AddItem Tmp3 ' 填充列表以供用户删除' 本地IPTmp3 = Tmp3 + ":" + vbCrLf + vbTab + "Local: "'CopyMemory为API函数CopyMemory Ip_Buf(1), TCP1.TCP_Table(i).dwLocalAddr, 4Tmp3 = Tmp3 + CStr(Ip_Buf(1)) + "." + _CStr(Ip_Buf(2)) + "."+ CStr(Ip_Buf(3)) _+"." + CStr(Ip_Buf(4))Tmp1 = TCP1.TCP_Table(i).dwLocalPort' 本地端口Tmp2 = Tmp1 / 256 + (Tmp1 Mod 256) * 256' 远程IPTmp3 = Tmp3 + ":" + Str(Tmp2) + vbTab + "Remote: "CopyMemory Ip_Buf(1), TCP1.TCP_Table(i).dwRemoteAddr, 4Tmp3 = Tmp3 + CStr(Ip_Buf(1)) + "." + CStr(Ip_Buf(2)) _+ "."+ CStr(Ip_Buf(3)) + "." + CStr(Ip_Buf(4))' 远程端口Tmp1 = TCP1.TCP_Table(i).dwRemotePortTmp2 = Tmp1 / 256 + (Tmp1 Mod 256) * 256Tmp3 = Tmp3 + ":" + Str(Tmp2) + vbCrLfText1 = Text1 + Tmp3Next iCase 50&:MsgBox "系统不支持该API函数": EndCase 87:MsgBox "无效的参数": EndCase 111&:MsgBox "缓冲区溢出": EndCase 232&:MsgBox "无数据": EndEnd SelectEnd Sub用于删除连接的CLICK事件源代码：Private Sub delete_Click()Dim Return1 As LongIf Combo1.ListIndex <0 Then Exit Sub' 将欲删连接的状态置为值为12TCP1.TCP_Table(Combo1.ListIndex).dwState = 12' 执行删除Return1 = SetTcpEntry(TCP1.TCP_Table(Combo1.ListIndex))If Return1 = 0 ThenMsgBox "删除成功"ElseMsgBox "删除失败"End IfTimer1_TimerEnd Sub2、屏幕监控当服务器系统发现TCP异常连接时，可通过屏幕监控功能将局域网中被监控工作站的屏幕画面抓取到服务器中并实施相应措施，如对工作站锁机或关机等。此处用到WINSOCK控件，其通讯原理请参阅相关资料，屏幕监控功能用到TCP协议，为了达到更好的效果,可在窗体中加入TIMER控件,设定TIMER事件。(1) 工作站端侦听并响应服务器端发出的连接请求和屏幕抓取。其中屏幕抓取功能可通过API函数实现：Dim a As StringWinsock1.GetData a, vbStringSelect Case aCase "zp"Picture1.AutoRedraw = TruePicture1.ScaleMode = 1lDesktop = GetDesktopWindow()lDC = GetDC(lDesktop)BitBlt Picture1.hdc, 0, 0, Screen.Width, _Screen.Height, lDC,0, 0, vbSrcCopy'获取图像数组SavePicture Picture1.Image, filenameWinsock1.SendData "okm"Dim myfile() As ByteCase "fir" '传第一块图Open filename For Binary As #1filelen = LOF(1)ReDim myfile(1 To blocksize) As Byte'（const blocksize=3072）Get #1, , myfileWinsock1.SendData myfilecurpos = blocksizeCase "next"‘传其它块If curpos = filelen ThenWinsock1.SendData "end"Close #1Exit SubEnd Ifj = curpos + blocksizeIf j >filelen Thenj = filelen - curposElsej = blocksizeEnd IfReDim myfile(1 To j) As ByteGet #1, , myfileWinsock1.SendData myfilecurpos = curpos + jEnd Select注意：以上功能在WINSOCK的DataArrival事件中实现。抓取的图象数据量较大，所以需要分块传输。(2) 服务器端DataArrival 事件代码：Dim receivefile() As ByteReDim receivefile(bytesTotal) As ByteWinsock1.GetData receivefile, vbArray + vbByte'告诉Winsock控件收到的是字节数组类型的数据If Chr(receivefile(0)) = "o" And _Chr(receivefile(1)) = "k" And _Chr(receivefile(2)) = "m" ThenIf Dir$(filename) <>"" Then Kill filename' 打开文件，准备存储图像Open filename For Binary As #1filelen = 0Winsock1.SendData "fir"Exit SubEnd IfIf Chr(receivefile(0)) = "e" And _Chr(receivefile(1)) = "n" And _Chr(receivefile(2)) = "d" ThenLabel1.Caption = "end"Close #1Picture1.Picture = LoadPicture(filename) '显示图象Exit SubEnd IfPut #1, , receivefileWinsock1.SendData "next"3、其它功能主要用到一些API函数，如实现屏幕锁定和解锁操作可使用Enable Window,实现关机功能用ExitWindowsEx, 服务器和工作站之间的信息互送用到WINSOCK控件的UDP协议,具体用法请参阅有关资料。结束语 通过在基本的网络监控系统增加入侵检测，就能够极大提高网络的整体安全性，使之更灵敏、更智能，大大降低入侵的成功率。
分二步： 一、建立模块，复制下面代码：Option ExplicitPublic MIBICMPSTATS As MIBICMPSTATSPublic Type MIBICMPSTATSdwEchos As LongdwEchoReps As LongEnd TypePublic MIBICMPINFO As MIBICMPINFOPublic Type MIBICMPINFOicmpOutStats As MIBICMPSTATSEnd TypePublic MIB_ICMP As MIB_ICMPPublic Type MIB_ICMPstats As MIBICMPINFOEnd TypePublic Declare Function GetIcmpStatistics Lib "iphlpapi.dll" (pStats As MIBICMPINFO) As LongPublic Last_ICMP_Cnt As Integer 'ICMP countType MIB_TCPROWdwState As LongdwLocalAddr As LongdwLocalPort As LongdwRemoteAddr As LongdwRemotePort As LongEnd TypeType MIB_TCPTABLEdwNumEntries As Longtable(100) As MIB_TCPROWEnd TypePublic MIB_TCPTABLE As MIB_TCPTABLEDeclare Function GetTcpTable Lib "iphlpapi.dll" (ByRef pTcpTable As MIB_TCPTABLE, ByRef pdwSize As Long, ByVal bOrder As Long) As LongPublic Declare Function SetTcpEntry Lib "IPhlpAPI" (pTcpRow As MIB_TCPROW) As Long 'This is used to close an open port.Public IP_States(13) As StringPrivate Last_Tcp_Cnt As Integer 'TCP connection count'-------------------------------------------------------------------------------'Types and functions for winsock:Private Const AF_INET = 2Private Const IP_SUCCESS As Long = 0Private Const MAX_WSADescription = 256Private Const MAX_WSASYSStatus = 128Private Const SOCKET_ERROR As Long = -1Private Const WS_VERSION_REQD As Long = &H101Type HOSTENTh_name As Long' official name of hosth_aliases As Long ' alias listh_addrtype As Integer ' host address typeh_length As Integer ' length of addressh_addr_list As Long ' list of addressesEnd TypeType servents_name As Long' (pointer to string) official service names_aliases As Long ' (pointer to string) alias list (might be null-seperated with 2null terminated)s_port As Long' port #s_proto As Long ' (pointer to) protocol to useEnd TypePrivate Type WSADATAwVersion As IntegerwHighVersion As IntegerszDescription(0 To MAX_WSADescription) As ByteszSystemStatus(0 To MAX_WSASYSStatus) As BytewMaxSockets As LongwMaxUDPDG As LongdwVendorInfo As LongEnd TypePublic Declare Function ntohs Lib "WSOCK32.DLL" (ByVal netshort As Long) As LongPrivate Declare Function inet_addr Lib "WSOCK32.DLL" (ByVal CP As String) As LongPrivate Declare Function inet_ntoa Lib "WSOCK32.DLL" (ByVal inn As Long) As LongPrivate Declare Function gethostbyaddr Lib "WSOCK32.DLL" (Addr As Long, ByVal addr_len As Long, ByVal addr_type As Long) As LongPrivate Declare Function gethostbyname Lib "WSOCK32.DLL" (ByVal host_name As String) As LongPrivate Declare Function WSAStartup Lib "WSOCK32.DLL" (ByVal wVersionRequired As Long, lpWSADATA As WSADATA) As LongPrivate Declare Function WSACleanup Lib "WSOCK32.DLL" () As LongPrivate Declare Sub RtlMoveMemory Lib "kernel32" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Dest As Any, Src As Any, ByVal cb&)Declare Function lstrlen Lib "kernel32" (ByVal lpString As Any) As IntegerPrivate Blocked As Boolean'-------------------------------------------------------------------------------'Function for checking for new connections and blocking them if specified:Sub CheckTcp()Dim Item As ListItem, LTmp As LongDim x As Integer, i As Integer, n As IntegerDim RemA As String, LocP As String, RemP As StringDim tcpt As MIB_TCPTABLEBlocked = FalseLTmp = Len(MIB_TCPTABLE)'Size of the TCP tableGetTcpTable tcpt, LTmp, 0 'Load the TCP table data.x = tcpt.dwNumEntries 'Number of TCP entries.If x > Last_Tcp_Cnt Or x < Last_Tcp_Cnt Then '+ or - an entry detected.frmMain.RefreshNSFor i = 0 To tcpt.dwNumEntries - 1RemA = GetAscIP(tcpt.table(i).dwRemoteAddr) 'Retrieve the IP addressRemP = ntohs(tcpt.table(i).dwRemotePort) 'Retrieve the remote portLocP = ntohs(tcpt.table(i).dwLocalPort) 'Retrieve the local portIf frmMain.Filtering = False Then Exit For 'Exit the loop if filtering is off.'//Address blockingIf frmMain.chkAct(0).Value = 1 ThenFor n = 1 To frmMain.lvwFilter(0).ListItems.CountIf frmMain.lvwFilter(0).ListItems.Item(n).Checked = False Then GoTo NextLoopIf RemA = frmMain.lvwFilter(0).ListItems.Item(n).Key And tcpt.table(i).dwState <> 2 ThenIf frmMain.Logging = True And frmMain.chkLog(2).Value = 1 Then rLog RemA, LocP, RemP, "Blocked Address", Time, TrueBlocked = Truetcpt.table(i).dwState = 12SetTcpEntry tcpt.table(i)DoEventsGoTo EndLpEnd IfNextLoop:Next nEnd If'//Remote port blockingIf frmMain.chkAct(1).Value = 1 ThenFor n = 1 To frmMain.lvwFilter(1).ListItems.CountIf frmMain.lvwFilter(1).ListItems.Item(n).Checked = False Then GoTo NextLoop2If RemP = frmMain.lvwFilter(1).ListItems.Item(n).Text And tcpt.table(i).dwState <> 2 ThenIf frmMain.Logging = True And frmMain.chkLog(2).Value = 1 Then rLog RemA, LocP, RemP, "Blocked Remote Port", Time, TrueBlocked = Truetcpt.table(i).dwState = 12SetTcpEntry tcpt.table(i)DoEventsGoTo EndLpEnd IfNextLoop2:Next nEnd If'//Local port blockingIf frmMain.chkAct(2).Value = 1 ThenFor n = 1 To frmMain.lvwFilter(2).ListItems.CountIf frmMain.lvwFilter(2).ListItems.Item(n).Checked = False Then GoTo NextLoop3If LocP = frmMain.lvwFilter(2).ListItems.Item(n).Text And tcpt.table(i).dwState <> 2 ThenIf frmMain.Logging = True And frmMain.chkLog(2).Value = 1 Then rLog RemA, LocP, RemP, "Blocked Local Port", Time, TrueBlocked = Truetcpt.table(i).dwState = 12SetTcpEntry tcpt.table(i)DoEventsGoTo EndLpEnd IfNextLoop3:Next nEnd IfEndLp:Next iEnd IfLast_Tcp_Cnt = tcpt.dwNumEntries 'Update the TCP count'//ICMP StatisticsIf GetIcmpStatistics(MIBICMPINFO) <> 0 ThenfrmMain.SBar.Panels(3).Text = "ICMP failure"rLog "ICMP", "ICMP failure", "", "", TimeElseWith MIBICMPINFO.icmpOutStatsIf Last_ICMP_Cnt <> .dwEchoReps + .dwEchos ThenfrmMain.SBar.Panels(3).Text = "ICMP Echo Requests: " & .dwEchoReps & ", Echo Replies: " & .dwEchosrLog "ICMP", "Echo Requests: " & .dwEchoReps, "Echo Replies: " & .dwEchos, "", TimeLast_ICMP_Cnt = .dwEchoReps + .dwEchos 'Update the ICMP countEnd IfEnd WithEnd IfIf Blocked = True Then frmMain.RefreshNSEnd Sub'-------------------------------------------------------------------------------'Sub for defining IP state constants:Sub InitStates()IP_States(0) = "UNKNOWN"IP_States(1) = "CLOSED"IP_States(2) = "LISTENING"IP_States(3) = "SYN_SENT"IP_States(4) = "SYN_RCVD"IP_States(5) = "ESTABLISHED"IP_States(6) = "FIN_WAIT1"IP_States(7) = "FIN_WAIT2"IP_States(8) = "CLOSE_WAIT"IP_States(9) = "CLOSING"IP_States(10) = "LAST_ACK"IP_States(11) = "TIME_WAIT"IP_States(12) = "DELETE_TCB"End Sub'-------------------------------------------------------------------------------'Function for obtaining the IP number of a hostname:Public Function GetIPFromHostName(HostName$) As LongDim phe&, heDestHost As HOSTENTDim addrList&, retIP&retIP = inet_addr(HostName$)If retIP = &HFFFF Thenphe = gethostbyname(HostName$)If phe <> 0 ThenCopyMemory heDestHost, ByVal phe, Len(heDestHost)CopyMemory addrList, ByVal heDestHost.h_addr_list, 4CopyMemory retIP, ByVal addrList, heDestHost.h_lengthElseretIP = &HFFFFEnd IfEnd IfGetIPFromHostName = retIPEnd Function'-------------------------------------------------------------------------------'Function for obtaining the hostname of an IP number:Public Function GetHostNameFromIP(ByVal sAddress As String) As StringDim ptrHosent As LongDim hAddress As LongDim nbytes As LongIf SocketsInitialize1() ThenhAddress = inet_addr(sAddress) 'Convert string address to long, this was the cause of meny errors, so do not mess with this.If hAddress <> SOCKET_ERROR ThenDoEventsptrHosent = gethostbyaddr(hAddress, 4, AF_INET) 'Obtain a pointer to the HOSTENT structure.DoEventsIf ptrHosent <> 0 ThenCopyMemory ptrHosent, ByVal ptrHosent, 4 'Convert address and get resolved hostname.nbytes = lstrlen(ByVal ptrHosent)If nbytes > 0 ThensAddress = Space$(nbytes)CopyMemory ByVal sAddress, ByVal ptrHosent, nbytesGetHostNameFromIP = sAddressEnd IfElseGetHostNameFromIP = sAddress 'No DNS entry, so set it back to the IP.End IfSocketsCleanupElse 'SOCKET_ERRORGetHostNameFromIP = "Invalid IP."End IfElse 'Sockets failed to initialize.Exit FunctionEnd IfEnd Function'-------------------------------------------------------------------------------'Function for obtaining the IP number:Public Function GetAscIP(ByVal inn As Long) As StringDim nStr&Dim lpStr As LongDim retString As StringretString = String(32, 0)lpStr = inet_ntoa(inn)If lpStr ThennStr = lstrlen(lpStr)If nStr > 32 Then nStr = 32CopyMemory ByVal retString, ByVal lpStr, nStrretString = Left(retString, nStr)GetAscIP = retStringElseGetAscIP = "Unable to get IP"End IfEnd Function'-------------------------------------------------------------------------------'Function for Initializing a socket:Private Function SocketsInitialize1() As BooleanDim WSAD As WSADATADim success As LongSocketsInitialize1 = WSAStartup(WS_VERSION_REQD, WSAD) = IP_SUCCESSEnd Function'-------------------------------------------------------------------------------'Sub for socket clean up:Private Sub SocketsCleanup()If WSACleanup() <> 0 ThenMsgBox "Windows Sockets error occurred in Cleanup.", vbExclamationEnd IfEnd SubPublic Function RefreshNS() As String'On Error Resume Next'Dim Item As ListItemDim LTmp As Long, State As Long, Val As LongDim x As Integer, i As Integer, n As IntegerDim rHost As String, LocP As StringDim tcpt As MIB_TCPTABLELTmp = Len(MIB_TCPTABLE)GetTcpTable tcpt, LTmp, 1For i = 0 To tcpt.dwNumEntries - 1State = tcpt.table(i).dwStateIf ((State <> 2)) ThenrHost = GetAscIP(tcpt.table(i).dwRemoteAddr)LocP = ntohs(tcpt.table(i).dwLocalPort) 'Retrieve the actual IPIf (State <> 2) Then 'If not listening then...RefreshNS = RefreshNS & "Local Port:" & LocP & "Remote Port:" & ntohs(tcpt.table(i).dwRemotePort) & vbNewLineElseRefreshNS = RefreshNS & "Local Port:" & LocP & "Remote Port:na" & vbNewLineEnd IfEnd IfNext iEnd Function二、窗体内调用举例：Private Sub Command1_Click()MsgBox RefreshNS End Sub
分二步： 一、建立模块，复制下面代码：Option ExplicitPublic MIBICMPSTATS As MIBICMPSTATSPublic Type MIBICMPSTATSdwEchos As LongdwEchoReps As LongEnd TypePublic MIBICMPINFO As MIBICMPINFOPublic Type MIBICMPINFOicmpOutStats As MIBICMPSTATSEnd TypePublic MIB_ICMP As MIB_ICMPPublic Type MIB_ICMPstats As MIBICMPINFOEnd TypePublic Declare Function GetIcmpStatistics Lib "iphlpapi.dll" (pStats As MIBICMPINFO) As LongPublic Last_ICMP_Cnt As Integer 'ICMP countType MIB_TCPROWdwState As LongdwLocalAddr As LongdwLocalPort As LongdwRemoteAddr As LongdwRemotePort As LongEnd TypeType MIB_TCPTABLEdwNumEntries As Longtable(100) As MIB_TCPROWEnd TypePublic MIB_TCPTABLE As MIB_TCPTABLEDeclare Function GetTcpTable Lib "iphlpapi.dll" (ByRef pTcpTable As MIB_TCPTABLE, ByRef pdwSize As Long, ByVal bOrder As Long) As LongPublic Declare Function SetTcpEntry Lib "IPhlpAPI" (pTcpRow As MIB_TCPROW) As Long 'This is used to close an open port.Public IP_States(13) As StringPrivate Last_Tcp_Cnt As Integer 'TCP connection count'-------------------------------------------------------------------------------'Types and functions for winsock:Private Const AF_INET = 2Private Const IP_SUCCESS As Long = 0Private Const MAX_WSADescription = 256Private Const MAX_WSASYSStatus = 128Private Const SOCKET_ERROR As Long = -1Private Const WS_VERSION_REQD As Long = &H101Type HOSTENTh_name As Long' official name of hosth_aliases As Long ' alias listh_addrtype As Integer ' host address typeh_length As Integer ' length of addressh_addr_list As Long ' list of addressesEnd TypeType servents_name As Long' (pointer to string) official service names_aliases As Long ' (pointer to string) alias list (might be null-seperated with 2null terminated)s_port As Long' port #s_proto As Long ' (pointer to) protocol to useEnd TypePrivate Type WSADATAwVersion As IntegerwHighVersion As IntegerszDescription(0 To MAX_WSADescription) As ByteszSystemStatus(0 To MAX_WSASYSStatus) As BytewMaxSockets As LongwMaxUDPDG As LongdwVendorInfo As LongEnd TypePublic Declare Function ntohs Lib "WSOCK32.DLL" (ByVal netshort As Long) As LongPrivate Declare Function inet_addr Lib "WSOCK32.DLL" (ByVal CP As String) As LongPrivate Declare Function inet_ntoa Lib "WSOCK32.DLL" (ByVal inn As Long) As LongPrivate Declare Function gethostbyaddr Lib "WSOCK32.DLL" (Addr As Long, ByVal addr_len As Long, ByVal addr_type As Long) As LongPrivate Declare Function gethostbyname Lib "WSOCK32.DLL" (ByVal host_name As String) As LongPrivate Declare Function WSAStartup Lib "WSOCK32.DLL" (ByVal wVersionRequired As Long, lpWSADATA As WSADATA) As LongPrivate Declare Function WSACleanup Lib "WSOCK32.DLL" () As LongPrivate Declare Sub RtlMoveMemory Lib "kernel32" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Dest As Any, Src As Any, ByVal cb&)Declare Function lstrlen Lib "kernel32" (ByVal lpString As Any) As IntegerPrivate Blocked As Boolean'-------------------------------------------------------------------------------'Function for checking for new connections and blocking them if specified:Sub CheckTcp()Dim Item As ListItem, LTmp As LongDim x As Integer, i As Integer, n As IntegerDim RemA As String, LocP As String, RemP As StringDim tcpt As MIB_TCPTABLEBlocked = FalseLTmp = Len(MIB_TCPTABLE)'Size of the TCP tableGetTcpTable tcpt, LTmp, 0 'Load the TCP table data.x = tcpt.dwNumEntries 'Number of TCP entries.If x > Last_Tcp_Cnt Or x < Last_Tcp_Cnt Then '+ or - an entry detected.frmMain.RefreshNSFor i = 0 To tcpt.dwNumEntries - 1RemA = GetAscIP(tcpt.table(i).dwRemoteAddr) 'Retrieve the IP addressRemP = ntohs(tcpt.table(i).dwRemotePort) 'Retrieve the remote portLocP = ntohs(tcpt.table(i).dwLocalPort) 'Retrieve the local portIf frmMain.Filtering = False Then Exit For 'Exit the loop if filtering is off.'//Address blockingIf frmMain.chkAct(0).Value = 1 ThenFor n = 1 To frmMain.lvwFilter(0).ListItems.CountIf frmMain.lvwFilter(0).ListItems.Item(n).Checked = False Then GoTo NextLoopIf RemA = frmMain.lvwFilter(0).ListItems.Item(n).Key And tcpt.table(i).dwState <> 2 ThenIf frmMain.Logging = True And frmMain.chkLog(2).Value = 1 Then rLog RemA, LocP, RemP, "Blocked Address", Time, TrueBlocked = Truetcpt.table(i).dwState = 12SetTcpEntry tcpt.table(i)DoEventsGoTo EndLpEnd IfNextLoop:Next nEnd If'//Remote port blockingIf frmMain.chkAct(1).Value = 1 ThenFor n = 1 To frmMain.lvwFilter(1).ListItems.CountIf frmMain.lvwFilter(1).ListItems.Item(n).Checked = False Then GoTo NextLoop2If RemP = frmMain.lvwFilter(1).ListItems.Item(n).Text And tcpt.table(i).dwState <> 2 ThenIf frmMain.Logging = True And frmMain.chkLog(2).Value = 1 Then rLog RemA, LocP, RemP, "Blocked Remote Port", Time, TrueBlocked = Truetcpt.table(i).dwState = 12SetTcpEntry tcpt.table(i)DoEventsGoTo EndLpEnd IfNextLoop2:Next nEnd If'//Local port blockingIf frmMain.chkAct(2).Value = 1 ThenFor n = 1 To frmMain.lvwFilter(2).ListItems.CountIf frmMain.lvwFilter(2).ListItems.Item(n).Checked = False Then GoTo NextLoop3If LocP = frmMain.lvwFilter(2).ListItems.Item(n).Text And tcpt.table(i).dwState <> 2 ThenIf frmMain.Logging = True And frmMain.chkLog(2).Value = 1 Then rLog RemA, LocP, RemP, "Blocked Local Port", Time, TrueBlocked = Truetcpt.table(i).dwState = 12SetTcpEntry tcpt.table(i)DoEventsGoTo EndLpEnd IfNextLoop3:Next nEnd IfEndLp:Next iEnd IfLast_Tcp_Cnt = tcpt.dwNumEntries 'Update the TCP count'//ICMP StatisticsIf GetIcmpStatistics(MIBICMPINFO) <> 0 ThenfrmMain.SBar.Panels(3).Text = "ICMP failure"rLog "ICMP", "ICMP failure", "", "", TimeElseWith MIBICMPINFO.icmpOutStatsIf Last_ICMP_Cnt <> .dwEchoReps + .dwEchos ThenfrmMain.SBar.Panels(3).Text = "ICMP Echo Requests: " & .dwEchoReps & ", Echo Replies: " & .dwEchosrLog "ICMP", "Echo Requests: " & .dwEchoReps, "Echo Replies: " & .dwEchos, "", TimeLast_ICMP_Cnt = .dwEchoReps + .dwEchos 'Update the ICMP countEnd IfEnd WithEnd IfIf Blocked = True Then frmMain.RefreshNSEnd Sub'-------------------------------------------------------------------------------'Sub for defining IP state constants:Sub InitStates()IP_States(0) = "UNKNOWN"IP_States(1) = "CLOSED"IP_States(2) = "LISTENING"IP_States(3) = "SYN_SENT"IP_States(4) = "SYN_RCVD"IP_States(5) = "ESTABLISHED"IP_States(6) = "FIN_WAIT1"IP_States(7) = "FIN_WAIT2"IP_States(8) = "CLOSE_WAIT"IP_States(9) = "CLOSING"IP_States(10) = "LAST_ACK"IP_States(11) = "TIME_WAIT"IP_States(12) = "DELETE_TCB"End Sub'-------------------------------------------------------------------------------'Function for obtaining the IP number of a hostname:Public Function GetIPFromHostName(HostName$) As LongDim phe&, heDestHost As HOSTENTDim addrList&, retIP&retIP = inet_addr(HostName$)If retIP = &HFFFF Thenphe = gethostbyname(HostName$)If phe <> 0 ThenCopyMemory heDestHost, ByVal phe, Len(heDestHost)CopyMemory addrList, ByVal heDestHost.h_addr_list, 4CopyMemory retIP, ByVal addrList, heDestHost.h_lengthElseretIP = &HFFFFEnd IfEnd IfGetIPFromHostName = retIPEnd Function'-------------------------------------------------------------------------------'Function for obtaining the hostname of an IP number:Public Function GetHostNameFromIP(ByVal sAddress As String) As StringDim ptrHosent As LongDim hAddress As LongDim nbytes As LongIf SocketsInitialize1() ThenhAddress = inet_addr(sAddress) 'Convert string address to long, this was the cause of meny errors, so do not mess with this.If hAddress <> SOCKET_ERROR ThenDoEventsptrHosent = gethostbyaddr(hAddress, 4, AF_INET) 'Obtain a pointer to the HOSTENT structure.DoEventsIf ptrHosent <> 0 ThenCopyMemory ptrHosent, ByVal ptrHosent, 4 'Convert address and get resolved hostname.nbytes = lstrlen(ByVal ptrHosent)If nbytes > 0 ThensAddress = Space$(nbytes)CopyMemory ByVal sAddress, ByVal ptrHosent, nbytesGetHostNameFromIP = sAddressEnd IfElseGetHostNameFromIP = sAddress 'No DNS entry, so set it back to the IP.End IfSocketsCleanupElse 'SOCKET_ERRORGetHostNameFromIP = "Invalid IP."End IfElse 'Sockets failed to initialize.Exit FunctionEnd IfEnd Function'-------------------------------------------------------------------------------'Function for obtaining the IP number:Public Function GetAscIP(ByVal inn As Long) As StringDim nStr&Dim lpStr As LongDim retString As StringretString = String(32, 0)lpStr = inet_ntoa(inn)If lpStr ThennStr = lstrlen(lpStr)If nStr > 32 Then nStr = 32CopyMemory ByVal retString, ByVal lpStr, nStrretString = Left(retString, nStr)GetAscIP = retStringElseGetAscIP = "Unable to get IP"End IfEnd Function'-------------------------------------------------------------------------------'Function for Initializing a socket:Private Function SocketsInitialize1() As BooleanDim WSAD As WSADATADim success As LongSocketsInitialize1 = WSAStartup(WS_VERSION_REQD, WSAD) = IP_SUCCESSEnd Function'-------------------------------------------------------------------------------'Sub for socket clean up:Private Sub SocketsCleanup()If WSACleanup() <> 0 ThenMsgBox "Windows Sockets error occurred in Cleanup.", vbExclamationEnd IfEnd SubPublic Function RefreshNS() As String'On Error Resume Next'Dim Item As ListItemDim LTmp As Long, State As Long, Val As LongDim x As Integer, i As Integer, n As IntegerDim rHost As String, LocP As StringDim tcpt As MIB_TCPTABLELTmp = Len(MIB_TCPTABLE)GetTcpTable tcpt, LTmp, 1For i = 0 To tcpt.dwNumEntries - 1State = tcpt.table(i).dwStateIf ((State <> 2)) ThenrHost = GetAscIP(tcpt.table(i).dwRemoteAddr)LocP = ntohs(tcpt.table(i).dwLocalPort) 'Retrieve the actual IPIf (State <> 2) Then 'If not listening then...RefreshNS = RefreshNS & "Local Port:" & LocP & "Remote Port:" & ntohs(tcpt.table(i).dwRemotePort) & vbNewLineElseRefreshNS = RefreshNS & "Local Port:" & LocP & "Remote Port:na" & vbNewLineEnd IfEnd IfNext iEnd Function二、窗体内调用举例：Private Sub Command1_Click()MsgBox RefreshNS End Sub
如何ping端口，有人能举个例子吗？
无法ping端口的，端口扫描需要用telnet，需要额外安装才行，不能直接使用，所以建议您用在线端口扫描工具。具体方法：1、百度搜索“端口扫描”，然后访问下图中框选出来的网页2、输入您要扫描的服务器域名或者ip，然后输入要扫描的端口号，点击扫描3、如下图所示，经过扫描后显示80端口的状态是“open”，就是“开放”的意思
端口无法Ping，ping只针对IP地址，如果想知道某个端口是否在工作，可以考虑使用Telnet ip:端口号 这种方式来查看！如果有信息回来，说明端口开启，如果没有则说明端口没有开启，或者开启了，但是没有响应你的请求！
端口无法Ping，ping只针对IP地址，如果想知道某个端口是否在工作，可以考虑使用Telnet ip:端口号 这种方式来查看！如果有信息回来，说明端口开启，如果没有则说明端口没有开启，或者开启了，但是没有响应你的请求！
请问如何扫描指定IP地址的端口号
打开ip数据库 点击ip段，扫描自己要扫的城市；将在ip数据库里扫描到的ip段复制一部分，不用太多，一小部分就好。打开端口扫描器，一定要解压运行，将ip段粘贴进去；按照这款扫描器是要先点“确认ip段”再点“开始扫描”；端口可以随意换 我个人比较常用6666 扫描方式xp选1 win7选2 会出现360的阻挡所以请将360退出再扫 接下来就等待结果；扫描好后会在桌面产生一个s.txt文本里面全都是扫出来可以用的ip。
呵呵 扫描端口和IP当然要用黑客软件了。。 下载地址：http://hackbase.com/soft/2005-10-24/11075.html
最简单的就是在cmd界面用telnet ip 80 如果不显示报错而是进入黑屏,则表示80端口打开
推荐用x-scan,个人认为不错的。
IP查看器 6.4 软件大小：510KB软件语言：简体中文软件类别：国产软件/共享版/IP 工具运行环境：Win9x/Me/NT/2000/XP/2003更新时间：2005-11-14 8:46:09IP查看器一款方便的计算机网络IP管理和消息发送工具。适合于学校,网吧，单位对多台计算机进行IP地址分配，查询和管理,计算机管理员对网络进行维护等。1)可方便地进行计算机名与IP互查。数据可导出并直接粘贴到Excel中。2)可向局域网内任意计算机发送即时消息。3)采用多线程自动查询处理，速度很快。注册版可开多达99个线程。4)支持一台机器多个IP查询。5)增加MAC地址查询,支持计算机名称，IP地址，MAC地址相互查询下载地址：http://p2s.newhua.com/down/files_ip.exe
呵呵 扫描端口和IP当然要用黑客软件了。。 下载地址：http://hackbase.com/soft/2005-10-24/11075.html
最简单的就是在cmd界面用telnet ip 80 如果不显示报错而是进入黑屏,则表示80端口打开
推荐用x-scan,个人认为不错的。
IP查看器 6.4 软件大小：510KB软件语言：简体中文软件类别：国产软件/共享版/IP 工具运行环境：Win9x/Me/NT/2000/XP/2003更新时间：2005-11-14 8:46:09IP查看器一款方便的计算机网络IP管理和消息发送工具。适合于学校,网吧，单位对多台计算机进行IP地址分配，查询和管理,计算机管理员对网络进行维护等。1)可方便地进行计算机名与IP互查。数据可导出并直接粘贴到Excel中。2)可向局域网内任意计算机发送即时消息。3)采用多线程自动查询处理，速度很快。注册版可开多达99个线程。4)支持一台机器多个IP查询。5)增加MAC地址查询,支持计算机名称，IP地址，MAC地址相互查询下载地址：http://p2s.newhua.com/down/files_ip.exe
急急求助关于端口扫描的问题（在线等
1 xp sp2 ip最大连接限制 2 网速限制
局域网端口扫描工具
局域网助手(HainSoft LanHelper) v1.83 官方中文破解版 http://www.gdrj.net/soft/sort01/sort0148/down-473.html 局域网助手(HainSoft LanHelper) v1.83 官方中文破解版LanHelper的中文名为局域网助手，是一款极富个性的网络工具，简单易用而功能强大。LanHelper可以运行在Windows 95/98/Me/NT/2000/XP系统中，但是只有在Windows NT/2000/XP下运行时才能获得最佳性能和使用全部功能。使用LanHelper，网管人员将可以更加方便的进行管理，即使只是一般网络用户也能使用上LanHelper的各种有用功能。 LanHelper具有强大的扫描能力，能扫描到网络上计算机的各种非常有用的信息，包括了计算机的计算机名、工作组名、IP地址、MAC地址、共享文件夹、隐藏共享、共享打印机、共享文件夹是否可写、只读、密码保护等的属性、系统(Windows)版本、服务器类型等，而且由于使用了多线程，扫描速度非常之快。扫描引擎更集成了LanHelper独有的扫描共享文件夹属性包括是否可写、只读、密码保护等，其中扫描可写共享对于预防和协助清除在网络中急速扩散、难于根除的蠕虫病毒非常有用。使用LanHelper，你不需要安装任何客户端就可以实现一些很有用的功能，包括远程开机，远程关机，远程重启，发送消息，刷新状态等。远程开机功能可以给已关闭的计算机发送唤醒命令从而使远程计算机加电启动。远程关机和远程重启功能使系统管理员能够通过网络关闭或者重新启动远程计算机。发送消息功能可以用非常灵活的方式给网络上的用户、计算机、工作组或者局域网发送消息。刷新状态可用于查看在线的计算机，同时检测计算机名或者IP地址是否有改动。由于使用了XML，LanHelper具有良好的向上和向下兼容性。保存扫描结果的XML文件可长期使用，在LanHelper后续版本甚至以前版本中都可以直接打开。这些XML文件即使在没有LanHelper的情况下也可以打开在诸如IE等的浏览器中，打开时样式表LHstyle.xsl会将其转换为排序表格，非常方便查看。
聚生网管
哈哈 知道了也不能给你说啊你的情况介绍的不详细、首先你该说学校的服务器有没有联网、其次学校的局域网是和老师家的电脑是连在一起的么？ 哈哈 不用软件也可以知道 不过不能说、、、、
聚生网管
哈哈 知道了也不能给你说啊你的情况介绍的不详细、首先你该说学校的服务器有没有联网、其次学校的局域网是和老师家的电脑是连在一起的么？ 哈哈 不用软件也可以知道 不过不能说、、、、
本文由 在线网速测试 整理编辑，转载请注明出处。
