كيف امسح ملف من التاريخ بواسطة الفيجول بيسك

السلام عليكم ورحمة الله وبركاته

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

من الكاي :

HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs

والتي تكون مسجلة بurl0,url1.....

لذلك يمكنك استخدام دوال الapi لقراءة الريجيستري ومن ثم مسح الكاي المناسب

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 GetIDUrl(txtUrl As String) As Integer
	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)
	   if Buf = txtUrl then
		 GetIDUrl=Idx
		 Goto 1
	   End if 
	   Idx = Idx + 1
	Loop

  1:  RegCloseKey Key
End Function
Function DelUrl(ID As Integer)
 Dim Key As Long

	RegOpenKeyEx HKEY_CURRENT_USER, Pth, 0, 2, Key
	RegDeleteValue Key, "Url" & CStr(ID)
	RegCloseKey Key
End Function

يمكنك استعمال السطر لحذف العنوان المدخل txtUrl

Delurl GetIDUrl(txtUrl)

لم أجرب الكود لكن أظنه سليم بالتوفيق ان شاء الله

لم يشتغل

للرفع

Up Up

لقد جربت الكود وهو سليم فقط عليك كتابة العنوان كاملا

لانه عند كتابة العنوان www.google.com فان المتصفح سوف لن يكتبه بهذا الشكل يعني سيضيف عليه / و ال http: والخ

فقط تأكد من كتابة العنوان بالطريقة نفسها التي تحول على المتصفح

طيب اخي كيف استعمله

ارجوا حط لي مثال ابغا احذف جوجل مثلا

كذا تسير

http://www.google.com.sa

هي الأصل

www.google.com.sa

,ونضيف للبداية

http://

مثلا كود

dim newulr as string
newulr ="http://" & oldurl 
'ومن ثم

Delurl GetIDUrl(newulr)