ورشة عمل الصامت والمحمول : دروس وشروحات عمل البرامج الصامتة والمحمولة

مساعدة اخواني في AutoIt


أين وصلت يابطل ..
هل اخترت الباتش ؟
ارفعه في ردك القادم ..
ايضا ارسل الي كود سورس على الخاص ..
الي انت كتبته ..
ل اعيد صياغته قليلا ..



لدعم قناة وسام الحمد على اليوتيوب



أين وصلت يابطل ..
هل اخترت الباتش ؟
ارفعه في ردك القادم ..
ايضا ارسل الي كود سورس على الخاص ..
الي انت كتبته ..
ل اعيد صياغته قليلا ..
ارجو المساعدة اخي في باتش المخفي 2000 IDM 6 No Update معرفتش ارسلك الكود سورس علي الخاص بيجلي رسالة اداريه


اكتب الكود هنا


كود PHP:
#RequireAdmin

Run(@ProgramFilesDir "\Internet Download Manager\IDM 6 No Update.exe")
WinWaitActive('[CLASS:TFORMGUIPATCHER]')
ControlClick("[CLASS:TFORMGUIPATCHER]",'Patch',5,'left',1
WinWaitActive
('[CLASS:TFORMGUIPATCHER]')
ControlClick("[CLASS:TFORMGUIPATCHER]",'Exit',7,'left',1


كود PHP:
#RequireAdmin

Run(@ProgramFilesDir "\Internet Download Manager\IDM 6 No Update.exe")
WinWaitActive('[CLASS:TFORMGUIPATCHER]')
ControlClick("[CLASS:TFORMGUIPATCHER]",'Patch',5,'left',1
WinWaitActive
('[CLASS:TFORMGUIPATCHER]')
ControlClick("[CLASS:TFORMGUIPATCHER]",'Exit',7,'left',1

كود PHP:
#RequireAdmin
FileCopy(@ScriptDir "\" & "IDM_6_No_Update.exe", @ProgramFilesDir & "\" & "Internet Download Manager\IDM_6_No_Update.exe", 1)
Sleep(1000)
if FileExists(@ProgramFilesDir & "
\" & "Internet Download Manager\IDM_6_No_Update.exe") Then _No_Updat()
Func _No_Updat()
        If ProcessExists("
IDMan.exe") or ProcessExists("IEMonitor.exe") Then
        ProcessClose("
IDMan.exe")
        ProcessClose("
IEMonitor.exe")
    EndIf
    ShellExecute(@ProgramFilesDir & "
\" & "Internet Download Manager\IDM_6_No_Update.exe")
    WinActivate('Patch No Update','Patch')
    Sleep(500)
    ControlClick('Patch No Update','Patch',5)
    Sleep(3000)
    WinActivate('Patch No Update','Exit')
    ControlClick('Patch No Update','Exit',7)
    ProcessClose("
IDM_6_No_Update.exe")
EndFunc 
موفق يالغالي


كود PHP:
#RequireAdmin
FileCopy(@ScriptDir "\" & "IDM_6_No_Update.exe", @ProgramFilesDir & "\" & "Internet Download Manager\IDM_6_No_Update.exe", 1)
Sleep(1000)
if FileExists(@ProgramFilesDir & "
\" & "Internet Download Manager\IDM_6_No_Update.exe") Then _No_Updat()
Func _No_Updat()
        If ProcessExists("
IDMan.exe") or ProcessExists("IEMonitor.exe") Then
        ProcessClose("
IDMan.exe")
        ProcessClose("
IEMonitor.exe")
    EndIf
    ShellExecute(@ProgramFilesDir & "
\" & "Internet Download Manager\IDM_6_No_Update.exe")
    WinActivate('Patch No Update','Patch')
    Sleep(500)
    ControlClick('Patch No Update','Patch',5)
    Sleep(3000)
    WinActivate('Patch No Update','Exit')
    ControlClick('Patch No Update','Exit',7)
    ProcessClose("
IDM_6_No_Update.exe")
EndFunc 
موفق يالغالي
جزاك الله كل خير