moduleserver1.bas

关于WINSOCK控件基本编程的例程,提供电子邮件例程

Attribute VB_Name = "Module1"
Public User(0 To 99) As String
Public UserIndex As Integer
Public Function LenInfo(ByVal VbStr As String)
    Dim Mylen1, MyLen2 As Integer
    Mylen1 = Len(VbStr)
    MyLen2 = Len(Str(Mylen1))
    LenInfo = MyLen2 & Mylen1
End Function

Public Function NameInfo(ByVal VbName As String)
    For i = 0 To UserIndex
        If User(i) = VbName Then
            NameInfo = i
            Exit Function
        End If
    Next i
End Function