احمد زلمة
زيزوومى مبدع
غير متصل
بسم الله الرحمن الرحيم
..................................
بسم الله وبحمده نحمده ونستعيه
ونستغفرة ونستهديه
اخواني واخواتي في منتديات زيزووم للأمن والحماية
سلام الله عليكم ورحمة وبركاته
وصلتني رسائل عدة من حبايبي أعضاء منتدى زيزوم حين عرضت
هذا الموضوع
وهو سؤال عن كيفية إنشاء هذه الأداة
ووعتهم بأن أضع شرح متواضع لهذه الأداه
وإن شاء الله يكون الشرح مبسط لأخواننا في منتديات زيزووم للأمن والحماية
بسم الله نبدأ ::::::
متطلبات العمل
برنامج الفيجول
برنامج الفيجوال بيسك 6 :
..................................
بسم الله وبحمده نحمده ونستعيه
ونستغفرة ونستهديه
اخواني واخواتي في منتديات زيزووم للأمن والحماية
سلام الله عليكم ورحمة وبركاته
وصلتني رسائل عدة من حبايبي أعضاء منتدى زيزوم حين عرضت
هذا الموضوع
يجب عليك
تسجيل الدخول
او
تسجيل لمشاهدة الرابط المخفي
وهو سؤال عن كيفية إنشاء هذه الأداة
ووعتهم بأن أضع شرح متواضع لهذه الأداه
وإن شاء الله يكون الشرح مبسط لأخواننا في منتديات زيزووم للأمن والحماية
بسم الله نبدأ ::::::
متطلبات العمل
برنامج الفيجول
برنامج الفيجوال بيسك 6 :
رابط التحميل المباشر
يجب عليك
تسجيل الدخول
او
تسجيل لمشاهدة الرابط المخفي
-------------------------------------------------------------------------------------------------
ملف المساعده العام للفيجوال بيسك Help Generator for Visual Basic 6.0
رابط التحميل المباشر
يجب عليك
تسجيل الدخول
او
تسجيل لمشاهدة الرابط المخفي
------------------------------------------------------------------------------------------------
النسخة المحموله من برنامج الفيجوال بيسك
هذه نسخة الفيجول بيسك 6 المحمولة والتي تعمل على أي جهاز بدون تنصيب
حجم هذه النسخة هو 4.59 MB فقط ..... مع العلم بأن هذ النسخه لا تحتوي على
مكتبات OCX
رابط التحميل
يجب عليك
تسجيل الدخول
او
تسجيل لمشاهدة الرابط المخفي
-------------------------------------------------------------------------------------------------
مكتبة الـ MSDN الكاملة
يجب عليك
تسجيل الدخول
او
تسجيل لمشاهدة الرابط المخفي
يجب عليك
تسجيل الدخول
او
تسجيل لمشاهدة الرابط المخفي
وهذه هي المحتويات بعد فك الضغط
سيفتح لك هذا الشكل
الخطوه الثانية انظر الصورة
===================
====================
=====================
والخطوة الجاية هي إضافة زراير
لأداتك التي تريد ان تضع فيها مواقعك المفضلة
====================
الشكل النهائي لعمل الزراير
==================================================
فاصل وسنعووووووووووووود
:q::q::q:
عدنا
:hh::hh:
لتغير العنوان تبع الأداه
======================
الان الخطوة المهمة
وهي انك تضغط على الفورم الخارجي للأداه
وسوف يظهر لك هذا الشكل
كل ما عليك أنك تمسح السطرين
وتضع بدل لهم هذا الكود
كود:
Private Const SW_SHOWNORMAL = 1
Private Declare Function lExecute Lib "l32.dll" Alias _
"lExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
===============
ومن ثم
بعد عمل هذه الخطوط ووضع الأكواد كما تريد
اضعط على أف 5
الان كل ما عليك الضغط على الأزرار
سيظهر لك كود
هكذا
كود:
Private Sub Command1_Click()
End Subضع هذا الكود بين السطرين
كود:
lExecute Me.hwnd, "open", "http://www.zyzoom.org", vbNullString, vbNullString, SW_SHOWNORMALانظر الشكل
ومن ثم
بعد عمل هذه الخطوط ووضع الأكواد كما تريد
اضعط على أف 5
للتأكد من انك ماشي صح
باين الأن العملية صعبت شوية
بس صدقني سهلة
انطر في الكود الذي اعطيته لك
تجد فيه رابط المنتدى الذي هو
[
يجب عليك
تسجيل الدخول
او
تسجيل لمشاهدة الرابط المخفي
] غيره الى روابط المنتدى الذي تريد
واخيراً تخزين البرنامج
بهذا الشكل
ودي النتيجـــــــــة
:i::i:
تحميل الآداة
يجب عليك
تسجيل الدخول
او
تسجيل لمشاهدة الرابط المخفي
ملاحظة : حمل من هنا الأكواد أفضل لك لأنها هنا كامله
يجب عليك
تسجيل الدخول
او
تسجيل لمشاهدة الرابط المخفي
==========================================================
الخطوة الثانية تصميم إذاعه
إذا اردت إنشاء إذاعه خاصة بك تختار القنوات التي تريد فهذا اصبح سهل الأن ببرنامج الفيجول
ولم يعد مقتصر على ذلك المحترفين وغيرهم بل بإمكانك تصميم برامجك بأسهل الطرق ومنها برنامج
الإذاعه
وسوف نشرح بالصور ذلك علشان خاطر اخونا ( انس 2)
متطلبات العمل
برنامج الفيجول وليكن نسخه محموله
الخطوه الثانية انظر الصورة
الخطوة الثالثة
الخطوة الرابعه
الخطوة الخامسة
الخطوة السادسة
الخطوة السابعه
الخطوة الثامنه
الخطوة التاسعه
بعد هذه الخطوات
اشرب فنجان قهوة ومن ثم تابع معانا
:bleh::hh::hh:
:b:
:no:
==========================================
الآن اصبح كل شيء جاهز لديك لم يبقى لك إلا كتابه الأكواد
للملاحطة : إذا ضغط على اي شيء ضغتين سواء زر او المديا أو المساحه الفاضيه او اي شيء يأتي لك مكتوب هذا الكود
كود:
Private Sub Command1_Click()
End Subانضر الشكل
وعندما اعطيك اي كود تضع الكود بين السطرين الذين امامك
وهذا نبدأ بوضع كود لك وتضعه بين السطرين
كود:
WindowsMediaPlayer1.Controls.Stop
WindowsMediaPlayer1.URL = [URL]http://easylink.playstream.com/winlive/Quran_Karimb.wvx[/URL]ضع هذا الكود بين السطرين الذين تضغط عليهم
يعني مثلاً اخترنا احنا [ زر إذاعه زيزووم ] وضغطنها عليها مرتين سيطر لنا الشكل السابق
نضع بين السطرين هذا الكود السابق ... مع مراعات تغير الرابط إلى إذاعتك
ولكن انتبه فإحنا عاملين الإذاعه على امتداد الميديا يعني ما ينفع تجيب رابط على امتداد ريل بلير وتضعه
بعد عمل هذه الخطوط ووضع الأكواد كما تريد
اضعط على أف 5
لو كانت الخطوات صحيحه ينتج لك هذا الشكل
وكرر ذلك على باقي الإذاعات
وبعد اتمام برنامجك خزن البرنامج تبعك
تابع الصورة
إذا اردت رابط اي قناه تحبها سواء فيدو او قناه صوتيه افعل التالي
هيضهر لك الشكل التالي
=============================================================
ملاحظة : حمل من هنا الأكواد أفضل لك لأنها هنا كامله
يجب عليك
تسجيل الدخول
او
تسجيل لمشاهدة الرابط المخفي
اخواني الكرام
في النهاية ارجو ان يكون الشرح
سهل وبسيط
واي سؤال او استفسار انا تحت امركم
وللحديث بقيه
:d::d::d:
