form1.frm

电子书“Visual Basic 6 网络编程实例教程.rar”

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "TCP参数"
   ClientHeight    =   4710
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5220
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4710
   ScaleWidth      =   5220
   StartUpPosition =   2  '屏幕中心
   Begin MSComctlLib.ListView ListView1 
      Height          =   3615
      Left            =   240
      TabIndex        =   1
      Top             =   240
      Width           =   4695
      _ExtentX        =   8281
      _ExtentY        =   6376
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   0
   End
   Begin VB.CommandButton CmdStatistic 
      Caption         =   "统计数据(&S)"
      Default         =   -1  'True
      Height          =   495
      Left            =   1680
      TabIndex        =   0
      Top             =   4080
      Width           =   2055
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub CmdStatistic_Click()
    
    Dim TcpStat As MIB_TCPSTATS
    Dim buff() As Byte
    Dim cbRequired As Long
    Dim nStructSize As Long
    Dim nRows As Long
    Dim tmp As String
    Dim itmx As ListItem
    If GetTcpStatistics(TcpStat) = ERROR_SUCCESS Then
        With ListView1
            Select Case TcpStat.dwRtoAlgorithm
                Case MIB_TCP_RTO_CONSTANT: tmp = "超时常数"
                Case MIB_TCP_RTO_RSRE:     tmp = "MIL-STD-1778附录B"
                Case MIB_TCP_RTO_VANJ:     tmp = "Van Jacobson算法"
                Case MIB_TCP_RTO_OTHER:    tmp = "其它"
            End Select
            Set itmx = .ListItems(1)
            itmx.SubItems(1) = TcpStat.dwRtoAlgorithm & " - " & tmp
            Set itmx = .ListItems(2)
            itmx.SubItems(1) = TcpStat.dwRtoMin
            Set itmx = .ListItems(3)
            itmx.SubItems(1) = TcpStat.dwRtoMax
            Set itmx = .ListItems(4)
            itmx.SubItems(1) = TcpStat.dwMaxConn
            Set itmx = .ListItems(5)
            itmx.SubItems(1) = TcpStat.dwActiveOpens
            Set itmx = .ListItems(6)
            itmx.SubItems(1) = TcpStat.dwPassiveOpens
            Set itmx = .ListItems(7)
            itmx.SubItems(1) = TcpStat.dwAttemptFails
            Set itmx = .ListItems(8)
            itmx.SubItems(1) = TcpStat.dwEstabResets
            Set itmx = .ListItems(9)
            itmx.SubItems(1) = TcpStat.dwCurrEstab
            Set itmx = .ListItems(10)
            itmx.SubItems(1) = TcpStat.dwInSegs
            Set itmx = .ListItems(11)
            itmx.SubItems(1) = TcpStat.dwOutSegs
            Set itmx = .ListItems(12)
            itmx.SubItems(1) = TcpStat.dwRetransSegs
            Set itmx = .ListItems(13)
            itmx.SubItems(1) = TcpStat.dwInErrs
            Set itmx = .ListItems(14)
            itmx.SubItems(1) = TcpStat.dwOutRsts
            Set itmx = .ListItems(15)
            itmx.SubItems(1) = TcpStat.dwNumConns
        End With
    End If
End Sub

Private Sub Form_Load()
    Dim itmx As ListItem
    ListView1.ColumnHeaders.Add , , "属性"
    ListView1.ColumnHeaders.Add , , "统计值"
    With ListView1.ListItems
        Set itmx = .Add(, , "超时算法")
        Set itmx = .Add(, , "最小超时值")
        Set itmx = .Add(, , "最大超时值")
        Set itmx = .Add(, , "最大连接数")
        Set itmx = .Add(, , "主动开路")
        Set itmx = .Add(, , "被动开路")
        Set itmx = .Add(, , "失败尝试")
        Set itmx = .Add(, , "重置已建立连接")
        Set itmx = .Add(, , "建立连接")
        Set itmx = .Add(, , "接收的段")
        Set itmx = .Add(, , "发送的段")
        Set itmx = .Add(, , "重发的段")
        Set itmx = .Add(, , "接收错误")
        Set itmx = .Add(, , "发送重置")
        Set itmx = .Add(, , "累计连接")
    End With
    ListView1.View = lvwReport
End Sub

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    ListView1.SortKey = ColumnHeader.Index - 1
    ListView1.SortOrder = Abs(Not ListView1.SortOrder = 1)
    ListView1.Sorted = True
End Sub