module1.bas

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

Attribute VB_Name = "Module1"
'变量定义
Public UserIndex As Integer
Public IsIn As Boolean

Public NowUser As String
'捕捉鼠标离开事件
Public Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long
'使浏览器滚动条自动滚动
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Const SB_LINERIGHT = 1
Const SB_LINELEFT = 0
Const WM_HSCROLL = &H114
Const SB_LINEDOWN = 1
Const SB_RIGHT = 7

Public Function LenInfo(VbStr As String)
    Dim Mylen1, MyLen2 As Integer
    Mylen1 = Len(VbStr)
    MyLen2 = Len(Str(Mylen1))
    LenInfo = MyLen2 & Mylen1
End Function