Projects

Winpopup Plus

November 23, 2002 by Java

Browsing Variables.bas (1.47 KB)

Attribute VB_Name = "Variables"
Option Explicit

Type AUTOALIAS_LIST
    Recipient As String
    RecipientAlias As String
End Type

Global Ver As String
Global MailBox As cMailBox
Global CurrentMsg As Long

Global Const UnlockCode = "wpp69"
Global bIsUnlocked As Boolean
Global AA_List() As AUTOALIAS_LIST

Global Optn_PlaySound As Integer
Global Optn_AlwaysOnTop As Integer
Global Optn_PopupDialog As Integer

Global AAOptn_Enabled As Integer

Global Const RegAppRoot = "Software\WinPopup Plus\"



Public Function IsOdd(Number As Long) As Boolean
    If (Number / 2) <> Int(Number / 2) Then IsOdd = True
End Function

Public Function VersionDiff(sVersion As String, sOldVersion As String, Optional bReverse As Boolean) As Boolean
Dim VerArray() As String
Dim OldVerArray() As String
    VerArray = Split(sVersion & ".0", ".", 3)
    OldVerArray = Split(sOldVersion & ".0", ".", 3)
    VersionDiff = False
    If sVersion <> sOldVersion And sVersion <> "" And sOldVersion <> "" Then
        If bReverse Then
            If Val(OldVerArray(0)) <= Val(VerArray(0)) And _
            Val(OldVerArray(1)) <= Val(VerArray(1)) And _
            Val(OldVerArray(2)) <= Val(VerArray(2)) Then VersionDiff = True
        Else
            If Val(VerArray(0)) <= Val(OldVerArray(0)) And _
            Val(VerArray(1)) <= Val(OldVerArray(1)) And _
            Val(VerArray(2)) <= Val(OldVerArray(2)) Then VersionDiff = True
        End If
    End If
End Function

Download Variables.bas

Back to file list

---

Back to project page