VB6-Rocket

ممتااااااااااااااااااااااااااااااااز جزاك الله خيرااااااااااااااااا

اكثر من ممتاز :)

بكل بساطة اكمال الكود كالتالى label1.caption = m(0) label2.caption = m(1) وبجد لازم تنمى طرق التفكير المنطقى عندك لان البرمجة مش اوامر فقط و انصحك انك تدرس لغة ال C هتزود مهارتك وطريقة تفكيرك و متنساش الرياضيات

اخى العالم انا مش عارف ابسط الشرح اكتر من كدا والله على العموم المصفوفة masg هى اللى شايلة البيانات اللى انت استقبلتها يعنى فى كود الاستقبال اكتب الكود التالى عشان تفهم ايه اللى حصل msgbox masg(0) msgbox masg(1) msgbox masg(2) ولو مش فاهم بردوا حددلى بالظبط ايه اللى مش فاهمه وعلى العموم الكود ده فايدته انك تبعت اكتر من معلومة او متغير فى سطر واحد بدل ما تستخدم senddata مرتين ورا بعض وبكدا كل عنصر من عناصر المصفوفة شايل متغير من اللى اتبعتوا

اخى العالم ارجو الصبر لانى غير موجود بالمنتدى ليل نهار المهم حسب الكود اللى حضرتك كاتبه المتغيرات التى ارسلتها ستصبح كالتالى من خلال المصفوفة Masg() masg(0) = "mage"+label1 masg(1) = "text"+label2 masg(2)="shew"+label3 وبكل بساطة يمكنك وضع جملة شرطية على masg(0 اذا كانت كذا اعمل كذا واذا كانت كذا إذا خذ قيمة masg(1 وهكذااااا ارجو ان تكون وضحت الفكرة

طيب حضرتك نزلت الفيجوال على جهازك منين ؟! يعنى عندك نسخة على الهاردديسك ؟ ولو معندكش هتنزلهم ازاى ؟ هو الفولدر ده مفهوش غير مجموعة من الايقونات والصور التى تستخدم فى البرامج يعنى ممكن تتصرف وتنزل ايقونات مجانية ..دور فى موقع جوجل

عند عمل install للفيجوال اختار custom ومن الاختيارات علم صح على اختيار graphics

اكتب مثال عن كيفية استخدام دالة Split بعدها مباشرة سأخبرك بالطريقة

1 - لحب الاستطلاع 2- لكسر الحماية

البرنامج جيد لكن ال peID اقوى لانه بيظهر نوع التشفير اذا كان البرنامج مشفر بأى Packer ال ( packer) هو تشفير للملف ال exe حتى يصعب كسر حمايته وله انواع كثيرة

احست حل كلام الاخ net_code بعد سحب الصورة يتم ضغطها jpg عن طريق مكتبة ال ij11.dll وتخزن فى قاعدة البيانات jpg

شكرا على الشرح الجميل .. لكن هنا قسم الفيجوال بيسك 6 سيتم تحويل الموضوع الى قسم الفيبي دوت نت

هى هى نفس طريقة استقبالك لكن تأخذ الداتا وتديها لدالة split مفيش تعقيد فى الموضوع

بدلا من الكود ده Private Sub Command1_Click() If wsk.State = 7 Then wsk.SendData "seeR" & Text1.Text DoEvents wsk.SendData "showform" End If End Sub يكون الكود كالتالى Private Sub Command1_Click() If wsk.State = 7 Then wsk.SendData "seeR" & Text1.Text + "***" + "showform" End If End Sub وحين تستقبل هذه البانات فى فصصها عن طريق دالة Split معاملات هذه الدالة 1- المتغير النصى المطلوب تجزأته 2- الفاصل ... وفى هذه الحالة "***" وتعيد الدالة مصفوفة من نوع String

كتن عندى الكود ده هدورلك عليه وهو فكرته انه بيجيب ال ID الخاص بالنافذة النشيطة وعن طريق دالة API تأخذ ال ID وتجيب اللغة الحالية للنافذة النشيطة .. هحاول اجيبلك الكود