زهير طه

63

7,461

شرح + كود برنامج أين الرابط بطريقة الملفات الدفعية

السلام عليكم و رحمة الله و بركاته


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

أولاً : تذكرة بالبرنامج
مهمة البرنامج هي أن تختار موقع رفع من مواقع رفع الملفات الشهيرة ثم تكتب اسم برنامج
ثم ستحصل على روابط تحميل البرنامج

ثانياً : صورة من الاصدار الثاني

و هو متوافق مع كافة أنظمة ويندوز

ثالثاً : رابط تحميل البرنامج :
الحجم 31 ك ب فقط
http://www.multiupload.com/OE4JA46Z6R

رابعاً : شرح كتابة الكود
إن متابعي الدورة لن يجدوا شيئاً جديداً عليهم من تعليمات و سيفهمون كل ما سنذكره الآن
و لمن لم يتابعوا دروس الدورة فأنت بحاجة لمعرفة حتى الدرس العاشر
وطريقة العمل تعتمد محرك البحث google لأنه الأقوى على الإطلاق
بعد فتح الصفحة الرئيسة في غوغل و بفرض أننا نريد أن نبحث عن برنامج اسمه nero
عندئذ سنكتب على محرك البحث غوغل العبارة التالية
nero site:www.rapidshare.com

وسنجد صفحة النتائج




و فيها عدة إصدارات من البرنامج اضغط وحمل على كيفك و بلا منية حدا يعطيك روابط
و لتحديد رقم الإصدار نكتب رقم الإصدار مع اسم البرنامج


ويمكن تغيير موقع الرفع إلى موقع رفع آخر مثل megaupload.com
مع الانتباه إلى ان بعض المواقع لا يمكن البحث فيها بهذه الطريقة و للأسف موقع zshare لا يدعم هذا


ويمكن كتابة ملف bat عن طريق اوامر Dos لينفذ العمل تلقائياً


start "iexplorer.exe" "http://www.google.com/search?hl=en&q=name+site%3:web&btnG=Search"
شرح السطر السابق
start "iexplorer.exe"
لتشغيل مستعرض الانترنت Internet Explorer
http://www.google.com/search
لتشغيل محرك البحث غوغل ضمن متصفح الانترنت الذي فتح
hl=en
معلومات محرك البحث مثل اللغة english...
name
طبعاً هنا لا نكتب كلمة name إنما نكتب اسم البرنامج الذي نريد البحث عنه بدلاً منها
web
وهنا نكتب اسم موقع الرفع الذي نريد البحث فيه عن البرنامج مثل www.megaupload.com
و لكتابة ملف bat بحيث أن المستخدم يكتب اسم البرنامج ثم يقوم البرنامج بالبحث عنه بالطريقة السابقة
نكتب التعليمة التالية
@set/p "web="
حيث عرفنا web هنا على أنه متغير يدل على الموقع المطلوب
و بوضع قائمة من الخيارات للمتغير السابق
مثال
if %web%==1 set web=www.rapidshare.com
و نضع مواقع مع الترقيم على كيفنا
2 و3 ....
ثم سنجعل المستخدم يدخل اسم البرنامج الذي يريده
set/p "name="
حيث name متغير يعبر عن اسم البرنامج
و في النهاية نعطي تعليمة الإدخال السابقة
و ستكون كمايلي مع وضع اشارات المتغير على طرفي الاسم للبرنامج و موقع الرفع
start "iexplorer.exe" "http://www.google.com/search?hl=en&q=%name%+site%3:%web%&btnG=Search"
و أخيراً :
أقدم لكم الكود كاملاً للبرنامج بعد فهم آلية العمل
@echo off
:start
mode 50,18
color 2f
title ©ëںê¤ ڑïë ںé©ں ل 2 - ‌م§ں§ ھىï© لى tahasoft.com
echo.
echo Choose the upload site :
echo ============================================
echo 1 = rapidshare.com 2 = mediafire.com
echo 3 = 4shared.com 4 = megaupload.com
echo 5 = uploading.com 6 = 2shared.com
echo 7 = FileFactory.com 8 = turboupload.com
echo 9 = easy-share.com 10= uploading.com
echo 11= oxyshare.com 12= zippyshare.com
echo c=crack t = torrent
echo b=book a= all 1 to 4
echo ============================================
@set/p "web="
if %web%==1 set web=www.rapidshare.com
if %web%==2 set web=www.mediafire.com
if %web%==3 set web=www.4shared.com
if %web%==4 set web=www.megaupload.com
if %web%==5 set web=www.uploading.com
if %web%==6 set web=www.2shared.com
if %web%==7 set web=www.FileFactory.com
if %web%==8 set web=www.turboupload.com
if %web%==9 set web=www.easy-share.com
if %web%==10 set web=www.uploading.com
if %web%==11 set web=www.oxyshare.com
if %web%==12 set web=www.zippyshare.com
if %web%==c goto crack
if %web%==C goto crack
if %web%==t goto torrent
if %web%==T goto torrent
if %web%==b goto book
if %web%==B goto book
if %web%==a goto all
if %web%==A goto all
rem -------------------------------------------
echo Enter File name to find Download link :
set/p "name="
cls
color 9f
echo.
echo.
echo.
echo.
echo.
echo.
echo Searching for %name% link in %web%
start "iexplorer.exe" "http://www.google.com/search?hl=en&q=%name%+site%3:%web%&btnG=Search"
goto start
:crack
echo Enter program name to find it serial number :
set/p "name="
cls
color 9f
echo.
echo.
echo.
echo.
echo.
echo.
echo Searching for serial number...
start "iexplorer.exe" "http://www.google.com/#hl=en&q=%name%+FP876&fp=m_v6PJ3kTxg"
goto start
:torrent
echo Enter File name to find Torrent link :
set/p "name="
cls
color 9f
echo.
echo.
echo.
echo.
echo.
echo.
echo Searching for %name% Torrent link...
start "iexplorer.exe" "http://www.google.com/#hl=en&q=%name%+torrent&fp=m_v6PJ3kTxg"
goto start
:all
echo Enter File name to find Download link :
set/p "name="
cls
color 9f
echo.
echo.
echo.
echo.
echo.
echo.
echo Searching for %name% link in %web%
start "iexplorer.exe" "http://www.google.com/search?hl=en&q=%name%+site:www.rapidshare.com%3&btnG=Search"
start "iexplorer.exe" "http://www.google.com/search?hl=en&q=%name%+site:www.megaupload.com%3&btnG=Search"
start "iexplorer.exe" "http://www.google.com/search?hl=en&q=%name%+site:www.4shared.com%3&btnG=Search"
start "iexplorer.exe" "http://www.google.com/search?hl=en&q=%name%+site:www.mediafire.com%3&btnG=Search"
goto start
:book
echo Enter The name of book :
set/p "BOOK="
cls
color 9f
echo.
echo.
echo.
echo.
echo.
echo.
echo Searching for %BOOK% BOOK ...
start "iexplorer.exe" "http://www.google.com/search?hl=en&q=allinurl:+%2B(rar|chm|zip|pdf|tgz)+%BOOK%&btnG=Search"
goto start
remطه سوفت للبرامج
ملاحظة أخيرة :
قمت بإعادة كتابة البرنامج في اصداره الثالث بلغة c#
و هذه صورة منه


