تابع sendkey و ساخت keylogger

Printable View

14-07-2006, 16:55
HAMID484

تابع sendkey و ساخت keylogger

سلام دوستان :biggrin:

من یه برنامه میخوام که بتونه که کلیدهای زده شده را در یک txt نشان بده حتی وقتی که فوکس روی برنامه نیست

توضیحی هم در مورد تابع sendkey میخواستم
15-07-2006, 03:24
Payman_62

جواب سوال اول: تابع GetAsyncKeyState
جواب سوال دوم: تابع sendkey رو با یه مثال توضیح میدم.
MultiLine تکس باکس رو فعال کن و کد زیر رو اجرا کن و نتیجه رو ببین. خودت همه چیو میفهمی.

کد:

Private Sub Text1_Click() SendKeys "{H}" SendKeys "{A}" SendKeys "{M}" SendKeys "{I}" SendKeys "{D}" SendKeys "{Enter}" End Sub
15-07-2006, 14:26
HAMID484

اقا پيمان من میخوام این تابع بتونه همه کلیدهای زده شده رو تشخیص بده . کجا رو تغییر بدم ؟

کد:

'NT,2000,Xp Private Const VK_LSHIFT = &HA0 Private Const VK_RSHIFT = &HA1 Private Const VK_LCONTROL = &HA2 Private Const VK_RCONTROL = &HA3 Private Const VK_LMENU = &HA4 Private Const VK_RMENU = &HA5 'All Private Const VK_LBUTTON = &H1 Private Const VK_RBUTTON = &H2 Private Const VK_CANCEL = &H3 Private Const VK_MBUTTON = &H4 Private Const VK_BACK = &H8 Private Const VK_TAB = &H9 Private Const VK_CLEAR = &HC Private Const VK_RETURN = &HD Private Const VK_SHIFT = &H10 Private Const VK_CONTROL = &H11 Private Const VK_MENU = &H12 Private Const VK_PAUSE = &H13 Private Const VK_CAPITAL = &H14 Private Const VK_ESCAPE = &H1B Private Const VK_SPACE = &H20 Private Const VK_PRIOR = &H21 Private Const VK_NEXT = &H22 Private Const VK_END = &H23 Private Const VK_HOME = &H24 Private Const VK_LEFT = &H25 Private Const VK_UP = &H26 Private Const VK_RIGHT = &H27 Private Const VK_DOWN = &H28 Private Const VK_SELECT = &H29 Private Const VK_PRINT = &H2A Private Const VK_EXECUTE = &H2B Private Const VK_SNAPSHOT = &H2C Private Const VK_INSERT = &H2D Private Const VK_DELETE = &H2E Private Const VK_HELP = &H2F Private Const VK_0 = &H30 Private Const VK_1 = &H31 Private Const VK_2 = &H32 Private Const VK_3 = &H33 Private Const VK_4 = &H34 Private Const VK_5 = &H35 Private Const VK_6 = &H36 Private Const VK_7 = &H37 Private Const VK_8 = &H38 Private Const VK_9 = &H39 Private Const VK_A = &H41 Private Const VK_B = &H42 Private Const VK_C = &H43 Private Const VK_D = &H44 Private Const VK_E = &H45 Private Const VK_F = &H46 Private Const VK_G = &H47 Private Const VK_H = &H48 Private Const VK_I = &H49 Private Const VK_J = &H4A Private Const VK_K = &H4B Private Const VK_L = &H4C Private Const VK_M = &H4D Private Const VK_N = &H4E Private Const VK_O = &H4F Private Const VK_P = &H50 Private Const VK_Q = &H51 Private Const VK_R = &H52 Private Const VK_S = &H53 Private Const VK_T = &H54 Private Const VK_U = &H55 Private Const VK_V = &H56 Private Const VK_W = &H57 Private Const VK_X = &H58 Private Const VK_Y = &H59 Private Const VK_Z = &H5A Private Const VK_STARTKEY = &H5B Private Const VK_CONTEXTKEY = &H5D Private Const VK_NUMPAD0 = &H60 Private Const VK_NUMPAD1 = &H61 Private Const VK_NUMPAD2 = &H62 Private Const VK_NUMPAD3 = &H63 Private Const VK_NUMPAD4 = &H64 Private Const VK_NUMPAD5 = &H65 Private Const VK_NUMPAD6 = &H66 Private Const VK_NUMPAD7 = &H67 Private Const VK_NUMPAD8 = &H68 Private Const VK_NUMPAD9 = &H69 Private Const VK_MULTIPLY = &H6A Private Const VK_ADD = &H6B Private Const VK_SEPARATOR = &H6C Private Const VK_SUBTRACT = &H6D Private Const VK_DECIMAL = &H6E Private Const VK_DIVIDE = &H6F Private Const VK_F1 = &H70 Private Const VK_F2 = &H71 Private Const VK_F3 = &H72 Private Const VK_F4 = &H73 Private Const VK_F5 = &H74 Private Const VK_F6 = &H75 Private Const VK_F7 = &H76 Private Const VK_F8 = &H77 Private Const VK_F9 = &H78 Private Const VK_F10 = &H79 Private Const VK_F11 = &H7A Private Const VK_F12 = &H7B Private Const VK_F13 = &H7C Private Const VK_F14 = &H7D Private Const VK_F15 = &H7E Private Const VK_F16 = &H7F Private Const VK_F17 = &H80 Private Const VK_F18 = &H81 Private Const VK_F19 = &H82 Private Const VK_F20 = &H83 Private Const VK_F21 = &H84 Private Const VK_F22 = &H85 Private Const VK_F23 = &H86 Private Const VK_F24 = &H87 Private Const VK_NUMLOCK = &H90 Private Const VK_OEM_SCROLL = &H91 Private Const VK_OEM_1 = &HBA Private Const VK_OEM_PLUS = &HBB Private Const VK_OEM_COMMA = &HBC Private Const VK_OEM_MINUS = &HBD Private Const VK_OEM_PERIOD = &HBE Private Const VK_OEM_2 = &HBF Private Const VK_OEM_3 = &HC0 Private Const VK_OEM_4 = &HDB Private Const VK_OEM_5 = &HDC Private Const VK_OEM_6 = &HDD Private Const VK_OEM_7 = &HDE Private Const VK_OEM_8 = &HDF Private Const VK_ICO_F17 = &HE0 Private Const VK_ICO_F18 = &HE1 Private Const VK_OEM102 = &HE2 Private Const VK_ICO_HELP = &HE3 Private Const VK_ICO_00 = &HE4 Private Const VK_ICO_CLEAR = &HE6 Private Const VK_OEM_RESET = &HE9 Private Const VK_OEM_JUMP = &HEA Private Const VK_OEM_PA1 = &HEB Private Const VK_OEM_PA2 = &HEC Private Const VK_OEM_PA3 = &HED Private Const VK_OEM_WSCTRL = &HEE Private Const VK_OEM_CUSEL = &HEF Private Const VK_OEM_ATTN = &HF0 Private Const VK_OEM_FINNISH = &HF1 Private Const VK_OEM_COPY = &HF2 Private Const VK_OEM_AUTO = &HF3 Private Const VK_OEM_ENLW = &HF4 Private Const VK_OEM_BACKTAB = &HF5 Private Const VK_ATTN = &HF6 Private Const VK_CRSEL = &HF7 Private Const VK_EXSEL = &HF8 Private Const VK_EREOF = &HF9 Private Const VK_PLAY = &HFA Private Const VK_ZOOM = &HFB Private Const VK_NONAME = &HFC Private Const VK_PA1 = &HFD Private Const VK_OEM_CLEAR = &HFE Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer ---------------------------------------------------------------------------------------------------------------------------------- Private Sub Timer1_Timer() Dim keystate As Integer keystate = GetAsyncKeyState(VK_S) If keystate And &H8000 Then Text1.Text = "The S key has been pressed ." Else Text1.Text = "The S key has NOT been pressed ." End If End Sub

