Save Settings (and .dlls) of your Injector in vb.net
Posts 1–12 of 12 · Page 1 of 1
Save 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)
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
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
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
Projects_&_Files_mpgh.net.rar
Approved .
nice work m8
omg why did you post it, source isn't your and now leechers will be more pro -.-
Ps: Credits?
Nice -BiESi
This should atleast help those looking to add something to their projects.
XXX
Originally Posted by xKickAss
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?
Originally Posted by -BiESi
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
Originally Posted by xKickAss
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