Application crashed and details about application crash are mentioned below?

Question

Problem signature:
  Problem Event Name: APPCRASH
  Application Name: CaptureScreen.exe
  Application Version: 1.0.5514.34017
  Application Timestamp: 54d3783c
  Fault Module Name: unknown
  Fault Module Version: 0.0.0.0
  Fault Module Timestamp: 00000000
  Exception Code: c0000005
  Exception Offset: 003f1560
  OS Version: 6.1.7601.2.1.0.256.1
  Locale ID: 1033

Answer 1

source code 
Imports WMEncoderLib
Imports WMPREVIEWLib
Imports System.Diagnostics.Process
Imports System.IO
Imports Microsoft.Win32
Public Class Form1
    Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
    Public Sub New()
        MyBase.New()
        'This call is required by the Windows Form Designer.
        InitializeComponent()
        'Add any initialization after the InitializeComponent() call
    End Sub
    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer
    Friend WithEvents BtnStart As System.Windows.Forms.PictureBox
    Friend WithEvents BtnStop As System.Windows.Forms.PictureBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Timer1 As System.Windows.Forms.Timer
    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents Button1 As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
        Me.Button1 = New System.Windows.Forms.Button()
        Me.BtnStart = New System.Windows.Forms.PictureBox()
        Me.BtnStop = New System.Windows.Forms.PictureBox()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
        CType(Me.BtnStart, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.BtnStop, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        'Button1
        Me.Button1.Location = New System.Drawing.Point(22, 167)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(216, 23)
        Me.Button1.TabIndex = 1
        Me.Button1.Text = "Write To file and Close application"
        Me.Button1.Visible = False
        'BtnStart
        Me.BtnStart.Image = CType(resources.GetObject("BtnStart.Image"), System.Drawing.Image)
        Me.BtnStart.Location = New System.Drawing.Point(80, 46)
        Me.BtnStart.Name = "BtnStart"
        Me.BtnStart.Size = New System.Drawing.Size(109, 103)
        Me.BtnStart.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.BtnStart.TabIndex = 2
        Me.BtnStart.TabStop = False
        'BtnStop
        Me.BtnStop.Image = CType(resources.GetObject("BtnStop.Image"), System.Drawing.Image)
        Me.BtnStop.Location = New System.Drawing.Point(80, 46)
        Me.BtnStop.Name = "BtnStop"
        Me.BtnStop.Size = New System.Drawing.Size(109, 103)
        Me.BtnStop.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.BtnStop.TabIndex = 4
        Me.BtnStop.TabStop = False
        'Label1
        Me.Label1.AutoSize = True
        Me.Label1.Font = New System.Drawing.Font("Times New Roman", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.ForeColor = System.Drawing.Color.DarkGoldenrod
        Me.Label1.Location = New System.Drawing.Point(27, 9)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(253, 24)
        Me.Label1.TabIndex = 5
        Me.Label1.Text = "Remote Monitoring System"
        'Timer1
        Me.Timer1.Interval = 36000
        'Form1
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(292, 159)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.BtnStart)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.BtnStop)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.Name = "Form1"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "STORE"
        CType(Me.BtnStart, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.BtnStop, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()
    End Sub
#End Region
    Dim Encoder As WMEncoder
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As EventArgs) Handles MyBase.Load
        Try
            For Each clsProcess As Process In Process.GetProcesses()
                If clsProcess.ProcessName.StartsWith("x-lite") Then
                    BtnStop.Enabled = False
                    Record()
                    Timer1.Enabled = True
                End If
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Application.Exit()
        End Try
    End Sub
    Private Sub Record()
        Dim usernameloggedin As String
        usernameloggedin = Environment.UserName.ToString()
        Encoder = New WMEncoder
        ' Retrieve the source group collection and add a source group. 
        Dim SrcGrp As IWMEncSourceGroup2
        Dim SrcGrpColl As IWMEncSourceGroupCollection
        SrcGrpColl = Encoder.SourceGroupCollection
        SrcGrp = SrcGrpColl.Add("SG_1")
        ' Add a video and audio source to the source group.
        Dim SrcVid As IWMEncVideoSource2
        Dim SrcAud As IWMEncAudioSource
        SrcVid = SrcGrp.AddSource(WMENC_SOURCE_TYPE.WMENC_VIDEO)
        SrcAud = SrcGrp.AddSource(WMENC_SOURCE_TYPE.WMENC_AUDIO)
        ' Identify the source files to encode.
        SrcVid.SetInput("ScreenCap://ScreenCapture1")
        SrcAud.SetInput("Device://Default_Audio_Device")
        ' Choose a profile from the collection.
        Dim ProColl As IWMEncProfileCollection
        Dim Pro As IWMEncProfile
        Dim i As Integer
        Dim lLength As Long
        ProColl = Encoder.ProfileCollection
        lLength = ProColl.Count
        'For i = 0 To lLength - 1
        '    Console.WriteLine(ProColl.Item(i).Name)
        'Next
        For i = 0 To lLength - 1
            Pro = ProColl.Item(i)
            If Pro.Name = "Windows Media Video 8 for Local Area Network (384 Kbps)" Then
                'Windows Media Video 8 for Broadband (NTSC, 700 Kbps)
                'kWindows Media Video 8 for Local Area Network (384 Kbps)
                SrcGrp.Profile = Pro
                Exit For
            End If
        Next
        ' Fill in the description object members.
        Dim Descr As IWMEncDisplayInfo
        Descr = Encoder.DisplayInfo
        Descr.Author = "Armoghan Asif"
        Descr.Copyright = "Copyright information"
        Descr.Description = ""
        Descr.Rating = "Rating information"
        Descr.Title = "Keep Your Coding Screen In Middle"
        ' Add an attribute to the collection.
        Dim Attr As IWMEncAttributes
        Attr = Encoder.Attributes
        Attr.Add("URL", "google.co.in")
        ' Specify a file object in which to save encoded content.
        Dim File1 As IWMEncFile
        File1 = Encoder.File
        Dim pathdfld As String
        '  pathdfld = "\\192.168.20.153\C\RECORDING\"
        pathdfld = "C:\RECORDING\"
        Dim fname, todaysdate As String
        fname = usernameloggedin
        todaysdate = System.DateTime.Now.Day.ToString() + System.DateTime.Now.Month.ToString() + System.DateTime.Now.Year.ToString()
        pathdfld += todaysdate
        If Directory.Exists(pathdfld) Then
            Dim cntfil As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
            cntfil = My.Computer.FileSystem.GetFiles(pathdfld)
            Dim cnt As Int32 = CStr(cntfil.Count)
            cnt += 1
            My.Computer.FileSystem.CreateDirectory(pathdfld)
            File1.LocalFileName = pathdfld + "\" + fname + cnt.ToString() + ".mp4"
        Else
            My.Computer.FileSystem.CreateDirectory(pathdfld)
            'System.IO.Directory.CreateDirectory(pathdfld)
            File1.LocalFileName = pathdfld + "\" + fname + "1" + ".mp4"
        End If
        ' Crop 2 pixels from each edge of the video image.
        SrcVid.CroppingBottomMargin = 0
        SrcVid.CroppingTopMargin = 0
        SrcVid.CroppingLeftMargin = 0
        SrcVid.CroppingRightMargin = 0
        ' Start the encoding process.
        Encoder.Start()
        BtnStart.Visible = False
        BtnStop.Visible = True
        '   End If
    End Sub
    Private Sub StartRecording()
        Try
            ' Create a WMEncoder object.
            Dim usernameloggedin As String
            usernameloggedin = Environment.UserName.ToString()
            Encoder = New WMEncoder
            ' Retrieve the source group collection and add a source group. 
            Dim SrcGrp As IWMEncSourceGroup2
            Dim SrcGrpColl As IWMEncSourceGroupCollection
            SrcGrpColl = Encoder.SourceGroupCollection
            SrcGrp = SrcGrpColl.Add("SG_1")
            ' Add a video and audio source to the source group.
            Dim SrcVid As IWMEncVideoSource2
            Dim SrcAud As IWMEncAudioSource
            SrcVid = SrcGrp.AddSource(WMENC_SOURCE_TYPE.WMENC_VIDEO)
            SrcAud = SrcGrp.AddSource(WMENC_SOURCE_TYPE.WMENC_AUDIO)
            ' Identify the source files to encode.
            SrcVid.SetInput("ScreenCap://ScreenCapture1")
            SrcAud.SetInput("Device://Default_Audio_Device")
            ' Choose a profile from the collection.
            Dim ProColl As IWMEncProfileCollection
            Dim Pro As IWMEncProfile
            Dim i As Integer
            Dim lLength As Long
            ProColl = Encoder.ProfileCollection
            lLength = ProColl.Count
            'For i = 0 To lLength - 1
            '    Console.WriteLine(ProColl.Item(i).Name)
            'Next
            For i = 0 To lLength - 1
                Pro = ProColl.Item(i)
                If Pro.Name = "Windows Media Video 8 for Local Area Network (384 Kbps)" Then
                    SrcGrp.Profile = Pro
                    Exit For
                End If
            Next
            ' Fill in the description object members.
            Dim Descr As IWMEncDisplayInfo
            Descr = Encoder.DisplayInfo
            Descr.Author = "Armoghan Asif"
            Descr.Copyright = "Copyright information"
            Descr.Description = "Text description of encoded content"
            Descr.Rating = "Rating information"
            Descr.Title = "Title of encoded content"
            ' Add an attribute to the collection.
            Dim Attr As IWMEncAttributes
            Attr = Encoder.Attributes
            Attr.Add("URL", "www.adnare.com")
            ' Specify a file object in which to save encoded content.
            Dim File1 As IWMEncFile
            File1 = Encoder.File
            Dim pathdfld As String
            pathdfld = "\\192.168.20.153\C:\RECORDING\"
            Dim fname As String
            fname = usernameloggedin + System.DateTime.Now.Day.ToString() + System.DateTime.Now.Month.ToString() + System.DateTime.Now.Year.ToString()
            If File.Exists(pathdfld) Then
                File1.LocalFileName = pathdfld + fname + ".3gp"
                'File1.LocalFileName = "\\192.168.20.33\Recording\" + fname + ".3gp"
            Else
                My.Computer.FileSystem.CreateDirectory(pathdfld)
                File1.LocalFileName = pathdfld + fname + ".3gp"
                'File1.LocalFileName = "\\192.168.20.33\Recording\" + fname + ".3gp"
                'File1.LocalFileName = "\\192.168.2.210\recording\" + fname + ".3gp"
            End If
            ' Crop 2 pixels from each edge of the video image.
            SrcVid.CroppingBottomMargin = 25
            SrcVid.CroppingTopMargin = 25
            SrcVid.CroppingLeftMargin = 25
            SrcVid.CroppingRightMargin = 25
            ' Start the encoding process.
            Encoder.Start()
            BtnStart.Visible = False
            BtnStop.Visible = True
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
    Private Sub stopRecording()
        If Encoder.RunState Then
            Encoder.Stop()
            Application.Exit()
        End If
    End Sub
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Try
            If Timer1.Interval = 32400000 Then
                stopRecording()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString(), "Exeception", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
End Class