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

VERSION 2.00 
Begin Form Seever  
   Caption         =   "Seever" 
   ClientHeight    =   1920 
   ClientLeft      =   3960 
   ClientTop       =   1590 
   ClientWidth     =   6090 
   Height          =   2610 
   Left            =   3900 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   1920 
   ScaleWidth      =   6090 
   Top             =   960 
   Width           =   6210 
   Begin Menu mPushMe  
      Caption         =   "PushMe" 
   End 
End 
Option Explicit 
 
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