+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: بدست آوردن urlموجود در مرورگر (/showthread.php?tid=1206)
بدست آوردن urlموجود در مرورگر - Ghoghnus - 10-31-2011
سلام دوستان عزیز چطوری میشه فهمید الان تو چا سایتی هستیم؟
ممنون میشم راهنمایی کنید!
RE: بدست آوردن urlموجود در مرورگر - Amin_Mansouri - 11-01-2011
درود
شما هندل پنجره ها رو میگیرید تو کد زیر وقتی اینترنت اکسپلور اجرا شد برنامه تابع کیلاگر رو فراخونی میکنه
وقتی تایپ کرد شروع به ذخیره کردن میکنی تابع کیلاگر نزاشتم چون که پابلیک میشه تو گوگل یه سرچ کنی میتونی یه سورسکیلاگر پیدا کنی
بعد میتونی چیزهای که تایپ کرده فیلتر کنی میتونی هندل پنجره ای که توش تایپ میکنن هم بگیری اما بخاطر ورژن های متختلف اینترنت اکسپلور موزیلا اپرا و .... امکان خطا رفتن بالا میره
یه نمونه برات نوشتم :
کد:
'/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_find_ie_address.zip