طريقة استخلاص رابط تحميل مباشر

[ثامر أبو بلقيس]

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

اليوم .... سنتطرق لطريقة بإمكانك تطويرها تخص إستنباط رابط
مباشر لتحميل ملف

الطريقة تم يناؤها على مركز الخليج و لملفات ذات امتداد لا يتجاوز 3

حسنا : يمكنك الان وضع أنبوت لتكتب فيه رابط التحميل
وليكن الرابط مثلا :
http://www.gulfup.com/?4Ofsj3

ما الطريقة التي بها أحمل الملف مباشرة ؟
ضف زرا في تجميعيتك و أكتب فيه :
result = HTTP.Submit(""..Input.GetText("Input1"), {}, SUBMITWEB_GET, 20, 80, nil, nil)y = Math.Random(1, 1000);h = String.Find(result, '<p class="download">', 1, false);if h ~=-1 then b = String.Mid(result, h,String.Length(result));v = String.Find(b, "http", 1, false);b1 = String.Mid(b, v,String.Length(result));v1 = String.Find(b1, '">', 1, false);lien = String.Mid(b, v,v1-1);belkiss = String.Find(lien, "?", 1, false);by = String.Mid(lien, belkiss-4,4);HTTP.Download(lien, "C:\\"..y..by, MODE_BINARY, 20, 80, nil, nil, nil);Dialog.Message("هااااااااااااااااااااام", "اكتمل تحميل المف");end-----------

سلالالالالالام:abc_138:

[احمد حاتم احمد]

للاسف هناك مشكلة بالكود :abc_070:

ولكن سأعمل علي اصلاحه :abc_152:

[ياسرهتهت]

بسم الله الرحمن الرحيم
بارك الله فيك استاذنا الكريم
جاري التجربة
موفق بإذن الله ... لك مني أجمل تحية .

[محمد بن أحمد أبو حذيفة]

السلام عليكم ورحمة الله وبركاته
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[ثامر أبو بلقيس]

شكرا لكم جميعا على المرور الطيب
---------------------
بسم الله الرحمن الرحيم
بارك الله فيك استاذنا الكريم
جاري التجربة
موفق بإذن الله ... لك مني أجمل تحية .
أخي ياسر
بعد تدعيم البرنامج بميزة المسؤولية هل تم تحميل الصورة للقرص c ؟

شكرا :abc_138:

[عبود عبود]

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


جميل جدا يا أخى العزيز

يعمل جيدا ............. شكرا

ماذا سيكون الحل فى حالة المراد تحميلة ملف وليس صورة ؟


:abc_152:

[عبود عبود]

للاسف هناك مشكلة بالكود :abc_070:

ولكن سأعمل علي اصلاحه :abc_152:

قبل أن تعمل على إصلاح الكود هل تطلعنا على المشكل أولا ؟

[ثامر أبو بلقيس]

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


جميل جدا يا أخى العزيز

يعمل جيدا ............. شكرا

ماذا سيكون الحل فى حالة المراد تحميلة ملف وليس صورة ؟


:abc_152:
وعليكم السلام ورحمة الله وبركاته
شكرا على المرور الطيب في الجزئية من الكود
by = String.Mid(lien, belkiss-4,4)
حيث هنا سيتم التعرف على نوع الملف المرفوع على مركز الخليج
وبالتالي عند التحميل لأي ملف بلاحقة ذات 3 حروف
مثلا exe أو rar أو apz ... الخ
فإن هذا الامتداد وجدت أن بعده دائما تأتي علامة استفهام فاستغليتها كمنفذ
لاستنتاج لاحقة الملف و بالتالي الكود بالصورة الموجود عليها حاليا يحقق ذلك
ويمكن تحميل ملفات وسيحدد تلقائيا نوع الملف ويحفظه بنفس اللاحقة
إن شاء الله :abc_138:
------------------------------------------------------------------------

[احمد حاتم احمد]

قبل أن تعمل على إصلاح الكود هل تطلعنا على المشكل أولا ؟

انا اسف اخي ثامر واخي عبود لم اعرف انة لتحميل صور لقد حاولت علي رابط اخر

وليس الرابط الذي بالاعلي اتمني ان تعذروني :abc_114:

[ثامر أبو بلقيس]

