۲۳-دى-۱۳۸۶, ۱۷:۰۲:۱۷
این اطلاعات در رجیستری و در این آدرس ذخیره شده اند
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 در اینجا ببینیم.مثل یه کیلاگر که همه کلمات تایپ شده رو یه جا ذخیره میکنه(حالا هر کجا که انتخاب کردیم) میخوام صفحات بازدید شده هم به همون جایی که کلمات تایپ شده ذخیره شده بره
میتونید کمکم کنید
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 در اینجا ببینیم.مثل یه کیلاگر که همه کلمات تایپ شده رو یه جا ذخیره میکنه(حالا هر کجا که انتخاب کردیم) میخوام صفحات بازدید شده هم به همون جایی که کلمات تایپ شده ذخیره شده بره
میتونید کمکم کنید