تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كود مسح ملفات الكوكيز
#11
شكرا لتفاعلك اخي تركي الحلواني جزاك الله خيرا

ولكن ظهرت لي رسالة خطأ وتكررت لكل امر في الكود

وهذة صورة الرسالة الخطأ



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

ولك جزيل الشكر
الرد }}}
تم الشكر بواسطة:
#12
والله يالغالي الكود شغال معايا وكمان انا ماوضعته الا وانا متاكد انه شغال

عمل الكود تشغيل برامج التنظيف في الجهاز للملفات المؤقته والمحفوظة الى ... أخ

طيب جرب اعمل Hide لبعض الاوامر وتأكد من كل امر لوحدة وشوف وش اللي شغال
[صورة مرفقة: images?q=tbn:ANd9GcT72OLJW7D1E5QW-HUeWeJ...TGoNeg2jnQ]
الرد }}}
تم الشكر بواسطة:
#13
عملت ما قلت عليه اخي الكريم ولكن نفس الشيء
عند تشغيل كل امر علي حده تظهر نفس الرسالة ولا شيء بعدها

لي سؤال
هل ممكن الكود مرتبط بنوع المتصفح او الووندوز؟؟
او ممكن حضرتك ناسي شيء بالكود مثل تعريف متغير مثلا.

ارجو الأهتمام ولك جزيل الشكر

وارجو من الأخوة الأعضاء تجربة المثال وابلاغنا بالنتيجة لعل تكون المشكلة عندي انا.
الرد }}}
تم الشكر بواسطة:
#14
السلام عليكم ورحمة الله وبركاته


وجدت هذه في كثير من المواقع لمتصفح IE
كود :
' VB6

'Delete(All)
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 255"

كود :
'VB.NET

'Delete(All)
System.Diagnostics.Process.Start("RunDll32.exe", "InetCpl.cpl,ClearMyTracksByProcess 255")

السلام عليكم ورحمة الله وبركاته
الرد }}}
تم الشكر بواسطة:
#15
شكرا لأهتمامك اخي الكريم وجزاك الله خيرا

ولكنه نفس كود اخي تركي الحلواني
وفي انتظار المزيد

وشاكر مجهودكم العظيم وبارك الله فيكم
الرد }}}
تم الشكر بواسطة:
#16
السلام عليكم

كان عندي بس فكرة بسيطة يمكن تساعد

لمادا لا نقوم بالبحث اولا عن ملفات الكوكيز في الجهاز ثم بعد دلك نقوم بمسحها

لانه ربما يختلف مكانها من مكان لآخر


اتمنى انها تكون فكرة مفيدة
Big GrinBig Grin

العاب من برمجتي  

Smile
الرد }}}
تم الشكر بواسطة:
#17
اخي الكريم جزاك الله خيرا علي تعاونك

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

فالغرض من البرنامج هو تنظيف المتصفح مهما كان من جميع الأميلات المخزنة عليه وقفل اي حساب مفتوح عليه سابقا.
الرد }}}
تم الشكر بواسطة:
#18
اخواني الأعزاء خطرت لي فكرة وهي ان نبدأ في اخذ الكود جزء جزء

لو فرضنا ان الكود سوف يقوم علي مسح ملفات الكوكيز علي الجهاز : إذن ــ

اولا المفروض ان نعرف ماهي المتصفحات الموجودة علي الجهاز

وسنبدأ من تلك النقطة , إذن المطلوب كود لجلب اسماء المتصفحات علي الجهاز فقط.

وبعدها سنحدد الخطوة التالية من الكود.

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

وارجو ان يكون ذلك الكود سهل المنال وجزاكم الله خيرا
الرد }}}
تم الشكر بواسطة:
#19
اي بسيطة لكل برنامج مسار في program files

و بالتالي هذا مثال للتاكد من وجود ملف معين و هنا مشغل فايرفوكس


كود :
Private Sub Command1_Click()
    On Error GoTo Error:
    Open "C:\Program Files\Mozilla Firefox\firefox.exe" For Input As #1
    Close
    MsgBox ("الملف موجود")
    Exit Sub
Error:
    MsgBox ("الملف غير موجود")
End Sub
الرد }}}
تم الشكر بواسطة:
#20
شكرا اخي الكريم علي مجهودك الطيب

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

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

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

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


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

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

وشكرا لكم جميعا
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  البحث في ملفات Pdf Alhootti1 2 661 03-07-22, 03:26 PM
آخر رد: Alhootti1
  [سؤال] اختفاء ملفات الهارد الخارجي نهى علي 1 570 20-05-22, 03:26 PM
آخر رد: الاصيله
  مشكلة في حفظ عدة ملفات دفعة واحدة في الأرشفة الالكترونية awidan76 6 1,686 02-09-21, 05:37 PM
آخر رد: awidan76
  طرقة تصميم برنامج ارشيف ملفات الموظفين ahmed250 5 2,440 25-06-20, 05:28 AM
آخر رد: ahmed250
Question كيف يتم تسجيل ملفات Dll في الاجستري على نسخة وندز 10؟ Microformt 1 2,787 18-07-18, 04:42 PM
آخر رد: Amir_Alzubidy
  البحث عن ملفات dr.mostashar 3 2,314 10-02-18, 02:12 PM
آخر رد: Eng27
  كيف تجعل ملفات bas  داخل ملف  dll  مرئيه للمستخدم(public) برمجه 1 1,715 02-08-17, 12:37 AM
آخر رد: Ahmed_Mansoor
Question [vb6.0] هل يوجد برنامج تنصيب يبحث ويجمع ملفات برنامجي المصنوع من فجوال بيسك ؟؟ Microformt 3 2,422 11-07-17, 04:34 PM
آخر رد: Microformt
  [سؤال] إضافة وتعديل وحذف في ملفات مجدوله Easy4ever 8 4,294 23-04-17, 01:15 AM
آخر رد: Hassanula
  ضغط ملفات داخل فولدر عبدالله الصافي 5 2,269 20-02-17, 01:42 AM
آخر رد: عبدالله الصافي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم