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

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

  • نعم

    الأصوات: 1 100.0%

  • لا

    الأصوات: 0 0.0%
  • مجموع المصوتين
    1
  • الاستطلاع مغلق .
السلام عليكم ورحمة الله وبركاته
اليوم الاداة من صنعي مبرمجة عن طريق الاوتيت سكربت يقوم بتثبيت صامت لكافة اصدارة الفايرفوكس
الاداة يجب انت تكون بنفس المجلد الفايرفوكس

الكود البرمجي للتطوير والاستفادة منه
PHP: 
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Firefox.ico
#AutoIt3Wrapper_Res_Comment=م.حاتم محسن الحناوي
#AutoIt3Wrapper_Res_Description=اداة التثبيت صامت لكل البرامج الفايرفوكس
#AutoIt3Wrapper_Res_LegalCopyright=حاتم محسن الحناوي
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
$inpu=InputBox('اداة التثبيت صامت لبرنامج الفايرفوكس لجميع الاصدارات','ادخل اسم الملف استاب الفايرفوكس','','')
if $inpu Then
    RunWait($inpu&".exe"&" -ms")
MsgBox(64,'المبرمج حاتم محسن الحناوي','تم الانتهاء من التثبيت البرنامج الفايرفوكس',2)
Exit
Else
    MsgBox(16,'رسالة من المبرمج حاتم محسن الحناوي','ادخل اسم الملف التثبيت الصامت')
EndIf
 

التعديل الأخير:
توقيع : format
كود: 
Example()

Func Example()
    ProgressOn("Internet Download Manager", 'جاري اغلاق العملية', "0%")
    $cc='IDMan.exe'
if ProcessExists($cc) Then
    ProcessWaitClose($cc)
    EndIf

;جاري تفعيل البرنامج
    For $i = 10 To 100 Step 10
        Sleep(500)
        ProgressSet($i, $i & "%")
    Next
    ProgressOff()
EndFunc
 
توقيع : format
اللهم اني عبدك ابن عبدك ناصيتي بيدك اسألك بكل اسم هو لك انت تغفر ل صاحبي .. ثامر الحمد وان ترزقه جناتك ..
اللهم انك عفوا كريم عفو تحب العفو .. فا اعفو عن صاحبي ثامر الحمد ..
http://forum.zyzoom.net/threads/204716/
 
توقيع : format
مرحباً جميعا اليوم راح اطرح اشياء مميزة .. بحب اشارك كل متابعيني ..
على المدونة زيزووم ..
طرح راح ينقسم الى قسمين !
قسم الاول هو كيف تثبيت صامت للانترنت دولاند منجر "Internet Download Manager" بكود من صنع اخوكم حاتم محسن الحناوي ..
وراح اطرح قسم القسم الثاني كود تفعيل مع الكراك ..
وطرح الثالث هو تولبر .. ليس له اي اكواد الي يهمنا اول قسمين ! ..
البرنامج / تقوم بتحميل من هنا .. IDM
الكود الاول
هو ان تضع البرنامج مع السورس بنفس المكان وتغيير اسمه الى IDM

كود: 
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=icon\IDM.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Process.au3>
;;هنا غير الاسم الى اسم البرنامج الموجود
;يشترط ان يكون البرنامج مع نفس موقع السكربت

$IDM='IDM.exe'
RegWrite('HKCU\Software\DownloadManager', 'LanguageID','REG_DWORD',Number('9'))
if ProcessExists("IDMan.exe") and ProcessExists ("IEMonitor.exe") Then
 ProcessClose("IDMan.exe")
        ProcessClose("IEMonitor.exe")
