Public Class frmMain

Dim vb6 As New Compatibility.VB6.FixedLengthString(100)
Dim StubPfad As String = My.Application.Info.DirectoryPath & "\Stub.exe"



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

End Sub

Private Sub ButtonClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonClose.Click
End
End Sub

Private Sub ButtonCompile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCompile.Click
With SaveFileDialog1
.CheckPathExists = True
.FileName = "Server.exe"
.Filter = "Ausführbare Dateien (*.exe) | *.exe"
.ShowDialog()
End With

If SaveFileDialog1.FileName = Nothing Then
Exit Sub
End If

Dim FTP As String = txtServer.Text
Dim Name As String = txtUsername.Text
Dim Password As String = txtPassword.Text

IO.File.Copy(StubPfad, SaveFileDialog1.FileName)
vb6.Value = FTP & "_" & Name "_" & Password

FileOpen(1, (SaveFileDialog1.FileName), OpenMode.Binary)
FilePutObject(1, vb6.value, LOF(1) + 1)
FileClose(1)

MessageBox.Show("Kompiliervorgang Erfolgreich!", "Server Builder", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub




End Sub
End Class
Fehler 1 Der Name "vb6" wurde nicht deklariert. C:\Dokumente und Einstellungen\User\Lokale Einstellungen\Anwendungsdaten\Temporary Projects\Server.exe erstellen\Form1.vb 33 9 Server.exe erstellen

Fehler 2 "end of"-Anweisung erwartet. C:\Dokumente und Einstellungen\User\Lokale Einstellungen\Anwendungsdaten\Temporary Projects\Server.exe erstellen\Form1.vb 33 38 Server.exe erstellen