08:57 PM

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


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

أين وصلت يابطل ..
هل اخترت الباتش ؟
ارفعه في ردك القادم ..
ايضا ارسل الي كود سورس على الخاص ..
الي انت كتبته ..
ل اعيد صياغته قليلا ..
ارجو المساعدة اخي في باتش المخفي 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 
موفق يالغالي
جزاك الله كل خير

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

أدوات الموضوع

المواضيع المشابهه
الموضوع
مساعد اخواني AutoIt v3
مساعدة في برنامج AutoIt
wim filter مساعدة اخواني