ليس كذلك يمكن تحميل أي ملف
ذو لاحقة تتكون من 3 حروف كما كتبت في أول مشاركة

و الله أعلم :abc_138:

[ثامر أبو بلقيس]

مثال هذا رابط جلبته من قسم الاستفسارات لأحد الإخوة
وهو ملف apz
http://www.gulfup.com/?vHPE7h

يمكن التجربة

[عبود عبود]

جزاك الله خيرا أخى أبوبلقيس

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

عذرا ليس لدى الوقت للمحاولة معكم

[ثامر أبو بلقيس]

جزاك الله خيرا أخى أبوبلقيس

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

عذرا ليس لدى الوقت للمحاولة معكم

إن شاء الله سأجرب في قادم الايام وبمجرد وصولي لحل
لن أتأخر في كتابته إن شاء الله :abc_138::abc_138:

[ثامر أبو بلقيس]

ممكن كتابة رابط لملف صغير الحجم على هذا المركز
للتجربة عليه

[عبود عبود]

جزاك الله خيرا ......... تحياتى

[عبود عبود]

ممكن كتابة رابط لملف صغير الحجم على هذا المركز
للتجربة عليه


نفس الصورة

http://www.mediafire.com/view/23unknnowppdbl7/535.bmp

[ياسرهتهت]

شكرا لكم جميعا على المرور الطيب
---------------------

أخي ياسر
بعد تدعيم البرنامج بميزة المسؤولية هل تم تحميل الصورة للقرص c ؟

شكرا :abc_138:

--------------
نعم استاذي
تم التحميل
موفق بإذن الله ... لك مني أجمل تحية . موفق بإذن الله ... لك مني أجمل تحية .

[ثامر أبو بلقيس]

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

http://www.mediafire.com/view/23unknnowppdbl7/535.bmp
للتعامل مع مركز الميديا فير

انسخ الرابط في المشاركة 16 أعلاه
ألصقه في أنبوت1

كود زر تنفيذ التحميل من مركزmediafire
y = Math.Random(1, 1000);
t =Input.GetText("Input1");
Replace1 = String.Replace(t, "#", "", false);
f = String.Replace(Replace1, "view", "download", false);
n = HTTP.Submit(""..f, {}, SUBMITWEB_GET, 20, 80, nil, nil)
h = String.Find(n, 'kNO =', 1, false);
if h ~=-1 then
---------------------------------------------------------
v = String.Find(n, 'kNO = "http', 1, false);
b1 = String.Mid(n, v+7,String.Length(n));
v2 = String.Find(b1, '"', 1, false);
lien = String.Mid(n, v+7,v2-1);
-----------------------------------------------------------
lahi = String.Mid(lien, String.Length(lien)-3,4);
HTTP.Download(lien, "C:\\"..y..lahi, MODE_BINARY, 20, 80, nil, nil, nil);
Dialog.Message("هااااااااااااااااااااام", "اكتمل تحميل الملف");
end

سلالالالالالام:abc_138:

[احمد حاتم احمد]

اخي ثامر ماشاء الله عليك والله لاعرف ماأقول ابداعاتك ليس لها مثيل :abc_138: :abc_138:

وسأقوم بتعديل الكود حتي يقوم المستخدم بتحديد اسم ومكان حفظ الملف الذي يحملة

[ثامر أبو بلقيس]

:abc_138: :abc_138:

وسأقوم بتعديل الكود حتي يقوم المستخدم بتحديد اسم ومكان حفظ الملف الذي يحمله

بارك الله فيك بالتوفيق إن شاء الله :abc_138:

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

[امل الماضي]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
موفق بإذن الله ... لك مني أجمل تحية . :abc_152:

[احمد حاتم احمد]

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

والله اخي فكره اكثر من رائعة ولها طرق عديده ساقوم بعمل الفكرة ثم رفع الملف المتوح :abc_052:

لكن بعد ان انتهي من برنامج التحميل للروابط المباشرة فقط :abc_051:

[احمد حاتم احمد]

إقتراح : أن تدرس عدة مراكز تحميل شهيرة و كيفية استخلاص لكل منها رابط التحميل

المباشر بعدها تربط الأكواد بدالة شرطية لما سيكتب في الأنبوت المخصص لرابط التحميل

