فدى الرسول
زيزوومى مبدع
غير متصل
من فضلك قم بتحديث الصفحة لمشاهدة المحتوى المخفي
السلام عليكم
بعد عناء هههه
مع الكاسبر وحجم ملفه الكبير فى الهارد الذى وصل الى اكثر من 3 جيجا عرفت له حل وكما سكربت الحل حتى يكون سهل ع المستخدم العادى ههه :cr: ترانى اقل من العادى انا وبعد لهذا السكربت كنت كلمت اخى Future Tank X-1 وقال لى انت اكيد بتسوى برنامج لتنظيف ملفات التورنت :no: ولكن كانت تمويه :hh: جزاه الله خير هو واخى الشيخ وحمود
المهم السكربت المتواضع:hh:
احسكم تريدونه :y:
تم التعديل ووضع امر التحقق من ان الحمايه الذاتيه فعاله ام لا ههه نقشته من اخى احمد اعانه الله على امتحاناته
(ملحوظه السكربت لا يعمل الا فى حاله تعطيل الحماية الذاتيه والاغلاق الكاسبر)
شرف لى تعليقاتكم واكيد انا اريد ملاحظات او اضافات
لا اريد كلمه شكر فكل الشكر لله ان سببكم لى اريد منكم الملاحظات والتعليقات اساتذتى الافاضل
بعد عناء هههه
المهم السكربت المتواضع:hh:
احسكم تريدونه :y:
تم التعديل ووضع امر التحقق من ان الحمايه الذاتيه فعاله ام لا ههه نقشته من اخى احمد اعانه الله على امتحاناته
(ملحوظه السكربت لا يعمل الا فى حاله تعطيل الحماية الذاتيه والاغلاق الكاسبر)
PHP:
Do
$KISSelfDef = regread("HKEY_LOCAL_MACHINE\SOFTWARE\KasperskyLab\protected\AVP8\settings", "EnableSelfProtection")
If $KISSelfDef = 0 Then
;الحماية الذاتية غير مفعلة
ExitLoop
ElseIf $KISSelfDef = 1 Then
;الحماية الذاتية مفعلة
$MsgB = msgbox(33,"موافقة","الحماية الذاتية لا تزال مفعلة ,,, أرجو إيقافها ثم الضغط على موافق ,,, أو إلغاء الأمر للخروج")
If $MsgB = 1 Then;OK
ContinueLoop
ElseIf $MsgB = 2 Then;Cancel
Exit
EndIf
Else
;إما القيمة غير موجودة ,, أو ملعوب فيها
msgbox (16,"","يبدو أن البرنامج غير موجود ,, أو القيمة خاطئة ")
Exit
EndIf
Until 2 < 1
$msg1 = MsgBox(68, "السلام عليكم", "هل تريد تحديد مساحه مخلفات الكاسبر")
If $msg1 = 7 Then
Exit
ElseIf $msg1 = 6 Then
$x = DirGetSize(@AppDataCommonDir&"\Kaspersky Lab\AVP8\QB")
$msg2 = MsgBox(4,"","الحجم بالميجا" & Round($x/1024/1024)&@CRLF&"هل تريد افراغ المجلد")
If $Msg2 = 7 Then
Exit
ElseIf $msg2 = 6 Then
$msg3 = MsgBox(68, "برمجة محمد حسنى", "سيتم الحذف لملفات الكاسبر الغير مرغوب بها")
If $msg3 = 7 Then
Exit
ElseIf $msg3 = 6 Then
DirRemove(@AppDataCommonDir& "\Kaspersky Lab\AVP8\QB",1)
Sleep(500)
DirCreate(@AppDataCommonDir& "\Kaspersky Lab\AVP8\QB")
Sleep(1000)
MsgBox(0,"السلام عليكم","تمت العملية"&@CRLF&"اتمنى منكم دعوه محمد حسنى")
EndIf
EndIf
EndIf
شرف لى تعليقاتكم واكيد انا اريد ملاحظات او اضافات
لا اريد كلمه شكر فكل الشكر لله ان سببكم لى اريد منكم الملاحظات والتعليقات اساتذتى الافاضل
