X

كيف تم عمل BandiCam آخر اصدار تثبيت صامت ! مع التفعيل !

Silent and Portable Workshop

 
  • Filter
  • Time
  • Show
Clear All
new posts
  • Format
    Thread Author
    مشرف منتدى الصامت والمحمول
    • Nov 2018 
    • 47 
    • 215 



    كيف تم عمل BandiCam آخر اصدار تثبيت صامت ! مع التفعيل !



    *

    وكيف جعلته تلقائيا التفعيل .. التثبيت صامت هو امر بسيط في هو اني اعرفت اسوتش البرنامج /S

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

    الكود الجاهز

    PHP Code:
    #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("[email protected]")
        
    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 
    للتحميل الملف جاهز صنع من هنا
    *

    *


    هذا وفقكم الله .. هذا العمل لله وحده خالصاً لوجهه الكريم



    ..\\ وهنا انتهى موضوعنا لهذه اليوم وقد تكون هناك مواضيع اخرى لهذا اليوم \\..
    ..\\ وكل ما اتمناه منكم هو الدعاء لي ولوالدي بالرحمة والمغفره \\..
    ..\\ ودعوة في ظهر الغيب لن تتعبكم ولن تكلفكم كثيرا \\..
    ..\\ وفي اخير تحياتي واحترامي لكم يا اغلى الناس \\..
    ..\\ وكان معكم حاتم محسن الحناوي \\..

    Attached Files
Working...
X