در ضمن H8000& چیه ؟
16-07-2006, 16:02
HAMID484

کسی نیست به ما جواب بده ؟
16-07-2006, 17:40
Payman_62

کدت مشکل نداره. ولی شما فقط برای "S" کد نوشتی. باید همین کد رو keystate = GetAsyncKeyState(VK_S) برای همه کلید ها بنویسی و بذاری تو تایمر.
H8000& کد هگز 32768- هست. اگه کلیدی فشرده شه تابع این عدد رو برمیگردونه.
if رو این جوری هم میتونی بنویسی:

کد:

If keystate = -32768 Then Text1.Text = "The S key has been pressed ." Else Text1.Text = "The S key has NOT been pressed ." End If
17-07-2006, 00:13
HAMID484

كاري رو كه گفتيد كردم ولي اينجوري خيلي خط كد زياد شد

براي كار تابع وقتي كه فوكوس رو برنامه نيست نميشه از كنترلي غير از تايمر استفاده كرد؟

در ضمن چه جوري مي تونم كليدهايي رو كه ميزنم در يك تكست ثبت كنم چون ظاهرا با تايمر نميشه اين كار رو كرد؟
18-07-2006, 17:04
HAMID484

بابا يكي جواب ما رو بده
من خودم كلي برنامه keylogger دارم که با کمی دست کاری همونی میشن که میخوام
ولی میخوام خودم keylogger بنویسم
19-07-2006, 01:10
Payman_62

میخوای بدون فرم و فقط با ماژول برنامتو بنویسی؟
تو ماژول میتونی یه حلقه بذاری و از تابع sleep هم در حلقه استفاده کنی که به cpu فشار نیاد.
در ضمن تایمر مشکلی برای ثبت نداره.
19-07-2006, 10:49
HAMID484

نقل قول:

نوشته شده توسط Payman_62

میخوای بدون فرم و فقط با ماژول برنامتو بنویسی؟
تو ماژول میتونی یه حلقه بذاری و از تابع sleep هم در حلقه استفاده کنی که به cpu فشار نیاد.
در ضمن تایمر مشکلی برای ثبت نداره.

راستش من تا به حال او برنامه هام از ماژول استفاده نکردم چون هم کارش رو درست نمیدونم و به مشکلی هم بر نخوردم

مشکل استفاده از تایمر اینه که مثلا اگر دو کلید ( A , B ) رو هم زمان با هم فقط یک بار فشار بدی تو تکس باکس

نسبت به زمان تایمر چندین بار مینویسه " ABABABABABABABABAB و اگر اینجوری باشه برنامه فایده نداره و من فقط میخوام که یک بار ثبت بشه

در مورد تابع SLEEP هم چیزی نمیدونم

خسته نباشی
19-07-2006, 15:15
Payman_62

کسی که دکمه رو نگه نمیداره که اونجوری بشه.
اینم اسلیپ.

کد:

Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)