frmstats.frm

vb网络变成

If Not ip2.dwForwarding = .dwForwarding Then _
ListView2.ListItems(1).SubItems(1) = .dwForwarding
If Not ip2.dwDefaultTTL = .dwDefaultTTL Then _
ListView2.ListItems(2).SubItems(1) = .dwDefaultTTL
If Not ip2.dwInReceives = .dwInReceives Then _
ListView2.ListItems(3).SubItems(1) = .dwInReceives
If Not ip2.dwInHdrErrors = .dwInHdrErrors Then _
ListView2.ListItems(4).SubItems(1) = .dwInHdrErrors
If Not ip2.dwInAddrErrors = .dwInAddrErrors Then _
ListView2.ListItems(5).SubItems(1) = .dwInAddrErrors
If Not ip2.dwForwDatagrams = .dwForwDatagrams Then _
ListView2.ListItems(6).SubItems(1) = .dwForwDatagrams
If Not ip2.dwInUnknownProtos = .dwInUnknownProtos Then _
ListView2.ListItems(7).SubItems(1) = .dwInUnknownProtos
If Not ip2.dwInDiscards = .dwInDiscards Then _
ListView2.ListItems(8).SubItems(1) = .dwInDiscards
If Not ip2.dwInDelivers = .dwInDelivers Then _
ListView2.ListItems(9).SubItems(1) = .dwInDelivers
If Not ip2.dwOutRequests = .dwOutRequests Then _
ListView2.ListItems(10).SubItems(1) = .dwOutRequests
If Not ip2.dwRoutingDiscards = .dwRoutingDiscards Then _
ListView2.ListItems(11).SubItems(1) = .dwRoutingDiscards
If Not ip2.dwOutDiscards = .dwOutDiscards Then _
ListView2.ListItems(12).SubItems(1) = .dwOutDiscards
If Not ip2.dwOutNoRoutes = .dwOutNoRoutes Then _
ListView2.ListItems(13).SubItems(1) = .dwOutNoRoutes
If Not ip2.dwReasmTimeout = .dwReasmTimeout Then _
ListView2.ListItems(14).SubItems(1) = .dwReasmTimeout
If Not ip2.dwReasmReqds = .dwReasmReqds Then _
ListView2.ListItems(15).SubItems(1) = .dwReasmReqds
If Not ip2.dwReasmOks = .dwReasmOks Then _
ListView2.ListItems(16).SubItems(1) = .dwReasmOks
If Not ip2.dwReasmFails = .dwReasmFails Then _
ListView2.ListItems(17).SubItems(1) = .dwReasmFails
If Not ip2.dwFragOks = .dwFragOks Then _
ListView2.ListItems(18).SubItems(1) = .dwFragOks
If Not ip2.dwFragFails = .dwFragFails Then _
ListView2.ListItems(19).SubItems(1) = .dwFragFails
If Not ip2.dwFragCreates = .dwFragCreates Then _
ListView2.ListItems(20).SubItems(1) = .dwFragCreates
If Not ip2.dwNumIf = .dwNumIf Then _
ListView2.ListItems(21).SubItems(1) = .dwNumIf
If Not ip2.dwNumAddr = .dwNumAddr Then _
ListView2.ListItems(22).SubItems(1) = .dwNumAddr
If Not ip2.dwNumRoutes = .dwNumRoutes Then _
ListView2.ListItems(23).SubItems(1) = .dwNumRoutes
End With

ip2 = IP


End Sub

Private Sub UpdateStats3()

On Error Resume Next
Dim lRetValue       As Long
Static udp2 As MIB_UDPSTATS

lRetValue = GetUdpStatistics(udp)

With udp
If Not udp2.dwInDatagrams = .dwInDatagrams Then _
ListView3.ListItems(1).SubItems(1) = .dwInDatagrams

If Not udp2.dwNoPorts = .dwNoPorts Then _
ListView3.ListItems(2).SubItems(1) = .dwNoPorts

If Not udp2.dwInErrors = .dwInErrors Then _
ListView3.ListItems(3).SubItems(1) = .dwInErrors

If Not udp2.dwOutDatagrams = .dwOutDatagrams Then _
ListView3.ListItems(4).SubItems(1) = .dwOutDatagrams

If Not udp2.dwNumAddrs = .dwNumAddrs Then _
ListView3.ListItems(5).SubItems(1) = .dwNumAddrs

End With

udp2 = udp

End Sub
Private Sub UpdateStats4()
On Error Resume Next

