1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
الكاتب : .:: RSS ::. | المشاهدات : 1,318 | الردود : 0
حالة الموضوع:
مغلق
  1. .:: RSS ::.

    .:: RSS ::. عضوية آلية

    الأنتساب:
    ‏9 سبتمبر 2011
    المشاركات:
    14,005
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    36
    الإقامة:
    IQ-T34M
    [​IMG]

    [​IMG]

    [​IMG]

    ندخل مباشرة في الموضوع

    اليوم احضرت لكم بعض الاكواد المساعدة في عمل برنامج اختراق

    [​IMG]

    فتح قارئ الاقراص

    كود:
    mciSendString('Set cdaudio door open wait', nil, 0, handle) ;

    غلق قارئ الاقراص

    كود:
    mciSendString('Set cdaudio door closed wait', nil, 0, handle) ;

    اخفاء الماوس

    كود:
    ShowCursor(False);
    اظهار الماوس

    كود:
    ShowCursor(True);
    تعطيل زر إغلاق
    كود:
    var
    Flag: UINT;
    AppSysMenu: THandle;
    begin
    AppSysMenu:=GetSystemMenu(Handle,False);
    Flag:=MF_GRAYED;
    EnableMenuItem(AppSysMenu,SC_CLOSE,MF_BYCOMMAND or Flag);
    تعطيل ALT+F4

    كود:
    if (Key = VK_F4) and (ssAlt in Shift) then Key := 0;
    Change Computer Name:
    function SetComputerName(AComputerName: string): Boolean;
    var
    ComputerName: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
    Size: Cardinal;
    begin
    StrPCopy(ComputerName, AComputerName);
    Result := Windows.SetComputerName(ComputerName);
    end;
    مبادلة أزرار الماوس

    كود:
    procedure SwapMouseButtons(bValue: Boolean);
    begin
    if bValue then
    SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 1, nil, 0)
    else
    SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, nil, 0);
    end;
    إخفاء ايقونات سطح المكتب

    كود:
    ShowWindow(FindWindow(nil, 'Program Manager'), SW_HIDE);
    Show Desktop Icons:
    ShowWindow(FindWindow(nil, 'Program Manager'), SW_SHOW);
    Disable Task Manager
    procedure DisableTaskMgr(bTF: Boolean);
    var
    reg: TRegistry;
    begin
    reg := TRegistry.Create;
    reg.RootKey := HKEY_CURRENT_USER;

    reg.OpenKey('Software', True);
    reg.OpenKey('Microsoft', True);
    reg.OpenKey('Windows', True);
    reg.OpenKey('CurrentVersion', True);
    reg.OpenKey('Policies', True);
    reg.OpenKey('System', True);

    if bTF = True then
    begin
    reg.WriteString('DisableTaskMgr', '1');
    end
    else if bTF = False then
    begin
    reg.DeleteValue('DisableTaskMgr');
    end;
    reg.CloseKey;
    end;
    [​IMG]

    [​IMG]


     
حالة الموضوع:
مغلق

مشاركة هذه الصفحة