إخفاء الساعة

[جمال فايز]

أخوانى الكرام :

[move]الاخ الفاضل محمد طاهر

تحية طيبة للجميع وعندى استفسارين هما :-

1- هل يوجد كود بالاكسس يمكننا من خلالة عدم اظهار ايقونة الوقت بشريط المهام

على سطح المكتب .

2-لقد انزلت برنامج لحماية المجلد واعطائة كلمة سر أسم البرنامج هو PROTECT FOLDER 98.V2 ولنه برنامج تجريبى لمدة 21 يوم تقريباً بعدها لا يمكنك فتحة والغريب انك لن تستطيع أنزالة مرة اخرى كنسخة تجريبية على الجهاز نفسة من الانترنت مرة ثانية كحال بعض البرامج عندما تنتهى أقوم بانزالها مرة أخرى فتعمل لنفس الوفت لكن لماذا هذا البرنامج لا يعمل ولعله ملف موجود بالريجسترى لا بد من حذفه لكن فى الحقيقة بحث طويلا ولم أجد الحل المناسب ولم استطع ايضاً ابطال التوقيت الزمنى لهذا البرنامج فمن يجد الحل يرجى ارفاقه والله والموفق

[جمال فايز]

أخوانى الكرام

بالنسبة للجزئية الثانية والمتعلقة بتنزيل البرنامج لحماية الفولدر فمش مهمه ويتبقى الاحتياج الاساسى للجزء 1 ) من السؤال المطوح

وهو هل يوجد كود بالاكسس يمكننا من خلالة عدم اظهار ايقونة الوقت بشريط المهام على سطح المكتب

[عبد الله فتحي]

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Const SW_HIDE = 0
Private Const SW_SHOW = 5

Sub Hide_Clock()
Dim shelltraywnd As Long
Dim traynotifywnd As Long
Dim trayclockwclass As Long
shelltraywnd = FindWindow("shell_traywnd", vbNullString)
traynotifywnd = FindWindowEx(shelltraywnd, 0&, "traynotifywnd", vbNullString)
trayclockwclass = FindWindowEx(traynotifywnd, 0&, "trayclockwclass", vbNullString)
Call ShowWindow(trayclockwclass, SW_HIDE)
End Sub

Sub Show_Clock()
Dim shelltraywnd As Long
Dim traynotifywnd As Long
Dim trayclockwclass As Long
shelltraywnd = FindWindow("shell_traywnd", vbNullString)
traynotifywnd = FindWindowEx(shelltraywnd, 0&, "traynotifywnd", vbNullString)
trayclockwclass = FindWindowEx(traynotifywnd, 0&, "trayclockwclass", vbNullString)
Call ShowWindow(trayclockwclass, SW_SHOW)
End Sub

Private Sub CmdShow_Click()
Show_Clock
End Sub

Private Sub CmdHide_Click()
Hide_Clock
End Sub

[امير عاطف]

الكود 100%

اخي جمال فايز:

من الأفضل عدم توجيه السؤال لشخص محدد حتى يتسنى للجميع المشاركه

ايضاً لا يمكن وضع اكثر من سؤال بالمشاركة حيث يجب ان يتم وضع كل سؤال بمشاركة مستقله