New LoadLibrary Program

USEFUL FOR...LOADLIB CSHELL OR SOMEONE HACK OR ANY DLL!!!

Make a new windows form application with a textbox, label, 2 buttons, and openfiledialoge.

Under your form class, put this

Code:

Public Declare Auto Function LoadLibrary Lib "kernel32" (ByVal lpLibFileName As String) As IntPtr

Under your first button, put this

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If LoadLibrary(TextBox1.Text) Then
            Label1.Text = "Loaded..."
        Else

            Label1.Text = "Not Loaded..."
        End If
    End Sub

Under your second button put this

Code:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim openFileDialog1 As New OpenFileDialog()

        openFileDialog1.InitialDirectory = "C:\Program Files (x86)\Z8Games\CrossFire\"
        openFileDialog1.Filter = "dll files (*.dll)|*.dll"
        openFileDialog1.RestoreDirectory = True
        If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then


            Try
                TextBox1.Text = openFileDialog1.FileName
            Catch ex As Exception

            End Try
            End If
    End Sub

Then add this code

Code:

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        TextBox1.Text = OpenFileDialog1.FileName
    End Sub
End Class

So it will look like this

Code:

Public Class Form1
    Public Declare Auto Function LoadLibrary Lib "kernel32" (ByVal lpLibFileName As String) As IntPtr
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If LoadLibrary(TextBox1.Text) Then
            Label1.Text = "Loaded..."
        Else

            Label1.Text = "Not Loaded..."
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim openFileDialog1 As New OpenFileDialog()

        openFileDialog1.InitialDirectory = "C:\Program Files (x86)\Z8Games\CrossFire\"
        openFileDialog1.Filter = "dll files (*.dll)|*.dll"
        openFileDialog1.FilterIndex = 2
        openFileDialog1.RestoreDirectory = True
        If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then


            Try
                TextBox1.Text = openFileDialog1.FileName
            Catch ex As Exception

            End Try
            End If
    End Sub

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        TextBox1.Text = OpenFileDialog1.FileName
    End Sub
End Class

Credits

Code:

006b
Lauwy
Machida

Binary:

VSCAN 1

VirusTotal - Free Online Virus, Malware and URL Scanner

VSCAN 2

LoadLibrary.rar - Jotti's malware scan

FALSE POSITIVES BECAUSE THE SOURCE IS RIGHT THERE!

LoadLi.rar

New LoadLibrary Program

Post a Reply

Similar Threads

Tags for this Thread