Breadcrumbs

[upperdrag]

This Is A Tutorial For A Visual Basic 2008 MasterControl
This Means That You Can Control Anything As Long As Long As You Add It TO YOur Program

For example
On Christmas Day You Wanna Give Everyone Free Full Version For A Certain Time, Simply Change The Date And Preset The Codes In The Program Like A Special Code perhaps Like *(#&$(#* THen It Shall be Like This

If label1.text = " *(#&$(#* " Then
(FULL VERSION) = True
end if

You Can Also Delete The Program On Other Computer (If You Are Very Angry Or They Abused The Program) So The Special Code WIll Be Like &&&&&&*#$#&*#$%&^%&*#$^%

If label1.text = " &&&&&&*#$#&*#$%&^%&*#$^% " Then
KILL ("Your File Location Here") 'application.startuppath + (Me.text)
Msgbox"Bye Bye >:)"
end if


Lets Start On How To Make It

You Will be needing
-1Label (Per Form)
-2 Forms
-Creativity

Step 1-
Upload The Text file To Somewhere so that your program can read it. For the date it MUST be In this format "DD/MM/Y"

Step 2-
After Uploading The text file, you must program the application to read it,

On Error Resume Next ' So that if anything goes wrong, nothing will happen

Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("<<DATE>>") 'download VIA http
Dim hi As System.Net.HttpWebResponse = request.GetResponse
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(hi.GetResponseStream)
Dim text As String = sr.ReadToEnd 'Read The File
Label1.Text = text
Dim dt As DateTime = DateTime.Parse(Label1.Text) ' Leeched from mandai
If DateTime.Now.Date = dt Then 'IF It Is Equals To Your computer Date
Form2.Show() 'Event
End If

Step 3-
As You Can See This Part

Dim dt As DateTime = DateTime.Parse(Label1.Text) ' Leeched from mandai
If DateTime.Now.Date = dt Then
Form2.Show()
End If

This Part main function is to show Form2 When Your computer's date matches with the date you uploaded

Step 4-
This Part Is When You Show The Message
(Btw Upload a File Called "Whatever You Want" With The MESSAGE you wanna show inside)

On Error Resume Next

Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("<<MESSAGE>>")
Dim hi As System.Net.HttpWebResponse = request.GetResponse
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(hi.GetResponseStream)
Dim text As String = sr.ReadToEnd
Label1.Text = text

It Is Basically The Same HOWEVER , place this in FORM2

Step 5-
Let It Run,Let Your Creativity Flow



SourceCode Is Available @ 3 Credits

[upperdrag]

any suggestion for a good ftp site.??

[CodenStuff]

Very good tutorial upperdrag and a good way to activate special features or 1 off special events in your app. cooll;

Heres some ftp sites posted recently: viewtopic.php?f=17&t=4270&start=0

[upperdrag]

thanks for the ftp sites i've been looking for 1 :P

how do u use it...?

[nequito]

Nice song (in video), Isn´t "Muse"?

[Agust1337]

Hello Upperdrag,
Use '['code']' some code '['/code']'

And Nequito, Yeah It is muse :P