Save Settings (and .dlls) of your Injector in vb.netSave Settings (and .dlls) of your Injector in vb.net
Save the settings of your Injector in an .ini file.
With .DLL File
Extract INIFormat_dll.rar
Add INIFormat.dll to references
(Rightclick Project > Add references)
Screenshots
Create subs/functions to read/write/delete
Code:
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
Code:
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
With .VB File
Extract UseINI_vb.rar
Add an existing Item
(Rightclick Project > Add > Add existing)
Screenshots
Create subs/functions to read/write/delete
Code:
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
Code:
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
Originally Posted by xKickAss