EndIf
If FileExists(@ProgramFilesDir & "\" & "Internet Download Manager") Then
DirRemove(@ProgramFilesDir & "\" & "Internet Download Manager",1)
EndIf
If FileExists(@ProgramFilesDir & "\" & "Internet Download Manager\IDMan.exe") Then
    $msg=MsgBox(4+64,'هل ترغب في الغاء النسخة الحالية ل تثبيت النسخة الجديدة',9)
    if $msg=6 Then
        ProcessClose("IDMan.exe")
        ProcessClose("IEMonitor.exe")
MsgBox(48,'رسالة من المبرمج','قم بالغاء تثبيت البرنامج'&@CRLF&'Internet Download Manager',3)
_RunDos('C:\Windows\System32\rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,0')
EXIT
    ElseIf $msg=7 Then
EXIT
EndIf
EndIf
_IDM()
Func _IDM()
ShellExecuteWait(@ScriptDir&'\'&$IDM)
BlockInput(1)
WinWaitActive('[CLASS:#32770]')
WinWaitActive('Internet Download Manager Installation Wizard')
ControlClick('Internet Download Manager Installation Wizard','&Next >',1008)
WinWaitActive('[CLASS:#32770]')
WinWaitActive('Please read IDM license')
ControlClick('Please read IDM license','',1063)
ControlClick('Please read IDM license','&Next >',1008)
WinWaitActive('[CLASS:#32770]')
WinWaitActive('Choose Destination Location')
ControlClick('Choose Destination Location','&Next >',1008)
WinWaitActive('[CLASS:#32770]')
WinWaitActive('Start Installation of Internet Download Manager')
ControlClick('Start Installation of Internet Download Manager','&Next >',1008)
WinWaitActive('[CLASS:#32770]')
WinWaitActive('Installation Complete')
ControlClick('Installation Complete','&Finish >',1009)
ProcessWait('IDMan.exe')
ProcessClose("IDMan.exe")
ProcessClose("IEMonitor.exe")
RegWrite('HKCU\Software\DownloadManager', 'LanguageID','REG_DWORD',Number('1'))
BlockInput(0)
EndFunc

القسم الثاني وهو الكود الدمج مع الكراك .. وتفعيله بالرجستري

هاهو هنا جاهز للتحميل

كود: 
#RequireAdmin

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=IDM.ico
#AutoIt3Wrapper_Res_Comment=by HaTeM MoHsEn HeNawi
#AutoIt3Wrapper_Res_Description=crack IDM Version: 6.26 v3
#AutoIt3Wrapper_Res_Fileversion=3.4.1.1
#AutoIt3Wrapper_Res_LegalCopyright=by HaTeM MoHsEn HiNawi
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Region
#EndRegion
#Region
#EndRegion
If NOT FileExists(@ProgramFilesDir & "\" & "Internet Download Manager") Then
    MsgBox(16, "IDM", "قم بتثبيت البرنامج" & @CRLF & "Internet Download Manager", 3)
    Exit
EndIf

_key()

Func _key()
    $processexists = ProcessExists("IDMan.exe")
    $processexists2= ProcessExists("IEMonitor.exe")
    If $processexists Or $processexists2 Then
        ProcessClose("IDMan.exe")
        ProcessClose("IEMonitor.exe")
        MsgBox(48, "IDM", "أعتذر منك تم اغلاق للتفعيل" & @CRLF & "Internet Download Manager", 2)
    EndIf
    FileInstall("IDMan.exe", @ProgramFilesDir & "\" & "Internet Download Manager\IDMan.exe", 1)
    RegWrite("HKLM\SOFTWARE\Internet Download Manager", "AdvIntDriverEnabled2", "REG_DWORD", Number("1"))
    RegWrite("HKLM\SOFTWARE\Internet Download Manager", "FName", "REG_SZ", "Hatem")
    RegWrite("HKLM\SOFTWARE\Internet Download Manager", "Serial", "REG_SZ", "HE3TB-8J3SY-FP9SC-6RKR2")
    RegWrite("HKLM\SOFTWARE\Internet Download Manager", "LName", "REG_SZ", "")
    RegWrite("HKLM\SOFTWARE\Internet Download Manager", "Email", "REG_SZ", "saeed@absba.com")
    MsgBox(64, "اخوكم حاتم محسن الحناوي", "تم تفعيل البرنامج" & @CRLF & "Internet Download Manager", 2)

EndFunc


القسم الثالث

التولبر للتحميل
 
توقيع : format
دالة التحقق من الويندز اي اصدار
كود: 
If @OSVersion = "WIN_7" Then MsgBox(64, "Info", "You are at windows 7 !!")
If @OSVersion = "WIN_VISTA" Then MsgBox(64, "Info", "You are at windows vista !!")
If @OSVersion = "WIN_XP" Then MsgBox(64, "Info", "You are at windows XP !!")
If @OSVersion = "WIN_7" Or @OSVersion = "WIN_VISTA" Then MsgBox(64, "Info", "You are at windows 7 or windows vista !!")
if @OSVersion = 'WIN_10' Then MsgBox(64, "Info", "You are at windows 10 !!")
If @OSVersion = "WIN_8" Then MsgBox(64, "Info", "You are at windows 8 !!")

تحقق نواة الويندز 64 ام 32 (86)

كود: 
If @OSArch = "X86" Then
MsgBox(0,'','x86')
EndIf

If @OSArch = "X64" Then
MsgBox(64,'','x64')
EndIf




كيف نقوم بتشغيل البرامج .. الي تحتاج نواة 86 ام 64

وندمجه في برامجنا .. او في نفس المكان التشغيل المطلوب ..
PHP: 
#cs ----------------------------------------


 Author:         حاتم محسن الحناوي

 Script Function:
    Program_silent

#ce ----------------------------------------

#RequireAdmin
#NoTrayIcon

$Program_silentX86='اكتب هنا اسم البرنامج مع الامتداد'

If @OSArch = "X86" Then
Run(@ScriptDir&$Program_silentX86)
EndIf

$Program_silentX64='اكتب هنا اسم البرنامج مع الامتداد'

If @OSArch = "X64" Then
Run(@ScriptDir&$$Program_silentX64)
EndIf


ملاحظة: توضع الاداة بنفس المكان البرنامج الي انت تريد تثبيته صامت
 
التعديل الأخير:
توقيع : format
ضربة القاضية على الفيروس شور كت الاختصارات ..
مع برمجة تخلص من هذا الفيروس المزعج ..
PHP: 
#RequireAdmin
#include <Process.au3>

If ProcessExists("Wscript.exe") Then
    MsgBox(0, "", "")
    ProcessClose("Wscript.exe")
EndIf
$file = FileSelectFolder("قم بتحديد القرص المصاب  | Select DISK", "")
If FileExists($file) Then
    _rundos("attrib -h " & $file & "*.*" & " /S /D")
    FileDelete($file & "desktop.ini")
    FileDelete($file & "lpk.dll")
    FileDelete($file & "Ravmon.exe")
    FileDelete($file & "svchost.exe")
    FileDelete($file & "New Folder.exe")
    FileDelete($file & "Heap41a")
    FileDelete($file & "! My Picutre.SCR")
    DirRemove($file & "$RECYCLE.BIN")
    DirRemove($file & "System Volume Information")
    FileDelete(@StartupDir & "\*.vbs")
    FileDelete(@TempDir & "\*.vbs")
    FileDelete(@AppDataDir & "\*.vbs")
    FileDelete(@StartupDir & "\*.vbe")
    FileDelete(@TempDir & "\*.vbe")
    FileDelete(@AppDataDir & "\*.vbe")
    _rundos("del /s /q /f /a " & $file & "*.vbe")
    _rundos("del /s /q /f /a " & $file & "*.lnk")
    _rundos("del /s /q /f /a " & $file & "*.vbs")
    _rundos("del /s /q /f /a " & $file & "*.scr")
    _rundos("del /s /q /f /a " & $file & "*.com")
    MsgBox(64, "رسالة من  البرنامج", "تم تنظيف الفلاشة من مشاكل الفيروس", 2)
EndIf
 
التعديل الأخير:
توقيع : format
تفعيل دكتر ويب سيكورتي
الشرح سريعا .. اولا قم

تحميل البرنامج هنا
ثم قم بتنصيب البرنامج بشكل عادي

ثم ملف التفعيل من هنا
بتحميل الملف من هنا

ثم قم بنسخ الملف الي حملته من مكانه الى ذاكرة الجهاز ثم بترتيب
اذهب الى
Android
com.drweb
files
ثم لصق
تابع شرح بالفيديو
..
 
توقيع : format
المجلدات الفرعية وكامل القرص حتى
xcopy /y /e "1" "2"
اما بس اشي معين
xcopy /y "1" "2"

او
copy /y /v "1" "2"

cmd
help
powershell
cmd
 
توقيع : format
PHP: 
#RequireAdmin
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.14.2
 Author:        Hatem Mohsen ALHENAWY

 Script Function:
    Password 7z SFX Builder silent

#ce ----------------------------------------------------------------------------
$file_silent='هنا ضع اسم الملف'
$password='هنا ضع الباسورد الملف'
;------------------------------------------------------------------------------
ShellExecute(@ScriptDir&'\'&$file_silent)
WinWaitActive('[Class:#32770]','')
ControlClick('[Class:Edit]','',1206,'left',1)
send($password)
send('{ENTER}')
EXIT
 
توقيع : format
PHP: 
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.14.2
 Author:        Hatem Mohsen ALHENAWY

 Script Function:
    Check which version of Windows
التحقق من الويندز اي أصدار
#ce ----------------------------------------------------------------------------


If @OSVersion = "WIN_XP" Then MsgBox(64, "", "windows XP")
If @OSVersion = "WIN_VISTA" Then MsgBox(64, "", "windows vista")
If @OSVersion = "WIN_7" Then
    if @OSArch = "X86" Then
        MsgBox(64,'','windows 7X86')
    Else
        MsgBox(64,'','windows 7X64')
EndIf
EndIf
If @OSVersion = "WIN_8" Then
    if @OSArch = "X86" Then
        MsgBox(64,'','windows 8X86')
    Else
        MsgBox(64,'','windows 8X64')
EndIf
EndIf
If @OSVersion = "WIN_10" Then
    if @OSArch = "X86" Then
        MsgBox(64,'','windows 10X86')
    Else
        MsgBox(64,'','windows 10X64')
EndIf
EndIf
 
التعديل الأخير:
توقيع : format
PHP: 
@echo off
title The default settings of hosts
mode 70,15
::by hatem
>  "%windir%\System32\drivers\etc\hosts" echo # Copyright (c) 1993-2009 Microsoft Corp.
>> "%windir%\System32\drivers\etc\hosts" echo #
>> "%windir%\System32\drivers\etc\hosts" echo # This is a sample HOSTS file used by Microsoft TCP/IP for Windows.
>> "%windir%\System32\drivers\etc\hosts" echo #
>> "%windir%\System32\drivers\etc\hosts" echo # This file contains the mappings of IP addresses to host names. Each
>> "%windir%\System32\drivers\etc\hosts" echo # entry should be kept on an individual line. The IP address should
>> "%windir%\System32\drivers\etc\hosts" echo # be placed in the first column followed by the corresponding host name.
>> "%windir%\System32\drivers\etc\hosts" echo # The IP address and the host name should be separated by at least one
>> "%windir%\System32\drivers\etc\hosts" echo # space.
>> "%windir%\System32\drivers\etc\hosts" echo #
>> "%windir%\System32\drivers\etc\hosts" echo # Additionally, comments (such as these) may be inserted on individual
>> "%windir%\System32\drivers\etc\hosts" echo # lines or following the machine name denoted by a '#' symbol.
>> "%windir%\System32\drivers\etc\hosts" echo #
>> "%windir%\System32\drivers\etc\hosts" echo # For example:
>> "%windir%\System32\drivers\etc\hosts" echo #
>> "%windir%\System32\drivers\etc\hosts" echo #      102.54.94.97     rhino.acme.com          # source server
>> "%windir%\System32\drivers\etc\hosts" echo #       38.25.63.10     x.acme.com              # x client host
>> "%windir%\System32\drivers\etc\hosts" echo.
>> "%windir%\System32\drivers\etc\hosts" echo # localhost name resolution is handle within DNS itself.
>> "%windir%\System32\drivers\etc\hosts" echo #       127.0.0.1       localhost
>> "%windir%\System32\drivers\etc\hosts" echo #       ::1             localhost
 
توقيع : format
PHP: 
:start1
@echo off
title by_¥ں¢ê ꥫë ںé¥ëںيï_The killing of computer
MODE 70,13
color 3b
::ل ظهور في شاشة الدوس والاختيار المناسب
echo 1.Kill proces all
echo 2.Audios
echo 3.firefox+chrome+iexplore
echo 4.IDM+Torrent
echo 5.PC
echo 6.wifi
echo 7.vm
echo 9.EXIT
::عمليات القتل باختيار الامر جوتو
set /p "hatem="
if %hatem%==1 goto Kill proces all
if %hatem%==2 goto Audios
if %hatem%==3 goto explorer
if %hatem%==4 goto IDM
if $hatem%==5 goto PC
if %hatem%==6 goto wifi
if %hatem%==7 goto vm
if %hatem%==9 goto EXIT
goto start1 :: وضعت هذا هنا حتى لو اعطيت رقم خاطئ لايقوم بعملية القتل البرامج
:Kill proces all :: للجميع برامجك هنا قم بعملية اغلاقها مرة واحدة
color 4f
taskkill /f /im "mpc-hc64.exe" /t
taskkill /f /im "PotPlayerMini64.exe" /t
taskkill /f /im "PotPlayerMini.exe" /t
taskkill /f /im "QQPlayer.exe" /t
taskkill /f /im "KMPlayer.exe" /t
taskkill /f /im "Photoshop.exe" /t
taskkill /f /im "PartitionWizard.exe" /t
taskkill /f /im "uTorrent.exe" /t
taskkill /f /im "IDMan.exe"  /t
taskkill /f /im "iexplore.exe"  /t
taskkill /f /im "chrome.exe" /t
taskkill /f /im "firefox.exe"  /t
taskkill /f /im "epm0.exe"  /t
taskkill /f /im "Main.exe" /t
taskkill /f /im "vmplayer.exe" /t
taskkill /f /im "4kvideodownloader.exe" /t
taskkill /f /im "mshta.exe" /t
taskkill /f /im "DriverPack.exe" /t
taskkill /f /im "notepad.exe" /t
taskkill /f /im "AutoPlayDesign.exe" /t
taskkill /f /im "PartitionWizard.exe" /t
taskkill /f /im vmplayer.exe /t
taskkill /f /im vmware-unity-helper.exe /t
taskkill /f /im vmware-vmx.exe  /t
goto start1
:Audios :: صوتيات
color 4f
taskkill /f /im "QQPlayer.exe" /t
taskkill /f /im "PotPlayerMini64.exe" /t
taskkill /f /im "PotPlayerMini.exe" /t
taskkill /f /im "KMPlayer.exe" /t
taskkill /f /im "mpc-hc64.exe" /t
goto start1
:explorer ::المتصفحات
color 4f
taskkill /f /im "iexplore.exe" /t
taskkill /f /im "chrome.exe" /T
taskkill /f /im "firefox.exe" /t
goto start1
:PC ::الحاسوب الخاص
color 4f
taskkill /f /im "epm0.exe" /t
taskkill /f /im "Main.exe" /t
taskkill /f /im "vmplayer.exe" /t
taskkill /f /im "4kvideodownloader.exe" /t
taskkill /f /im "mshta.exe" /t
taskkill /f /im "DriverPack.exe" /t
taskkill /f /im "notepad.exe" /t
taskkill /f /im "AutoPlayDesign.exe" /t
taskkill /f /im "PartitionWizard.exe" /t
goto start1

:wifi :: قتل برنامج الواي فاي
color 4f
taskkill /f /im "OSTotoHotspot.exe" /t
goto start1
:IDM :: قتل عمليات التحميل
color 4f
taskkill /f /im "uTorrent.exe"
taskkill /f /im "IDMan.exe"
taskkill /f /im "IEMonitor.exe"
goto start1
:vm :: VMware قتل
color 4f
taskkill /f /im vmplayer.exe /t
taskkill /f /im vmware-unity-helper.exe /t
taskkill /f /im vmware-vmx.exe  /t
goto start1
:EXIT :: زر الخروج
msg * ¢ê ںنéںç ںé ©ںê¤ by_¥ں¢ê ꥫë ںé¥ëںيï
EXIT
 
التعديل الأخير:
توقيع : format
البعض قد يسأل في المستقبل كيف تم وفعل وتفعيل
تثبيت الصامت مع التفعيل BandiCam V3.4.4.1264 silent
وكيف جعلته تلقائيا التفعيل .. التثبيت صامت هو امر بسيط في هو اني اعرفت اسوتش البرنامج /S

تمام بنسبة ل الكراك ماذا فعلت انا ..
قمت بكتابة كود على برنامج الاوتيت سكربت ..

الكود الجاهز

PHP: 
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=xxxxxxxxxxx.ico
#AutoIt3Wrapper_Res_Comment=hatem&format
#AutoIt3Wrapper_Res_Description=Bandicam
#AutoIt3Wrapper_Res_Fileversion=3.4.4.1264
#AutoIt3Wrapper_Res_LegalCopyright=hatem&format
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Region
#EndRegion

If NOT FileExists(@ProgramFilesDir & "\" & "Bandicam") Then
        MsgBox(16, "رسالة من المبرمج حاتم الحناوي", "يجب تثبيت البرنامج اولاً", 2)
        Exit
EndIf

_hatem()
Func _hatem()
    If NOT FileExists(@ProgramFilesDir & "\" & "Bandicam" & "\bdcam.exe") Then Sleep(2000)
    ShellExecute(@ProgramFilesDir & "\" & "Bandicam" & "\bdcam.exe")
    WinWaitActive("Bandicam", "")
    If ProcessExists("bdcam.exe") Then ProcessClose("bdcam.exe")
    FileInstall("keymaker.exe", @ProgramFilesDir & "\" & "Bandicam" & "\keymaker.exe", 1)
    ShellExecute(@ProgramFilesDir & "\" & "Bandicam" & "\keymaker.exe")
    WinWaitActive("Bandicam v2.1.2.740", "", 30)
    ControlClick("Bandicam v2.1.2.740", "", 100, "", 1)
    Sleep(500)
    Send("format-hatem@gmail.com")
    Sleep(500)
    ControlClick("Bandicam v2.1.2.740", "", 200, "", 1)
    Sleep(200)
    WinWaitActive("", "Bandicam registered successfully!", 30)
    Send("{enter}")
    Sleep(500)
    ControlClick("Bandicam v2.1.2.740", "", 2, "", 1)
    If ProcessExists("keymaker.exe") Then ProcessClose("keymaker.exe")
    FileDelete(@ProgramFilesDir & "\" & "Bandicam" & "\keymaker.exe")
    Exit
EndFunc


ل تحميل الباتش مع التفعيل جاهز صنع من هنا


هذا وفقكم الله
 
التعديل الأخير:
توقيع : format
يجب تسجيل الدخول أو التسجيل كي تتمكن من الرد هنا.
عودة
أعلى