المساعد الشخصي الرقمي

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



Narcon-sama
11-10-2008, 09:21 PM
السلام عليكم ورحمة الله و بركاته
منذ مدة لم أكتب في هذا القسم الذي أعتبره من أفضل أقسام منتدى مسومس و جميع المنتديات الأخرى بسبب حبي لهذا المجال
في الحقيقية كنت سأضعه كعيدية و لكنني نسيته بسبب إنشغالي في الدراسة و ترجمة داي كما يعلم من يدخل إلى قسم إنتاجات الأعضاء الخاصة حتى ذكّرني به صديقي ayman-conan
ما المميز فيه هذه مرة عن السوابق أنه يعمل بالحظة و ليس المدة أعني أنت الساعة التي يغلق حينها مع تصميم متواضع و يكمنه تنبيهك قبل الغلق و يمكنك إزالة هذه الخاصية
معلومات عن البرنامج
الإســـم: Msoms PC Shutdown
النسخة: 2.0
الـمجـال: التحكم بالنظام
المبرمج: Narcon-sama
و الآن إلى التحميل
و الرابط من هنا (http://www.zshare.net/download/20389324c3c26d69/)

omarkin05
12-10-2008, 07:57 AM
بسم الله ماشاء الله

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

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

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

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

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

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

WaHdAiN
12-10-2008, 10:19 AM
برنامج رائع ومفيد جدا

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

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

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

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

هيفاء البنيان
12-10-2008, 11:03 AM
شكراً لك
لدي سؤالين :
1/ كيف أستخدم هذا البرنامج أو ماهو أو ما مميزاته ؟
2/ هل هو E أو ع ؟

Narcon-sama
12-10-2008, 01:52 PM
شكراً لك
لدي سؤالين :
1/ كيف أستخدم هذا البرنامج أو ماهو أو ما مميزاته ؟
2/ هل هو E أو ع ؟
حمل البرنامج و ستفهم دوره و هو غلق الحاسوب في الوقت التي تريده و طريقة الاستخذام سهلة جدا لأن كل شيء بالعربية

Narcon-sama
12-10-2008, 02:08 PM
برنامج رائع ومفيد جدا

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

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

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

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

إسلام 2006
12-10-2008, 02:40 PM
شكرا لك اخي على البرنامج :)

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

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

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

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

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

WaHdAiN
12-10-2008, 06:03 PM
لقد تم حل الملاحظة و لكن الثانية لست خبيرا فيها

قمت بتحليل برنامجك وطلع انه معمول بالفيجوال بيسك
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


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

حكيم الظلام
14-10-2008, 01:53 PM
مشكور والله برنامج مفيد

azzoozz
19-10-2008, 11:29 PM
صح عليك يا مبرمج مشكوووور على البرنامج

M-D
2-11-2008, 01:25 PM
مشكور ع البرنامج

Narcon-sama
16-12-2009, 03:34 PM
http://www.multiupload.com/E9J8KIH0K5
تمت إعادة الرفع بسبب حذف الرابط القديم

ابوحائر
21-12-2009, 03:05 PM
مشكور على البرنامج الله يعطيك العافية
تقبل مروري

toxin
29-12-2009, 03:08 PM
برنامج جميل جداً