[عبدالله الصافي]

شكرا اخي الكريم علي مجهودك الطيب

وفعلا كود ممتاز

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

وهذا هو رابط الموضوع

http://edu.arabsgate.com/showthread.php?t=455271

ولكم جزيل الشكر[/size]

---

اخواني الكرام لقد عثرت علي موضوع يتناول عمل متصفح من صنعك بأكواده المختلفة

وهذا رابط الموضوع
http://www.jor-son.com/vb/showthread.php?t=29575

ووجدت به كود حذف الكوكيز ونقلته لكم وها هو:
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameW" (ByVal lpBuffer As Long, ByRef nSize As Long) As Long

Private Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" (ByVal hwnd As Long, ByVal pszPath As String, ByVal csidl As Long, ByVal fCreate As Long) As Long

Private Const CSIDL_COOKIES As Long = &H21

'This calls the function that deletes the cookies.

Public Sub Command1_Click()

Dim sPath As String

sPath = Space(260)

Call SHGetSpecialFolderPath(0, sPath, CSIDL_COOKIES, False)

sPath = Left$(sPath, InStr(sPath, vbNullChar) - 1) & "\*.txt*"

On Error Resume Next

Kill sPath


End Sub


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

أتمني ان يكون بذلك قد قطعنا شوطا محمودا في سبيل الوصول الي الكود المنشود

وشكرا لكم جميعا