تويت
السلام عليكم ورحمة الله وبركاته
اليوم .... سنتطرق لطريقة بإمكانك تطويرها تخص إستنباط رابط
مباشر لتحميل ملف
الطريقة تم يناؤها على مركز الخليج و لملفات ذات امتداد لا يتجاوز 3
حسنا : يمكنك الان وضع أنبوت لتكتب فيه رابط التحميل
وليكن الرابط مثلا :
ما الطريقة التي بها أحمل الملف مباشرة ؟
ضف زرا في تجميعيتك و أكتب فيه :
[hide][html]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-----------[/html][/hide]
سلالالالالالام
اليوم .... سنتطرق لطريقة بإمكانك تطويرها تخص إستنباط رابط
مباشر لتحميل ملف
الطريقة تم يناؤها على مركز الخليج و لملفات ذات امتداد لا يتجاوز 3
حسنا : يمكنك الان وضع أنبوت لتكتب فيه رابط التحميل
وليكن الرابط مثلا :
كود PHP:
http://www.gulfup.com/?4Ofsj3
ضف زرا في تجميعيتك و أكتب فيه :
[hide][html]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-----------[/html][/hide]
سلالالالالالام
تعليق