[Ghoghnus]

سلام دوستان عزیز چطوری میشه فهمید الان تو چا سایتی هستیم؟

ممنون میشم راهنمایی کنید!

[Amin_Mansouri]

درود
شما هندل پنجره ها رو میگیرید تو کد زیر وقتی اینترنت اکسپلور اجرا شد برنامه تابع کیلاگر رو فراخونی میکنه
وقتی تایپ کرد شروع به ذخیره کردن میکنی تابع کیلاگر نزاشتم چون که پابلیک میشه تو گوگل یه سرچ کنی میتونی یه سورسکیلاگر پیدا کنی
بعد میتونی چیزهای که تایپ کرده فیلتر کنی میتونی هندل پنجره ای که توش تایپ میکنن هم بگیری اما بخاطر ورژن های متختلف اینترنت اکسپلور موزیلا اپرا و .... امکان خطا رفتن بالا میره
یه نمونه برات نوشتم :

کد:

'/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 Sub

اینم یه سمپل دیگه برای اینترنت اکسپلوره
http://www.vb-helper.com/HowTo/howto_fin...ddress.zip