Visual basic 2008 - How to make a program that makes pictures and can record

Button1, form1 (CAPTURE)
If CheckBox1.Checked = CheckBox2.Checked = True Then MsgBox("Error") Else If CheckBox1.Checked = True Then Me.Hide() bound = Screen.PrimaryScreen.Bounds screenshot = New System.Drawing.Bitmap(bound.Width, bound.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb) graph = Graphics.FromImage(screenshot) graph.CopyFromScreen(bound.X, bound.Y, 0, 0, bound.Size, CopyPixelOperation.SourceCopy) Form2.PictureBox1.Image = screenshot Form2.Show() Me.Show() Else If TextBox1.Text = "" Then MsgBox("Invalid information") Else If TextBox2.Text = "" Then MsgBox("Invalid information") Else If TextBox1.Text + TextBox2.Text = "" Then MsgBox("Invalid information") Else Me.Hide() Form2.Hide() Form2.PictureBox1.Width = TextBox1.Text Form2.PictureBox1.Height = TextBox2.Text bound = Screen.PrimaryScreen.Bounds screenshot = New System.Drawing.Bitmap(bound.Width, bound.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb) graph = Graphics.FromImage(screenshot) graph.CopyFromScreen(bound.X, bound.Y, 0, 0, bound.Size, CopyPixelOperation.SourceCopy) Form2.PictureBox1.Image = screenshot Form2.Show() Me.Show() End If End If End If End If End If

Button 2, form1 (SAVE)
Try Dim savefiledialog1 As New SaveFileDialog savefiledialog1.Title = "Save File" savefiledialog1.FileName = "*.bmp" savefiledialog1.Filter = "Bitmap |*.bmp" If savefiledialog1.ShowDialog() = DialogResult.OK Then Form2.PictureBox1.Image.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp) End If Catch ex As Exception End Try

Button 3,form3 ( STOP)
REC.Enabled = False REC.Stop() Me.Show() Dim stopframe As New System.IO.StreamWriter("D:\Recorder\Stop\" + "\" + "stoppedframe.txt") stopframe.Write(Filenum.Text) stopframe.Close()

Timer , form3 ( REC)
Filenum.Text = Filenum.Text + 1 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 ga As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(BMP) ga.CopyFromScreen(New Point(0.0), New Point(0, 0), screensize) Dim fileDiro As String = Filedir.Text Dim frame As String = Filenum.Text BMP.Save(fileDiro + frame) Dim hotkey As Boolean hotkey = GetAsyncKeyState(Keys.F2) If hotkey = True Then Dim stopframe As New System.IO.StreamWriter("D:\Recorder\Stop\" + "\" + "stoppedframe.txt") stopframe.Write(Filenum.Text) stopframe.Close() Me.Show() Videoscreenwindow.Close() Filenum.Text = 0 Console.Beep() Console.Beep() Console.Beep() REC.Enabled = False REC.Stop() End If

Timer1, form3 ( TIMER1)
Filenum.Text = Filenum.Text + 1 Dim fileDir1 As String = Filedir.Text Dim frame As String = Filenum.Text Dim maximum As String = File.Text Dim max As New System.IO.StreamReader("D:\Recorder\Stop\" + "\" + "stoppedframe.txt") File.Text = max.ReadLine If frame = maximum Then Timer1.Stop() End If Videoscreenwindow.Show() Videoscreenwindow.PictureBox1.Load(fileDir1 + frame)

And that's it for all folks ! ;)

And with those 6 buttons you only need to fill in:
REC.interval = 10
etc. etc....

Category:

Entertainment

Tags:

• Visual
• basis
• 2008
• Video
• tutorial
• Clearshots
• and
• films1

[iBallen09]

What screen recorded did you use to make this video? please provide the name or a link. thanks :)

[bamboohatman]

@iBallen09 I used camtasia studio

[Zelsoft]

i under stand the video and it works very well but first of all you got this off of userisaFBAgent second the resond i commented is becouse i have been looking for how to make an acuall screen recorder for like a year and i have seen a billion of these videos and it just pisses me offf

btw i rated 5 stars

[bamboohatman]

well it's very kind that you rated 5 stars, only you don't have to react like that :| against me...

[Zelsoft]

none of the videos on how to make screen recorder work and why the fuck would we need one that takes muliple pictures it's easy to make a screen capture but can any one make a screen recorder?

[bamboohatman]

hellooo, mine works for me and for some it does, I don't know why it isn't working for you. I think because you don't listen that good to my video. And why do you comment this I don't even post a thing that can take multiple pictures :|. And why are you asking question under my video comments :|

[TheFSXKing]

O my gosh can anyone put a tut on how to make screen recorder?!

[tabby0wns]

You sound Vietnamese =D

[markdeantube]

This could be a lot better if you tell us how to get copy of your code because you got a very long code especially for the Capture button. Of course there is no way we can see it completely... Can I copy your code?

[supatreeck]

You should REALLY provide a download link in the description!!! PLEASE

[supatreeck]

----->PLEASE REPLY<-------

I have an error it says "end of statement expexted".

PLEASE HELP!

[TheSujit016693]

This looks good but where can i see the codes in details. Request you to provide a link to the same.

[therealxboost]

getasyncstate lib does not allow i think i created something wrong help me!!

[TekTut0rials]

release your source code to this please.

[BlakPilar]

You know Else is only used if there is something you want to do if the condition is false, right? You don't always need it...

[LPer1000]

OK Good vid but please put a source code file download that would be better

[Dasleex]

How i can save it as AVI file??

[jackson39ful]

You can create a video only capture the video? and please

stop codes in the description. : D