دكة الشايب / زيزوووم ....... حياكم حبايبي

زيزوووم · 20 أكتوبر 2009

طالب علم2 قال:
متابعين استاذ تركي

هلاا براعي الفصفص

:
وينك اليوووووم

زيزوووم · 20 أكتوبر 2009

حيااا الله الشباب والشابات

نورتوو الدكه حبايبي

زيزوووم · 20 أكتوبر 2009

خيار ... تنظيف مخلفات الجهاز

كود:

#cs ----------------------------------------------------------------------------
 AutoIt Version: 3.3.0.0
 Author:         myName
 Script Function:
 Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#Include <File.au3>
#Include <Array.au3>
#include <Misc.au3>
$Debug=0
; هنا امر تفريغ المجلدات
EmptyFolder (@HomeDrive & @HomePath & "\Local Settings\Temporary Internet Files\Content.IE5")
EmptyFolder (@HomeDrive & @HomePath & "\Local Settings\Temporary Internet Files")
EmptyFolder (@HomeDrive & @HomePath & "\Cookies")
EmptyFolder (@HomeDrive & @HomePath & "\Local Settings\History")
EmptyFolder (@HomeDrive & "\Temp\Temporary Internet Files")
EmptyFolder (@WindowsDir & "\Temp")
EmptyFolder (@HomeDrive & "\Temp")
EmptyFolder (@HomeDrive & @HomePath & "\Recent")
EmptyFolder (@HomeDrive & @HomePath & "\Application Data\Microsoft\Office\Recent")
EmptyFolder (@HomeDrive & @HomePath & "\Local Settings\Temp")
EmptyFolder (@UserProfileDir & "\Temp")
EmptyFolder (@AppDataDir & "\Microsoft\Windows\Recent")
; هنا امر تفريغ سلة المحذوفات
FileRecycleEmpty()
Sleep(5000)
FileRecycleEmpty()
Sleep(2000)
; هنا امر تنظيف ملفات الانترنت المؤقته + الكوكيز + ما تم استعراضه
ShellExecuteWait(@SystemDir &"\RunDll32.exe"," InetCpl.cpl,ClearMyTracksByProcess 255")

