1. Ghost RAT

    Ghost RAT مراقب عآم

    الأنتساب:
    ‏12 ابريل 2015
    المشاركات:
    487
    الإعجابات المتلقاة:
    167
    نقاط الجائزة:
    43
    الجنس:
    ذكر
    الإقامة:
    IRAQ
    [​IMG]
    ». الصلاة و السلام على أشرف المرسليـن .«

    ». الحمد لله وحده نحمده و نشكره و نستعينه و نستغفره و نعود بالله من شرور أنفسنا و من سيئات أعمالنا.«

    ». من يهده الله فلا مظل له و من يظلل فلن تجد له ولياً مرشدا .«

    ». وأشهد ألا إله إلا الله وحده لا شريك له و أن محمداً عبده و رسوله صلى الله عليه و سلم .«

    ». وعلى آله و صحبه أجمعين و من تبعهم بإحسان إلى يوم الدين .«

    ». ربنا لا علم لنا إلا ما علمتنا إنك أنت العليم الخبير .«

    ». ربنا لا فهم لنا إلا ما فهمتنا إنك أنت الجواد الكريم .«

    ». ربي اشرح لي صدري و يسر لي أمري و احلل عقدة من لساني يفقهوا قولي .«


    ». أما بعد .«

    ». فإن أصدق الحديث كتاب الله تعالى و خير الهدي هديُ سيدنا محمد صلى الله عليه و سلم .«

    ». وشر الأمور محدثاتها و كل محدثة بدعة و كل بدعة ضلالة و كل ضلالة في النار .«

    ». فاللهم أجرنا و قنا عذابها برحمتك يا أرحم الراحمين .«

    * بـَعـد السـَلامُ يـّحلوُ الكـّلام ، تـطـيـب الأنـفـس وترجتلَ لتعآنقَ ربآبَ المّطر ، *
    * وفي قلوبكُم تسُكن ، لتنجبَ أفرآحاً مُتخمةُ بالآمآل والإنبسآطُ *
    * مساءَ لكمُ قـد أرخىَ سدولهُ لىَ موآطنَ الرقصاتَ الإبدآعيةَ ،*

    [​IMG]
    كيف الحال شباب انشاء الله تمام الصحه والعافيه يارب
    حبيت اطرح لكم موضوع اليوم vb.net
    كود انشاء اختصار لبدء التشغيل بناء على طلب بعض الأعضاء
    طبعا ماحب اطول معاكم بلكلام

    اتركل كم كود
    كود:
    Public Sub MOTAZCHANGE()
            On Error Resume Next
            Dim محمد As Object = CreateObject("WScript.S h ell")
    
            محمد = CreateObject("WScript.S h ell")
    
            Dim الاختصار, التثبيت
    
            التثبيت = محمد.SpecialFolders("Startup")
    
            الاختصار = محمد.CreateShortcut(التثبيت & "\motaz.lnk")
            'التثبيت
            الاختصار.TargetPath = محمد.ExpandEnvironmentStrings("C:\motaz.exe") 'تشغيل من
    
            الاختصار.WorkingDirectory = محمد.ExpandEnvironmentStrings("C:\") ' نسخ الاختصار الى
    
            الاختصار.WindowStyle = 4
    
            الاختصار.IconLocation = "%SystemRoot%\system32\S H ELL32.dll,88" 'هنا غير اي رقم على حسب الايقونه انا عامل ايقونه الشبكه رقمها 88
    
            الاختصار.Save()
    [​IMG]

    الى هنااا شباب انتهى الموضوع
    وانشاء الله يعجبكم موضوع
    في امان الله
     
    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  2. Blackbeard

    Blackbeard DeveloPer Plus

    الأنتساب:
    ‏26 أغسطس 2015
    المشاركات:
    266
    الإعجابات المتلقاة:
    185
    نقاط الجائزة:
    43
    الجنس:
    ذكر
    خوية محمد المن يستخدم الكود ؟
    اقصد لبرنامج انته مسويه او للتلغيم
     
  3. nani49

    nani49 Developer

    الأنتساب:
    ‏29 سبتمبر 2014
    المشاركات:
    24
    الإعجابات المتلقاة:
    5
    نقاط الجائزة:
    3
    مشكور لكن معظم الاكواد في الموقع من سورس الانجي رات في الحقيقة الا الاكواد التي ينشؤها الاخ سكريم على العموم مشكور اخي
     

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