在线端口扫描(ipv6端口扫描在线)

用X-Scan吧 一个强大的扫描软件，或是流光也行

s 扫描器是一款命令行下高速扫描利器，通过最新的瑞星杀毒软件测试 命令: s.exe syn ip1 ip2 端口号 /saves.exe tcp ip1 ip2 端口号 线程数 /saves.exe扫描器的使用说明首先我解释下什么是S扫描器，S扫描器是针对微软ms04045漏洞出的一个扫描，原来作者出这东西的目的是为了扫描这个漏洞，但现在已经变成我们黑客手中的兵器了，大家也许看过很多如何找肉鸡的动画或刷QB的动画，那些动画里面很多都是用S扫描器来扫描肉鸡或别人电脑所开放的端口及一些漏洞，都用这工具的好处是它的扫描速度实在是一个字---强！ 今天我就来教下大家如何使用S扫描器。简单说明下它的用处：S扫描器是一个简单的使用两种常用的扫描方式进行端口扫描的端口扫描器程序.可实现的功能是:1.两种不同的扫描方式(SYN扫描和一般的connect扫描)2.可以扫描单个IP或IP段所有端口3.可以扫描单个IP或IP段单个端口4.可以扫描单个IP或IP段用户定义的端口5.可以显示打开端口的banner6.可将结果写入文件7.TCP扫描可自定义线程数用法:scanner TCP/SYN StartIP [EndIP] Ports [Threads] [/Banner] [/Save]参数说明:TCP/SYN -> TCP方式扫描或SYN方式扫描(SYN扫描需要在win 2k或以上系统才行),SYN扫描对本机无效StartIP -> 起始扫描的IPEndIP -> 结束扫描的IP,可选项,如果这一项没有，就只是对单个IP扫描Ports -> 可以是单个端口，连续的一段端口或非连续的端口Threads -> 使用最大线程数去扫描(SYN扫描不需要加这一项),不能超过1024线程/Banner -> 扫描端口时一并将Banner显示出来,这一选项只对TCP扫描有效/Save -> 将结果写入当前目录的Result.txt文件中去打开S扫描器，下面我举几个例子演示下S扫描器的主要几个作用。例子一:S TCP 218.80.12.1 218.80.12.123 80 512TCP扫描218.80.12.1到218.80.12.123这IP段中的80端口,最大并发线程是512例子二：S TCP 218.80.12.1 218.80.12.123 21,5631 512 /BannerTCP扫描218.80.12.1到218.80.12.123这IP段中的21和5631端口,最大并发线程是512,并显示Banner例子三：S TCP 218.80.12.1 218.80.12.12 1-200 512TCP扫描218.80.12.1到218.80.12.12这IP段中的1到200端口,最大并发线程是512例子四：S TCP 218.80.12.7 1-200 512TCP扫描218.80.12.7这IP中的1到200端口,最大并发线程是512例子五：S SYN 218.80.12.7 1-65535 /SaveSYN扫描218.80.12.7这IP中的1到65535端口,将结果写入Result.txt扫描结束后Result.txt就存放在你的S扫描器所在的目录里。刚才扫描的东西都在里面。例子六：S SYN 218.80.12.1 218.80.12.255 21 /SaveSYN扫描218.80.12.1到218.80.12.255这IP段中的21端口,将结果写入Result.txt这个我重点说明一下，因为这条命令就是专门用来找肉鸡的，扫描一个IP段有没有开3389的或1433的我示范下：S SYN 218.80.1.1 218.80.255.255 3389 /Save注意:1.SYN扫描是很依赖于扫描者和被扫描者的网速的,如果你是内网的系统，那你不一定可以使用SYN扫描的，因为你的网关的类型会决定内网系统是否能进行SYN扫描.如果你的配置较低的话，我也不推荐使用SYN扫描.SYN扫描速度是比TCP扫描的速度快很多的，但在稳定性方面却不是太好，所以自己决定使用哪种模式进行扫描。2.SYN扫描不需要线程那个参数，请看上面例子5和63.TCP扫描的最大并发线程不能超过1024.4.使用SYN模式扫描，不能扫描Banner,具体为什么不能，请查看有关SYN的资料5.内网用户的朋友可以用tcp扫描关于S.exe 的用法和错误解释S扫描器扫描命令是:文件名 参数 起始IP 结束IP 要扫描的端口 保存s SYN 61.0.0.0 61.255.255.255 1433 save1433是SQL server 服务器端口 8080是代理服务器端口

打开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

无法ping端口的，端口扫描需要用telnet，需要额外安装才行，不能直接使用，所以建议您用在线端口扫描工具。具体方法：1、百度搜索“端口扫描”，然后访问下图中框选出来的网页2、输入您要扫描的服务器域名或者ip，然后输入要扫描的端口号，点击扫描3、如下图所示，经过扫描后显示80端口的状态是“open”，就是“开放”的意思
端口无法Ping，ping只针对IP地址，如果想知道某个端口是否在工作，可以考虑使用Telnet ip:端口号 这种方式来查看！如果有信息回来，说明端口开启，如果没有则说明端口没有开启，或者开启了，但是没有响应你的请求！

计算机网络技术的日益发展和普及，为信息共享提供了一条全球性的高速通道，但目前采用的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