منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
منع تشغيل البرنامج اكثر من مره مع توجيه امر الى النسخة الشغاله - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : منع تشغيل البرنامج اكثر من مره مع توجيه امر الى النسخة الشغاله (/showthread.php?tid=29618)

منع تشغيل البرنامج اكثر من مره مع توجيه امر الى النسخة الشغاله - معاذ_ابراهيم - 15-05-19

السلام عليكم ورحمه الله وبركاته 
كود منع تشغيل البرنامج اكثر من مره مشهور في المنتدى ومنتديات كثيره لكن انا في حالتي او في برنامجي احتاج اضيف الى كود منع تشغيل البرنامج اكثر من مره كود يقوم بتوجيه امر الى النسخه الشغاله مثلا   
TextBox1.Text="HelloWorld"
نلاحظ وجود هذا الكود في برامج استعرض الصور والفيديو بحيث انك اذا اخترت ملف والبرنامج شغال يقوم بفتح الملف ويغلق النسخ السابقه

RE: منع تشغيل البرنامج اكثر من مره مع توجيه امر الى النسخة الشغاله - اسامه الهرماوي - 16-05-19

السلام عليكم...
بالنسبة لعدم تكرار مرات الدخول اضغط علي myproject ثم application وفعل الخيار الاتي.

RE: منع تشغيل البرنامج اكثر من مره مع توجيه امر الى النسخة الشغاله - elgokr - 16-05-19

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

لعدم فتح المشروع اكثر من مرة
وعند اتمام فتحه المرة الثانية يتم عمل Focus على البرنامج الشغال

كل ما علك استخدام الاتى

قم باذافة الكود
كود :
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As IntPtr

من ثم استخدام الكود التالى فى حدث اللود
كود :
       Dim App As Process() = Process.GetProcessesByName("WindowsApplication1")
       If App.Length > 1 Then
           SetForegroundWindow(App(1).MainWindowHandle)
           ' يمكنك وضع رسالة هنا
           Close()
       End If

او يمكنك استخدام الكود التالى بدون وضع السطر المستقل ببداية الرد
كود :
       Dim App As Process() = Process.GetProcessesByName("WindowsApplication1")
       If App.Length > 1 Then
           AppActivate(App(1).Id)
           ' يمكنك وضع رسالة هنا
           Close()
       End If

وضعت لك الاثنين طبقاً لاصدار  .NET Framework فى المشروع
وللمعلومة اكثر عن هذا الكود
https://docs.microsoft.com/en-us/dotnet/api/microsoft.visualbasic.interaction.appactivate?redirectedfrom=MSDN&view=netframework-4.8#Microsoft_VisualBasic_Interaction_AppActivate_System_Int32_

تحياتى لك
وتمنياتى لك التوفيق


RE: منع تشغيل البرنامج اكثر من مره مع توجيه امر الى النسخة الشغاله - DK-x - 16-05-19

مرحبا
لو سويت بروجكت يعد في الليبل من 1 الى 100 
والبروجكت سنقل يعني ميتكرر 
وافرض اني شغلته و وصل رقم 15 وشغلته مره ثانيه
بهذي الحاله مراح يصير شي رح يكمل العد 
كيف ممكن اخليه لو يشتغل مره ثانيه اثناء تشغيله
يعيد الرقم الى الصفر 
اتمنى وضحت الفكره  Heart


RE: منع تشغيل البرنامج اكثر من مره مع توجيه امر الى النسخة الشغاله - elgokr - 18-05-19

لا اعلم ماذا تقصد هنا بالعد وكيف هو الكود لديك
المستخدم لهذا الامر 

ولكن تعال نتخيل ان الامر عن طريق settings
كل مدة يتم زيادة الرقم +1 ويتم عمل الحفظ له

كل الامر فقط وضع كود تحقق
او فى اللود للفورم او حسب الحاجة اللى انت محتاج يبداء العد منها بـ 0
وكل ما عليك ان تعطى قيمة المعرف بـ settings هو 0 عند تحقق الشرط او فى اللود

