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

[sayberiya]

این اطلاعات در رجیستری و در این آدرس ذخیره شده اند

HKEY_CURRENT_USER\ Software\Microsoft\Internet Explorer\TypedURLs

خوب حالا اونا رو استخراج میکنیم ، برای این کار به توابع API مربوط به رجیستری احتیاج داریم

تابع مورد نیاز ما GetRegistryValue میباشد این تابع مقدار ذخیره شده در یک واحد در رجیستری را بر میگرداند علاوه براین ما به دستورات دیگری نیز نیاز داریم که من اونو به صورت یک کلاس برای شما آماده کردم و اگه بخوام راجع به اون دستورات هم توضیح بدم ممکنه قاطی کنین برای همین شما کافیه یک متغیر از نوع اون کلاس تعریف کنید به این صورت :

Dim oReg As New clsRegistry

در اینجا clsRegistry نام کلاسی است که درست کردم با این کار شما باعث میشید که متغیر oReg به تمام دستورات این کلاس دسترسی داشته باشه فقط کافیه بعد از نوشتن این متغیر یک نقطه بلافاصله بعد از اون بزارین تا به دستورات داخل کلاس دسترسی پیدا کنید مثلا :

oReg.GetRegistryValue

ابتدا در قسمت General مینویسیم :

Dim oReg As New clsRegistry

Const APP_KEY As String = "Software\Microsoft\Internet Explorer\TypedURLs”

سپس در قسمت Form Load مینویسیم :



Dim I As Integer

Dim p As String

For I = 1 To 200

p = oReg.GetRegistryValue(HKEY_CURRENT_USER, APP_KEY, “url” & i,””)

If p <> “” Then

turl.Text = turl.Text & oReg.GetRegistryValue(HKEY_CURRENT_USER, APP_KEY, “url” & I, “”) & vbCrLf

End If

Next i

یک TextBox با نام Turl به فرم اضافه کنید تا سایتهای بازدید شده توسط کاربر یا به اصطلاح UrlHistory ها داخل اون ثبت بشند .

سوال من از شما اینه که چه جوری میشه که این اطلاعات رو به جای اینکه در تکس باکس ببینیم . اونو یه جایی مثل همون جایی که کلمات تایپ شده در اونجا ذخیره شده مثلا c\windows\test.txt در اینجا ببینیم.مثل یه کیلاگر که همه کلمات تایپ شده رو یه جا ذخیره میکنه(حالا هر کجا که انتخاب کردیم) میخوام صفحات بازدید شده هم به همون جایی که کلمات تایپ شده ذخیره شده بره
میتونید کمکم کنید