برمج بنفسك برنامج للتحكم بسطح المكتب - العرب المتحدون للهندسة العكسية
  التسجيل   التعليمات   خيارات سريعة   اجعل كافة الأقسام مقروءة
قديم 04-07-2011, بتوقيت مكة المكرمة :07:13 AM رقم المشاركة : ( 1 )
asdasd666100
.:: New Reverser ::.

الصورة الرمزية asdasd666100

 

 
asdasd666100 is on a distinguished road

asdasd666100 غير متواجد حالياً


افتراضي برمج بنفسك برنامج للتحكم بسطح المكتب سورس + البرنامج


بناء على طلب أحد الأعضاء الغاليين عندى
إليكم هذا الدرس على السريع

أولا تحميل الفجوال السادس بحجم 4.5 ميجا بايت فقط من هنا
http://www.aoreteam.com/vb/showthread.php?t=6648
سنبرمج اليوم برنامج لإظهار و إخفاء أيقونات سطح المكتب و إخفاء و إظهار شريط المهام و كل مهمة بزر مستقل

أى أننا سوف تبرمج البرنامج الآتى





تحميل البرنامج
http://www.multiupload.com/1SIWOUNS4N
و هو بحجم 11 كيلو
بسم الله نبدأ
قم بفتح الفجوال ثم إضغط OPEN فى النافذة التى ستظهر و الخاصة بنوع المشروع و بذلك تكون قد إخترت STANDARD EXE

قم بإضافة 4 أزرار للفورم
الأول Hide TaskBar
الثانى Show TaskBar
الثالث Show Desktop
الرابع Hide Desktop

مع العلم أن التسمية للزر تكون من خلال تغير الخاصية CAPTION
قم بالنقر المزدوج على أى مكان خالى بالفورم
ليظهر لك محرر الكود و فى القسم GENARAL أكتب

كود:
Option Explicit

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" 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



Const SW_HIDE = 0
Const SW_MAXIMIZE = 3
Const SW_MINIMIZE = 6
Const SW_NORMAL = 1
 Const SW_RESTORE = 9
Const SW_SHOW = 5


Dim TaskBarHandle As Long
إضغط SHIFT +F7 للخروج من محرر الكود و الرجوع للفورم
أنقر نقرا مزدوجا على الزر الأول وضع الكود التالى بين السطرين الموجودين

كود:
TaskBarHandle = FindWindow("Shell_TrayWnd", "")

    ShowWindow TaskBarHandle, SW_HIDE
إضغط SHIFT +F7 للخروج من محرر الكود و الرجوع للفورم
أنقر نقرا مزدوجا على الزر الثانى و ضع الكود التالى
كود:
 TaskBarHandle = FindWindow("Shell_TrayWnd", "")

    ShowWindow TaskBarHandle, SW_SHOW
إضغط SHIFT +F7 للخروج من محرر الكود و الرجوع للفورم
أنقر نقرا مزدوجا على الزر الثالث و ضع الكود التالى
كود:
Dim hwnd As Long
hwnd = FindWindowEx(0&, 0&, "progman", vbNullString)
ShowWindow hwnd, 5
إضغط SHIFT +F7 للخروج من محرر الكود و الرجوع للفورم
أنقر نقرا مزدوجا على الزر الرابع و ضع الكود التالى
كود:
Dim hwnd As Long
hwnd = FindWindowEx(0&, 0&, "progman", vbNullString)
ShowWindow hwnd, 0
إنتهينا من وضع الأكواد و لكن بقى شيئ واحد
أن نظهر كل شيئ فى حالة الخروج من البرنامج
فلو فرضنا أنك أخفيت سطح المكتب و شريط المهام و أغلقت البرنامج فماذا ستجد ؟؟
سطح مكتب خالى تماما و طبعا أنت لا ترغب بذلك

إستدعى محرر الكود مرة أخرى
و إختار القسم FORM و على يمينها إختار القسم UNLOAD
و أكتب الكود الآتى
كود:
Dim hwnd As Long
hwnd = FindWindowEx(0&, 0&, "progman", vbNullString)
ShowWindow hwnd, 5

 TaskBarHandle = FindWindow("Shell_TrayWnd", "")

    ShowWindow TaskBarHandle, SW_SHOW
