• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

mahamedaboali

اعضاء
  • عدد المشاركات

    56
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن mahamedaboali

  • الرتبة
    عضو
  1. بسم الله ماشاء الله ألف شكرا لكما (memoon & A7med_prof ) على هذه المساعدة الجميلة .
  2. السلام عليكم ورحمة الله وبركاته عندى سؤال ياريت أجد عندكم إجابته !!!!!! هل هناك طريقة لإرسال رسالة إلى جهاز آخر معى على السبكة المحلية من خلال الفيجوال بيسك 0.6 ؟ أرجوا الإفادة . ولو الطريقة عند أحدكم ياريت لو بالشرح تبقى أفيد .
  3. والله إن أحلى يا "zain50 " ولو إن الرد جيه متأخر شوية
  4. شكرا لكما على هذه المساهمة الجميلة والإضافات المفيدة .
  5. هذا كود بسيط لغلق أى برنامج يعمل على الجهاز . قد يستفاد منه فى حالة تعارض برنامجك مع برنامج آخر . اكتب التالي في موديل Module Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Declare Function PostMessage Lib "user32" Alias _ "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long Public Const WM_CLOSE = &H10 اكتب التالي في المكان الذي تريد مع تحديد اسم البرنامج ولنفرض Notepad Dim winHwnd As Long Dim RetVal As Long winHwnd = FindWindow(vbNullString, "Notepad") Debug.Print winHwnd If winHwnd <> 0 Then RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&) If RetVal = 0 Then MsgBox "خطأ في عملية ارسال الرسالة" End If Else MsgBox "الدفتر مفتوح" End If
  6. شكرا ولوأنه ليس له أى قيمة بدون الكراك .
  7. شكرا أخى........................................................
  8. شكرا على التجميع وإن كانت مشكلة الجزء 13 لاتزال قائمة
  9. ولكن عندى مواقع كتير غير موجوده فى هذا الموضوع المذكور سلفا
  10. مكتبة الاكواد

    أفكار مكررة ..................
  11. ما هذا البرنامج
  12. للأسف لايمكن يا أخت rasha_123 لأن أداة Activeskin أو أى أداة skins أخرى لا تستطيع تطبيق الاستايل أو الكنس إلا إذا كانت خاصية زر الأمرSTYLE = Standard ولا يمكمن تطبق السمة أو الاسكن فى حالة STYLE = Graphic .