[TUT]Screen RECORDER!!!

**trevor206** · 12-05-2009

ok what this does it takes a bunch of pictures and plays it back as a video its pretty cool.
Credits:FOR THE CODE YET AGAIN (i did everything else)
the homie userisanfbiagent

First make a form with 10 buttons and name them this.
Rec
STP
INT10
INT50
INT100
INT250
INT500
INT1000
Button9
Button10

then make a checkbox named
CheckBox1

make 3 textboxes and name them
FileDIR
FileNUM
FileType

and a timer named
RECScreen

and 2 labels named
IO
Label1

So your form1 will look like this.

Then make a new form and name it
VideoScreenWindow

on form2 make a picturebox named
VideoScreen

So form2 will look like this.

Now just double click your form1 and delete all the code and paste this

Code:

ublic Class Form1

    Private Sub RECScreen_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RECScreen.Tick

        If CheckBox1.Checked = True Then
            Dim DirectoryA As String = FileDIR.Text
            Dim Frame0 As String = FileNUM.Text
            Dim img0 As String = FileType.Text

            FileNUM.Text = FileNUM.Text + 1
            VideoScreenWindow.VideoScreen.Load(DirectoryA & Frame0 & img0)

        Else

            Dim ScreenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
            Dim BMP As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
            Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(BMP)
            g.CopyFromScreen(New Point(0, 0), New Point(0, 0), ScreenSize)

            Dim DirectoryA As String = FileDIR.Text
            Dim Frame1 As String = FileNUM.Text
            Dim img1 As String = FileType.Text

            FileNUM.Text = FileNUM.Text + 1
            BMP.Save(DirectoryA & Frame1 & img1)

        End If
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        VideoScreenWindow.Show()
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        VideoScreenWindow.Hide()
    End Sub


    Private Sub INT10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INT10.Click
        IO.Text = "100 FPS"
        RECScreen.Interval = "10"
    End Sub

    Private Sub INT50_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INT50.Click
        IO.Text = "20 FPS"
        RECScreen.Interval = "50"
    End Sub

    Private Sub INT100_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INT100.Click
        IO.Text = "10 FPS"
        RECScreen.Interval = "100"
    End Sub

    Private Sub INT250_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INT250.Click
        IO.Text = "04 FPS"
        RECScreen.Interval = "250"
    End Sub

    Private Sub INT500_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INT500.Click
        IO.Text = "02 FPS"
        RECScreen.Interval = "500"
    End Sub

    Private Sub INT1000_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INT1000.Click
        IO.Text = "01 FPS"
        RECScreen.Interval = "1000"
    End Sub

    Private Sub REC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles REC.Click
        RECScreen.Enabled = True
        FileNUM.Text = "0"
    End Sub

    Private Sub STP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STP.Click
        RECScreen.Enabled = False
    End Sub
End Class

NO CODE GO's INTO FORM2
If you have any errors ask me

HOW TO USE:
1.Pick you fps
2.In the FileDIR textbox select the folder you want to save your video(it really just takes like 100 pics every 10 sec)
3.Press record, record what you need to record
4.Press stop
5.Check the checkbox and press video on then press record to playback your video.
6.Your done

I will post my video recorder and the already built project tomorrow.
If any one figures out how to save this into a video format such as AVI,ETC. please tell me.