كيف استطيع استعراض history الهستوري (المحفوظات)؟؟؟؟؟

ماذا تقصد باستعراضها أخي الكريم

هل تريد احادة تحميلها في الانترنت اكسبلورر

أو معرفة فقط العناوين للمواقع التي تمت زيارتها؟

معرفة العناوين التي تمت زيارتها

اليوم/البارحة/الاسبوع الماضي

يمكنك أخي معرفة العناوين المدخلة اذا كان متصفحك الافتراضي طبعا هو الأنترنت اكسبلورر من الريجيستري

من الكاي :

HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

Private Const HKEY_CURRENT_USER = &H80000001
Private Const Pth = "Software\Microsoft\Internet Explorer\TypedURLs"
Function GetIDUrls()
	Dim Idx As Integer
	Dim Buf As String
	Dim Tmp As String
	Dim Lng As Long
	Dim Key As Long
	Dim Ret As Integer

	RegOpenKeyEx HKEY_CURRENT_USER, Pth, 0, 1, Key

	Do Until Ret
		Tmp = String(10, 0)
		Buf = String(300, 0)
		Lng = 300

		Ret = RegEnumValue(Key, Idx, Tmp, 10, 0, 1, ByVal Buf, Lng)
		Buf = Left(Buf, Lng - 1)
		List1.AddItem Buf
	   Idx = Idx + 1
	Loop

	RegCloseKey Key
End Function

بعد اضافة ليس بوكس للمشروع List1 استدعي الدالة GetIDUrls

يعني ممكن نقول أنها ليست دالة يعني يمكنك استبدال الfunction بsub :rolleyes:

تستطيع استعمال الدالة

اقتباس

SHAutoComplete

وهذا مثال يقوم بالتكملة التلقائية مثل IE

آمل أن يفيدك

فقط للاضافة استعملنا

اقتباس

FindWindowEx

اقتباس

SHAutoComplete

اقتباس

FindWindowEx

SHAutoComplete_With_Combo_Box.rar

ليس هذا ما اقصده

أقصد مثل الانترنت اكسبلورر في شريط الادوات يوجد ور المحفوظات او (history) عندما تغط عليه تظهر قائمة جانبية تحوي الصفحات التي تم زيارتها مع التاريخ

أرجو ان تكون الفكرة وصلت

مع تحياتي

وشكرا لردودكم

up

وجدت مثال قد يفيدك في هذا الجانب

بالتوفيق

Enum_Windo1718473102004.zip

شكرا جزيلا لردك أخ dreamnet

سأقوم بمراجعة المرفق