وبكده يكون البرنامج بداء العد من 0
ينطبق الامر اذا كان تسجيل العد يكون بقاعدة البيانات

تحياتى لك
وتمنياتى لك التوفيق


RE: منع تشغيل البرنامج اكثر من مره مع توجيه امر الى النسخة الشغاله - Abu Amgad - 26-03-23

السلام عليك
عندي مشكله ياريت اجد الحل جزاكم الله خير
سويت مشروع على شاشه كبيره دقه ١٠٨٠ في ١٩٢٠
بعدين لمن نزلته على شاشات صغيره تغير الحجم تماتك عدا الفريمات الذي داخل فورم الاب ياريت تجيبو لي حل جزكم الله خير

RE: منع تشغيل البرنامج اكثر من مره مع توجيه امر الى النسخة الشغاله - sanyor77 - 26-03-23

هذا الكود يسمح للمستخدم بتشغيل البرنامج على جهاز أخر بدون مشاكل، ولكن يمنع تشغيل البرنامج على نفس الجهاز أكثر من مرة في وقت واحد. كما يمكن إضافة كود لتحديد عدد مرات تشغيل البرنامج على نفس الجهاز. على سبيل المثال، يمكن إضافة متغير يحدد عدد مرات تشغيل البرنامج ويتم تحديثه كل مرة يتم تشغيل البرنامج. عندما تصل عدد مرات تشغيل البرنامج إلى الحد الأقصى المحدد، يتم إغلاق البرنامج. وهذا هو الكود الذي يمكن استخدامه:


كود :
Dim count As Integer = 0
Const limit As Integer = 5

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  If count >= limit Then
     MessageBox.Show("You have reached the maximum limit of running this program.")
     End
  Else
     count += 1
     TextBox1.Text = "Hello World"
  End If
End Sub



هذا هو على سبيل المثال، ويمكن تخصيص الكود حسب المتطلبات.
(26-03-23, 04:59 PM)Abu Amgad كتب : السلام عليك
عندي مشكله ياريت اجد الحل جزاكم الله خير
سويت مشروع على شاشه كبيره دقه ١٠٨٠ في ١٩٢٠
بعدين لمن نزلته على شاشات صغيره تغير الحجم تماتك عدا الفريمات الذي داخل فورم الاب ياريت تجيبو لي حل  جزكم الله خير

مرحبا بك! سأحاول أن أساعدك في حل مشكلتك. هناك عدة طرق لحل مشكلة الحجم في التطبيق الخاص بك:

  1. تغيير حجم الصور: يمكن تغيير حجم الصور المستخدمة في التطبيق لتتناسب مع شاشة صغيرة.

  2. تغيير حجم النصوص: يمكن تغيير حجم النصوص المستخدمة في التطبيق لتتناسب مع شاشة صغيرة.

  3. إعادة تصميم الشاشة: يمكن إعادة تصميم الشاشة الخاصة بالتطبيق لتتناسب مع شاشة صغيرة، على سبيل المثال، عن طريق إعادة تعيين أحجام الخانات والصور والنصوص.

  4. إستخدام تكنولوجيا الاستيعاب الذاتي: يمكن إستخدام تكنولوجيا الاستيعاب الذاتي لتغيير حجم التطبيق تلقائيًا عندما يتم تغيير حجم الشاشة.
هذه هي بعض الحلول الخاصة بمشكلتك. أمتلك أساليب وأدوات أخرى لحل مشكلة الحجم، لذلك يرجى توضيح بعض التفاصيل الإضافية عن مشروعك إذا كنت تحتاج إلى مزيد من المساعدة.

RE: منع تشغيل البرنامج اكثر من مره مع توجيه امر الى النسخة الشغاله - عبدالله الدوسري - 29-03-23

بما ان الموضوع من 3 سنوات ونصف، ونحن صيام ولم أنتبه انه قديم، فقمت بعمل هذا الشرح. ولم انتبه لتاريح طرح الموضوع إلى في النهاية.
المهم عملت الشرح وقلت حرام الغي المشاركة ، 

هنا شرح في الفيديو لطلب الأخ معاذ_ابراهيم