www.pudn.com > 20063518740652.zip > SEEVER32.FRM

VERSION 4.00 
Begin VB.Form Seever  
   Appearance      =   0  'Flat 
   BackColor       =   &H80000005& 
   Caption         =   "Seever" 
   ClientHeight    =   1920 
   ClientLeft      =   3960 
   ClientTop       =   1590 
   ClientWidth     =   6090 
   BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}  
      Name            =   "MS Sans Serif" 
      Size            =   8.25 
      Charset         =   0 
      Weight          =   700 
      Underline       =   0   'False 
      Italic          =   0   'False 
      Strikethrough   =   0   'False 
   EndProperty 
   ForeColor       =   &H80000008& 
   Height          =   2610 
   Left            =   3900 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   1920 
   ScaleWidth      =   6090 
   Top             =   960 
   Width           =   6210 
   Begin VB.Menu mPushMe  
      Caption         =   "PushMe" 
   End 
End 
Attribute VB_Name = "Seever" 
Attribute VB_Creatable = False 
Attribute VB_Exposed = False 
Option Explicit 
 
Private Sub mPushMe_Click() 
Dim Code As Integer 
Dim Version As Integer 
Dim S1, S2, S3 As String 
Dim Buffer As String * 81 
' get SEE version number 
Version = seeStatistics(SEE_GET_VERSION) 
S1 = "SMTP/POP3 Email Engine Version " 
S2 = Hex$(Version) 
S3 = Mid$(S2, 1, 1) + "." + Mid$(S2, 2, 1) + "." + Mid$(S2, 3, 1) 
Print S1 + S3 
' get registration string 
Code = seeDebug(SEE_GET_REGISTRATION, Buffer, 80) 
Print Left$(Buffer, Code) 
Print "Click [X] to exit" 
End Sub