الآن يمكنك تجربة البرنامج

و إذا تعثرتم سأنشر السورس كتلة واحدة لكن الفائدة لن تحدث إلا عندما تتعامل أنت مع كل حدث منفردا و إلا ستتحول العملية لكوبى و بيست بلا فائدة
من ينتهى يعرض برنامجه
طبعا كلامى موجه للمبتدئين

مع تحيات أخوكم أسد


 
رد مع اقتباس
قديم 04-07-2011, بتوقيت مكة المكرمة :02:01 PM رقم المشاركة : ( 2 )
body se7en
.:: Advanced Reverser ::.

الصورة الرمزية body se7en

 

 
body se7en is on a distinguished road

body se7en غير متواجد حالياً


افتراضي


مشكور أخى أسد

توقيع body se7en

عبدالرحمن
سبحان الله وبحمده
سبحان الله العظيم

البر شئ هين,,وجه باش وكلام لين

 
رد مع اقتباس
قديم 07-30-2011, بتوقيت مكة المكرمة :09:34 AM رقم المشاركة : ( 3 )
SMP3
.:: VIP Reverser ::.

الصورة الرمزية SMP3

 

 
SMP3 is on a distinguished road

SMP3 غير متواجد حالياً


افتراضي


مكان الموضوع ليس هنا ..

توقيع SMP3

Open Your Source .. Open Your Mind

 
رد مع اقتباس
قديم 07-30-2011, بتوقيت مكة المكرمة :02:07 PM رقم المشاركة : ( 4 )
Game.Of.The.Death
.:: مراقب ::.

الصورة الرمزية Game.Of.The.Death

 

 
Game.Of.The.Death is on a distinguished road

Game.Of.The.Death غير متواجد حالياً


افتراضي


شكراً جزيلاً لك أخي asdasd666100 ولكن مكان الموضوع ليس هنا فمكانه المفروض يكون في قسم البرمجة قسم لغات أخرى


توقيع Game.Of.The.Death

We make a living by what we get, but we make a life by what we give

 
رد مع اقتباس
قديم 07-30-2011, بتوقيت مكة المكرمة :05:50 PM رقم المشاركة : ( 5 )
DarkSecrets
.:: Advanced Reverser ::.

 
DarkSecrets is on a distinguished road

DarkSecrets غير متواجد حالياً


افتراضي


مشكور اخي الكريم و بارك الله فيك عمل رائع جاري المحاولة

 
رد مع اقتباس
قديم 07-31-2011, بتوقيت مكة المكرمة :07:18 AM رقم المشاركة : ( 6 )
coldzer0
عضو في - AT4RE Team

الصورة الرمزية coldzer0

 

 
coldzer0 is on a distinguished road

coldzer0 غير متواجد حالياً


افتراضي


بارك الله فيك اخى asdasd666100
اكواد رائعه فعلا

 
رد مع اقتباس
قديم 07-31-2011, بتوقيت مكة المكرمة :03:16 PM رقم المشاركة : ( 7 )
asdasd666100
.:: New Reverser ::.

الصورة الرمزية asdasd666100

 

 
asdasd666100 is on a distinguished road

asdasd666100 غير متواجد حالياً


افتراضي


مشكورين إخوانى

 
رد مع اقتباس
إضافة رد


يتصفح الموضوع حالياً : 1 (0 عضو و 1 ضيف)
 
أدوات الموضوع
انواع عرض الموضوع

ضوابط المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
أعمل برامجك الصامتة بنفسك !! برنامج Smart Install Maker يزور المنتدى بشرح حصري !! Spider MAN قسم شروحات الادوات والبرامج 30 11-04-2017 بتوقيت مكة المكرمة :10:12 PM
EDTopMost للتحكم في خاصية Top Most للبرامج SMP3 Others 11 04-20-2015 بتوقيت مكة المكرمة :12:40 AM
Window Minimizer V1.0 برنامج للتحكم في النوافذ + الكود [Asm] zEaK47 لغة التجميع [Assembly] 1 12-27-2008 بتوقيت مكة المكرمة :07:19 PM


الساعة الآن بتوقيت مكة المكرمة :08:41 PM.