Save Settings (and .dlls) of your Injector in vb.net

[Biesi]

Save the settings of your Injector in an .ini file.

---

 

Extract INIFormat_dll.rar

Add INIFormat.dll to references
(Rightclick Project > Add references)

 

---

Create subs/functions to read/write/delete

Private Sub SaveAll() Handles Me.FormClosing
    Dim INI As New INIFormat.UseINI 'access to INIFormat.dlls functions
    INI.Path = My.Application.Info.DirectoryPath & "\settings.ini" 'defines path of .ini
    My.Computer.FileSystem.DeleteFile("INI.Path", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)

    INI.WriteValue("Settings", "Close", CheckBox1.Checked) 'Save the state of CheckBox1 (True or False)
    INI.WriteValue("Settings", "Auto", RadioButton1.Checked) 'Save the state of RadioButton1 (True or False)
    INI.WriteValue("Settings", "Process", TextBox1.Text) 'Save the process 
    INI.WriteValue("DLLs", "Count", ListBox1.Items.Count) 'Save the amount of DLLs

    For Each DLL In ListBox1.Items
        Dim counter As Integer 
        counter = counter + 1
        INI.WriteValue("DLLs", counter, dlls4inj.Item(DLL)) 'Save path of each DLL
    Next

End Sub

Private Sub ReadAll() Handles Me.Load
    Dim INI As New INIFormat.UseINI 'access to INIFormat.dlls functions
    INI.Path = My.Application.Info.DirectoryPath & "\settings.ini" 'defines path of .ini

    CheckBox1.Checked = INI.ReadValue("Settings", "Close") 'Changes the state of CheckBox1 to the saved one
    If INI.ReadValue("Settings", "Auto") = "False" Then
        RadioButton2.Checked = True 'Manual Injection
    Else
        RadioButton1.Checked = True 'Auto Injection
    End If

    For i As Integer = 1 To INI.ReadValue("DLLs", "Count") Step 1
        Dim FileName As String
        Dim DLLPath As String = INI.ReadValue("DLLs", i)
        FileName = DLLPath.Substring(DLLPath.LastIndexOf("\"))
        FileName = FileName.Replace("\", "")
        Try
            dlls4inj.Add(FileName, DLLPath)
            ListBox1.Items.Add(FileName)
        Catch ex2 As Exception
        End Try
    Next
End Sub

 

Extract UseINI_vb.rar

Add an existing Item
(Rightclick Project > Add > Add existing)

 

---

Create subs/functions to read/write/delete

Private Sub SaveAll() Handles Me.FormClosing
    Dim INI As New UseINI 'access to UseINI.vbs functions
    INI.Path = My.Application.Info.DirectoryPath & "\settings.ini" 'defines path of .ini
    My.Computer.FileSystem.DeleteFile("INI.Path", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)

    INI.WriteValue("Settings", "Close", CheckBox1.Checked) 'Save the state of CheckBox1 (True or False)
    INI.WriteValue("Settings", "Auto", RadioButton1.Checked) 'Save the state of RadioButton1 (True or False)
    INI.WriteValue("Settings", "Process", TextBox1.Text) 'Save the process 
    INI.WriteValue("DLLs", "Count", ListBox1.Items.Count) 'Save the amount of DLLs

    For Each DLL In ListBox1.Items
        Dim counter As Integer 
        counter = counter + 1
        INI.WriteValue("DLLs", counter, dlls4inj.Item(DLL)) 'Save path of each DLL
    Next

End Sub

Private Sub ReadAll() Handles Me.Load
    Dim INI As New UseINI 'access to UseINI.vbs functions
    INI.Path = My.Application.Info.DirectoryPath & "\settings.ini" 'defines path of .ini

    CheckBox1.Checked = INI.ReadValue("Settings", "Close") 'Changes the state of CheckBox1 to the saved one
    If INI.ReadValue("Settings", "Auto") = "False" Then
        RadioButton2.Checked = True 'Manual Injection
    Else
        RadioButton1.Checked = True 'Auto Injection
    End If

    For i As Integer = 1 To INI.ReadValue("DLLs", "Count") Step 1
        Dim FileName As String
        Dim DLLPath As String = INI.ReadValue("DLLs", i)
        FileName = DLLPath.Substring(DLLPath.LastIndexOf("\"))
        FileName = FileName.Replace("\", "")
        Try
            dlls4inj.Add(FileName, DLLPath)
            ListBox1.Items.Add(FileName)
        Catch ex2 As Exception
        End Try
    Next
End Sub

You may have to edit.

---

Scans:
Projects_&_Files [0/41]
Projects_&_Files [0/20]

Download contains:
Projectfolder with example.exe (using .vb)
Projectfolder with example.exe (using .dll)
INIFormat.dll
UseINI.vb

I didn't know where to post so I did where all the Injectors where posted that coders can see

[DaRk]

Approved .

[Intellectual]

nice work m8

[xKickAss]

omg why did you post it, source isn't your and now leechers will be more pro -.-

Ps: Credits?

[Pingo]

Nice -BiESi
This should atleast help those looking to add something to their projects.
XXX

[Biesi]

omg why did you post it, source isn't your and now leechers will be more pro -.-

Ps: Credits?

Oh I'm sure it's my source.
idc about Leechers beeing pro, where is the problem?

[xKickAss]

Oh I'm sure it's my source.
idc about Leechers beeing pro, where is the problem?

Sure it's your source hahahaha i can find 300 on google same of your, and that wont help coders, it's easy, just leechers

[Biesi]

Sure it's your source hahahaha i can find 300 on google same of your, and that wont help coders, it's easy, just leechers

So and because you can find more on google? Why don't you give credits to the first one who created the "Source" of your injectors browse function
How about crediting MS for the API or VB.NET ...
stupid

[KerozHany]

Your Are Awesome Leechers Wont Be Able To Do It

[DarkPladin]

Nice Job I think It will help a lot !

[Rullez]

Good Source....

[RuShi]

/Bump , useful thread .