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

    الأنتساب:
    ‏12 ابريل 2015
    المشاركات:
    578
    الإعجابات المتلقاة:
    465
    نقاط الجائزة:
    515
    الجنس:
    ذكر
    الإقامة:
    IRAQ
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    [​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 ExpErt DeveloPer

    الأنتساب:
    ‏26 أغسطس 2015
    المشاركات:
    286
    الإعجابات المتلقاة:
    200
    نقاط الجائزة:
    405
    الجنس:
    ذكر
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Perl
    Facebook:
    خوية محمد المن يستخدم الكود ؟
    اقصد لبرنامج انته مسويه او للتلغيم
     
  3. nani49 Developer

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

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