و هذا رابط تحميله
http://www.multiupload.com/O54DHELTJ0
و هذا رابط موضوعه لمزيد من المعلومات
http://www.tahasoft.com/vb/showthread.php?t=1911

و في آخر مرحلة تم وضع الصفحة الرئيسة لموقعنا بحيث تكون فيها ميزة البحث عن روابط البرامج
وكل الطرق مبدأها واحد كما ذكرنا

ادعولنا

التعليقات (8)

AMER.MHD-BAT     
مشكور كتير على البرنامج
أكثر من رائع
زهير طه     
ما بيغلى عليك يا maroom و هذا كود c#
كود c# لبرنامج أين الرابط :
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Diagnostics;

namespace WindowsFormsApplication4
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}

private void Form1_Load(object sender, EventArgs e)
{

}

private void button1_Click(object sender, EventArgs e)
{

if (checkBox1.Checked == true)
{
Process prc = new Process();
prc.StartInfo.FileName = "http://www.google.com/search?hl=en&q=#QUERY#+site:www.mediafire.com&btnG=Search".Replace("#QUERY#", textBox1.Text);
prc.StartInfo.UseShellExecute = true;
prc.Start();
}
if (checkBox2.Checked == true)
{
Process prc = new Process();
prc.StartInfo.FileName = "http://www.google.com/search?hl=en&q=#QUERY#+site:www.4shared.com&btnG=Search".Replace("#QUERY#", textBox1.Text);
prc.StartInfo.UseShellExecute = true;
prc.Start();
}
if (checkBox3.Checked == true)
{
Process prc = new Process();
prc.StartInfo.FileName = "http://www.google.com/search?hl=en&q=#QUERY#+site:www.megaupload.com&btnG=Search".Replace("#QUERY#", textBox1.Text);
prc.StartInfo.UseShellExecute = true;
prc.Start();
}
if (checkBox4.Checked == true)
{
Process prc = new Process();
prc.StartInfo.FileName = "http://www.google.com/search?hl=en&q=#QUERY#+site:www.rapidshare.com&btnG=Search".Replace("#QUERY#", textBox1.Text);
prc.StartInfo.UseShellExecute = true;
prc.Start();
}
if (checkBox8.Checked == true)
{
Process prc = new Process();
prc.StartInfo.FileName = "http://www.google.com/search?hl=en&q=#QUERY#+site:www.2shared.com&btnG=Search".Replace("#QUERY#", textBox1.Text);
prc.StartInfo.UseShellExecute = true;
prc.Start();
}
if (checkBox7.Checked == true)
{
Process prc = new Process();
prc.StartInfo.FileName = "http://www.google.com/search?hl=en&q=#QUERY#+site:www.easy-share.com&btnG=Search".Replace("#QUERY#", textBox1.Text);
prc.StartInfo.UseShellExecute = true;
prc.Start();
}
if (checkBox6.Checked == true)
{
Process prc = new Process();
prc.StartInfo.FileName = "http://www.google.com/#hl=en&q=#QUERY#+torrent&fp=m_v6PJ3kTxg".Replace("#QUERY#", textBox1.Text);
prc.StartInfo.UseShellExecute = true;
prc.Start();
}
if (checkBox5.Checked == true)
{
Process prc = new Process();
prc.StartInfo.FileName = "http://www.google.com/search?hl=en&q=#QUERY#+site:www.tahasoft.com&btnG=Search".Replace("#QUERY#", textBox1.Text); prc.StartInfo.UseShellExecute = true;
prc.Start();
}
}

