form1.frm

快速掌握windows网络编程

            EnumStrAll = EnumStrAll & "AF_VOICEVIEW"
            List1.AddItem EnumStrAll
            EnumStrAll = "                 Protocol: UNKNOWN: " & wsapi.iProtocol
        Case AF_FIREFOX:
            EnumStrAll = EnumStrAll & "AF_FIREFOX"
            List1.AddItem EnumStrAll
            EnumStrAll = "                 Protocol: UNKNOWN: " & wsapi.iProtocol
        Case AF_UNKNOWN1:
            EnumStrAll = EnumStrAll & "AF_UNKNOWN1"
            List1.AddItem EnumStrAll
            EnumStrAll = "                 Protocol: UNKNOWN: " & wsapi.iProtocol
        Case AF_BAN:
            EnumStrAll = EnumStrAll & "AF_BAN"
            List1.AddItem EnumStrAll
            EnumStrAll = "                 Protocol: UNKNOWN: " & wsapi.iProtocol
        Case AF_ATM:
            EnumStrAll = EnumStrAll & "AF_ATM"
            List1.AddItem EnumStrAll
            EnumStrAll = "                 Protocol: "
            Select Case (wsapi.iProtocol)
                Case ATMPROTO_AALUSER:
                    EnumStrAll = EnumStrAll & "ATMPROTO_AALUSER"
                    List1.AddItem EnumStrAll
                Case ATMPROTO_AAL1:
                    EnumStrAll = EnumStrAll & "ATMPROTO_AAL1"
                    List1.AddItem EnumStrAll
                Case ATMPROTO_AAL2:
                    EnumStrAll = EnumStrAll & "ATMPROTO_AAL2"
                    List1.AddItem EnumStrAll
                Case ATMPROTO_AAL34:
                    EnumStrAll = EnumStrAll & "ATMPROTO_AAL34"
                    List1.AddItem EnumStrAll
                Case ATMPROTO_AAL5:
                    EnumStrAll = EnumStrAll & "ATMPROTO_AAL5"
                    List1.AddItem EnumStrAll
            End Select
        Case AF_CLUSTER:
            EnumStrAll = EnumStrAll & "AF_CLUSTER"
            List1.AddItem EnumStrAll
            EnumStrAll = "                 Protocol: UNKNOWN: " & wsapi.iProtocol
        Case AF_12844:
            EnumStrAll = EnumStrAll & "AF_12844"
            List1.AddItem EnumStrAll
            EnumStrAll = "                 Protocol: UNKNOWN: " & wsapi.iProtocol
        Case AF_IRDA:
            EnumStrAll = EnumStrAll & "AF_IRDA"
            List1.AddItem EnumStrAll
            EnumStrAll = "                 Protocol: "
            Select Case (wsapi.iProtocol)
               ' Case IRDA_PROTO_SOCK_STREAM:
                '    EnumStrAll = EnumStrAll & "IRDA_PROTO_SOCK_STREAM" & vbCrLf
            End Select
        Case Else:
            EnumStrAll = EnumStrAll & "Unknown: " & wsapi.iAddressFamily
            List1.AddItem EnumStrAll
    End Select
    
    
    EnumStrAll = "              Socket Type: "
    Select Case (wsapi.iSocketType)
        Case SOCK_STREAM:
            EnumStrAll = EnumStrAll & "SOCK_STREAM"
        Case SOCK_DGRAM:
            EnumStrAll = EnumStrAll & "SOCK_DGRAM"
        Case SOCK_RAW:
            EnumStrAll = EnumStrAll & "SOCK_RAW"
        Case SOCK_RDM:
            EnumStrAll = EnumStrAll & "SOCK_RDM"
        Case SOCK_SEQPACKET:
            EnumStrAll = EnumStrAll & "SOCK_SEQPACKET"
    End Select
    List1.AddItem EnumStrAll
    EnumStrAll = "           Connectionless: "
    If (wsapi.dwServiceFlags1 And XP1_CONNECTIONLESS) Then
        EnumStrAll = EnumStrAll & "YES"
    Else
        EnumStrAll = EnumStrAll & "NO"
    End If
    List1.AddItem EnumStrAll
    EnumStrAll = "      Guaranteed Delivery: "
    If (wsapi.dwServiceFlags1 And XP1_GUARANTEED_DELIVERY) Then
        EnumStrAll = EnumStrAll & "YES"
    Else
        EnumStrAll = EnumStrAll & "NO"
    End If
    List1.AddItem EnumStrAll
    EnumStrAll = "         Guaranteed Order: "
    If (wsapi.dwServiceFlags1 And XP1_GUARANTEED_ORDER) Then
        EnumStrAll = EnumStrAll & "YES"
    Else
        EnumStrAll = EnumStrAll & "NO"
    End If
    List1.AddItem EnumStrAll
    EnumStrAll = "         Message Oriented: "
    If (wsapi.dwServiceFlags1 And XP1_MESSAGE_ORIENTED) Then
        EnumStrAll = EnumStrAll & "YES"
    Else
        EnumStrAll = EnumStrAll & "NO"
    End If
    List1.AddItem EnumStrAll
    EnumStrAll = "            Pseudo Stream: "
    If (wsapi.dwServiceFlags1 And XP1_PSEUDO_STREAM) Then
        EnumStrAll = EnumStrAll & "YES"
    Else
        EnumStrAll = EnumStrAll & "NO"
    End If
    List1.AddItem EnumStrAll
    EnumStrAll = "           Graceful Close: "
    If (wsapi.dwServiceFlags1 And XP1_GRACEFUL_CLOSE) Then
        EnumStrAll = EnumStrAll & "YES"
    Else
        EnumStrAll = EnumStrAll & "NO"
    End If
    List1.AddItem EnumStrAll
    EnumStrAll = "          Expedited Close: "
    If (wsapi.dwServiceFlags1 And XP1_EXPEDITED_DATA) Then
        EnumStrAll = EnumStrAll & "YES"
    Else
        EnumStrAll = EnumStrAll & "NO"
    End If
    List1.AddItem EnumStrAll
    EnumStrAll = "             Connect Data: "
    If (wsapi.dwServiceFlags1 And XP1_CONNECT_DATA) Then
        EnumStrAll = EnumStrAll & "YES"
    Else
        EnumStrAll = EnumStrAll & "NO"
    End If
    List1.AddItem EnumStrAll
    EnumStrAll = "          Disconnect Data: "
    If (wsapi.dwServiceFlags1 And XP1_DISCONNECT_DATA) Then
        EnumStrAll = EnumStrAll & "YES"
    Else
        EnumStrAll = EnumStrAll & "NO"
    End If
    List1.AddItem EnumStrAll
    EnumStrAll = "       Supports Broadcast: "
    If (wsapi.dwServiceFlags1 And XP1_SUPPORT_BROADCAST) Then
        EnumStrAll = EnumStrAll & "YES"
    Else
        EnumStrAll = EnumStrAll & "NO"
    End If
    List1.AddItem EnumStrAll
    EnumStrAll = "      Supports Multipoint: "
    If (wsapi.dwServiceFlags1 And XP1_SUPPORT_MULTIPOINT) Then
        EnumStrAll = EnumStrAll & "YES"
    Else
        EnumStrAll = EnumStrAll & "NO"
    End If
    List1.AddItem EnumStrAll
    EnumStrAll = " Multipoint Control Plane: "
    If (wsapi.dwServiceFlags1 And XP1_MULTIPOINT_CONTROL_PLANE) Then
        EnumStrAll = EnumStrAll & "ROOTED"
    Else
        EnumStrAll = EnumStrAll & "NON-ROOTED"
    End If
    List1.AddItem EnumStrAll
    EnumStrAll = "    Multipoint Data Plane: "
    If (wsapi.dwServiceFlags1 And XP1_MULTIPOINT_DATA_PLANE) Then
        EnumStrAll = EnumStrAll & "ROOTED"
    Else
        EnumStrAll = EnumStrAll & "NON-ROOTED"
    End If
    List1.AddItem EnumStrAll
    EnumStrAll = "            QoS Supported: "
    If (wsapi.dwServiceFlags1 And XP1_QOS_SUPPORTED) Then
        EnumStrAll = EnumStrAll & "YES"
    Else
        EnumStrAll = EnumStrAll & "NO"
    End If
    List1.AddItem EnumStrAll
    EnumStrAll = "     Unidirectional Sends: "
    If (wsapi.dwServiceFlags1 And XP1_UNI_SEND) Then
        EnumStrAll = EnumStrAll & "YES"
    Else
        EnumStrAll = EnumStrAll & "NO"
    End If
    List1.AddItem EnumStrAll
    EnumStrAll = "    Unidirection Receives: "
    If (wsapi.dwServiceFlags1 And XP1_UNI_RECV) Then
        EnumStrAll = EnumStrAll & "YES"
    Else
        EnumStrAll = EnumStrAll & "NO"
    End If
    List1.AddItem EnumStrAll
    EnumStrAll = "              IFS Handles: "
    If (wsapi.dwServiceFlags1 And XP1_IFS_HANDLES) Then
        EnumStrAll = EnumStrAll & "YES"
    Else
        EnumStrAll = EnumStrAll & "NO"
    End If
    List1.AddItem EnumStrAll
    EnumStrAll = "         Partial Messages: "
    If (wsapi.dwServiceFlags1 And XP1_PARTIAL_MESSAGE) Then
        EnumStrAll = EnumStrAll & "YES"
    Else
        EnumStrAll = EnumStrAll & "NO"
    End If
    List1.AddItem EnumStrAll
    EnumStrAll = "           Provider Flags: "
    Select Case (wsapi.dwProviderFlags)
        Case PFL_MULTIPLE_PROTO_ENTRIES:
            EnumStrAll = EnumStrAll & "This is one or more entries for a protocol"
            List1.AddItem EnumStrAll
            EnumStrAll = vbTab & vbTab & vbTab & "   which is capable of implementing multiple"
            List1.AddItem EnumStrAll
            EnumStrAll = vbTab & vbTab & vbTab & "   behaviors"
            List1.AddItem EnumStrAll
        Case PFL_RECOMMENDED_PROTO_ENTRY:
            EnumStrAll = EnumStrAll & "This entry is recommended for a protocol"
            List1.AddItem EnumStrAll
            EnumStrAll = vbTab & vbTab & vbTab & "   that is capable of multple behaviors"
            List1.AddItem EnumStrAll
        Case PFL_HIDDEN:
            List1.AddItem EnumStrAll
            EnumStrAll = "You shouldn't be seeing this"
            List1.AddItem EnumStrAll
        Case PFL_MATCHES_PROTOCOL_ZERO:
            EnumStrAll = EnumStrAll & "A value of zero in the protocol parameter"
            List1.AddItem EnumStrAll
            EnumStrAll = vbTab & vbTab & vbTab & "   of socket or WSASocket matches this entry"
            List1.AddItem EnumStrAll
        Case Default:
            EnumStrAll = EnumStrAll & "NONE"
            List1.AddItem EnumStrAll
    End Select
    Dim szGuidString As String
    szGuidString = String(256, 0)
    StringFromGUID2 wsapi.ProviderId, szGuidString, 256
    szGuidString = StrConv(szGuidString, vbFromUnicode)
    EnumStrAll = "              Provider Id: " & szGuidString
    List1.AddItem EnumStrAll
    EnumStrAll = "         Catalog Entry Id: " & wsapi.dwCatalogEntryId
    List1.AddItem EnumStrAll
    EnumStrAll = "  Number of Chain Entries: " & wsapi.ProtocolChain.ChainLen & "   {"
    Dim i As Long
    For i = 0 To wsapi.ProtocolChain.ChainLen - 1
        EnumStrAll = EnumStrAll & wsapi.ProtocolChain.ChainEntries(i) & " "
    Next
    EnumStrAll = EnumStrAll & "}"
    List1.AddItem EnumStrAll
    EnumStrAll = "                  Version: " & wsapi.iVersion
    List1.AddItem EnumStrAll
    EnumStrAll = "Max Socket Address Length: " & wsapi.iMaxSockAddr
    List1.AddItem EnumStrAll
    EnumStrAll = "Min Socket Address Length: " & wsapi.iMinSockAddr
    List1.AddItem EnumStrAll
    EnumStrAll = "      Protocol Max Offset: " & wsapi.iProtocolMaxOffset
    List1.AddItem EnumStrAll
    EnumStrAll = "       Network Byte Order: "
    If (wsapi.iNetworkByteOrder = 0) Then
        EnumStrAll = EnumStrAll & "BIG-ENDIAN"
    Else
        EnumStrAll = EnumStrAll & "LITLE-ENDIAN"
    End If
    List1.AddItem EnumStrAll
    EnumStrAll = "          Security Scheme: "
    
    If (wsapi.iSecurityScheme = SECURITY_PROTOCOL_NONE) Then
        EnumStrAll = EnumStrAll & "NONE"
    Else
        EnumStrAll = EnumStrAll & wsapi.iSecurityScheme
    End If
    List1.AddItem EnumStrAll
    EnumStrAll = "             Message Size: "
    If (wsapi.dwMessageSize = 0) Then
        EnumStrAll = EnumStrAll & "N/A (Stream Oriented)"
    ElseIf (wsapi.dwMessageSize = 1) Then
        EnumStrAll = EnumStrAll & "Depended on underlying MTU"
    ElseIf (wsapi.dwMessageSize = &HFFFFFFFF) Then
        EnumStrAll = EnumStrAll & "No limit"
    Else
        EnumStrAll = EnumStrAll & wsapi.dwMessageSize
    End If
    List1.AddItem EnumStrAll
End Sub

'
' Subroutine: Form_Load
'
' Description:
'    Initalize a global variable and kick things off by calling
'    the DoEnum routine.
'
Private Sub Form_Load()
    EnumStrAll = ""
    DoEnum
End Sub