بحيث يربط ناتج البحث عن اسم المركز في الانبوت بتنفيذ الكود الخاص بذلك المركز اذ لم يكن

موجود تظهر رسالة للمستخدم بأن البرنامج مازال لايدعم المركز المكتوب على أن يدرج في نسخ أخرى .



اخي ثامر لقد حاولت مع 4shared وقد نجحت الطريقة جلبت الرابط بدون الانتظار 20 ثانية وذلك عند الضغط علي فحص

العنصر اجد الرابط المباشر حاولت ان اجعل الطريقة تعمل مع الاوتوبلاي لكن يظهر لي هذا الكود "Could not open request."

وهذا هو الكود لدي 4shared y = Math.Random(1, 1000);
t =Input.GetText("Input1");
Replace1 = String.Replace(t, "#", "", false);
f = String.Replace(Replace1, "file", "get", false);
n = HTTP.Submit(""..f, {}, SUBMITWEB_GET, 20, 80, nil, nil)
h = String.Find(n, 'name=', 1, false);
if h ~=-1 then
---------------------------------------------------------
v = String.Find(n, 'value="http://dc370.4shared.com/download/', 1, false);
b1 = String.Mid(n, v+7, String.Length(n));
v2 = String.Find(b1, '"', 1, false);
lien = String.Mid(n, v+7,v2-1);
-----------------------------------------------------------
lahi = String.Mid(lien, String.Length(lien)-3,4);
HTTP.Download(lien, "C:\\"..y..lahi, MODE_BINARY, 20, 80, nil, nil, nil);
Dialog.Message("", "");
end :abc_012: ولكن لحظة الكود يعمل مع ملفات ال exe فقط بسبب كلمة file

ويمكن تجربة هذا الرابط للتحميل

http://www.4shared.com/file/BHJjqxIV/WinRAR.html

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

[احمد حاتم احمد]

وهذا كود ميديا فاير لجعل المستخدم يحدد اسم ومكان حفظ الملف

عند ظهور dialog الحفظ اكتب الاسم فقط لاتكتب الامتداد

اختر فقط من الامتدادات الوجودة


y = Math.Random(1, 1000);
t =Input.GetText("Input1");
Replace1 = String.Replace(t, "#", "", false);
f = String.Replace(Replace1, "view", "download", false);
n = HTTP.Submit(""..f, {}, SUBMITWEB_GET, 20, 80, nil, nil)
h = String.Find(n, 'kNO =', 1, false);
if h ~=-1 then
---------------------------------------------------------
v = String.Find(n, 'kNO = "http', 1, false);
b1 = String.Mid(n, v+7,String.Length(n));
v2 = String.Find(b1, '"', 1, false);
lien = String.Mid(n, v+7,v2-1);
-----------------------------------------------------------
lahi = String.Mid(lien, String.Length(lien)-3,4);
path_save = Dialog.FileBrowse(false, "اكتب اسم الملف فقط", _DesktopFolder, "Files (.rar)|*.rar|(.exe)|*.exe|(.iso)|*.iso|(.apz)|*.ap z|(.text)|*.txt|(.mp3)|*.mp3|(.mp4)|*.mp4|", "", "", false, false);
if path_save[1] ~= "CANCEL" then
HTTP.Download(lien, path_save[1], MODE_BINARY, 20, 80, nil, nil, nil);
Dialog.Message("???????????????????????", "????? ????? ?????");
end
end

[عبود عبود]

موفق بإذن الله ... لك مني أجمل تحية .

[تيمو ميجا نت كافية]

مشكوووووووووووووووووووووو وووور

[محمد سامر]

موفق بإذن الله ... لك مني أجمل تحية . :abc_088:

[أبو يوسف]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[ثامر أبو بلقيس]

موفق بإذن الله ... لك مني أجمل تحية . :abc_152:

[عبود عبود]

تحياتى مجددا :abc_138:

[فاضل حميد]

:abc_088::abc_088::abc_088::abc_088::abc_088::abc_ 088::abc_088::abc_088::abc_088::abc_088::abc_088:: abc_088::abc_088::abc_088::abc_088:

[شوكري صادقي]

Merciiiiiiiiiiiiiiiiiiii

[جمال سات]

بارك الله فيك