1. إستبعاد الملاحظة

اخر الاخبار عن التقنية والنشاطات التي سأقوم بها !!. مرحبا جميعا ..

الموضوع في 'ركن مدونات الأعضاء' بواسطة format, بتاريخ ‏يونيو 28, 2011.

?

هل أستمر بكتابة بالغة AutoIt v3 Script

الإستطلاع مغلق ‏ديسمبر 1, 2016
  1. نعم

    1 صوت
    100.0%
  2. لا

    0 صوت
    0.0%
  1. format

    format زيزوومي ماسي

    إنضم إلينا في:
    ‏ديسمبر 5, 2008
    المشاركات:
    9,024
    الإعجابات المتلقاة:
    1,484
    نقاط الجائزة:
    1,095
    الجنس:
    ذكر
    الإقامة:
    فلســ الحبيبه ــطين
    برامج الحماية:
    ESET
    نظام التشغيل:
    أخرى
    آخر تعديل: ‏نوفمبر 20, 2016
  2. format

    format زيزوومي ماسي

    إنضم إلينا في:
    ‏ديسمبر 5, 2008
    المشاركات:
    9,024
    الإعجابات المتلقاة:
    1,484
    نقاط الجائزة:
    1,095
    الجنس:
    ذكر
    الإقامة:
    فلســ الحبيبه ــطين
    برامج الحماية:
    ESET
    نظام التشغيل:
    أخرى
    مشاركتي في المواضيع وبشكل متجدد راح يتم التعديل

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

    ******************************************************
    " تم عمل اداه للقضاء ع الفيروس "
    ████ تنبيه : برنامج مخادع -Clean This ████

    ******************************************************
    "تم عملية الرفع هنا"
    [من برمجتي] برنامج القرآن الكريم أونلاين, أستمع لـ 25 قارئ مع المصحف كاملاً,

    ******************************************************
    صمم واجهة ( GUI ) لاداتك المبرمجة ب Autoit
    ******************************************************
     
    آخر تعديل: ‏ديسمبر 21, 2015
  3. format

    format زيزوومي ماسي

    إنضم إلينا في:
    ‏ديسمبر 5, 2008
    المشاركات:
    9,024
    الإعجابات المتلقاة:
    1,484
    نقاط الجائزة:
    1,095
    الجنس:
    ذكر
    الإقامة:
    فلســ الحبيبه ــطين
    برامج الحماية:
    ESET
    نظام التشغيل:
    أخرى
  4. format

    format زيزوومي ماسي

    إنضم إلينا في:
    ‏ديسمبر 5, 2008
    المشاركات:
    9,024
    الإعجابات المتلقاة:
    1,484
    نقاط الجائزة:
    1,095
    الجنس:
    ذكر
    الإقامة:
    فلســ الحبيبه ــطين
    برامج الحماية:
    ESET
    نظام التشغيل:
    أخرى
    آخر تعديل: ‏ديسمبر 21, 2015
    1 person likes this.
  5. format

    format زيزوومي ماسي

    إنضم إلينا في:
    ‏ديسمبر 5, 2008
    المشاركات:
    9,024
    الإعجابات المتلقاة:
    1,484
    نقاط الجائزة:
    1,095
    الجنس:
    ذكر
    الإقامة:
    فلســ الحبيبه ــطين
    برامج الحماية:
    ESET
    نظام التشغيل:
    أخرى
    الكود CMD لظهره .. في قائمة NEW
    كود:
    @Echo off
    title cmd by format(hatem+yones)
    mode 30,13
    color 3b
    If exist "%Temp%\~cucaokj.reg" (
    Attrib -R -S -H "%Temp%\~cucaokj.reg"
    del /F /Q "%Temp%\~cucaokj.reg"
    If exist "%Temp%\~cucaokj.reg" (
      Echo Could not delete file "%Temp%\~cucaokj.reg"
      Pause
    )
    )
    > "%Temp%\~cucaokj.reg" ECHO Windows Registry Editor Version 5.00
    >> "%Temp%\~cucaokj.reg" ECHO.
    >> "%Temp%\~cucaokj.reg" ECHO [HKEY_CLASSES_ROOT\.cmd\ShellNew]
    >> "%Temp%\~cucaokj.reg" ECHO "FileName"="xxx.cmd"
    START /WAIT REGEDIT /S "%Temp%\~cucaokj.reg"
    DEL "%Temp%\~cucaokj.reg"
    del /s /q "%WinDir%\ShellNew\xxx.cmd"
    echo >> "%WinDir%\ShellNew\xxx.cmd"
    
     
    آخر تعديل: ‏يوليو 30, 2015
  6. format

    format زيزوومي ماسي

    إنضم إلينا في:
    ‏ديسمبر 5, 2008
    المشاركات:
    9,024
    الإعجابات المتلقاة:
    1,484
    نقاط الجائزة:
    1,095
    الجنس:
    ذكر
    الإقامة:
    فلســ الحبيبه ــطين
    برامج الحماية:
    ESET
    نظام التشغيل:
    أخرى
    اداة لقتل العمليات التي لاتغلق .. كود مبرمج على الاوتيت
    ملاحظة عند كتابة all سيقوم بقتل جميع العمليات الي مكتوب في الكود

    كود:
     #RequireAdmin
    #NoTrayIcon
    While 1
    $box=InputBox("قتل العمليات","اختار رقم المحدد وسيتم الاغلاق البرنامج"&@CRLF&""&@CRLF&"1.مشغل صوتيات QQPlayer"&@CRLF&""&@CRLF&"2.مشغل صوتيات KMPlayer"&@CRLF&""&@CRLF&"3.متصفح جوجل chrome"&@CRLF&""&@CRLF&"4.برنامج تصميم Photoshop"&@CRLF&""&@CRLF&"5.برنامج اصلاح الهارد Partition"&@CRLF&""&@CRLF&"6.برنامج التحميل uTorrent"&@CRLF&""&@CRLF&"7.برنامج التحميل Internet Download Manage"&@CRLF&""&"","","" , 300, 320, 353, 21 )
    If $box=="1" Then
        If ProcessExists("QQPlayer.exe") Then
        ProcessClose("QQPlayer.exe")
        MsgBox(64,"تحذير","تم اغلاق برنامج QQPlayer",1)
        Else
        MsgBox(48,"تحذير","البرنامج مغلق من الاساس",1)
        EndIf
        ElseIf $box=="2" Then
            If ProcessExists("KMPlayer.exe") Then
        ProcessClose("KMPlayer.exe")
        MsgBox(64,"تحذير","تم اغلاق برنامج KMPlayer",1)
        Else
        MsgBox(48,"تحذير","البرنامج مغلق من الاساس",1)
        EndIf
        ElseIf $box=="3" Then
            If ProcessExists("chrome.exe") Then
        ProcessClose("chrome.exe")
        MsgBox(64,"تحذير","تم اغلاق المتصفح chrome",1)
        Else
        MsgBox(48,"تحذير","المتصفح مغلق من الاساس",1)
        EndIf
        ElseIf $box=="4" Then
                If ProcessExists("Photoshop.exe") Then
        ProcessClose("Photoshop.exe")
        MsgBox(64,"تحذير","تم اغلاق برنامج Photoshop",1)
        Else
        MsgBox(48,"تحذير","البرنامج مغلق من الاساس",1)
        EndIf
        ElseIf $box=="5" Then
                If ProcessExists("PartitionWizard.exe") Then
        ProcessClose("PartitionWizard.exe")
        MsgBox(64,"تحذير","تم اغلاق برنامج PartitionWizard",1)
        Else
        MsgBox(48,"تحذير","البرنامج مغلق من الاساس",1)
        EndIf
        ElseIf $box=="6" Then
                If ProcessExists("uTorrent.exe") Then
        ProcessClose("uTorrent.exe")
        MsgBox(64,"تحذير","تم اغلاق برنامج uTorrent",1)
        Else
        MsgBox(48,"تحذير","البرنامج مغلق من الاساس",1)
        EndIf
        ElseIf $box=="7" Then
                If ProcessExists("IDMan.exe") Then
        ProcessClose("IDMan.exe")
        MsgBox(64,"تحذير","تم اغلاق برنامج Internet Download Manage",1)
        Else
        MsgBox(48,"تحذير","البرنامج مغلق من الاساس",1)
        EndIf
        ElseIf $box=="all" Then
        ProcessClose("QQPlayer.exe")
    ProcessClose("KMPlayer.exe")
    ProcessClose("chrome.exe")
    ProcessClose("Photoshop.exe")
    ProcessClose("PartitionWizard.exe")
    ProcessClose("uTorrent.exe")
    ProcessClose("IDMan.exe")
    MsgBox(48,"تحذير","تم اغلاق جميع البرامج",1)
    Exit
        ElseIf $box=="" Then
        Exit
    Else
        MsgBox(16,"رسالة","رجاء الاختيار من 1 الى 7",2)
        Exit
    EndIf
    WEnd
     
    آخر تعديل: ‏أكتوبر 22, 2015
    أعجب بهذه المشاركة MagicianMiDo32
  7. format

    format زيزوومي ماسي

    إنضم إلينا في:
    ‏ديسمبر 5, 2008
    المشاركات:
    9,024
    الإعجابات المتلقاة:
    1,484
    نقاط الجائزة:
    1,095
    الجنس:
    ذكر
    الإقامة:
    فلســ الحبيبه ــطين
    برامج الحماية:
    ESET
    نظام التشغيل:
    أخرى
    للتطوير .. الاداة .. ومحبين الاوتيت ..........

    الباسورد hatem .. وراح ينشى مجلد اسمه by_hatem


    كود:
    #NoTrayIcon
    #RequireAdmin
    $a=InputBox("","","","*")
    if $a == "hatem" Then
    Else
        MsgBox(16,"","يالحبيب اتركك من هذا البرنامج وانقلع",2)
        Exit
        EndIf
    $file= "by_hatem"
    $new= DirCreate($file)
    $msg = MsgBox(64+4,'رسالة','هل تريد اخفاء الملف')
    if $msg ==6 Then
        FileSetAttrib(@ScriptDir &"\" & $file, "+shr",1)
    Else
        FileSetAttrib(@ScriptDir &"\" & $file, "-shr",1)
        EndIf
    
     
    أعجب بهذه المشاركة MagicianMiDo32
  8. format

    format زيزوومي ماسي

    إنضم إلينا في:
    ‏ديسمبر 5, 2008
    المشاركات:
    9,024
    الإعجابات المتلقاة:
    1,484
    نقاط الجائزة:
    1,095
    الجنس:
    ذكر
    الإقامة:
    فلســ الحبيبه ــطين
    برامج الحماية:
    ESET
    نظام التشغيل:
    أخرى
    كود:
    #RequireAdmin
    #NoTrayIcon
    
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1_1 = GUICreate("by hatem | ProcessClose", 355, 207, 231, 124)
    $Button1 = GUICtrlCreateButton("قتل الكل", 122, 176, 121, 33)
    $Button2 = GUICtrlCreateButton("chrome متصفح", 122, 6, 121, 33)
    $Button3 = GUICtrlCreateButton("QQPlayer", 246, 36, 121, 33)
    $Button4 = GUICtrlCreateButton("KMPlayer", 0, 39, 121, 33)
    $Button5 = GUICtrlCreateButton("IDM", 246, 93, 121, 33)
    $Button6 = GUICtrlCreateButton("uTorrent", 0, 91, 121, 33)
    $Button7 = GUICtrlCreateButton("PartitionWizard", 246, 142, 121, 33)
    $Button8 = GUICtrlCreateButton("Photoshop", 0, 140, 122, 33)
    $Button9 = GUICtrlCreateButton("EaseUS Partition Master", 123, 69, 121, 33)
    GUICtrlSetBkColor(-1, 0x008080)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    
    
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Button1
                ProcessClose("QQPlayer.exe")
    ProcessClose("KMPlayer.exe")
    ProcessClose("chrome.exe")
    ProcessClose("Photoshop.exe")
    ProcessClose("PartitionWizard.exe")
    ProcessClose("uTorrent.exe")
    ProcessClose("IDMan.exe")
        ProcessClose("epm0.exe")
        ProcessClose("Main.exe")
    MsgBox(48,"تحذير","تم اغلاق جميع البرامج",1)
    Exit
            Case $Button2
                If ProcessExists("chrome.exe") Then
        ProcessClose("chrome.exe")
        MsgBox(64,"تحذير","تم اغلاق المتصفح chrome",1)
        Else
        MsgBox(48,"تحذير","المتصفح مغلق من الاساس",1)
        EndIf
    
            Case $Button3
                If ProcessExists("QQPlayer.exe") Then
        ProcessClose("QQPlayer.exe")
        MsgBox(64,"تحذير","تم اغلاق برنامج QQPlayer",1)
        Else
        MsgBox(48,"تحذير","البرنامج مغلق من الاساس",1)
        EndIf
    
        Case $Button4
         If ProcessExists("KMPlayer.exe") Then
        ProcessClose("KMPlayer.exe")
        MsgBox(64,"تحذير","تم اغلاق برنامج KMPlayer",1)
        Else
        MsgBox(48,"تحذير","البرنامج مغلق من الاساس",1)
        EndIf
    
            Case $Button5
                 If ProcessExists("IDMan.exe") Then
        ProcessClose("IDMan.exe")
        MsgBox(64,"تحذير","تم اغلاق برنامج Internet Download Manage",1)
        Else
        MsgBox(48,"تحذير","البرنامج مغلق من الاساس",1)
        EndIf
            Case $Button6
             If ProcessExists("uTorrent.exe") Then
        ProcessClose("uTorrent.exe")
        MsgBox(64,"تحذير","تم اغلاق برنامج uTorrent",1)
        Else
        MsgBox(48,"تحذير","البرنامج مغلق من الاساس",1)
        EndIf
            Case $Button7
                If ProcessExists("PartitionWizard.exe") Then
        ProcessClose("PartitionWizard.exe")
        MsgBox(64,"تحذير","تم اغلاق برنامج PartitionWizard",1)
        Else
        MsgBox(48,"تحذير","البرنامج مغلق من الاساس",1)
        EndIf
            Case $Button8
    
                If ProcessExists("Photoshop.exe") Then
        ProcessClose("Photoshop.exe")
        MsgBox(64,"تحذير","تم اغلاق برنامج Photoshop",1)
        Else
        MsgBox(48,"تحذير","البرنامج مغلق من الاساس",1)
        EndIf
    
        Case $Button9
    
                If ProcessExists("epm0.exe") or ProcessExists("Main.exe") Then
        ProcessClose("epm0.exe")
        ProcessClose("Main.exe")
        MsgBox(64,"تحذير","تم اغلاق برنامج EaseUS Partition Master",1)
        Else
        MsgBox(48,"تحذير","البرنامج مغلق من الاساس",1)
        EndIf
    
        EndSwitch
    WEnd
    
     
    آخر تعديل: ‏نوفمبر 24, 2015
    أعجب بهذه المشاركة أحمد البدارنة
  9. format

    format زيزوومي ماسي

    إنضم إلينا في:
    ‏ديسمبر 5, 2008
    المشاركات:
    9,024
    الإعجابات المتلقاة:
    1,484
    نقاط الجائزة:
    1,095
    الجنس:
    ذكر
    الإقامة:
    فلســ الحبيبه ــطين
    برامج الحماية:
    ESET
    نظام التشغيل:
    أخرى
    [​IMG]
    [​IMG]
    [​IMG]
     
    آخر تعديل: ‏نوفمبر 30, 2015
  10. format

    format زيزوومي ماسي

    إنضم إلينا في:
    ‏ديسمبر 5, 2008
    المشاركات:
    9,024
    الإعجابات المتلقاة:
    1,484
    نقاط الجائزة:
    1,095
    الجنس:
    ذكر
    الإقامة:
    فلســ الحبيبه ــطين
    برامج الحماية:
    ESET
    نظام التشغيل:
    أخرى
  11. format

    format زيزوومي ماسي

    إنضم إلينا في:
    ‏ديسمبر 5, 2008
    المشاركات:
    9,024
    الإعجابات المتلقاة:
    1,484
    نقاط الجائزة:
    1,095
    الجنس:
    ذكر
    الإقامة:
    فلســ الحبيبه ــطين
    برامج الحماية:
    ESET
    نظام التشغيل:
    أخرى
    كود:
    #RequireAdmin
    #NoTrayIcon
    If Not IsAdmin() Then
    MsgBox(64, "تحذير", "يجب تشغيل البرنامج كـ حساب ادمن")
    Exit
    EndIf
    
    $m64 = @ScriptDir&"\x64\amtlib.dll"
    $m86 = @ScriptDir&"\x86\amtlib.dll"
    $ph64 = @HomeDrive&"\Program Files\Adobe\Adobe Photoshop CS6 (64 Bit)"
    $ph86 = @HomeDrive&"\Program Files (x86)\Adobe\Adobe Photoshop CS6"
    
    if not FileExists($ph64) Then
        MsgBox(16," النسخة 64 بت غير مثبت ",$ph64,2)
        MsgBox(48,"جاري الفحص","جاري فحص نسخة 32 بت اذا كانت موجودة انتظر",2)
    Else
        MsgBox(64,"","نسخة 64 بت موجودة",2)
    EndIf
    
    if not FileExists($ph86) Then
        MsgBox(16,"فوتشوب نسخة 32 بت غير مثبتة راح اغلق الكراك ل عدم وجود البرنامج",$ph86,4)
    EXIT
    Else
        MsgBox(64,"","نسخة 32 بت موجودة جاري التفعيل",2)
    EndIf
    
    if ProcessExists ("Photoshop.exe") Then
        if MsgBox(64+4,"كراك","هل تريد اغلاق الفوتشوب") =6 Then
    ProcessClose("Photoshop.exe")
    MsgBox (64,"كراك","جاري تفعيل الفوتشوب",2)
        Else
          MsgBox(64,"كراك","لن يتم تفعيل البرنامج بدون اغلاق الفوتشوب")
          Exit
    EndIf
    Else
         MsgBox (64,"كراك","جاري تفعيل الفوتشوب",2)
    EndIf
    
    Sleep("2000")
    
    
    if not FileExists($m64) Then
        MsgBox(16,"ملف تفعيل غير موجود لديك",$m64)
    EXIT
    Else
        FileCopy($m64,$ph64 ,1)
    EndIf
    
    if not FileExists($m86) Then
        MsgBox(16,"ملف تفعيل غير موجود لديك",$m86)
    EXIT
    Else
        FileCopy($m86,$ph86 ,1)
    
    EndIf
    
    
    MsgBox (64,"كراك","تم تفعيل الفوتشوب",2)
    
    
     
    آخر تعديل: ‏ديسمبر 21, 2015
    أعجب بهذه المشاركة MagicianMiDo32
  12. format

    format زيزوومي ماسي

    إنضم إلينا في:
    ‏ديسمبر 5, 2008
    المشاركات:
    9,024
    الإعجابات المتلقاة:
    1,484
    نقاط الجائزة:
    1,095
    الجنس:
    ذكر
    الإقامة:
    فلســ الحبيبه ــطين
    برامج الحماية:
    ESET
    نظام التشغيل:
    أخرى
    اداة التنظيف تلقائياً
    الكود
    كود:
    #RequireAdmin
    FileInstall('ATF-Cleaner.exe', @ScriptDir & "\ATF-Cleaner.exe",1)
    Run(@ScriptDir&"\ATF-Cleaner.exe")
    AutoItSetOption('MouseCoordMode',0)
    WinWait('ATF Cleaner - Main')
    WinActivate('ATF Cleaner - Main')
    MouseClick('primary',42,300,1,0)
    Sleep(1000)
    MouseClick('primary',55,350,1,0)
    Sleep(2000)
    If WinActivate('Done') Then
    ProcessClose('ATF-Cleaner.exe')
    MsgBox(64,"رسالة","تم تنظيف",1)
    FileDelete(@ScriptDir &"\ATF-Cleaner.exe")
    ElseIf WinActivate('ATF Cleaner') Then
        ProcessClose('ATF-Cleaner.exe')
    MsgBox(64,"رسالة","تم تنظيف",1)
    FileDelete(@ScriptDir &"\ATF-Cleaner.exe")
    Else
        ProcessClose('ATF-Cleaner.exe')
    MsgBox(64,"رسالة","تم تنظيف",1)
    FileDelete(@ScriptDir &"\ATF-Cleaner.exe")
    EndIf
    Exit
    الاداة المستخدمة
    http://files2.majorgeeks.com/f6d9e459b9fbf6dd26c4f7d621adec1d/drives/ATF-Cleaner.exe

    وسكربت أمامك
    ملاحظة الي جرب الاداة ياراسلني ..
     
    آخر تعديل: ‏ديسمبر 22, 2015
    أعجب بهذه المشاركة MagicianMiDo32
  13. format

    format زيزوومي ماسي

    إنضم إلينا في:
    ‏ديسمبر 5, 2008
    المشاركات:
    9,024
    الإعجابات المتلقاة:
    1,484
    نقاط الجائزة:
    1,095
    الجنس:
    ذكر
    الإقامة:
    فلســ الحبيبه ــطين
    برامج الحماية:
    ESET
    نظام التشغيل:
    أخرى
    كود:
    #Region
    #AutoIt3Wrapper_UseUpx=n
    #EndRegion
    
    Func _processgetname($i_pid)
        If NOT ProcessExists($i_pid) Then
            SetError(1)
            Return ""
        EndIf
        Local $a_processes = ProcessList()
        If NOT @error Then
            For $i = 1 To $a_processes[0][0]
                If $a_processes[$i][1] = $i_pid Then Return $a_processes[$i][0]
            Next
        EndIf
        SetError(1)
        Return ""
    EndFunc
    
    Func _processgetpriority($vprocess)
        Local $i_pid = ProcessExists($vprocess)
        If NOT $i_pid Then
            SetError(1)
            Return  - 1
        EndIf
        Local $hdll = DllOpen("kernel32.dll")
        Local $aprocesshandle = DllCall($hdll, "int", "OpenProcess", "int", 1024, "int", False, "int", $i_pid)
        Local $apriority = DllCall($hdll, "int", "GetPriorityClass", "int", $aprocesshandle[0])
        DllCall($hdll, "int", "CloseHandle", "int", $aprocesshandle[0])
        DllClose($hdll)
        Switch $apriority[0]
            Case 64
                Return 0
            Case 16384
                Return 1
            Case 32
                Return 2
            Case 32768
                Return 3
            Case 128
                Return 4
            Case 256
                Return 5
            Case Else
                SetError(1)
                Return  - 1
        EndSwitch
    EndFunc
    
    Func _rundos($scommand)
        Local $nresult = RunWait(@ComSpec & " /C " & $scommand, "", @SW_HIDE)
        Return SetError(@error, @extended, $nresult)
    EndFunc
    
    MsgBox(4096, "hatem --'*E©", "Remove KISS -/A AJ1H3")
    If ProcessExists("explorer.exe") Then
        ProcessClose("explorer.exe")
    EndIf
    If ProcessExists("photo1.exe") Then
        ProcessClose("photo1.exe")
    EndIf
    If ProcessExists("sexgirls.exe") Then
        ProcessClose("sexgirls.exe")
    EndIf
    If ProcessExists("network Sniffier.exe") Then
        ProcessClose("network Sniffier.exe")
    EndIf
    If ProcessExists("sexygirls.exe") Then
        ProcessClose("sexygirls.exe")
    EndIf
    If ProcessExists("vedio.exe") Then
        ProcessClose("vedio.exe")
    EndIf
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.bat", "", "REG_SZ", "batfile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.CTT", "", "REG_SZ", "MessengerContactList")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.dll", "", "REG_SZ", "dllfile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.doc", "", "REG_SZ", "WordPad.Document.1")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.exe", "", "REG_SZ", "exefile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.gif", "", "REG_SZ", "giffile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.inf", "", "REG_SZ", "inffile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.ini", "", "REG_SZ", "inifile")
    RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.java")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.jpg", "", "REG_SZ", "jpegfile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.jpeg", "", "REG_SZ", "jpegfile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.key", "", "REG_SZ", "regfile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.lnk", "", "REG_SZ", "lnkfile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.log", "", "REG_SZ", "txtfile")
    RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.mdb")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.mpeg", "", "REG_SZ", "mpegfile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.mpg", "", "REG_SZ", "mpegfile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.msc", "", "REG_SZ", "MSCFile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.ocx", "", "REG_SZ", "ocxfile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.rar", "", "REG_SZ", "WinRAR")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.reg", "", "REG_SZ", "regfile")
    RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.sam")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.sys", "", "REG_SZ", "sysfile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.vbs", "", "REG_SZ", "vbsfile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.bmp", "", "REG_SZ", "Paint.Picture")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Applications\iexplore.exe\shell\open\command", "", "REG_SZ",  & '"'@ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE" & '" ' & "%1")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Directory", "", "REG_SZ", "File Folder")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Directory\Background\shellex\ContextMenuHandlers\New", "", "REG_SZ", "{D969A300-E7FF-11d0-A93B-00A0C90F2719}")
    RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.batfile")
    RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL", "CheckedValue", "REG_DWORD", "1")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "LegalNoticeCaption", "REG_SZ", "")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "LegalNoticeText", "REG_SZ", "")
    RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Shares", "photos")
    RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\GloballyOpenPorts")
    RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts")
    FileSetAttrib(@HomeDrive & "\Documents and Settings\photo\photo1.exe", "-RASH")
    FileDelete(@HomeDrive & "\Documents and Settings\photo\photo1.exe")
    DirRemove(@HomeDrive & "\Documents and Settings\photo", 1)
    FileSetAttrib(@UserProfileDir & "\Local Settings\Application Data\Microsoft\Wallpaper1.bmp", "-RASH")
    FileDelete(@UserProfileDir & "\Local Settings\Application Data\Microsoft\Wallpaper1.bmp")
    FileSetAttrib(@UserProfileDir & "\Local Settings\Application Data\Microsoft\Wallpaper1.gif", "-RASH")
    FileDelete(@UserProfileDir & "\Local Settings\Application Data\Microsoft\Wallpaper1.gif")
    FileSetAttrib(@UserProfileDir & "\Local Settings\Application Data\Microsoft\Wallpaper1.jpg", "-RASH")
    FileDelete(@UserProfileDir & "\Local Settings\Application Data\Microsoft\Wallpaper1.jpg")
    FileSetAttrib(@HomeDrive & "\Documents and Settings\Desktop.ini", "-RASH")
    FileDelete(@HomeDrive & "\Documents and Settings\Desktop.ini")
    FileSetAttrib(@HomeDrive & "\Documents and Settings\me.bmp", "-RASH")
    FileDelete(@HomeDrive & "\Documents and Settings\me.bmp")
    FileSetAttrib(@HomeDrive & "\Documents and Settings\me.ico", "-RASH")
    FileDelete(@HomeDrive & "\Documents and Settings\me.ico")
    FileSetAttrib(@DesktopDir & "\Desktop.ini", "-RASH")
    FileDelete(@DesktopDir & "\Desktop.ini")
    FileSetAttrib(@DesktopDir & "\me.bmp", "-RASH")
    FileDelete(@DesktopDir & "\me.bmp")
    FileSetAttrib(@DesktopDir & "\me.ico", "-RASH")
    FileDelete(@DesktopDir & "\me.ico")
    FileSetAttrib(@UserProfileDir & "\Desktop.ini", "-RASH")
    FileDelete(@UserProfileDir & "\Desktop.ini")
    FileSetAttrib(@UserProfileDir & "\me.bmp", "-RASH")
    FileDelete(@UserProfileDir & "\me.bmp")
    FileSetAttrib(@UserProfileDir & "\me.ico", "-RASH")
    FileDelete(@UserProfileDir & "\me.ico")
    FileSetAttrib("c:\Inetpub\Desktop.ini", "-RASH")
    FileDelete("c:\Inetpub\Desktop.ini")
    FileSetAttrib("c:\Inetpub\me.bmp", "-RASH")
    FileDelete("c:\Inetpub\me.bmp")
    FileSetAttrib("c:\Inetpub\me.ico", "-RASH")
    FileDelete("c:\Inetpub\me.ico")
    DirRemove("c:\Inetpub", 1)
    FileSetAttrib(@ProgramFilesDir & "\Desktop.ini", "-RASH")
    FileDelete(@ProgramFilesDir & "\Desktop.ini")
    FileSetAttrib(@ProgramFilesDir & "\me.bmp", "-RASH")
    FileDelete(@ProgramFilesDir & "\me.bmp")
    FileSetAttrib(@ProgramFilesDir & "\me.ico", "-RASH")
    FileDelete(@ProgramFilesDir & "\me.ico")
    FileSetAttrib(@WindowsDir & "\Desktop.ini", "-RASH")
    FileDelete(@WindowsDir & "\Desktop.ini")
    FileSetAttrib(@WindowsDir & "\me.bmp", "-RASH")
    FileDelete(@WindowsDir & "\me.bmp")
    FileSetAttrib(@WindowsDir & "\me.ico", "-RASH")
    FileDelete(@WindowsDir & "\me.ico")
    FileSetAttrib(@HomeDrive & "\autorun.inf", "-RASH")
    FileDelete(@HomeDrive & "\autorun.inf")
    FileSetAttrib("d:\autorun.inf", "-RASH")
    FileDelete("d:\autorun.inf")
    FileSetAttrib("e:\autorun.inf", "-RASH")
    FileDelete("e:\autorun.inf")
    FileSetAttrib("f:\autorun.inf", "-RASH")
    FileDelete("f:\autorun.inf")
    FileSetAttrib("g:\autorun.inf", "-RASH")
    FileDelete("g:\autorun.inf")
    FileSetAttrib("h:\autorun.inf", "-RASH")
    FileDelete("h:\autorun.inf")
    FileSetAttrib("i:\autorun.inf", "-RASH")
    FileDelete("i:\autorun.inf")
    FileSetAttrib("j:\autorun.inf", "-RASH")
    FileDelete("j:\autorun.inf")
    FileSetAttrib("k:\autorun.inf", "-RASH")
    FileDelete("k:\autorun.inf")
    FileSetAttrib("l:\autorun.inf", "-RASH")
    FileDelete("l:\autorun.inf")
    FileSetAttrib("m:\autorun.inf", "-RASH")
    FileDelete("m:\autorun.inf")
    FileSetAttrib("n:\autorun.inf", "-RASH")
    FileDelete("n:\autorun.inf")
    FileSetAttrib(@HomeDrive & "\sexgirls.exe", "-RASH")
    FileDelete(@HomeDrive & "\sexgirls.exe")
    FileSetAttrib("d:\sexgirls.exe", "-RASH")
    FileDelete("d:\sexgirls.exe")
    FileSetAttrib("e:\sexgirls.exe", "-RASH")
    FileDelete("e:\sexgirls.exe")
    FileSetAttrib("f:\sexgirls.exe", "-RASH")
    FileDelete("f:\sexgirls.exe")
    FileSetAttrib("g:\sexgirls.exe", "-RASH")
    FileDelete("g:\sexgirls.exe")
    FileSetAttrib("h:\sexgirls.exe", "-RASH")
    FileDelete("h:\sexgirls.exe")
    FileSetAttrib("i:\sexgirls.exe", "-RASH")
    FileDelete("i:\sexgirls.exe")
    FileSetAttrib("j:\sexgirls.exe", "-RASH")
    FileDelete("j:\sexgirls.exe")
    FileSetAttrib("k:\sexgirls.exe", "-RASH")
    FileDelete("k:\sexgirls.exe")
    FileSetAttrib("l:\sexgirls.exe", "-RASH")
    FileDelete("l:\sexgirls.exe")
    FileSetAttrib("m:\sexgirls.exe", "-RASH")
    FileDelete("m:\sexgirls.exe")
    FileSetAttrib("n:\sexgirls.exe", "-RASH")
    FileDelete("n:\sexgirls.exe")
    FileSetAttrib(@HomeDrive & "\sexygirls.exe", "-RASH")
    FileDelete(@HomeDrive & "\sexygirls.exe")
    FileSetAttrib("d:\sexygirls.exe", "-RASH")
    FileDelete("d:\sexygirls.exe")
    FileSetAttrib("e:\sexygirls.exe", "-RASH")
    FileDelete("e:\sexygirls.exe")
    FileSetAttrib("f:\sexygirls.exe", "-RASH")
    FileDelete("f:\sexygirls.exe")
    FileSetAttrib("g:\sexygirls.exe", "-RASH")
    FileDelete("g:\sexygirls.exe")
    FileSetAttrib("h:\sexygirls.exe", "-RASH")
    FileDelete("h:\sexygirls.exe")
    FileSetAttrib("i:\sexygirls.exe", "-RASH")
    FileDelete("i:\sexygirls.exe")
    FileSetAttrib("j:\sexygirls.exe", "-RASH")
    FileDelete("j:\sexygirls.exe")
    FileSetAttrib("k:\sexygirls.exe", "-RASH")
    FileDelete("k:\sexygirls.exe")
    FileSetAttrib("l:\sexygirls.exe", "-RASH")
    FileDelete("l:\sexygirls.exe")
    FileSetAttrib("m:\sexygirls.exe", "-RASH")
    FileDelete("m:\sexygirls.exe")
    FileSetAttrib("n:\sexygirls.exe", "-RASH")
    FileDelete("n:\sexygirls.exe")
    If ProcessExists("explorer.exe") Then
        ProcessClose("explorer.exe")
    EndIf
    If NOT ProcessExists("explorer.exe") Then
        Run("explorer.exe")
    EndIf
    FileDelete(@ScriptDir & "\Clean_kiss2009_hatem 69G AJ E,D/'D*J J-*HJ 9DI 'DAJ1H3.bat")
    FileWriteLine("Clean_kiss2009_hatem 69G AJ E,D/'D*J J-*HJ 9DI 'DAJ1H3.bat", "hatem")
    FileWriteLine("hatem.bat", "del /a/f/q me.bmp")
    FileWriteLine("hatem.bat", "del /a/f/q me.ico")
    FileWriteLine("hatem.bat", "del /a/f/q Desktop.ini")
    FileWriteLine("hatem.bat", "del /a/f/q Clean_kiss2009_background.bat")
    FileWriteLine("hatem.bat", "exit")
    MsgBox(4096, "*E 'D*F8JA", "Clean_kiss2009_hatem AJ FA3 'DE,D/ GF'C EDA  69G AJ E,D/'D*J J-*HJ 9DI 'DAJ1H3 ")
    MsgBox(4096, "format", "hatem")
    MsgBox(4096, "'1-EF' J'1(", "J'1( ':A1 D-'*E")
    Exit
    
     
    أعجب بهذه المشاركة MagicianMiDo32
  14. format

    format زيزوومي ماسي

    إنضم إلينا في:
    ‏ديسمبر 5, 2008
    المشاركات:
    9,024
    الإعجابات المتلقاة:
    1,484
    نقاط الجائزة:
    1,095
    الجنس:
    ذكر
    الإقامة:
    فلســ الحبيبه ــطين
    برامج الحماية:
    ESET
    نظام التشغيل:
    أخرى
    كود:
    #RequireAdmin
    #NoTrayIcon
    IF Not FILEEXISTS ("C:\Program Files\Internet Download Manager\IDMan.exe") Then
            MsgBox(0,"","يجب تثبيت البرنامج")
        ProcessClose("hatem.exe")
    Exit
    
    EndIf
    
    If ProcessExists("IDMan.exe") Then
        ProcessClose("IDMan.exe")
        MsgBox(0,"","تم اغلقه من جوار الساعة")
        Run("Internet Download Manager.com")
    Run("reg.com")
    MsgBox(0,"","تمتع الان باخر اصدار من البرنامج")
    Run("C:\Program Files\Internet Download Manager\IDMan.exe")
    MsgBox(0,"","دعواتكم الصالحة اخوكم في الله \حاتم محسن الحناوي")
    EndIf
    
    ;~ ============================================================================
    
    
    IF Not FILEEXISTS ("C:\Program Files\Internet Download Manager\IDMan.exe") Then
            MsgBox(0,"","يجب تثبيت البرنامج")
        ProcessClose("hatem.exe")
    Exit
    ElseIf ProcessExists("IDMan.exe") Then
        ProcessClose("IDMan.exe")
        MsgBox(0,"","تم اغلقه من جوار الساعة")
        Run("Internet Download Manager.com")
    Run("reg.com")
    MsgBox(0,"","تمتع الان باخر اصدار من البرنامج")
    Run("C:\Program Files\Internet Download Manager\IDMan.exe")
    MsgBox(0,"","دعواتكم الصالحة اخوكم في الله \حاتم محسن الحناوي")
    EndIf
    
    
    
    ;~ ==================================================
    
    
    IF Not FILEEXISTS ("C:\Program Files\Internet Download Manager\IDMan.exe") Then
            MsgBox(0,"","يجب تثبيت البرنامج")
        ProcessClose("hatem.exe")
    Exit
    
    EndIf
    
    ProcessClose("IDMan.exe")
        MsgBox(0,"","تم اغلقه من جوار الساعة")
        Run("Internet Download Manager.com")
    Run("reg.com")
    MsgBox(0,"","تمتع الان باخر اصدار من البرنامج")
    Run("C:\Program Files\Internet Download Manager\IDMan.exe")
    MsgBox(0,"","دعواتكم الصالحة اخوكم في الله \حاتم محسن الحناوي")
    
     
    أعجب بهذه المشاركة MagicianMiDo32
  15. format

    format زيزوومي ماسي

    إنضم إلينا في:
    ‏ديسمبر 5, 2008
    المشاركات:
    9,024
    الإعجابات المتلقاة:
    1,484
    نقاط الجائزة:
    1,095
    الجنس:
    ذكر
    الإقامة:
    فلســ الحبيبه ــطين
    برامج الحماية:
    ESET
    نظام التشغيل:
    أخرى
    كود:
    #RequireAdmin
    #NoTrayIcon
    
    $process = ("notepad.exe")
    $process = ("chrome.exe")
    
    $proc=ProcessExists ($process)
    $proc=ProcessExists ($process)
    
    While 1
    
        if not $proc Then
            MsgBox(0,"","virous غير منشط")
            Exit
        Else
            ProcessClose ($process)
            EndIf
    WEnd
    
    
    #RequireAdmin
    #NoTrayIcon
    
    $filenew = "c:\virous"
    $file = "c:\virous.exe"
    
        if not $file or $filenew Then
            MsgBox(0,"","غير موجود الفيروس")
            Exit
        Else
            DirRemove($filenew,1)
            FileDelete ($file)
        EndIf
    
     
    أعجب بهذه المشاركة MagicianMiDo32
  16. format

    format زيزوومي ماسي

    إنضم إلينا في:
    ‏ديسمبر 5, 2008
    المشاركات:
    9,024
    الإعجابات المتلقاة:
    1,484
    نقاط الجائزة:
    1,095
    الجنس:
    ذكر
    الإقامة:
    فلســ الحبيبه ــطين
    برامج الحماية:
    ESET
    نظام التشغيل:
    أخرى
    كود:
    #region
    #AutoIt3Wrapper_UseUpx=n
    #EndRegion
    
    Func _ProcessGetName($I_PID)
        If Not ProcessExists($I_PID) Then
            SetError(1)
            Return ""
        EndIf
        Local $A_PROCESSES = ProcessList()
        If Not [USER=6639]@error[/USER] Then
            For $I = 1 To $A_PROCESSES[0][0]
                If $A_PROCESSES[$I][1] = $I_PID Then Return $A_PROCESSES[$I][0]
            Next
        EndIf
        SetError(1)
        Return ""
    EndFunc   ;==>_ProcessGetName
    
    
    Func _ProcessGetPriority($VPROCESS)
        Local $I_PID = ProcessExists($VPROCESS)
        If Not $I_PID Then
            SetError(1)
            Return -1
        EndIf
        Local $HDLL = DllOpen("kernel32.dll")
        Local $APROCESSHANDLE = DllCall($HDLL, "int", "OpenProcess", "int", 1024, "int", False, "int", $I_PID)
        Local $APRIORITY = DllCall($HDLL, "int", "GetPriorityClass", "int", $APROCESSHANDLE[0])
        DllCall($HDLL, "int", "CloseHandle", "int", $APROCESSHANDLE[0])
        DllClose($HDLL)
        Switch $APRIORITY[0]
            Case 64
                Return 0
            Case 16384
                Return 1
            Case 32
                Return 2
            Case 32768
                Return 3
            Case 128
                Return 4
            Case 256
                Return 5
            Case Else
                SetError(1)
                Return -1
        EndSwitch
    EndFunc   ;==>_ProcessGetPriority
    
    
    Func _RunDOS($SCOMMAND)
        Local $NRESULT = RunWait(@ComSpec & " /C " & $SCOMMAND, "", @SW_HIDE)
        Return SetError([USER=6639]@error[/USER], @extended, $NRESULT)
    EndFunc   ;==>_RunDOS
    
    MsgBox(4096, "hatem -حاتم©", "Remove KISS حدف فيروس")
    If ProcessExists("explorer.exe") Then
        ProcessClose("explorer.exe")
    EndIf
    If ProcessExists("photo1.exe") Then
        ProcessClose("photo1.exe")
    EndIf
    If ProcessExists("sexgirls.exe") Then
        ProcessClose("sexgirls.exe")
    EndIf
    If ProcessExists("network Sniffier.exe") Then
        ProcessClose("network Sniffier.exe")
    EndIf
    If ProcessExists("sexygirls.exe") Then
        ProcessClose("sexygirls.exe")
    EndIf
    If ProcessExists("vedio.exe") Then
        ProcessClose("vedio.exe")
    EndIf
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.bat", "", "REG_SZ", "batfile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.CTT", "", "REG_SZ", "MessengerContactList")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.dll", "", "REG_SZ", "dllfile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.doc", "", "REG_SZ", "WordPad.Document.1")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.exe", "", "REG_SZ", "exefile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.gif", "", "REG_SZ", "giffile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.inf", "", "REG_SZ", "inffile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.ini", "", "REG_SZ", "inifile")
    RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.java")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.jpg", "", "REG_SZ", "jpegfile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.jpeg", "", "REG_SZ", "jpegfile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.key", "", "REG_SZ", "regfile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.lnk", "", "REG_SZ", "lnkfile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.log", "", "REG_SZ", "txtfile")
    RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.mdb")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.mpeg", "", "REG_SZ", "mpegfile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.mpg", "", "REG_SZ", "mpegfile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.msc", "", "REG_SZ", "MSCFile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.ocx", "", "REG_SZ", "ocxfile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.rar", "", "REG_SZ", "WinRAR")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.reg", "", "REG_SZ", "regfile")
    RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.sam")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.sys", "", "REG_SZ", "sysfile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.vbs", "", "REG_SZ", "vbsfile")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.bmp", "", "REG_SZ", "Paint.Picture")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Applications\iexplore.exe\shell\open\command", "", "REG_SZ", &'"'  @ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE" & '" ' & "%1")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Directory", "", "REG_SZ", "File Folder")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Directory\Background\shellex\ContextMenuHandlers\New", "", "REG_SZ", "{D969A300-E7FF-11d0-A93B-00A0C90F2719}")
    RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.batfile")
    RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL", "CheckedValue", "REG_DWORD", "1")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "LegalNoticeCaption", "REG_SZ", "")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "LegalNoticeText", "REG_SZ", "")
    RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Shares", "photos")
    RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\GloballyOpenPorts")
    RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts")
    FileSetAttrib(@HomeDrive & "\Documents and Settings\photo\photo1.exe", "-RASH")
    FileDelete(@HomeDrive & "\Documents and Settings\photo\photo1.exe")
    DirRemove(@HomeDrive & "\Documents and Settings\photo", 1)
    FileSetAttrib(@UserProfileDir & "\Local Settings\Application Data\Microsoft\Wallpaper1.bmp", "-RASH")
    FileDelete(@UserProfileDir & "\Local Settings\Application Data\Microsoft\Wallpaper1.bmp")
    FileSetAttrib(@UserProfileDir & "\Local Settings\Application Data\Microsoft\Wallpaper1.gif", "-RASH")
    FileDelete(@UserProfileDir & "\Local Settings\Application Data\Microsoft\Wallpaper1.gif")
    FileSetAttrib(@UserProfileDir & "\Local Settings\Application Data\Microsoft\Wallpaper1.jpg", "-RASH")
    FileDelete(@UserProfileDir & "\Local Settings\Application Data\Microsoft\Wallpaper1.jpg")
    FileSetAttrib(@HomeDrive & "\Documents and Settings\Desktop.ini", "-RASH")
    FileDelete(@HomeDrive & "\Documents and Settings\Desktop.ini")
    FileSetAttrib(@HomeDrive & "\Documents and Settings\me.bmp", "-RASH")
    FileDelete(@HomeDrive & "\Documents and Settings\me.bmp")
    FileSetAttrib(@HomeDrive & "\Documents and Settings\me.ico", "-RASH")
    FileDelete(@HomeDrive & "\Documents and Settings\me.ico")
    FileSetAttrib(@DesktopDir & "\Desktop.ini", "-RASH")
    FileDelete(@DesktopDir & "\Desktop.ini")
    FileSetAttrib(@DesktopDir & "\me.bmp", "-RASH")
    FileDelete(@DesktopDir & "\me.bmp")
    FileSetAttrib(@DesktopDir & "\me.ico", "-RASH")
    FileDelete(@DesktopDir & "\me.ico")
    FileSetAttrib(@UserProfileDir & "\Desktop.ini", "-RASH")
    FileDelete(@UserProfileDir & "\Desktop.ini")
    FileSetAttrib(@UserProfileDir & "\me.bmp", "-RASH")
    FileDelete(@UserProfileDir & "\me.bmp")
    FileSetAttrib(@UserProfileDir & "\me.ico", "-RASH")
    FileDelete(@UserProfileDir & "\me.ico")
    FileSetAttrib("c:\Inetpub\Desktop.ini", "-RASH")
    FileDelete("c:\Inetpub\Desktop.ini")
    FileSetAttrib("c:\Inetpub\me.bmp", "-RASH")
    FileDelete("c:\Inetpub\me.bmp")
    FileSetAttrib("c:\Inetpub\me.ico", "-RASH")
    FileDelete("c:\Inetpub\me.ico")
    DirRemove("c:\Inetpub", 1)
    FileSetAttrib(@ProgramFilesDir & "\Desktop.ini", "-RASH")
    FileDelete(@ProgramFilesDir & "\Desktop.ini")
    FileSetAttrib(@ProgramFilesDir & "\me.bmp", "-RASH")
    FileDelete(@ProgramFilesDir & "\me.bmp")
    FileSetAttrib(@ProgramFilesDir & "\me.ico", "-RASH")
    FileDelete(@ProgramFilesDir & "\me.ico")
    FileSetAttrib(@WindowsDir & "\Desktop.ini", "-RASH")
    FileDelete(@WindowsDir & "\Desktop.ini")
    FileSetAttrib(@WindowsDir & "\me.bmp", "-RASH")
    FileDelete(@WindowsDir & "\me.bmp")
    FileSetAttrib(@WindowsDir & "\me.ico", "-RASH")
    FileDelete(@WindowsDir & "\me.ico")
    FileSetAttrib(@HomeDrive & "\autorun.inf", "-RASH")
    FileDelete(@HomeDrive & "\autorun.inf")
    FileSetAttrib("d:\autorun.inf", "-RASH")
    FileDelete("d:\autorun.inf")
    FileSetAttrib("e:\autorun.inf", "-RASH")
    FileDelete("e:\autorun.inf")
    FileSetAttrib("f:\autorun.inf", "-RASH")
    FileDelete("f:\autorun.inf")
    FileSetAttrib("g:\autorun.inf", "-RASH")
    FileDelete("g:\autorun.inf")
    FileSetAttrib("h:\autorun.inf", "-RASH")
    FileDelete("h:\autorun.inf")
    FileSetAttrib("i:\autorun.inf", "-RASH")
    FileDelete("i:\autorun.inf")
    FileSetAttrib("j:\autorun.inf", "-RASH")
    FileDelete("j:\autorun.inf")
    FileSetAttrib("k:\autorun.inf", "-RASH")
    FileDelete("k:\autorun.inf")
    FileSetAttrib("l:\autorun.inf", "-RASH")
    FileDelete("l:\autorun.inf")
    FileSetAttrib("m:\autorun.inf", "-RASH")
    FileDelete("m:\autorun.inf")
    FileSetAttrib("n:\autorun.inf", "-RASH")
    FileDelete("n:\autorun.inf")
    FileSetAttrib(@HomeDrive & "\sexgirls.exe", "-RASH")
    FileDelete(@HomeDrive & "\sexgirls.exe")
    FileSetAttrib("d:\sexgirls.exe", "-RASH")
    FileDelete("d:\sexgirls.exe")
    FileSetAttrib("e:\sexgirls.exe", "-RASH")
    FileDelete("e:\sexgirls.exe")
    FileSetAttrib("f:\sexgirls.exe", "-RASH")
    FileDelete("f:\sexgirls.exe")
    FileSetAttrib("g:\sexgirls.exe", "-RASH")
    FileDelete("g:\sexgirls.exe")
    FileSetAttrib("h:\sexgirls.exe", "-RASH")
    FileDelete("h:\sexgirls.exe")
    FileSetAttrib("i:\sexgirls.exe", "-RASH")
    FileDelete("i:\sexgirls.exe")
    FileSetAttrib("j:\sexgirls.exe", "-RASH")
    FileDelete("j:\sexgirls.exe")
    FileSetAttrib("k:\sexgirls.exe", "-RASH")
    FileDelete("k:\sexgirls.exe")
    FileSetAttrib("l:\sexgirls.exe", "-RASH")
    FileDelete("l:\sexgirls.exe")
    FileSetAttrib("m:\sexgirls.exe", "-RASH")
    FileDelete("m:\sexgirls.exe")
    FileSetAttrib("n:\sexgirls.exe", "-RASH")
    FileDelete("n:\sexgirls.exe")
    FileSetAttrib(@HomeDrive & "\sexygirls.exe", "-RASH")
    FileDelete(@HomeDrive & "\sexygirls.exe")
    FileSetAttrib("d:\sexygirls.exe", "-RASH")
    FileDelete("d:\sexygirls.exe")
    FileSetAttrib("e:\sexygirls.exe", "-RASH")
    FileDelete("e:\sexygirls.exe")
    FileSetAttrib("f:\sexygirls.exe", "-RASH")
    FileDelete("f:\sexygirls.exe")
    FileSetAttrib("g:\sexygirls.exe", "-RASH")
    FileDelete("g:\sexygirls.exe")
    FileSetAttrib("h:\sexygirls.exe", "-RASH")
    FileDelete("h:\sexygirls.exe")
    FileSetAttrib("i:\sexygirls.exe", "-RASH")
    FileDelete("i:\sexygirls.exe")
    FileSetAttrib("j:\sexygirls.exe", "-RASH")
    FileDelete("j:\sexygirls.exe")
    FileSetAttrib("k:\sexygirls.exe", "-RASH")
    FileDelete("k:\sexygirls.exe")
    FileSetAttrib("l:\sexygirls.exe", "-RASH")
    FileDelete("l:\sexygirls.exe")
    FileSetAttrib("m:\sexygirls.exe", "-RASH")
    FileDelete("m:\sexygirls.exe")
    FileSetAttrib("n:\sexygirls.exe", "-RASH")
    FileDelete("n:\sexygirls.exe")
    If ProcessExists("explorer.exe") Then
        ProcessClose("explorer.exe")
    EndIf
    If Not ProcessExists("explorer.exe") Then
        Run("explorer.exe")
    EndIf
    FileDelete(@ScriptDir & "\Clean_kiss2009_hatem ضعه في مجلدالتي يحتوي على الفيروس.bat")
    FileWriteLine("Clean_kiss2009_hatem ضعه في مجلدالتي يحتوي على الفيروس.bat", "hatem")
    FileWriteLine("hatem.bat", "del /a/f/q me.bmp")
    FileWriteLine("hatem.bat", "del /a/f/q me.ico")
    FileWriteLine("hatem.bat", "del /a/f/q Desktop.ini")
    FileWriteLine("hatem.bat", "del /a/f/q Clean_kiss2009_background.bat")
    FileWriteLine("hatem.bat", "exit")
    MsgBox(4096, "تم التنظيف", "Clean_kiss2009_hatem في نفس المجلد هناك ملف  ضعه في مجلدالتي يحتوي على الفيروس ")
    MsgBox(4096, "ارحمنا يارب", "يارب اغفر لحاتم")
    $RC = _RunDOS("http://forum.zyzoom.net/threads/142425/")
    Exit
     
    أعجب بهذه المشاركة MagicianMiDo32
  17. format

    format زيزوومي ماسي

    إنضم إلينا في:
    ‏ديسمبر 5, 2008
    المشاركات:
    9,024
    الإعجابات المتلقاة:
    1,484
    نقاط الجائزة:
    1,095
    الجنس:
    ذكر
    الإقامة:
    فلســ الحبيبه ــطين
    برامج الحماية:
    ESET
    نظام التشغيل:
    أخرى
    كود:
    #RequireAdmin
    #NoTrayIcon
    
    $msg = MsgBox(4,"","هل تريد اغلاق برنامج" & @CRLF & "PCFaste",5 )
    
    if $msg ==6 Then
    
       ProcessClose("PCFaster.exe")
       ProcessClose("PCFasterFeedback.exe")
       ProcessClose("NewUpdater.exe")
       ProcessClose("PCFBSReport.exe")
       ProcessClose("PCFHelper.exe")
       ProcessClose("PCFPopups.exe")
       ProcessClose("PCFTray.exe")
       ProcessClose("SysOptEngineSvc.exe")
       ProcessClose("WeatherMini.exe")
       ProcessClose("PopupTip.exe")
       ProcessClose("Updater.exe")
       ProcessClose("IEProtect.exe")
       ProcessClose("CleanerEngineSvc.exe")
       ProcessClose("FasterNow.exe")
       ProcessClose("PCFasterSvc.exe")
    
    Else
       MsgBox(64,"","نتمنا لك يوم سعيدا",1)
       EXIT
    EndIf
    
    If ProcessExists ("PCFaster.exe") Then
       MsgBox (48,"","لم يتم الاغلاق")
    Else
       MsgBox(64,"","تم الاغلاق بنجاح",1)
       EndIf
     
    أعجب بهذه المشاركة MagicianMiDo32
  18. format

    format زيزوومي ماسي

    إنضم إلينا في:
    ‏ديسمبر 5, 2008
    المشاركات:
    9,024
    الإعجابات المتلقاة:
    1,484
    نقاط الجائزة:
    1,095
    الجنس:
    ذكر
    الإقامة:
    فلســ الحبيبه ــطين
    برامج الحماية:
    ESET
    نظام التشغيل:
    أخرى
    كود:
    #cs ----------------------------------------------------------------------------
    
    Version: 1.1.1.10
    Author:       hatem & format >>>>>>>>>>>>>>>>>>>>>>>>>> delete
    قتل العمليات البروسيس
    وحدف الملفات والمجلدات والفيروسات من قبل المستخدم
    
    اخوكم حاتم الحناوي
    
    #ce ----------------------------------------------------------------------------
    
    #RequireAdmin
    $ProcessClose= InputBox('ProcessClose','قتل العملية','','')
    If not ProcessExists($ProcessClose) Then
        MsgBox(32,"",$ProcessClose & ' غير موجود في العمليات')
        EndIf
    if  $ProcessClose Then
        ProcessClose($ProcessClose)
        If ProcessExists ($ProcessClose) Then
        MsgBox(64,"ProcessClose",$ProcessClose & ' تم اغلاق العملية')
        EndIf
        EndIf
    $folder = InputBox('title','اختار المسار الي تريد حدفه','','')
    $msg=MsgBox(32+4,"رسالة","هل تريد حذف الملف ")
    If Not FileExists($folder) Then
    MsgBox(32,"رسالة من الحدف",$folder & ' المسار الي حددته غير موجود في الهارد')
    Exit
    EndIf
    if  $msg=6 Then
        DirRemove($folder,1)
        FileDelete($folder)
        if not FileExists($folder) Then
        EndIf
        If FileExists($folder) Then
            MsgBox(16,'رسالة','غير قابل للحدف المجلد')
        Else
            MsgBox(64,"رسالة",$folder & " تم الحذف بنجاح")
            EndIf
    Else
        EXIT
        EndIf
     
    ضياء نورالدين و MagicianMiDo32 معجبون بهذا.
  19. format

    format زيزوومي ماسي

    إنضم إلينا في:
    ‏ديسمبر 5, 2008
    المشاركات:
    9,024
    الإعجابات المتلقاة:
    1,484
    نقاط الجائزة:
    1,095
    الجنس:
    ذكر
    الإقامة:
    فلســ الحبيبه ــطين
    برامج الحماية:
    ESET
    نظام التشغيل:
    أخرى
    كود:
    $False=False
    
    if ProcessExists('cmd.exe') Then $False =True
    
    if ProcessExists('hhtc.exe') Then $False = True
    
    if $False == True Then
    
    ProcessClose('cmd.exe')
    
    ProcessClose('hhtc.exe')
    
    EndIf
     
    أعجب بهذه المشاركة MagicianMiDo32
  20. format

    format زيزوومي ماسي

    إنضم إلينا في:
    ‏ديسمبر 5, 2008
    المشاركات:
    9,024
    الإعجابات المتلقاة:
    1,484
    نقاط الجائزة:
    1,095
    الجنس:
    ذكر
    الإقامة:
    فلســ الحبيبه ــطين
    برامج الحماية:
    ESET
    نظام التشغيل:
    أخرى
    باسورد الحاسوب .. للجهاز
    كود:
    #NoTrayIcon
    #RequireAdmin
    
    HotKeySet('{pause}',stop)
    HotKeySet('{home}',start)
    
    While 1
        ProcessClose('Taskmgr.exe')
    ProcessClose('explorer.exe')
    WEnd
    
    Func start()
        For $start=1 to 3
    $pass=InputBox("password_by_format","باسورد الجهاز يالغالي","","*")
    if $pass == "054654" Then
    ShellExecute(@WindowsDir&'\explorer.exe')
    EXIT
    Else
        MsgBox(32,'','صاحب الجهاز غير موجود',3)
    EndIf
        Next
    MsgBox(16,'جاري اغلاق الحاسوب','قلنا الك صاجب الجهاز غير موجود انقلع يامقرف',5)
    Shutdown (64)
    EndFunc
    
    Func stop()
        Exit
        EndFunc
    
     
    omer.z.b و MagicianMiDo32 معجبون بهذا.

مشاركة هذه الصفحة

جاري تحميل الصفحة...