النسخة الحديدة من البرنامج MSOMS PC SHUTDOWN V2.0 من برمجتي

السلام عليكم ورحمة الله و بركاته
منذ مدة لم أكتب في هذا القسم الذي أعتبره من أفضل أقسام منتدى مسومس و جميع المنتديات الأخرى بسبب حبي لهذا المجال
في الحقيقية كنت سأضعه كعيدية و لكنني نسيته بسبب إنشغالي في الدراسة و ترجمة داي كما يعلم من يدخل إلى قسم إنتاجات الأعضاء الخاصة حتى ذكّرني به صديقي ayman-conan
ما المميز فيه هذه مرة عن السوابق أنه يعمل بالحظة و ليس المدة أعني أنت الساعة التي يغلق حينها مع تصميم متواضع و يكمنه تنبيهك قبل الغلق و يمكنك إزالة هذه الخاصية
معلومات عن البرنامج
الإســـم: Msoms PC Shutdown
النسخة: 2.0
الـمجـال: التحكم بالنظام
المبرمج: Narcon-sama
و الآن إلى التحميل
و الرابط من هنا

بسم الله ماشاء الله

برنامج جميل جداً وفائدته كبيره وبسيط جداً فى اداءه

البرنامج مفيد جداً لى

( لأنى ساعات كثيره اترك التحميل وانصرف ويكون الكمبيوتر شغال )

شكراً لك اخى الكريم

وبارك الله فيك

وتعيش و ( تبرمج )

برنامج رائع ومفيد جدا

جزاك الله خير يامبدع ولا تحرمنا جديد ها الإبداع

ملاحظات بسيطة جدا :-
1- تلغي خاصي التحجيم بما ان الأدوات لاتعمل resizing

2- تجعل البرنامج كأيقونة في شريط الإعام بجوار الساعة

3- وسلامتك بس xD

شكراً لك
لدي سؤالين :
1/ كيف أستخدم هذا البرنامج أو ماهو أو ما مميزاته ؟
2/ هل هو E أو ع ؟

اقتباس:

---

المشاركة الأصلية كتبت بواسطة داكوتا

شكراً لك
لدي سؤالين :
1/ كيف أستخدم هذا البرنامج أو ماهو أو ما مميزاته ؟
2/ هل هو E أو ع ؟

---

حمل البرنامج و ستفهم دوره و هو غلق الحاسوب في الوقت التي تريده و طريقة الاستخذام سهلة جدا لأن كل شيء بالعربية

اقتباس:

---

المشاركة الأصلية كتبت بواسطة wahdain

برنامج رائع ومفيد جدا

جزاك الله خير يامبدع ولا تحرمنا جديد ها الإبداع

ملاحظات بسيطة جدا :-
1- تلغي خاصي التحجيم بما ان الأدوات لاتعمل resizing

2- تجعل البرنامج كأيقونة في شريط الإعام بجوار الساعة

3- وسلامتك بس xD

---

لقد تم حل الملاحظة و لكن الثانية لست خبيرا فيها

شكرا لك اخي على البرنامج :)

اوافق wahdain على الملاحظات

لكن هناك امر اخر

بالنسبة للتنبيه قبل الاغلاق بدقيقة لم يعمل، لم يظهر اي تنبيه عندما قمت بتجربته ^____^

لم اجرب التنبيه قبلها بعشرين ثانية، لكن لو استطعت التأكد منها هي الأخرى يكون برنامجك كاملا :)

وشكرا لك وبارك الله لك جهودك :)

اقتباس:

---

المشاركة الأصلية كتبت بواسطة Narcon-sama

لقد تم حل الملاحظة و لكن الثانية لست خبيرا فيها

---

قمت بتحليل برنامجك وطلع انه معمول بالفيجوال بيسك
http://www.m5zn.net/uploads/images/m5zn-e5e7326df1.jpg


قم بوضع هذا الكود بداخل Module جديد:

كود:

---


Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias _
    "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
    Public Const WM_LBUTTONDBLCLK = &H203
    Public Const WM_MBUTTONDBLCLK = &H209
    Public Const WM_MBUTTONDOWN = &H207
    Public Const WM_LBUTTONUP = &H202
    Public Const WM_LBUTTONDOWN = &H201
    Public Const WM_RBUTTONDBLCLK = &H206
    Public Const WM_RBUTTONDOWN = &H204
    Public Const WM_RBUTTONUP = &H205
    Public Const WM_MOUSEMOVE = &H200
    Public Const NIF_ICON = &H2
    Public Const WM_COMMNOTIFY = &H44
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4
Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
Public Const MAX_TOOLTIP As Integer = 64
Type NOTIFYICONDATA
    cbSize As Long
    hwind As Long
    uId As Long
    uFlags As Long
    uCallBackMessage As Long
    hIcon As Long
    szTip As String * MAX_TOOLTIP
End Type
Public nfIconData As NOTIFYICONDATA
Public Function CreateIt(Form As Form, Icon As StdPicture, ToolTip As String)
With nfIconData
        .hwind = Form.hwnd
        .uId = Form.Icon
        .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP Or NIM_ADD
        .uCallBackMessage = WM_MOUSEMOVE
        .hIcon = Icon.Handle
        .szTip = ToolTip & Chr$(0)
        .cbSize = Len(nfIconData)
 
    End With
    Call Shell_NotifyIcon(NIM_ADD, nfIconData)
End Function
Public Function CloseIt()
    Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
End Function

---

ثم ضع هذا الكود في حدث Form_Load وقبل نهاية الأمر End Sub :

كود:

---

Do
                    DoEvents
If Right(CurPath, 1) <> "\" Then CurPath = CurPath & "\"
CreateIt Me, Me.Icon, "وصف برنامجك بجوار الساعة هنا"
                Loop

---

وهذا الكود للإظهار النموذج في حال النقر مرة واحدة او مرتين على الايقونة بجوار الساعة :

كود:

---

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 On Error GoTo 10
    Select Case (X \ Screen.TwipsPerPixelX)
 
          Case &H203
            Form1.Show
            Me.WindowState = 3
          Case &H202
          Form1.Show
 
    End Select
10:
End Sub

---

وأي إستفسار أنا في الخدمة ^_^

مشكور والله برنامج مفيد

صح عليك يا مبرمج مشكوووور على البرنامج

مشكور ع البرنامج

http://www.multiupload.com/E9J8KIH0K5
تمت إعادة الرفع بسبب حذف الرابط القديم

مشكور على البرنامج الله يعطيك العافية
تقبل مروري

برنامج جميل جداً