• [ يمنع ] طرح أي موضوع يحوي على كراكات أو باتشات او كيجنات من غير فحصها عبر موقع فيروس توتال [ virustotal.com ] وطرح رابط الفحص ضِمن الموضوع.

الحالة
مغلق و غير مفتوح للمزيد من الردود.
P2250556.jpg


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

عدينا قلنا بس نسلم ونمشي




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


[/center]



ارحب يالعشير

هااه وين الفصفص والشاهي :d:
 
كيف حال الشباب عساكم طيبين
 
توقيع : اللؤلؤ المكنون
سؤال محير كنت برسله لك زسزووم على الخاص لكن مشاركاتي 30:er: لازم 200 كثيرة 200 صح أنا لي سنة وأكثر تقدرون خدمتي مو مشاركاتي:d:
السؤال عضوية رقم واحد فالمنتدى zyzoom وعضوية رقم 4 زيزووم بالعربي وردودهم وحدة ياهل ترى اللي بالعربي وبالانجليزي 2*1 نفس الشخص
 
توقيع : اللؤلؤ المكنون
i43836_cd-back.jpg




نعود لمشروعنااا :king:​

نزبط الخيارات الموجوده بالواجهه ( ابدا بالفحص , الفحص من وضع الاقلااع , تنظيف مخلفات الجهاز , إستعادة اعدادات مسجل النظام )​