Dim lRetValue       As Long
Static icmp2 As MIBICMPINFO

lRetValue = GetIcmpStatistics(icmp)

With icmp
If Not icmp2.icmpOutStats.dwMsgs = .icmpOutStats.dwMsgs Then _
ListView4.ListItems(1).SubItems(1) = .icmpOutStats.dwMsgs
If Not icmp2.icmpOutStats.dwErrors = .icmpOutStats.dwErrors Then _
ListView4.ListItems(2).SubItems(1) = .icmpOutStats.dwErrors
If Not icmp2.icmpOutStats.dwDestUnreachs = .icmpOutStats.dwDestUnreachs Then _
ListView4.ListItems(3).SubItems(1) = .icmpOutStats.dwDestUnreachs
If Not icmp2.icmpOutStats.dwTimeExcds = .icmpOutStats.dwTimeExcds Then _
ListView4.ListItems(4).SubItems(1) = .icmpOutStats.dwTimeExcds
If Not icmp2.icmpOutStats.dwParmProbs = .icmpOutStats.dwParmProbs Then _
ListView4.ListItems(5).SubItems(1) = .icmpOutStats.dwParmProbs
If Not icmp2.icmpOutStats.dwSrcQuenchs = .icmpOutStats.dwSrcQuenchs Then _
ListView4.ListItems(6).SubItems(1) = .icmpOutStats.dwSrcQuenchs
If Not icmp2.icmpOutStats.dwRedirects = .icmpOutStats.dwRedirects Then _
ListView4.ListItems(7).SubItems(1) = .icmpOutStats.dwRedirects
If Not icmp2.icmpOutStats.dwEchos = .icmpOutStats.dwEchos Then _
ListView4.ListItems(8).SubItems(1) = .icmpOutStats.dwEchos
If Not icmp2.icmpOutStats.dwEchoReps = .icmpOutStats.dwEchoReps Then _
ListView4.ListItems(9).SubItems(1) = .icmpOutStats.dwEchoReps
If Not icmp2.icmpOutStats.dwTimestamps = .icmpOutStats.dwTimestamps Then _
ListView4.ListItems(10).SubItems(1) = .icmpOutStats.dwTimestamps
If Not icmp2.icmpOutStats.dwTimestampReps = .icmpOutStats.dwTimestampReps Then _
ListView4.ListItems(11).SubItems(1) = .icmpOutStats.dwTimestampReps
If Not icmp2.icmpOutStats.dwAddrMasks = .icmpOutStats.dwAddrMasks Then _
ListView4.ListItems(12).SubItems(1) = .icmpOutStats.dwAddrMasks
If Not icmp2.icmpOutStats.dwAddrMaskReps = .icmpOutStats.dwAddrMaskReps Then _
ListView4.ListItems(13).SubItems(1) = .icmpOutStats.dwAddrMaskReps
End With

icmp2 = icmp

End Sub
Private Sub UpdateStats5()

On Error Resume Next
Dim lRetValue       As Long
Static icmp2 As MIBICMPINFO

lRetValue = GetIcmpStatistics(icmp)

With icmp
If Not icmp2.icmpInStats.dwMsgs = .icmpInStats.dwMsgs Then _
ListView4.ListItems(1).SubItems(1) = .icmpInStats.dwMsgs
If Not icmp2.icmpInStats.dwErrors = .icmpInStats.dwErrors Then _
ListView4.ListItems(2).SubItems(1) = .icmpInStats.dwErrors
If Not icmp2.icmpInStats.dwDestUnreachs = .icmpInStats.dwDestUnreachs Then _
ListView4.ListItems(3).SubItems(1) = .icmpInStats.dwDestUnreachs
If Not icmp2.icmpInStats.dwTimeExcds = .icmpInStats.dwTimeExcds Then _
ListView4.ListItems(4).SubItems(1) = .icmpInStats.dwTimeExcds
If Not icmp2.icmpInStats.dwParmProbs = .icmpInStats.dwParmProbs Then _
ListView4.ListItems(5).SubItems(1) = .icmpInStats.dwParmProbs
If Not icmp2.icmpInStats.dwSrcQuenchs = .icmpInStats.dwSrcQuenchs Then _
ListView4.ListItems(6).SubItems(1) = .icmpInStats.dwSrcQuenchs
If Not icmp2.icmpInStats.dwRedirects = .icmpInStats.dwRedirects Then _
ListView4.ListItems(7).SubItems(1) = .icmpInStats.dwRedirects
If Not icmp2.icmpInStats.dwEchos = .icmpInStats.dwEchos Then _
ListView4.ListItems(8).SubItems(1) = .icmpInStats.dwEchos
If Not icmp2.icmpInStats.dwEchoReps = .icmpInStats.dwEchoReps Then _
ListView4.ListItems(9).SubItems(1) = .icmpInStats.dwEchoReps
If Not icmp2.icmpInStats.dwTimestamps = .icmpInStats.dwTimestamps Then _
ListView4.ListItems(10).SubItems(1) = .icmpInStats.dwTimestamps
If Not icmp2.icmpInStats.dwTimestampReps = .icmpInStats.dwTimestampReps Then _
ListView4.ListItems(11).SubItems(1) = .icmpInStats.dwTimestampReps
If Not icmp2.icmpInStats.dwAddrMasks = .icmpInStats.dwAddrMasks Then _
ListView4.ListItems(12).SubItems(1) = .icmpInStats.dwAddrMasks
If Not icmp2.icmpInStats.dwAddrMaskReps = .icmpInStats.dwAddrMaskReps Then _
ListView4.ListItems(13).SubItems(1) = .icmpInStats.dwAddrMaskReps
End With

