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

format · Jun 28, 2011

لقد تم باذن الله اليوم افتتاح المدونة الشخصية بشكل رسمي للعبد الضعيف

أخـــــوكــــــمـــ حاتم محسن الحناوي.
كلام شكر من أحد الاعضاء في القائمة المدونة

format · Jun 28, 2011

مشاركتي في المواضيع وبشكل متجدد راح يتم التعديل

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

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

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

******************************************************
صمم واجهة ( GUI ) لاداتك المبرمجة ب Autoit
******************************************************

format · Jun 28, 2011

مواضيعي احب الجميع يشوفها

"حصرياً" أفضل برنامج يقوم بتحويل صيغ الفيديوهات بدون تأثير على جودة
شرح طريقة حذف التطبيقات التي لا يمكن حذفها مباشرة
تثبيت الخطوط الويندز بشكل صامت ..
شرح تفعيل دكتر ويب اندرويد ل سنة 2020
تثبيت وتفعيل USB Safely Remove (صامت)
تثبيت وتفعيل TeraCopy_v.2.3_pro (صامت)
تثبيت وتفعيل winrar & 7-zip (صامت)
برامج الاسطوانات تثبيت وتفعيل UltraISO & PowerISO (صامت) آخر اصدارات
تثبيت وتفعيل Ccleaner (صامت) آخر آصدار
تثبيت وتفعيل BitTorrent & µTorrent(صامت)

format · Jul 1, 2011

مواضيع المفيدة الي احب أتابع اخبارها

شرح صمم واجهة ( GUI ) لاداتك المبرمجة ب Autoit

مدونة الشايب !!

format · Jul 30, 2015

الكود 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"

format · Oct 22, 2015

اداة لقتل العمليات التي لاتغلق .. كود مبرمج على الاوتيت
ملاحظة عند كتابة 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

format · Oct 22, 2015

للتطوير .. الاداة .. ومحبين الاوتيت ..........

الباسورد 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

format · Nov 1, 2015

كود:

#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

format · Nov 30, 2015

format · Nov 30, 2015

فراشي العناكب لزيزووم .. شعار زيزووم بفرشاة ..

للتحميل اضغط هنا

format · Dec 21, 2015

كود:

#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)

format · Dec 22, 2015

اداة التنظيف تلقائياً
الكود

كود:

#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

وسكربت أمامك
ملاحظة الي جرب الاداة ياراسلني ..

format · Dec 25, 2015

كود:

#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

format · Dec 25, 2015

كود:

#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,"","دعواتكم الصالحة اخوكم في الله \حاتم محسن الحناوي")

format · Dec 25, 2015

كود:

#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

format · Dec 25, 2015

كود:

#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

format · Dec 25, 2015

كود:

#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

format · Dec 27, 2015

كود:

#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

format · Mar 12, 2016

كود:

$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

format · Mar 13, 2016

باسورد الحاسوب .. للجهاز

كود:

#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

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

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

نعم

لا

زيزوومي ماسى

زيزوومي ماسى

زيزوومي ماسى

زيزوومي ماسى

زيزوومي ماسى

زيزوومي ماسى

زيزوومي ماسى

زيزوومي ماسى

زيزوومي ماسى

زيزوومي ماسى

زيزوومي ماسى

زيزوومي ماسى

زيزوومي ماسى

زيزوومي ماسى

زيزوومي ماسى

زيزوومي ماسى

زيزوومي ماسى

زيزوومي ماسى

زيزوومي ماسى

زيزوومي ماسى