This code is to teach you how to make sure your applications are unuasble after a certain date and time. This can be cracked by changing your PC time but you can always encrypt the time 👍
Please give credits to me (kbhawkman)!
Please give credits to me (kbhawkman)!
Code
'Coded by kbhawkman
'Give credits if you use this in your programs (even if you modify this slightly)
'11/5/2010
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
Me.Text = DateTime.Now
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Text = DateTime.Now
If DateTime.Now > "11/5/2010 4:50:00 PM" Then 'Replace "11/5/2010 4:50:00 PM" with a date and time :D
Application.Exit()
Else
End If
End Sub
End Classkbhawkman



