• Home
 · 
• Encryption
 · 
• OverDate is used to run expired Shareware programs that are time-limited.

OverDate is used to run expired Shareware programs that are time-limited.

OverDate is used to run expired Shareware programs that are time-limited.

Rate OverDate is used to run expired Shareware programs that are time-limited.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'                                                                             '
' OVERDATE.BAS                                                                '
'                                                                             '
' Shareware time-limited program runner                                       '
'                                                                             '
' Copyright (c) 1997/98 R.Shrivaths                                           '
' e-mail: [email protected]                                                '
' http://shrivaths.virtualave.net                                             '
'                                                                             '


'Use this code to run any program at any date.
'ProName specifies the program name, and ReqDate the date
'PrgName and PrgDate are used for Command Line reference. Use that if you want to.
'For specific programs, change ProName, Reqdate and Compile.
'When you run this program, it will set the Windows Date to the date you
'want it to - say 30 days for Paint Shop Pro 6 - That way, when the application checks the
'date, it thinks that you're still running it 30 days back! It will display 1 day expired.
'This doesn't work with certain programs, use it at your own risk!
Sub Main()
Dim ProName As String, Pro As String, PrgName As String, PrgDate
'Pro = Command$
Dim i As Integer
'For i = 1 To Len(Pro)
'   ProName = Mid(Pro, i, 1)
 '  If (ProName = Chr$(vbKeySpace)) Then
  '     PrgName = Left$(Pro, i)
   '    PrgDate = Right$(Pro, (Len(Pro) - (i)))
'    End If
'Next i
Dim TodaysDate As Date, ReqDate As Date, ReturnValue
TodaysDate = Date
'ReqDate = Left$(PrgDate, 2) + "/" + Mid(PrgDate, 3, 2) + "/" + Right$(PrgDate, 2)
ReqDate = "dd/mm/yyyy"
'MsgBox ReqDate, , PrgName
Pro = "Your program in here!"
Date = CDate(ReqDate)
ReturnValue = Shell(Pro, vbNormalFocus)
Date = TodaysDate
End Sub