Insider-Computerfreaks

VB.Net/VB6-Quellcode

Public Class Form1
    Const FileSplit = "insider-Computerfreaks" 'FileSplit zeichen
    Dim stub, server, user, passw As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        server = TextBox1.Text
        user = TextBox2.Text
        passw = TextBox3.Text

        Dim save As New SaveFileDialog

        If save.ShowDialog = Windows.Forms.DialogResult.OK Then

            FileOpen(1, Application.StartupPath & "\stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
            stub = Space(LOF(1))
            FileGet(1, stub)
            FileClose(1)

            If My.Computer.FileSystem.FileExists(save.FileName) Then
                Kill(save.FileName)
            End If ' ^Löscht es falls es bereits existiert

            FileOpen(1, save.FileName, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
            ' FTP, Username sowie Passwort werden in die stub geschrieben
            FilePut(1, stub & FileSplit & server & FileSplit & user & FileSplit & passw)
            FileClose(1)
            'Die File wurde aus der stub heraus kreirt

            MsgBox("Die Datei wurde erfolgreich erstellt!", MsgBoxStyle.Information, "ICF")
        End If



    End Sub
End Class

VB.Net/VB6-Quellcode

Public Class Form1
    Const FileSplit = "insider-Computerfreaks" 'FileSplit
    Dim stub, server, user, passw As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim yourfile As String = "\stub.exe" ' Die stub
        FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
        yourfile = Space(LOF(1))
        FileGet(1, yourfile)
        FileClose(1)
        server = Split(yourfile, FileSplit)(1) ' Mitgegebener Wert 1 
        user = Split(yourfile, FileSplit)(2) ' Mitgegebener Wert 2
        passw = Split(yourfile, FileSplit)(3) ' Mitgegebener Wert 3

        MsgBox("FTP: " & server)
        MsgBox("USER: " & user)
        MsgBox("PASS: " & passw)
    End Sub
End Class