; هنا دالة التنظيف
Func EmptyFolder($FolderToDelete)
    $AllFiles=_FileListToArray($FolderToDelete,"*",0)
    If $Debug Then ConsoleWrite("-->" & $FolderToDelete & @CRLF )
    If IsArray($AllFiles) Then
        If $Debug Then
            _ArrayDisplay( $AllFiles,$FolderToDelete)
        EndIf
        For $i = 1 To $AllFiles[0]
            $delete = FileDelete($FolderToDelete & "\" & $AllFiles[$i])
            If $Debug Then
                ConsoleWrite($FolderToDelete & "\" & $AllFiles[$i]& " =>"&$delete & @CRLF  )
            EndIf
            DirRemove($FolderToDelete & "\" & $AllFiles[$i], 1)
        Next
    EndIf
EndFunc

مشروح داخل الكود هع

abukhaled · 20 أكتوبر 2009

الأخ زيزووم وش ذا الشخميط فهمنا اكثر نبى ملف ونشغل وخلاص
صداع مواضيعك
جزاك الله خير

زيزوووم · 20 أكتوبر 2009

خيار... إستعادة اعدادات مسجل النظام

كود:

#cs ----------------------------------------------------------------------------
 AutoIt Version: 3.3.0.0
 Author:         myName
 Script Function:
 Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#include <Misc.au3>
#Include <File.au3>
#include <Process.au3>
#Include <Array.au3>
$Debug=0
$HCUEXPLORER = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
            $HLMEXPLORER = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
            $HCUSYSTEM = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System"
            $HCUADVANCED = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
            $HLMWINLOGON = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"
            $HCUMAIN = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main"
   RegDelete($HCUSYSTEM, "DisableCMD")
            RegDelete($HCUSYSTEM, "Disabletaskmgr")
   RegDelete($HCUSYSTEM, "DisableRegistryTools")
$UserKey = _Ash_UserKey_Detect ()
RegDelete("HKEY_USERS\" & $UserKey & "\Software\Policies\Microsoft\Windows\System","DisableCMD")
RegDelete("HKEY_USERS\" & $UserKey & "\Software\Policies\Microsoft\Windows\System","Disabletaskmgr")
RegDelete("HKEY_USERS\" & $UserKey & "\Software\Policies\Microsoft\Windows\System","DisableRegistryTools")
$NOTRAYITEMSDISPLAY = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoTrayContextMenu")
If $NOTRAYITEMSDISPLAY = "1" Then
    RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoTrayItemsDisplay")
    RegDelete("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoTrayItemsDisplay")
EndIf
$NOTRAYCONTEXTMENU = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoTrayContextMenu")
If $NOTRAYCONTEXTMENU = "1" Then
    RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoTrayContextMenu")
    RegDelete("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoTrayContextMenu")
    EndIf
$HCUEXPLORER = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
            $HLMEXPLORER = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
            $HCUSYSTEM = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System"
            $HCUADVANCED = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
            $HLMWINLOGON = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"
            $HCUMAIN = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main"
            RegDelete($HCUEXPLORER, "NoFolderOptions")
            RegDelete($HLMEXPLORER, "NoFolderOptions")
            RegDelete($HCUEXPLORER, "NoViewContextMenu")
            RegDelete($HLMEXPLORER, "NoViewContextMenu")
            RegDelete($HLMEXPLORER, "NoStartMenuMorePrograms")
            RegDelete($HCUEXPLORER, "NoStartMenuMorePrograms")
            RegDelete($HCUEXPLORER, "HideClock")
            RegDelete($HLMEXPLORER, "HideClock")
            RegDelete($HCUEXPLORER, "NoDesktop")
            RegDelete($HLMEXPLORER, "NoDesktop")
            RegDelete($HCUEXPLORER, "NoRun")
            RegDelete($HLMEXPLORER, "NoRun")
            RegDelete($HCUEXPLORER, "NoControlPanel")
            RegDelete($HLMEXPLORER, "NoControlPanel")
            RegDelete($HCUEXPLORER, "NoSMMyDocs")
            RegDelete($HLMEXPLORER, "NoSMMyDocs")
            RegDelete($HCUEXPLORER, "NoRecentDocsMenu")
            RegDelete($HLMEXPLORER, "NoRecentDocsMenu")
            RegDelete($HCUEXPLORER, "NoSMMyPictures")
            RegDelete($HLMEXPLORER, "NoSMMyPictures")
            RegDelete($HCUEXPLORER, "NoStartMenuMyMusic")
            RegDelete($HLMEXPLORER, "NoStartMenuMyMusic")
            RegDelete($HLMEXPLORER, "NoStartMenuNetworkPlaces")
            RegDelete($HCUEXPLORER, "NoStartMenuNetworkPlaces")
            RegDelete($HCUSYSTEM, "DisableRegistryTools")
            RegDelete($HCUSYSTEM, "DisableCMD")
            RegDelete($HCUSYSTEM, "Disabletaskmgr")
            RegDelete($HCUADVANCED, "HideFileExt")
            RegDelete($HCUMAIN, "Window Title")
            RegDelete($HCUEXPLORER, "NoFind")
            RegDelete($HLMEXPLORER, "NoFind")
            RegDelete($HCUEXPLORER, "NoWinKey")
            RegDelete($HLMEXPLORER, "NoWinKey")
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL", "CheckedValue", "REG_DWORD", "1")
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL", "DefaultValue", "REG_DWORD", "2")
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN", "CheckedValue", "REG_DWORD", "2")
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN", "DefaultValue", "REG_DWORD", "2")
            ProcessClose("explorer.exe")
            If ProcessExists("explorer.exe") = False Then
                Run("explorer.exe")
            EndIf
 
Func _Ash_UserKey_Detect ($ReturnType = 0)
 IF $ReturnType <0 Or $ReturnType >1 Then $ReturnType = 0
 $CountReg = 1
 Do
  $EnumKey = RegEnumKey ("HKEY_USERS",$CountReg )
  If @Error Then ExitLoop
  $CountReg= 1 + $CountReg
 Until StringLeft ($EnumKey,StringLen ("S-1-5-21")) =  "S-1-5-21"
 If $ReturnType = 0 Then
  Return $EnumKey
 Else
  Return "HKEY_USERS\" & $EnumKey
 EndIf
EndFunc

اوامر بسيطه لحذف واضافة قيم لمسجل النظام

زيزوووم · 20 أكتوبر 2009

abukhaled قال:
الأخ زيزووم وش ذا الشخميط فهمنا اكثر نبى ملف ونشغل وخلاص
صداع مواضيعك
جزاك الله خير

:hh::hh::hh:

حبيب البي ياشيبة حرب :hh:

abukhaled · 20 أكتوبر 2009

:no::no::no::no::no::no:

Future Tank X-1 · 20 أكتوبر 2009

طيب وش دخل الـ

#include <Misc.au3>

:d:

فارس الملاك · 20 أكتوبر 2009

هلا والله بالشباب

انا طول الفترة الظهور دون اتصال

بس حبينا نسلم عليكم ونستفيد شوي

والله الاوتوران للحين مابعد ندخل فيه عدل

يبي لها جلسة طوويله

طالب علم2 · 20 أكتوبر 2009

اعادة السؤال

طالب علم2 قال:
السلام عليكم ورحمة الله وبركاته

سلام شباب الدكة واهل المركاز

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

سؤالي هو هل يوجد برنامج يضاف إلى الاسطوانة البوت يعرض الصور الموجودة في الاسطوانة والجهاز
وهل تفيد البرامج المحموله في ذلك

ولكم فائق احترامي

زيزوووم · 21 أكتوبر 2009

abukhaled قال:
:no::no::no::no::no::no:

تعرف منهو " بو " :hh:

زيزوووم · 21 أكتوبر 2009

Future Tank X-1 قال:
طيب وش دخل الـ

:d:

:d:

لا تدقق عاد مرره :bleh:

من مشروع سابق ... نسخ لصق

:

زيزوووم · 21 أكتوبر 2009

فارس الملاك قال:
هلا والله بالشباب

انا طول الفترة الظهور دون اتصال

بس حبينا نسلم عليكم ونستفيد شوي

والله الاوتوران للحين مابعد ندخل فيه عدل

يبي لها جلسة طوويله

مرحباااااااا مليووووووووووووون

ومن سار على الدرب وصل

البتال · 21 أكتوبر 2009

السلام عليكم ورحمة الله وبركاته
كيف حالك الغاليين إن شاء الله بخير وصحة وعافية
ماذا حدث في مشروع الإسطوانة هل إنتهى أم تريدون مساعدة
أخوكم

زيزوووم · 21 أكتوبر 2009

طالب علم2 قال:
السلام عليكم ورحمة الله وبركاته

سلام شباب الدكة واهل المركاز

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

سؤالي هو هل يوجد برنامج يضاف إلى الاسطوانة البوت يعرض الصور الموجودة في الاسطوانة والجهاز
وهل تفيد البرامج المحموله في ذلك

ولكم فائق احترامي

عزالله اني معطيكم منجم الماس :y: لاسطوانات البووت بجميع اشكالها وبرامج جاهزه

يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي

واستخدم السكربت هذا

يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي

قوقل يمدحونه

زيزوووم · 21 أكتوبر 2009

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

كيف حالك الغاليين إن شاء الله بخير وصحة وعافية
ماذا حدث في مشروع الإسطوانة هل إنتهى أم تريدون مساعدة

أخوكم

ارحب ارحب ....... تراحيب المطر

تم التجهيز ... والاختبار من سطح المكتب ( بدون مشاكل ) ولله الحمد
والان جالس اختبرها بوضع البووت ... واول ما تنجح راح ارفعها
وحجمها 96 ميقاا

زيزوووم · 21 أكتوبر 2009

وش رايكم في كاسبوري غير شكل للفلااش ميموري :y:

البتال · 21 أكتوبر 2009

زيزوووم قال:
وش رايكم في كاسبوري غير شكل للفلااش ميموري :y:

روعة يا غالي وين الرابط ؟

زيزوووم · 21 أكتوبر 2009

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

كيف حالك الغاليين إن شاء الله بخير وصحة وعافية
ماذا حدث في مشروع الإسطوانة هل إنتهى أم تريدون مساعدة

أخوكم

اجتازت فحوصات هيئة المقاييس :hh:

جاري الرفع ... وان شاء الله خلاال ساعه احط رابطها
وعسى ما يفصل الاتصال :er:

البارون · 21 أكتوبر 2009

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

السلام مصافحه بس :hh::hh::hh: (( ممنوع الحربية ))

المرور للتحية فقط بعيدا عن النت (( رجعنا لغثا المدارس ))

وتابعوا مع زيزوم والله انه لحية طيبة وثروة الكترونية نسال الله ان يعطيه العافية على مايقدم

عضو شرف

عضو شرف

عضو شرف

زيزوومي VIP

توقيع : abukhaled

عضو شرف

عضو شرف

زيزوومي VIP

توقيع : abukhaled

زيزوومى محترف

توقيع : Future Tank X-1

زيزوومى محترف

توقيع : فارس الملاك

زيزوومى مبدع

توقيع : طالب علم2

عضو شرف

عضو شرف

عضو شرف

عـضـو شـرف

توقيع : البتال

عضو شرف

عضو شرف

عضو شرف

عـضـو شـرف

توقيع : البتال

عضو شرف

زيزوومى فضى

توقيع : البارون