• Log in or sign up for an account here: https://www.sythe.org/login

Screen Recorder in .NET 3.0

Status
Not open for further replies.
X Zero said:
Ok got it working but how do i save?

What format?
Tryed .wmv But didn't play neither .gif?

help please X Zero
Click to expand...



How did you get it to work?


Give me your code that you used please.


Thank you.
 
Plain and simple

Public Class ScreenRecorder

Private Shared tempDir As String = My.Computer.FileSystem.SpecialDirectories.Temp & "\snapshot\"
Private Shared snap As New System.Threading.Thread(AddressOf Snapshot)
Private Shared _Bounds As System.Drawing.Rectangle = System.Windows.Forms.Screen.PrimaryScreen.Bounds
Public Shared Property Bounds() As System.Drawing.Rectangle
Get
Return _Bounds
End Get
Set(ByVal value As System.Drawing.Rectangle)
_Bounds = value
End Set
End Property
Private Shared Sub Snapshot()
If Not My.Computer.FileSystem.DirectoryExists(tempDir) Then _
My.Computer.FileSystem.CreateDirectory(tempDir)
Dim Co As Integer = 0
Do
Co += 1
System.Threading.Thread.Sleep(50)
Dim X As New System.Drawing.Bitmap(_Bounds.Width, _Bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
Using G = System.Drawing.Graphics.FromImage(X)
G.CopyFromScreen(_Bounds.Location, New System.Drawing.Point(), _Bounds.Size)
Dim CurBounds As New System.Drawing.Rectangle(System.Windows.Forms.Cursor.Position - Bounds.Location, System.Windows.Forms.Cursor.Current.Size)
Forms.Cursors.Default.Draw(G, CurBounds)
End Using
Dim FS As New IO.FileStream(tempDir & FormatString(Co.ToString, 5, "0"c) & ".png", IO.FileMode.OpenOrCreate)
X.Save(FS, System.Drawing.Imaging.ImageFormat.Png)
X.Dispose()
FS.Close()
Loop
End Sub
Public Shared Sub ClearRecording()
If My.Computer.FileSystem.DirectoryExists(tempDir) Then _
My.Computer.FileSystem.DeleteDirectory(tempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
My.Computer.FileSystem.CreateDirectory(tempDir)
End Sub
Public Shared Sub Save(ByVal Output As String)
Dim G As New Windows.Media.Imaging.GifBitmapEncoder

Dim X As New List(Of IO.FileStream)
For Each Fi As String In My.Computer.FileSystem.GetFiles(tempDir, FileIO.SearchOption.SearchTopLevelOnly, "*.png")
Dim TempStream As New IO.FileStream(Fi, IO.FileMode.Open)
Dim Frame = Imaging.BitmapFrame.Create(TempStream)
X.Add(TempStream)
G.Frames.Add(Frame)
Next
Dim FS As New IO.FileStream(Output, IO.FileMode.OpenOrCreate)
G.Save(FS)
FS.Close()

For Each St As IO.FileStream In X
St.Close()

Next

End Sub
Public Shared Sub Start()
snap = New System.Threading.Thread(AddressOf Snapshot)
snap.Start()
End Sub
Public Shared Sub [Stop]()
snap.Abort()
End Sub
Private Shared Function FormatString(ByVal S As String, ByVal places As Integer, ByVal character As Char) As String
If S.Length >= places Then Return S
For X As Integer = S.Length To places
S = character & S
Next
Return S
End Function

End Class
Click to expand...
 
hope fully some 1 can help me out

#1 Warning 1 property 'Bounds' shadows an overloadable member declared in the base class 'Control'. If you want to overload the base method, this method must be declared 'Overloads'.

#2 Error 2 Name 'Forms' is not declared.

#3 Error 3 Type 'Windows.Media.Imaging.GifBitmapEncoder' is not defined.

#4Error 4 'BitmapFrame' is not a member of 'Imaging'.


plz help thx
 
ya i clicked them downloaded them installed them but nothing changed whatsoever it says i downloaded them and installed but like when i make new it doesnt have that collum thing at the right as shown in his picture the one in his kinda tut
 
thats a dumb thing to say lol of course i followed the instructions and so far i fixed 1 problem
 
its ok but i fixed up your code except i got the same problem i cant make it save correctly...

Code: 
Public Class ScreenRecorder

    Private Shared tempDir As String = My.Computer.FileSystem.SpecialDirectories.Temp & "\snapshot\"
    Private Shared snap As New System.Threading.Thread(AddressOf Snapshot)
    Private Shared _Bounds As System.Drawing.Rectangle = System.Windows.Forms.Screen.PrimaryScreen.Bounds
    Public Shared Property Bounds() As System.Drawing.Rectangle
        Get
            Return _Bounds
        End Get
        Set(ByVal value As System.Drawing.Rectangle)
            _Bounds = value
        End Set
    End Property
    Private Shared Sub Snapshot()
        If Not My.Computer.FileSystem.DirectoryExists(tempDir) Then _
        My.Computer.FileSystem.CreateDirectory(tempDir)
        Dim Co As Integer = 0
        Do
            Co += 1
            System.Threading.Thread.Sleep(50)
            Dim X As New System.Drawing.Bitmap(_Bounds.Width, _Bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
            Using G = System.Drawing.Graphics.FromImage(X)
                G.CopyFromScreen(_Bounds.Location, New System.Drawing.Point(), _Bounds.Size)
                Dim CurBounds As New System.Drawing.Rectangle(System.Windows.Forms.Cursor.Position - Bounds.Location, System.Windows.Forms.Cursor.Current.Size)
                Windows.Forms.Cursors.Default.Draw(G, CurBounds)
            End Using
            Dim FS As New IO.FileStream(tempDir & FormatString(Co.ToString, 5, "0"c) & ".Gif", IO.FileMode.OpenOrCreate)
            X.Save(FS, System.Drawing.Imaging.ImageFormat.Gif)
            X.Dispose()
            FS.Close()
        Loop
    End Sub
    Public Shared Sub ClearRecording()
        If My.Computer.FileSystem.DirectoryExists(tempDir) Then _
        My.Computer.FileSystem.DeleteDirectory(tempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
        My.Computer.FileSystem.CreateDirectory(tempDir)
    End Sub
    Public Shared Sub Save(ByVal Output As String)

        Dim X As New List(Of IO.FileStream)
        For Each Fi As String In My.Computer.FileSystem.GetFiles(tempDir, FileIO.SearchOption.SearchTopLevelOnly, "*.png")
            Dim TempStream As New IO.FileStream(Fi, IO.FileMode.Open)
        Next
        Dim FS As New IO.FileStream(Output, IO.FileMode.Create)

        For Each St As IO.FileStream In X
            St.Close()

        Next

    End Sub
    Public Shared Sub Start()
        snap = New System.Threading.Thread(AddressOf Snapshot)
        snap.Start()
    End Sub
    Public Shared Sub [Stop]()
        snap.Abort()
    End Sub
    Private Shared Function FormatString(ByVal S As String, ByVal places As Integer, ByVal character As Char) As String
        If S.Length >= places Then Return S
        For X As Integer = S.Length To places
            S = character & S
        Next
        Return S
    End Function


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ScreenRecorder.Start()
        Me.Button1.Enabled = False
        Me.Button3.Enabled = False
        Me.Button4.Enabled = False
        Me.Button5.Enabled = False
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ScreenRecorder.Stop()
        Me.Button1.Enabled = True
        Me.Button3.Enabled = True
        Me.Button4.Enabled = True
        Me.Button5.Enabled = True
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        ScreenRecorder.Save("")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ScreenRecorder.Bounds = New System.Drawing.Rectangle(300, 300, 500, 300)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ScreenRecorder.ClearRecording()
    End Sub

    Private Sub ScreenRecorder_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        If e.KeyChar = Chr(Asc("S")) Then
            Me.WindowState = FormWindowState.Maximized
            ScreenRecorder.Stop()
            Me.Button1.Enabled = True
            Me.Button3.Enabled = True
            Me.Button4.Enabled = True
            Me.Button5.Enabled = True
        End If
    End Sub
End Class

need:5 buttons

start,stop,recording boundaries,save,and erase last video

Start name = button1
Stop name = button2
Recording Boundaries = button3
Erase Video = button4
Save = button5

so far ive got this

#1 when i press set recording boundaries nuttin happens
#2 when i save this happens

line 46 says Empty path name is not legal.
 
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
ScreenRecorder.Save("")
End Sub
Click to expand...

This is your problem ^

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
ScreenRecorder.Save("c:\SR1.gif")
End Sub
Click to expand...
try ^^
 
i think it works but where does it save ?k got it nvm but i cant figure out like .png .avi wat gif doesnt work??
 
To save with .avi or .wmv you will have to find a encoder for it. This program includes a .gif encoder and will only work with .gif. i don't think it works with the windows image viewer. Upload it to imageshack and it will work
 
Error 1 Name 'Forms' is not declared.
Error 2 Type 'Windows.Media.Imaging.GifBitmapEncoder' is not defined.
Error 3 'BitmapFrame' is not a member of 'Imaging'.

Uhm..
 
FinPker said:
Error 2 Type 'Windows.Media.Imaging.GifBitmapEncoder' is not defined.
Error 3 'BitmapFrame' is not a member of 'Imaging'.

Uhm..
Click to expand...

you need to reference the follwing namespace

System.Windows.Media.Imaging

BitmapFrame and GifBitmapEncoder are part of it
 
some one should post a link to a .rar with the source files in it
 
kharg0 said:
its ok but i fixed up your code except i got the same problem i cant make it save correctly...

Code: 
        Me.Button1.Enabled = True
        Me.Button3.Enabled = True
        Me.Button4.Enabled = True
        Me.Button5.Enabled = True
Click to expand...

I get the error Button1 is not a member of Screen_Recorder.ScreenRecorder

whats this mean?
 
wait am I supposed to have a form(.vb) with buttons and a separate .xaml file with the screen recorder class
 
Status
Not open for further replies.

Similar threads

A
 
Open/Close CD Drive
Replies
3
Views
342
Le_Dark_Lord
L
F
 
HD RS World Loader
Replies
1
Views
1,030
rotterdam_dj
R
F
 
World Parser - Gives you all info for the worlds.
Replies
4
Views
306
Cruel__Machine
C
J
 
Console Programming in VB.NET (using Constructors)
Replies
0
Views
507
jonathanp198
J
F
 
[Source] Silent mouse, keyboard and Login
Replies
0
Views
1,773
Flaming Idiots
F
Runescape Gamblingrunescape gambling
Back
Top