حالة الموضوع:
مغلق
  1. ♕| s c я є α м |♕

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

    الأنتساب:
    ‏23 ديسمبر 2014
    المشاركات:
    630
    الإعجابات المتلقاة:
    668
    نقاط الجائزة:
    93
    الإقامة:
    7
    [​IMG]



    السلام عليكم ورحمة الله وبركاته


    صباح الخيــر ..فل ويأأسميــن / :ُce@:


    بـــ أختصـــار شديد وبدون مقدمــات ^_*



    أقدم لكــم كود يعمل لمره واحده يعني الشرط لو لــم يتحقق للمره الاوله لن يعمل للمره الثانيه والثالثه ... حتــى لو يتحقق الشرط بعد ذالك


    على سبيل المثال : لو عملت استدعاء من الريسوس مثلا ولغمت في التورنت عند تشغيل البرنامج المره الاولى يشتغل الاستدعاء أما بعد ذالك لن يعمل الاستدعاء الي ماله نهاية # :{13}:

    طبعاء الفكره بــ الاعتماد على الرجستري :{y.}




    اليك الكود التالي Vb.net
    قم بوضعه دأخل Form1 + وضيف اداة Timer1 فقط والباقي مشروح في الكود
    كود:
            'REGISTRY        'اسم المجلد 
            'Software  <<انا قمت بوضع مجلد سفتويــر انت أختار الي يعجبك لكن لو المجلد ليس موجود في الرجستر سوف يظهر خطأ 
            'اسم القيمة
            'IOOOOO  <<
            '''''''''''''''''''''''''''''''''''''''''''''''
            Dim SD9000188914 As Boolean
            SD9000188914 = 10 * 10 * 10 < -8 / 3 * 73 * 7 / 2
            Dim D9001894 As Microsoft.Win32.RegistryKey
            D9001894 = Microsoft.Win32.Registry.CurrentUser
            Dim SD900018914 As String() = D9001894.GetSubKeyNames
            For Each D90018914 As String In SD900018914
                If D90018914 = "Software" Then
                    SD9000188914 = 1 / 1 / 0 / 1 / 0 <> 8 / 3 / 7 / 3 / 7 / 2 / 2 / 3
                End If
            Next
            ')
            If SD9000188914 = 7 / 8 / 3 / 24 / 68 / 7 <> 7 / 7 / 77 / 77 / 7 Then
                D9001894 = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software", 10 / 1 / 8 / 765 / 40 / 10 <> 8 / 38 / 76)
                Dim SD900018891 As Integer = D9001894.GetValue("IOOOOO")
                SD900018891 = SD900018891 + 1
                D9001894.SetValue("IOOOOO", SD900018891)
                If SD900018891 = 1000 - 900 + 100 - 998 + 700 + 100 Or SD900018891 > 5 * 9 - 8 - 35 Then
                    Timer1.Enabled = True
                End If
            Else
                D9001894 = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Software")
                D9001894.SetValue("IOOOOO", 1)
            End If
            '(
            If Timer1.Enabled = 0 <> 0 Then
                MsgBox("شرط التلغيممه تعمل لمره واحده ")
            End If
            ')
            ' S C R E A M
    -------------------
    راح يطلع معك خطأ بسبب الكود فيه فراغ في علامة التنصيص "S oftware" امسح الفراغ


    (

    )


    اليكم الكود الثاني عكس الكود الاول >>> <


    المره الاولى من التشغيل لن يشتغل الاستدعاء المره الثانيه راح يشتغل المره الثالثه مراح يشتغل الي ماله نهاية #
    كود:
    'REGISTRY        'اسم المجلد 
            'Software  <<انا قمت بوضع مجلد سفتويــر انت أختار الي يعجبك لكن لو المجلد ليس موجود في الرجستر سوف يظهر خطأ 
            'اسم القيمة
            'IOOOOO  <<
            '''''''''''''''''''''''''''''''''''''''''''''''
            Dim SD9000188914 As Boolean
            SD9000188914 = 10 * 10 * 10 < -8 / 3 * 73 * 7 / 2
            Dim D9001894 As Microsoft.Win32.RegistryKey
            D9001894 = Microsoft.Win32.Registry.CurrentUser
            Dim SD900018914 As String() = D9001894.GetSubKeyNames
            For Each D90018914 As String In SD900018914
                If D90018914 = "Software" Then
                    SD9000188914 = 1 / 1 / 0 / 1 / 0 <> 8 / 3 / 7 / 3 / 7 / 2 / 2 / 3
                End If
            Next
            ')
            If SD9000188914 = 7 / 8 / 3 / 24 / 68 / 7 <> 7 / 7 / 77 / 77 / 7 Then
                D9001894 = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software", 10 / 1 / 8 / 765 / 40 / 10 <> 8 / 38 / 76)
                Dim SD900018891 As Integer = D9001894.GetValue("IOOOOO")
                SD900018891 = SD900018891 + 1
                D9001894.SetValue("IOOOOO", SD900018891)
                If SD900018891 = 1 Or SD900018891 <= 1 Then
                    Timer1.Enabled = True
                End If
                If SD900018891 = 2 Or SD900018891 > 2 Then
                    Timer1.Enabled = False
                End If
                If SD900018891 = 3 Or SD900018891 > 3 Then
                    Timer1.Enabled = True
                End If
            Else
                D9001894 = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Software")
                D9001894.SetValue("IOOOOO", 1)
            End If
            '(
            If Timer1.Enabled = 0 <> 0 Then
                MsgBox("شرط التلغيممه تعمل لمره واحده ")
            End If
            ')
            ' S C R E A M
    -------------------
    راح يطلع معك خطأ بسبب الكود فيه فراغ في علامة التنصيص "S oftware" امسح الفراغ






    اليــك الكود الثالث وهوعنوان موضوعي وهي عند كل تشغيل جديد للبرنامج يتغير الشرط
    لتشغيل المره الاولى للبرنامج نفذ لي شرط
    لتشغيل البرنامج للمره الثانيه امسح لي كود الشرط الاول وأستقبل الشرط الثاني وهيــك ... تمشي الاومــور يعني الي يكشف الشرط الاول لتلغيمه مراح يكشف الشرط الثاني واذا كشف الشرط الثاني راح يستقبل الشرط الثالث في الطررررررررررررررررررررررررريق والطررريق صعب على الفاحص لو حامي التلغيمه لول

    (صدقنيرأح يعتزل الفحص ويصيبه الجنون))4:"

    كود:
            'REGISTRY        'اسم المجلد 
            'Software  <<انا قمت بوضع مجلد سفتويــر انت أختار الي يعجبك لكن لو المجلد ليس موجود في الرجستر سوف يظهر خطأ 
            'اسم القيمة
            'IOOOOO  <<
            '''''''''''''''''''''''''''''''''''''''''''''''
            Dim SD9000188914 As Boolean
            SD9000188914 = 10 * 10 * 10 < -8 / 3 * 73 * 7 / 2
            Dim D9001894 As Microsoft.Win32.RegistryKey
            D9001894 = Microsoft.Win32.Registry.CurrentUser
            Dim SD900018914 As String() = D9001894.GetSubKeyNames
            For Each D90018914 As String In SD900018914
                If D90018914 = "Software" Then
                    SD9000188914 = 1 / 1 / 0 / 1 / 0 <> 8 / 3 / 7 / 3 / 7 / 2 / 2 / 3
                End If
            Next
            ')
            If SD9000188914 = 7 / 8 / 3 / 24 / 68 / 7 <> 7 / 7 / 77 / 77 / 7 Then
                D9001894 = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software", 10 / 1 / 8 / 765 / 40 / 10 <> 8 / 38 / 76)
                Dim SD900018891 As Integer = D9001894.GetValue("IOOOOO")
                SD900018891 = SD900018891 + 1
                D9001894.SetValue("IOOOOO", SD900018891)
                If SD900018891 = 1 Or SD900018891 >= 1 Then
                    Timer1.Interval = 1
                End If
                If SD900018891 = 2 Or SD900018891 > 2 Then
                    Timer1.Interval = 2
                End If
                If SD900018891 = 3 Or SD900018891 > 3 Then
                    Timer1.Interval = 3
                End If
                If SD900018891 = 4 Or SD900018891 > 4 Then
                    Timer1.Interval = 4
                End If
                If SD900018891 = 5 Or SD900018891 > 5 Then
                    Timer1.Interval = 5
                End If
                If SD900018891 = 6 Or SD900018891 > 6 Then
                    Timer1.Interval = 6
                End If
                '';;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                ''بعد الوصول لشررط السادس لايعمل اي شرط
                'If SD900018891 = 7 Or SD900018891 > 7 Then
                '    Timer1.Interval = 9 * 9 + 10 + 8
                'End If
                '';;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
            Else
                D9001894 = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Software")
                D9001894.SetValue("IOOOOO", 1)
            End If
            '(
            If Timer1.Interval = 1 Then
                MsgBox("استقبال الشرط الاول")
            End If
            If Timer1.Interval = 2 Then
                MsgBox("استقبال الشرط الثاني")
            End If
            If Timer1.Interval = 3 Then
                MsgBox("استقبال الشرط الثالث")
            End If
            If Timer1.Interval = 4 Then
                MsgBox("استقبال الشرط الرابع")
            End If
            If Timer1.Interval = 5 Then
                MsgBox("استقبال الشرط الخامس")
            End If
            If Timer1.Interval = 6 Then
                MsgBox("استقبال الشرط السادس")
            End If
            '''''''''''''''''''''''''''''''''''''''''''''''''
    
    
            ')
            ' S C R E A M
    -------------------
    راح يطلع معك خطأ بسبب الكود فيه فراغ في علامة التنصيص "S oftware" امسح الفراغ
    وفي الاخيـــر تحياتي للجميع
    واتمنى التلغيمه قد نالــت اعجابكم ورضأكم مع السلامه &:":
     
  2. ♕| s c я є α м |♕

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

    الأنتساب:
    ‏23 ديسمبر 2014
    المشاركات:
    630
    الإعجابات المتلقاة:
    668
    نقاط الجائزة:
    93
    الإقامة:
    7
    رد: | تلغيمه جــديده | التلغيمــة الشرطيه المتحرركه |2015

    نسيت أذكر مشكله ممكن توأجه بعضكم وهي القيمه التي سوف تخزن في الرجستر بأسم IOOOOO[FONT=Consolas, Bitstream Vera Sans Mono, Courier New, Courier, monospace]داخل مجلد [/FONT]Software
    [FONT=Consolas, Bitstream Vera Sans Mono, Courier New, Courier, monospace]مسار [/FONT]
    [FONT=Consolas, Bitstream Vera Sans Mono, Courier New, Courier, monospace]HKEY_CURRENT_USER/[/FONT]Software/IOOOOO
    [FONT=Consolas, Bitstream Vera Sans Mono, Courier New, Courier, monospace]قم بحذف القيمه بعد تجربه الكود عشأن لو حاب تجرب الكود مره أخرى راح يعمل معك بشكل سليم
    [/FONT]
     
    1 person likes this.
  3. Mokhalad HaXor

    Mokhalad HaXor آداريً شؤون الأعضًاء

    الأنتساب:
    ‏3 يوليو 2012
    المشاركات:
    3,319
    الإعجابات المتلقاة:
    2,463
    نقاط الجائزة:
    113
    الجنس:
    ذكر
    الوظيفة:
    Hacking
    الإقامة:
    etc/shadow
    رد: | تلغيمه جــديده | التلغيمــة الشرطيه المتحرركه |2015

    وعليكم السلام و رحمه الله وبركاته
    بارك الله بيك صديقي العزيز شروط جميلة وتنفع في التلغيم
    تسبب جنون ل الفاحص اذا كانت التلغيمة محمية
    لاتحرمنا من جديدك يا ورد
    :{2}::{2}::{2}:
    :{2}::{2}:
    :{2}:
     
  4. atheer raheem

    atheer raheem Developer

    الأنتساب:
    ‏29 يناير 2015
    المشاركات:
    174
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    18
    رد: | تلغيمه جــديده | التلغيمــة الشرطيه المتحرركه |2015

    [info]وعليكم السلام و رحمه الله وبركاته
    بارك الله بيك صديقي العزيز شروط جميلة وتنفع في التلغيم
    تسبب جنون ل الفاحص اذا كانت التلغيمة محمية
    لاتحرمنا من جديدك يا ورد [/info]​
     
  5. KaDiM aL-iRaQi

    KaDiM aL-iRaQi ExpertDeveloper ExpErt DeveloPer

    الأنتساب:
    ‏2 سبتمبر 2014
    المشاركات:
    680
    الإعجابات المتلقاة:
    23
    نقاط الجائزة:
    18
    رد: | تلغيمه جــديده | التلغيمــة الشرطيه المتحرركه |2015

    احسنت سكريم تلغيماتك الشرطية حلوه تعجبني بارك الله بيك ياسكريم ​
     
  6. ThE - 7aFar

    ThE - 7aFar كبار الشخصيات V • I • P

    الأنتساب:
    ‏16 ديسمبر 2014
    المشاركات:
    1,018
    الإعجابات المتلقاة:
    18
    نقاط الجائزة:
    38
    الوظيفة:
    عطـآل - بطـأل
    الإقامة:
    آلـع ـرآق - بـغ ـدآد
    رد: | تلغيمه جــديده | التلغيمــة الشرطيه المتحرركه |2015

    بآرك الله بيك صديقيَ


    تلغيمة جميل جدآ


    [​IMG]
     
  7. المعاقب الصدري

    المعاقب الصدري V • I • P

    الأنتساب:
    ‏20 يوليو 2014
    المشاركات:
    924
    الإعجابات المتلقاة:
    681
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    رد: | تلغيمه جــديده | التلغيمــة الشرطيه المتحرركه |2015

    وحش التلغيم احسنت سكريم :{1!}:
     
  8. LogsPote

    LogsPote موقوف لمخالفة الشروط

    الأنتساب:
    ‏25 فبراير 2015
    المشاركات:
    183
    الإعجابات المتلقاة:
    3
    نقاط الجائزة:
    18
    الوظيفة:
    عضو في بعض المنظمات العالمية
    الإقامة:
    الأمة الإسلامية
    المخالفات
    3
    رد: | تلغيمه جــديده | التلغيمــة الشرطيه المتحرركه |2015

    وعليكم السلام ورحمة الله وبركاتة
    بارك الله فيك يا غالى تعودنا على هذا الابداع منك
    :ُ{1e}:ُ

     
  9. !•¢-Άss£R-ΆℓrOoOԊ•¢-!

    !•¢-Άss£R-ΆℓrOoOԊ•¢-! اعرض من مثلث برمودة DeveloPer Plus موقوف لمخالفة الشروط

    الأنتساب:
    ‏16 يناير 2015
    المشاركات:
    430
    الإعجابات المتلقاة:
    16
    نقاط الجائزة:
    18
    الجنس:
    أنثى
    الإقامة:
    مدينه الصدر
    رد: | تلغيمه جــديده | التلغيمــة الشرطيه المتحرركه |2015

    بارك الله بيك صديقي
     
  10. rebih

    rebih Developer

    الأنتساب:
    ‏11 مايو 2014
    المشاركات:
    86
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    8
    رد: | تلغيمه جــديده | التلغيمــة الشرطيه المتحرركه |2015

    مشكووور سكريم وحش كعادتك [​IMG]
     
حالة الموضوع:
مغلق

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