• Home
 · 
• Miscellaneous
 · 
• Changes the system date to the day after the date of a specific file, starts and application, delay

Changes the system date to the day after the date of a specific file, starts and application, delay

Changes the system date to the day after the date of a specific file, starts and application, delays for a user-defined time (0-60s), then

API Declarations


'
' Text1 (TextBox) - Sec's to delay before resuming date
' Text2 (TextBox) - File to grab old date info from
' Text3 (TextBox) - Executable file to launch
' Command1 (CommandButton) - Do it!
'
' Note - This code contains absolutely _no_ error checking
' Use of this code exempts the author from it's
' illegal use by other parties. (That means you!)




Rate Changes the system date to the day after the date of a specific file, starts and application, delay

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim intSeconds As Integer    ' Keeps track of passing seconds.

Private Sub Command1_Click()  ' Do it!
    dteCurrent = Date  ' Grab current date
    DateTime.Date = (FileDateTime(Text2.Text) + "1")  ' Set system date to filedate
    Timer1.Interval = 1000
    intSeconds = 0
    Shell Trim(Text3.Text), vbNormalFocus  ' Launch the executable
    Timer1.Enabled = True  ' Start the timer
End Sub

Private Sub Timer1_Timer()
    If intSeconds < Val(Text1.Text) Then
        ' Not done yet
        intSeconds = intSeconds + 1
        Timer1.Interval = 1000
        Timer1.Enabled = True
    Else
        ' Done waiting!
        Timer1.Enabled = False  ' Stop timer
        DateTime.Date = CDate(dteCurrent)  ' Resume current date
    End If
End Sub