icmp2 = icmp

End Sub

Private Sub imgSelected_Click(Index As Integer)
Dim x As Byte

'Clear the radio buttons...
For x = 0 To 4
    imgSelected(x).Picture = Image6.Picture
Next x

'Update the radio buttons...
imgSelected(Index).Picture = Image9.Picture

'Remember the control selected...
Select Case Index
    Case 0
        sControlSelected = "tcp"
    Case 1
        sControlSelected = "ip"
    Case 2
        sControlSelected = "udp"
    Case 3
        sControlSelected = "in"
    Case 4
        sControlSelected = "out"
End Select

If sControlSelected = "tcp" Then
ListView1.Visible = True
ListView2.Visible = False
ListView3.Visible = False
ListView4.Visible = False
ListView5.Visible = False
End If

If sControlSelected = "ip" Then
ListView1.Visible = False
ListView2.Visible = True
ListView3.Visible = False
ListView4.Visible = False
ListView5.Visible = False
End If

If sControlSelected = "udp" Then
ListView1.Visible = False
ListView2.Visible = False
ListView3.Visible = True
ListView4.Visible = False
ListView5.Visible = False
End If

If sControlSelected = "in" Then
ListView1.Visible = False
ListView2.Visible = False
ListView3.Visible = False
ListView4.Visible = True
ListView5.Visible = False
End If

If sControlSelected = "out" Then
ListView1.Visible = False
ListView2.Visible = False
ListView3.Visible = False
ListView4.Visible = False
ListView5.Visible = True
End If
End Sub

Private Sub Label1_Click(Index As Integer)
Dim x As Byte

'Clear the radio buttons...
For x = 0 To 4
    imgSelected(x).Picture = Image6.Picture
Next x

'Update the radio buttons...
imgSelected(Index).Picture = Image9.Picture

'Remember the control selected...
Select Case Index
    Case 0
        sControlSelected = "tcp"
    Case 1
        sControlSelected = "ip"
    Case 2
        sControlSelected = "udp"
    Case 3
        sControlSelected = "in"
    Case 4
        sControlSelected = "out"
End Select

If sControlSelected = "tcp" Then
ListView1.Visible = True
ListView2.Visible = False
ListView3.Visible = False
ListView4.Visible = False
ListView5.Visible = False
End If

If sControlSelected = "ip" Then
ListView1.Visible = False
ListView2.Visible = True
ListView3.Visible = False
ListView4.Visible = False
ListView5.Visible = False
End If

If sControlSelected = "udp" Then
ListView1.Visible = False
ListView2.Visible = False
ListView3.Visible = True
ListView4.Visible = False
ListView5.Visible = False
End If

If sControlSelected = "in" Then
ListView1.Visible = False
ListView2.Visible = False
ListView3.Visible = False
ListView4.Visible = True
ListView5.Visible = False
End If

If sControlSelected = "out" Then
ListView1.Visible = False
ListView2.Visible = False
ListView3.Visible = False
ListView4.Visible = False
ListView5.Visible = True
End If
End Sub

Private Sub Timer1_Timer()

    UpdateStats1

End Sub

Private Sub Timer2_Timer()
UpdateStats2
End Sub

Private Sub Timer3_Timer()
UpdateStats3
End Sub

Private Sub Timer4_Timer()
UpdateStats4
End Sub

Private Sub Timer5_Timer()
UpdateStats5
End Sub