خيار ... ابدأ بالفحص
راح نعمله بالأوتو ات ...
كود:
[CENTER]#include <Process.au3>
Opt("TrayIconHide", 1)
Opt("TrayAutoPause",0)
RunWait(@ScriptDir &"\I386\run.com  /ad /all /mime /ALLOLE /sub /clean /APPEND /REPORT c:\mcaf.txt")
$LOG = FileOpen("c:\1.txt", 2)
$LOG1 = ("c:\1.txt")
FileWrite($LOG, @CRLF)
FileWriteLine($LOG, "====== زيزوووم للأمن والحماية ======")
FileWrite($LOG, @CRLF)
FileWriteLine($LOG, "====== [URL="http://www.zyzoom.org/"]http://www.zyzoom.org[/URL] ======")
FileWrite($LOG, @CRLF)
FileWrite($LOG, @CRLF)
FileWriteLine($LOG, "======          تقرير المكافي         ======")
FileWrite($LOG, @CRLF)
FileWrite($LOG, @CRLF)
$mcaf = FileOpen("c:\mcaf.txt", 0)
 FileWrite($LOG, FileRead($mcaf))
 FileClose($mcaf)
FileWrite($LOG, @CRLF)
FileWrite($LOG, @CRLF)
FileWrite($LOG, @CRLF)
FileWriteLine($LOG, "======    لتحليل التقرير ... فضلاا ضعه هنا    ======")
FileWrite($LOG, @CRLF)
FileWriteLine($LOG, " [URL]http://www.zyzoom.org/vb/f-8.html[/URL] ")
FileWrite($LOG, @CRLF)
FileWrite($LOG, @CRLF)
FileWrite($LOG, @CRLF)
FileWriteLine($LOG, "====== مع تحيات أخوانكم ======")
FileWrite($LOG, @CRLF)
FileWriteLine($LOG, "بلال & ماكس & زيزوووم")
FileClose($LOG)
ShellExecute("Notepad.exe", $LOG1)
If not ProcessExists("explorer.exe") Then
               Run("explorer.exe")
           EndIf[/CENTER]

بحيث .....
كود:
RunWait(@ScriptDir &"\I386\run.com  /ad /all /mime /ALLOLE /sub /clean /APPEND /REPORT c:\mcaf.txt")
امر تشغيل الفحص والتنظيف للمكافي
run.com ( برنامج الفحص ) تم تغيير اسم الملف حتى لا تكتشفه الفيروسات وتقوم بتعطيله
ad/ فحص جميع المحركات
all/ فحص جميع الملفات
mime/ فحص ملفات من نوع MIME, UUE, XXE , BinHex
allole/ معاملة الملفات كــ compound/OLE
sub/ فحص في المجلدات
clean/ تنظيف الملفات من الفيروسات واكوادها
append/ اظافة التقرير الحالي الى تقرير موجود مسبقاا
report/ عمل تقرير بعملية الفحص والتنظيف ... وحفظه باسم c:\mcaf.txt​


-------------​


كود:
$LOG = FileOpen("c:\1.txt", 2)
كود:
[CENTER]$LOG1 = ("c:\1.txt")
[CENTER]FileWrite($LOG, @CRLF)
FileWriteLine($LOG, "====== زيزوووم للأمن والحماية ======")
FileWrite($LOG, @CRLF)
FileWriteLine($LOG, "====== [URL="http://www.zyzoom.org/"]http://www.zyzoom.org[/URL] ======")
FileWrite($LOG, @CRLF)
FileWrite($LOG, @CRLF)
FileWriteLine($LOG, "======          تقرير المكافي         ======")
FileWrite($LOG, @CRLF)
FileWrite($LOG, @CRLF)
$mcaf = FileOpen("c:\mcaf.txt", 0)
 FileWrite($LOG, FileRead($mcaf))
 FileClose($mcaf)
FileWrite($LOG, @CRLF)
FileWrite($LOG, @CRLF)
FileWrite($LOG, @CRLF)
FileWriteLine($LOG, "======    لتحليل التقرير ... فضلاا ضعه هنا    ======")
FileWrite($LOG, @CRLF)
FileWriteLine($LOG, " [URL]http://www.zyzoom.org/vb/f-8.html[/URL] ")
FileWrite($LOG, @CRLF)
FileWrite($LOG, @CRLF)
FileWrite($LOG, @CRLF)
FileWriteLine($LOG, "====== مع تحيات أخوانكم ======")
FileWrite($LOG, @CRLF)
FileWriteLine($LOG, "بلال & ماكس & زيزوووم")
FileClose($LOG)[/CENTER]
[/CENTER]


لعمل قالب للتقرير

--------------------------------​


كود:
ShellExecute("Notepad.exe", $LOG1)

لفتح التقرير ببرنامج المفكره​


-------------------​


كود:
[CENTER]If not ProcessExists("explorer.exe") Then
               Run("explorer.exe")
           EndIf[/CENTER]

احيانا المكافي ... يحتاج تقفيل الويندوز اكسبلورر حتى يكمل عملية التنظيف
وانشئنا هذا الكود حتى يتأكد مو وجود الويندوز اكسبلورر في الذاكره .. او تشغيله اذا كان غير موجود​
 
سؤال محير كنت برسله لك زسزووم على الخاص لكن مشاركاتي 30:er: لازم 200 كثيرة 200 صح أنا لي سنة وأكثر تقدرون خدمتي مو مشاركاتي:d:
السؤال عضوية رقم واحد فالمنتدى zyzoom وعضوية رقم 4 زيزووم بالعربي وردودهم وحدة ياهل ترى اللي بالعربي وبالانجليزي 2*1 نفس الشخص


عيال عم :cr:
 
تكمله لما سبق

خيار ... الفحص من وضع الاقلااع
كود:
#include <Process.au3>
Opt("TrayIconHide", 1)
Opt("TrayAutoPause",0)
$answer = MsgBox(4, "زيزوووم للأمن والحماية", "هل تريد اعادة تشغيل جهازك لفحص وتنظيفه من الفيروسات")
If $answer = 7 Then
    Exit
EndIf
Shutdown(6)
 
السلام عليكم كيف الشباب؟

يا شباب هذا الموضوع للتحدث فقط؟
 
توقيع : ابو تيمور
توقيع : اللؤلؤ المكنون
توقيع : اللؤلؤ المكنون
يا اهلين باللؤلؤ
 
توقيع : ابو تيمور
توقيع : اللؤلؤ المكنون
متابعين استاذ تركي
 
توقيع : طالب علم2
باااااااك

bedtime2.gif

تعسيله ساعتين ... حلوين



clap.gif
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.
عودة
أعلى