(Builder) Strings werden nicht übergeben

[sunny-boy3]

Hallo habe da eine frage hae ein Problem mit meinen Server Builder wen ich den server erstelle bekomme ich zwar ne server.exe aber wen ich diese öffne dan bekomme ich immer ein fehler weil die daten nicht richtig übergeben wurden ich poste mal meine code vllt findet ja jemand den fehler und kann mir weiter helfen

Ich denke das die daten wie email adresse und smtp und soetwas nicht richtig übergeben werden


Ich habe meine Code mal in Highlight Gecodet damit es übersichtlicher ist





Das sind die code von den builder

1. Dim VB6setting As New Compatibility.VB6.FixedLengthString(100)
2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
3. Dim Addi As String = Mail_Addi.Text
4. Dim Password As String = Mail_Pass.Text
5. Dim Smtp As String = Mail_Smtp.Text
6. Dim Username As String = Mail_User.Text
7. With SaveFileDialog
8. .Filter = "Ausführbare Dateien(*.exe)|*.exe*"
9. .FileName = "Server.exe"
10. .CheckPathExists = True
11. End With
12. If (SaveFileDialog.ShowDialog = Windows.Forms.DialogResult.Cancel) Then
13. Exit Sub
14. End If
15. File.Copy(My.Application.Info.DirectoryPath + "\Stub.exe", SaveFileDialog.FileName)
16. Dim Trennzeichen As Char = "_"
17. Dim Einstellungen As New VB6.FixedLengthString(100)
18. Einstellungen.Value = Addi + Trennzeichen + Password + Trennzeichen + Smtp + Trennzeichen + Username
19. FileOpen(1, (SaveFileDialog.FileName), OpenMode.Binary)
20. FilePut(1, Einstellungen.Value, LOF(1) + 1)
21. FileClose(1)
22. MessageBox.Show("Server wurde erstellt", "Server Builder", MessageBoxButtons.OK, MessageBoxIcon.Information)

und das von der stub

1. Public Class Form1
2. Inherits System.Windows.Forms.Form
3. Dim BuilderDaten() As String
4. Dim VB6setting As New Compatibility.VB6.FixedLengthString(100)
5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
6. File.Copy(Application.ExecutablePath, My.Application.Info.DirectoryPath + "\StubKopie.exe")
7. Dim Einstellungen As New VB6.FixedLengthString(100)
8. FileOpen(1, My.Application.Info.DirectoryPath + "\Stubkopie.exe", OpenMode.Binary)
9. FileGet(1, Einstellungen.Value, LOF(1) - 99)
10. FileClose(1)
11. Dim Trennzeichen As Char = "_"
12. Dim BuilderDaten As String() = Einstellungen.Value.Split(Trennzeichen)
13. Dim Addi As String = BuilderDaten(0)
14. Dim Password As String = BuilderDaten(1)
15. Dim Smtp As String = BuilderDaten(2)
16. Dim Username As String = BuilderDaten(3)
17. Dim oMail As New MailMessage()
18. SmtpMail.SmtpServer = BuilderDaten(2)
19. With oMail
20. .From = BuilderDaten(0)
21. .To = BuilderDaten(0)
22. .Subject = "Server Builder"
23. .Body = "Test"
24. With .Fields
25. .Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", 1)
26. .Add("http://schemas.microsoft.com/cdo/configuration/sendusername", BuilderDaten(3))
27. .Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", BuilderDaten(1))
28. .Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", 25)
29. End With
30. End With
31. SmtpMail.Send(oMail)