private void pictureBox1_Click(object sender, EventArgs e)
{

}

private void groupBox2_Enter(object sender, EventArgs e)
{

}

private void linkLabel1_LinkClicked(object sender, LinkLabelLinkClickedEventArgs e)
{
Process prc = new Process();
prc.StartInfo.FileName = "http://www.tahasoft.com";
prc.StartInfo.UseShellExecute = true;
prc.Start();
}
}
}

إن شاء الله بعد أن أتقن لغة c# نفتح دورة مشابهة لدورة الملفات الدفعية و لكن دورة c#


و على راسي يا أخي عمار و نحن منتعتز بوجودك معنا
SVIIIPAR     
الله يعطيك العافية اخي زهير
لطالما عجزت عن شكرك ((بدون مجاملة))
لن نكون كالفراعنة اصبحت حكمتي بعد الان
وسابذل وسعي لتصل الفائدة الى الجميع
اخوك المحب
عمار العاقل sviiipar x
maroon     
يعطيك ألف عافية أخ زهير
مجهودك رائع
دائما تتحفنا بمواضيعك المميزة
ياريت تنزللنا كود البرنامج باصداره 3 بلغة c#
وبكون شاكرة كتير

زهير طه     
شكراً لك يا عماد و bio_alg
و ان شاء الله أكون قد الكلام الذي ذكرت
أنا بسبب انزعاجي ممن لديهم معلومة و يخفونها فإني أطبق العكس
و قد أمرنا ديننا بهذا قبل كل شيئ
و بالنسبة لهذه المعلومات لا بد أن هناك من يبحث عنها ويستفيد منها ان شاء الله
و للأسف شعبنا متعود على الشي الجاهز
يعني الكل بده برنامج فيه بضعة أزرار و قوائم ويلبي كافة احتياجاته و لا يحبون تعلم البرمجة و إنتاج ما يحتاجون بنفسهم
قد لا تعتبر الملفات الدفعية بشيئ أمام لغات البرمجة و لكن خطوة صغيرة في هذا الطريق العظيم
أشكر كل من يتابعنا وأسأل الله أن يزيدكم من فضله
bio_alg     
ما شاء الله عليك أخي طه وربي يبارك لك في علمك وأهلك ومالك

ما شاء الله عليك اخي زهير والله مبدع بدون مجاملة

بس للأسف المعلومات القيّمة التى تقوم بإعطائها لاتجد من يتعلمها او حتى يقرأئها

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

بإذن الله سوف تجد من يقرا و يطبق بإذن الله

ولن تحس بإن عملك بدون فائدة

انا التمست بك حب الخير وتعليم الغير بعكس كثير من الناس

الذي ما يلبثو ان يتعلم شي صغير "بيصيرو ما بيتحاكو" وغير هيك مستحيل يعلموك

كتب الله لك الأجر بما تعمله ووفق لما تحب

اخوك
عماد اللحام



والله أخي الأشهب إنك قلت ما يجول بخاطري
الأشهب     
ما شاء الله عليك اخي زهير والله مبدع بدون مجاملة

بس للأسف المعلومات القيّمة التى تقوم بإعطائها لاتجد من يتعلمها او حتى يقرأئها

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

بإذن الله سوف تجد من يقرا و يطبق بإذن الله

ولن تحس بإن عملك بدون فائدة

انا التمست بك حب الخير وتعليم الغير بعكس كثير من الناس

الذي ما يلبثو ان يتعلم شي صغير "بيصيرو ما بيتحاكو" وغير هيك مستحيل يعلموك

كتب الله لك الأجر بما تعمله ووفق لما تحب

اخوك
عماد اللحام

Botta     

ما شاء الله
جزاك الله خيرا