zteam

please Log in to be able to download and post in the forum,

Quick Links

Latest topics

» PHO Pub Hack v2.5 (USF)
Mon May 09, 2016 8:01 am by o7MooDyx

» WWW.PINOYHIDEOUT.COM
Tue Dec 29, 2015 6:24 am by rmn

» weapon unlucker
Sat Nov 21, 2015 1:45 pm by tansuka01234

» Soldier Front Wallhack(WIN7 X64)
Sat Nov 21, 2015 2:20 am by cjcabida14

» USF AG public hack
Tue Nov 17, 2015 2:35 am by superman2015

» Ponzi Weapon Unlocker 2015
Mon Nov 16, 2015 6:50 am by majhel00

» Whats the New Cheat Sir ..
Mon Nov 16, 2015 3:06 am by shania888

» [besh]Hack USF V 15
Sat Nov 14, 2015 12:51 am by rhaine123

» we are back
Wed Nov 04, 2015 2:39 am by blood


    My source of multidll auto injector [VB.NET]

    Share
    avatar
    maxhax995
    noob
    noob

    Posts : 3
    Z points : 8
    Reputation : 1
    Join date : 2011-07-20

    My source of multidll auto injector [VB.NET]

    Post by maxhax995 on Sat Oct 01, 2011 9:38 am

    well edited little of it
    added 2 more timers to inject 2 more dlls
    well just do whatever u want with it Smile
    Code:

    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    OpenFileDialog1.Filter = "DLL (*.dll) |*.dll"
    OpenFileDialog1.ShowDialog()
    Dim FileName As String
    FileName = OpenFileDialog1.FileName.Substring(OpenFileDialog1.FileName.LastIndexOf("\"))
    Dim DllFileName As String = FileName.Replace("\", "")
    Me.TextBox1.Text = (DllFileName)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    OpenFileDialog1.Filter = "DLL (*.dll) |*.dll"
    OpenFileDialog1.ShowDialog()
    Dim FileName As String
    FileName = OpenFileDialog1.FileName.Substring(OpenFileDialog1.FileName.LastIndexOf("\"))
    Dim DllFileName As String = FileName.Replace("\", "")
    Me.TextBox2.Text = (DllFileName)
    End Sub
    '
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    OpenFileDialog1.Filter = "DLL (*.dll) |*.dll"
    OpenFileDialog1.ShowDialog()
    Dim FileName As String
    FileName = OpenFileDialog1.FileName.Substring(OpenFileDialog1.FileName.LastIndexOf("\"))
    Dim DllFileName As String = FileName.Replace("\", "")
    Me.TextBox3.Text = (DllFileName)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    If IO.File.Exists(OpenFileDialog1.FileName) Then
    Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox4.Text)
    If TargetProcess.Length = 0 Then
    Me.Label4.Text = ("Waiting for " + TextBox4.Text + ".exe")

    Else
    Timer1.Stop()
    Me.Label4.Text = "Successfully Injected!"
    End If
    Else

    End If
    End Sub

    Private Sub GroupBox3_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox3.Enter

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    If IO.File.Exists(OpenFileDialog1.FileName) Then
    Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox5.Text)
    If TargetProcess.Length = 0 Then
    Me.Label5.Text = ("Waiting for " + TextBox5.Text + ".exe")

    Else
    Timer2.Stop()
    Me.Label5.Text = "Successfully Injected!"
    End If
    Else

    End If
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
    If IO.File.Exists(OpenFileDialog1.FileName) Then
    Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox6.Text)
    If TargetProcess.Length = 0 Then
    Me.Label6.Text = ("Waiting for " + TextBox6.Text + ".exe")

    Else
    Timer3.Stop()
    Me.Label6.Text = "Successfully Injected!"
    End If
    Else

    End If
    End Sub

      Current date/time is Sun Nov 19, 2017 10:58 pm