Visual Basic

Imports System.Timers
Imports System.Drawing

Public Class Form1
    Dim A As Int16 = 0

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PrevInstance()
        '  If PrevInstance() = True Then
        '    MessageBox.Show("sdfsdf")
        '   Close()
        '    End
        ' Else
        '  MessageBox.Show("222222")
        '  End If
        running()

        Dim startPoint1 As New Point(Me.Width / 2 - 165, 19)
        lbl_top.Location = startPoint1
        Dim startPoint2 As New Point(Me.Width / 2 - 62, 93)
        lbl_bottom.Location = startPoint2

        A = RandomNumber(0)
        Images()
        Timer1.Enabled = True
        Timer2.Enabled = True
    End Sub
    Function PrevInstance() As Boolean
        If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
            MessageBox.Show("222222")
            Me.Close()
            Return True
        Else
            Return False
        End If
    End Function
    Private Sub Form_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
         ByVal X As Single, ByVal Y As Single)
        Static count As Integer
        If count > 2 Then
            Me.Close()
            End
        Else
            count = count + 1
        End If
    End Sub

    Public Sub running()
        'The end result of this code is similar to Visual Basic 6.0's App.Previnstance feature.
        Dim appName As String = Process.GetCurrentProcess.ProcessName
        Dim sameProcessTotal As Integer = Process.GetProcessesByName(appName).Length
        If sameProcessTotal > 1 Then
            MessageBox.Show("A previous instance of this application is already open!", " App.PreInstance Detected!", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Me.Close()
        End If
        appName = Nothing
        sameProcessTotal = Nothing

    End Sub
    Private Sub CreatePointsAndSizes(ByVal e As PaintEventArgs)
        ' Create the starting point.
        Dim startPoint As New Point(Me.Width / 2 - 331)
        ' Use the addition operator to get the end point.
        Dim endPoint As Point = Point.op_Addition(startPoint, _
            New Size(140, 150))
        ' Draw a line between the points.
        e.Graphics.DrawLine(SystemPens.Highlight, startPoint, endPoint)
        ' Convert the starting point to a size and compare it to the
        ' subtractButton size.  
        Dim buttonSize As Size = Point.op_Explicit(startPoint)
    End Sub
    Protected Overrides Function ProcessCmdKey(ByRef msg As Message, _
                               ByVal keyData As Keys) As Boolean
        ' spacebar to escape screensaver
        Const WM_KEYDOWN As Integer = &H100
        Const WM_SYSKEYDOWN As Integer = &H104

        If ((msg.Msg = WM_KEYDOWN) Or (msg.Msg = WM_SYSKEYDOWN)) Then
            Select Case (keyData)
                Case Keys.Space
                    Close()
            End Select
        End If

        Return MyBase.ProcessCmdKey(msg, keyData)
    End Function

    Private Sub Timer1_Tick(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Timer1.Tick
        Images()
    End Sub
    Private Sub Timer2_Tick(ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles Timer2.Tick
        lbl_bottom.Visible = False
        lbl_top.Visible = False
        Timer2.Enabled = False

    End Sub
    Public Sub Images()

        If A = 1 Then
            Me.BackgroundImage = Screensaver_01.My.Resources.Resources._2011_06_07_IMG_2969_WM
            A = RandomNumber(1)
            Exit Sub
        End If
        If A = 2 Then
            Me.BackgroundImage = Screensaver_01.My.Resources.Resources._2011_06_28_IMG_4278_WM
            A = RandomNumber(2)
            Exit Sub
        End If
        If A = 3 Then
            Me.BackgroundImage = Screensaver_01.My.Resources.Resources._2011_08_03_IMG_9462_WM
            A = RandomNumber(3)
            Exit Sub
        End If
        If A = 4 Then
            Me.BackgroundImage = Screensaver_01.My.Resources.Resources._2011_08_21_Confidence_WM
            A = RandomNumber(4)
            Exit Sub
        End If
    End Sub
    Public Function RandomNumber(ByVal previous_number As Integer, _
    Optional ByVal MinNumber As Integer = 1) As Integer

        Dim randomObject As Random = New Random()
        Dim rndNum As Integer = previous_number
        Dim output As String = ""

        While previous_number = rndNum
            rndNum = randomObject.Next(1, 4)
        End While
        Return rndNum

    End Function
End Class

• What type of database? Sql Server I presume?
  
• What exactly do you need help with? Loading the bits, playing the bits, or just programming in general?
  
• What have you tried? Did you try the articles here on CodeProject?
  

Bastard Programmer from Hell

Shell ("ipconfig /release", vbHide)

Brandon T. H. wrote:

(3.) Check the process really deep to make sure it's not connected to anything
important

Brandon T. H. wrote:

freeze the non-important parts of the program.

Member 8442750 wrote:

I tried using javascript countdown but it does not work in my environment

Bastard Programmer from Hell