New LoadLibrary Program
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
Under your first button, put this
Under your second button put this
Then add this code
So it will look like this
Credits
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!
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
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
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
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
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
Code:
006b Lauwy Machida
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!
Fix your virus total scan. You need a screenshot as well. Also the virus scan jotti's file name doesn't match the file you attached.
Originally Posted by Hero
Fix your virus total scan. You need a screenshot as well. Also the virus scan jotti's file name doesn't match the file you attached.
PS: Fixed everything else, thanks
thanks for Posting this 
Looks verry nice and simple too 
The scans still doesn't match with the attachment's name.
or you can make a really simple one like this in native c++:
But if you want a nice gui do 006B's way, lol. Good job though.
Code:
#include <windows.h>
#include <iostream>
using namespace std;
int main()
{
char *dllname;
cout<<"Enter dll name here: ";
cin>>dllname;
LoadLibraryA(dllname);
system("PAUSE");
return 0;
}
Yes, thanks. This could be very useful. 
Fack' you Diver xD..Good jobs
Fuck you too bro <3 Jk I love you xD
