شكرا لتفاعلك اخي تركي الحلواني جزاك الله خيرا
ولكن ظهرت لي رسالة خطأ وتكررت لكل امر في الكود
وهذة صورة الرسالة الخطأ
وياريت تشرح الكود لأستطيع التفاعل معك لعل الله يبصرني بشيء نستطيع من خلاله انتاج كود افضل
ولك جزيل الشكر
والله يالغالي الكود شغال معايا وكمان انا ماوضعته الا وانا متاكد انه شغال
عمل الكود تشغيل برامج التنظيف في الجهاز للملفات المؤقته والمحفوظة الى ... أخ
طيب جرب اعمل Hide لبعض الاوامر وتأكد من كل امر لوحدة وشوف وش اللي شغال
عملت ما قلت عليه اخي الكريم ولكن نفس الشيء
عند تشغيل كل امر علي حده تظهر نفس الرسالة ولا شيء بعدها
لي سؤال
هل ممكن الكود مرتبط بنوع المتصفح او الووندوز؟؟
او ممكن حضرتك ناسي شيء بالكود مثل تعريف متغير مثلا.
ارجو الأهتمام ولك جزيل الشكر
وارجو من الأخوة الأعضاء تجربة المثال وابلاغنا بالنتيجة لعل تكون المشكلة عندي انا.
السلام عليكم ورحمة الله وبركاته
وجدت هذه في كثير من المواقع لمتصفح 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")
السلام عليكم ورحمة الله وبركاته
شكرا لأهتمامك اخي الكريم وجزاك الله خيرا
ولكنه نفس كود اخي تركي الحلواني
وفي انتظار المزيد
وشاكر مجهودكم العظيم وبارك الله فيكم
السلام عليكم
كان عندي بس فكرة بسيطة يمكن تساعد
لمادا لا نقوم بالبحث اولا عن ملفات الكوكيز في الجهاز ثم بعد دلك نقوم بمسحها
لانه ربما يختلف مكانها من مكان لآخر
اتمنى انها تكون فكرة مفيدة
اخي الكريم جزاك الله خيرا علي تعاونك
الغرض من الكود هو مسح ملفات الكوكيكز والأميلات المخزنة في المتصفحات علي اي جهاز وبأي متصفح
وليس الغرض من الكود الأستخدام الشخصي اخي الكريم.
فالغرض من البرنامج هو تنظيف المتصفح مهما كان من جميع الأميلات المخزنة عليه وقفل اي حساب مفتوح عليه سابقا.
اخواني الأعزاء خطرت لي فكرة وهي ان نبدأ في اخذ الكود جزء جزء
لو فرضنا ان الكود سوف يقوم علي مسح ملفات الكوكيز علي الجهاز : إذن ــ
اولا المفروض ان نعرف ماهي المتصفحات الموجودة علي الجهاز
وسنبدأ من تلك النقطة , إذن المطلوب كود لجلب اسماء المتصفحات علي الجهاز فقط.
وبعدها سنحدد الخطوة التالية من الكود.
ارجو ان تكون الفكرة قد اتضحت , سنحتاج الأن كود لجلب اسماء المتصفحات وفي خطوة اخري سنحدد اين تقع ملفات الكوكيز لكل متصفح.
وارجو ان يكون ذلك الكود سهل المنال وجزاكم الله خيرا
اي بسيطة لكل برنامج مسار في 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
شكرا اخي الكريم علي مجهودك الطيب
وفعلا كود ممتاز
ونأتي لثاني خطوة وهي معرفة ما هي الملفات التي تحتفظ بالأميلات والكلمات المخزنة بالمتصفحات , وقد وجدت لكم موضوع ارجو ان يساعدكم في تركيب الكود ومعرفة ماهي الملفات المطلوب حذفها بالضبط
وهذا هو رابط الموضوع
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
والمطلوب الأن من حضراتكم أن يتم استخدام ذلك الكود علي المتصفحات علي جهازك التي ليس من صنعك انت أي استخدامه علي المتصفحات المشهورة والمعروفة للجميع
أتمني ان يكون بذلك قد قطعنا شوطا محمودا في سبيل الوصول الي الكود المنشود
وشكرا لكم جميعا