[TuT] Make Advance Builder in Visual Basic - FULL EXAMPLE

[TuT] Make Advance Builder in Visual Basic - FULL EXAMPLE - Printable Version

+- Support Forums (https://www.supportforums.net)
+-- Forum: Categories (https://www.supportforums.net/forumdisplay.php?fid=87)
+--- Forum: Coding Support Forums (https://www.supportforums.net/forumdisplay.php?fid=18)
+---- Forum: Visual Basic and the .NET Framework (https://www.supportforums.net/forumdisplay.php?fid=19)
+---- Thread: [TuT] Make Advance Builder in Visual Basic - FULL EXAMPLE (/showthread.php?tid=5630)

[TuT] Make Advance Builder in Visual Basic - FULL EXAMPLE - BlackSpider - 04-06-2010

Make Boolean build in Visual Basic

Tutorial By: Soul Collector

Hello everyone.

This was tutorial was first for alliance .. but i lots of people asking me on msn how to use my keyloggers builder .. but they are not in alliane . So they are not able to check out this thread .. soz alliance i'll make new tut for only you and it will stay private, now lets start .. enjoy!

STEP 1:

Open Visual Basic .NET Click File > New Project > Windows Application > Name it Builder > Ok button

From the Toolbox bar drag:

CheckBox1 - Checking did we checked this, it will be showed in builded file.
TextBox1 - Some text
Button1 - Build button

On top of our code write:

Code:
Imports System.IO

Under the Public Class Form1 write:

Code:
Dim stub, text1 As String

    Dim cb As Boolean

    Const Filesplit = "@BooleanBuilder@"

Double Click Button1 and write:

Code:
text1 = TextBox1.Text

        'Open the Stub

        FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)

        stub = Space(LOF(1))

        'Get the file

        FileGet(1, stub)

        'Close the file

        FileClose(1)

        If CheckBox1.Checked = True Then

            cb = True

        Else : cb = False

        End If

        'If the builded file have the same name, then replace with new builded one.

        If File.Exists("Boolean.exe") Then

            My.Computer.FileSystem.DeleteFile("Boolean.exe")

        End If

        'Open the file

    FileOpen(1, Application.StartupPath & "\Boolean.exe.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)

        'Put the informations

        FilePut(1, stub & Filesplit & text1 & Filesplit & cb & Filesplit)

        'Close the file

        FileClose(1)

        MsgBox("The boolean builder did the job, I guess this will help you!", MsgBoxStyle.Information, "Boolean Builder")

Explanation:
[Image: mhu69i.png]

How this works?

This is our import:

Code:
Imports System.IO

This is string for TextBox1 and Stub, which we use to tell program to add the Builder Textbox1.Text in Stub:

Code:
Dim stub, text1 As String

This is Boolean declaration for our builder:

Code:
Dim cb As Boolean

This is file split which will split our builders informations with stub:

Code:
Const Filesplit = "@BooleanBuilder@"

This open stub and then the process start's:

Code:
FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)

This get the stub:

Code:
FileGet(1, stub)

This close the stub:

Code:
FileClose(1)

This check is it our checkbox checked and add it to our stub so we can see did we checked it:

Code:
If CheckBox1.Checked = True Then

            cb = True

        Else : cb = False

        End If

This check is it file already builded and if it is then it replace with new, builded one:

Code:
If File.Exists("Boolean.exe") Then

            My.Computer.FileSystem.DeleteFile("Boolean.exe")

        End If

This build the file:

Code:
FileOpen(1, Application.StartupPath & "\Boolean.exe.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)

This put the split's in the files:

Code:
FilePut(1, stub & Filesplit & text1 & Filesplit & cb & Filesplit)

And finnaly this close the file:

Code:
FileClose(1)

This show the user that, the file is builded via messagebox:

Code:
MsgBox("The boolean builder did the job, I guess this will help you!", MsgBoxStyle.Information, "Boolean Builder")

STEP 2:

Open Visual Basic .NET Click File > New Project > Windows Application > Name it Stub Ok button

From the Toolbox bar drag:

Label1 - This is just some text with question "Did you checked me?"
Label2 - This is answer and put text for now "None" it will be changed when we build so dont worry
Textbox1 - This just added to explane you how to add text too.

Add this under Public Class Form1:

Code:
Dim options(), text1, cb As String

    Const Filesplit = "@BooleanBuilder@"

Now double click the Form1 and write code:

Code:
FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)

        text1 = Space(LOF(1))

        cb = Space(LOF(1))

        'FileGet

        FileGet(1, text1) 'options(1) - Text

        FileGet(1, cb) 'options(2) - Label

        FileClose(1)

        options = Split(text1, FileSplit)

        FileClose(1)

        TextBox1.Text = options(1)

       If options(2) = False Then

            Label2.Text = "No"

        Else : Label2.Text = "Yes"

        End If

[color=#FFD700][b]Explanation:[/b][/color]

[img]http://i50.tinypic.com/27y1wns.png[/img]

[color=#FF1493][b]How this works?[/b][/color][/size]

[color=#FF4500]This is our stirng with options and[b] text1[/b] is text from the [b]Builder[/b]:[/color]

[code]Dim options(), text1, cb As String

This one opens the file:

Code:
FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)

This one gets the informations from Builder and set options() which we use in our stub:

Code:
'FileGet

        FileGet(1, text1) 'options(1) - Text

        FileGet(1, cb) 'options(2) - Label

This close the file:

Code:
FileClose(1)

This split the Textbox1:

Code:
options = Split(text1, FileSplit)

This close the file:

Code:
FileClose(1)

This says to textbox1 that the text is from options(1) which is marked as text1 string:

Code:
TextBox1.Text = options(1)

This checks did we checked the cb from builder, this is connection of the builder and stub which must be 100% same:

Code:
If options(2) = False Then

            Label2.Text = "No"

        Else : Label2.Text = "Yes"

        End If

Download:
http://www.multiupload.com/YFDFC27B5M

Note: Like i said up there, please read the tutorial it will help you to learn more Smile

RE: [TuT] Make Advance Builder in Visual Basic - FULL EXAMPLE - Julie - 04-06-2010

All things you are posting in Visual Basic section are not from you.
Please add credits :/
But thanks for posting it here ...

RE: [TuT] Make Advance Builder in Visual Basic - FULL EXAMPLE - Notieboie - 04-06-2010

(04-06-2010, 09:49 AM)Julie Wrote: All things you are posting in Visual Basic section are not from you.
Please add credits :/
But thanks for posting it here ...

Dude he is pro in visual basic , i am sure he written it 100%. as he always gives credits

RE: [TuT] Make Advance Builder in Visual Basic - FULL EXAMPLE - iCrackz - 04-06-2010

(04-06-2010, 09:49 AM)Julie Wrote: All things you are posting in Visual Basic section are not from you.
Please add credits :/
But thanks for posting it here ...

He did give credits. Look at the top.
Thanks.

RE: [TuT] Make Advance Builder in Visual Basic - FULL EXAMPLE - Notieboie - 04-06-2010

(04-06-2010, 01:27 PM)iCrackz Wrote: He did give credits. Look at the top.
Thanks.

he is itself sc

RE: [TuT] Make Advance Builder in Visual Basic - FULL EXAMPLE - Awesome - 04-06-2010

Wow! Nice tutorial, i'll read everything later i don't have so much time right now but nice ^^

RE: [TuT] Make Advance Builder in Visual Basic - FULL EXAMPLE - GameOver* - 04-07-2010

hmm.. niCe tutorial.. very helpful..! thanks for share!

RE: [TuT] Make Advance Builder in Visual Basic - FULL EXAMPLE - Sam - 04-07-2010

Hang on, is the creating a key logger?

RE: [TuT] Make Advance Builder in Visual Basic - FULL EXAMPLE - Notieboie - 04-07-2010

(04-07-2010, 03:30 AM)Sam Wrote: Hang on, is the creating a key logger?

Not exactly but this is very nice explanation that can be used in making a keylogger