Amaiko WebLog

بسبب خسارتي لبياناتي اكثر من مرة رأيت ان مشاركة ملفاتي الموجودة علي القرص الصلب أمراً صائبا لان ما كنت اشاركه هو الشيء المتبقي لذا ربما ستجدون مقالات من هذا النوع ومنها هذا المقال و الذي يحتوي علي كلاس فكرته موجوده في كتاب البرمجة الشيئية الذي امتحنت فيه قبل ايام.

الكلاس مكتوبة ب VB.Net و تبحث عن عدد الملفات الموجود في مكان معين باستخدام تاريخ الملفات او حجمها او امتداتها و الكود يفسر نفسه

Class CountFiles
'// Get Files Number in Specific Folder - License: Public Domain
    Public Overloads Function GetFiles(ByVal Max As Integer, ByVal Min As Integer, ByVal PATH As String) As Integer
        Max = Max * 1024 * 1024 'To Convert MB to Byte
        Min = Min * 1024 * 1024 'To Convert MB to Byte
        Dim files() As String
        files = System.IO.Directory.GetFiles(PATH)
        Dim i, counter As Integer
        For i = 0 To UBound(files)
            Dim F1 As New System.IO.FileInfo(files(i))
            If F1.Length < Max And F1.Length > Min Then
                counter += 1
            End If
        Next
        Return (counter)
    End Function
    Public Overloads Function GetFiles(ByVal toDate As Date, ByVal FromDate As Date, ByVal PATH As String) As Integer
        'To Get Files Nuumber By Date
        Dim files() As String
        files = System.IO.Directory.GetFiles(PATH)
        Dim i, counter As Integer
        For i = 0 To UBound(files)
            Dim F1 As New System.IO.FileInfo(files(i))
            If F1.CreationTime.Date < toDate And F1.CreationTime.Date > FromDate Then
                counter += 1
            End If
        Next
        Return (counter)
    End Function
    Public Overloads Function GetFiles(ByVal ext As String, ByVal PATH As String) As Integer
        'To Get Files Nuumber By Extention
        Dim files() As String
        files = System.IO.Directory.GetFiles(PATH, "*." + ext)
        Dim i, counter As Integer
        For i = 0 To UBound(files)
            counter += 1
        Next
        Return (counter)
    End Function
End Class

للتاكد من عمل الكلاس
اكتب الكود الأتي في اي زر

Dim DllFiles As New CountFiles()
MsgBox(DllFiles.GetFiles("dll", "c:/windows"))

سيأتي لك بعدد الملفات ذات الأمتداد DLL في المجلد c:/windows
ارجو ان يستفاد شخص ما من هذه الفئة

مقالات متعلقة

• لا مقالات متعلقة

مطلوب مطور أضافات للماجنتو Magento Developer للعمل علي مشروع كبير خاص بالتجارة الإلكترونية علي ان يكون علي استعداد للعمل ضمن فريق و ان لم يكن قد طور أضافات لبرمجية الماجنتو مسبقاُ فعلي الاقل نحتاج مطور لأطار العمل زيند Zend Developer

ان كنت ينطبق عليك الوصف السابق برجاء مراسلتي بالسيرة الذاتية لي علي

admin [at] matgr [dot] com

مقالات متعلقة

• لا مقالات متعلقة

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

مقالات متعلقة

• لا مقالات متعلقة

نظراً لامتلاكي العشرات من النطاقات فهذا يجعلني دائما ما ابحث عن كوبونات التخفيض Coupons عند شراء دومين جديد او تجديد آخر قديم و بما اني من عملاء شركة نيم دوت كوم Name.Com فدائما ما أبحث عن كوبونات تخفيض لهم و اليكم أحدث الكوبونات المتوفرة لدي ارجو ان تفيد بعضكم

Name.com Promo Codes

EATATCHANS $8.09 COM/NET/ORG Renewal

MACEIO $8.50 COM/NET/ORG Registration

HTESROB $7.25 NET Registration

GREENBOW $8.25 COM Registration

بالمناسبة المدونة اتمت عامها الثاني منذ اكثر من شهر و انا اتممت عامي الواحد و العشرين منذ اسبوع

مقالات متعلقة

• لا مقالات متعلقة

كوني مصرياً أصيلاً يجعل من ضمن جيناتي “جين الاستفادة القصوي” من الأشياء فالشهر المنصرم اشتريت حساب لمدة شهر علي موقع ربيدشير RapidShare و الموقع يقدم لك ترافيك 80 جيجا شهريا حيث يمكنك ان تحمل ما شئت من ملفات شرط ان تتخطي حاجز 80 جيجا بايت و لسوء الحظ حتي لو فتحت الكمبيوتر 24 ساعة يوميا و لمدة شهر فلن اتخطي حاجز 30 جيجا - ان كنت محظوظا - و لكن و لحسن الحظ امتلك حساب SSH الذي اصبح متاحا مع اغلب الاستضافات حاليا فقلت لنفسي لما لا نسنخدم برنامج wget لتحميل الملفات بسرعة السيرفر علي احد مواقعي ثم تحمليها الي جهازي في اي وقت اشاء و بالطبع استخدام برنامج wget بشكل مباشر لا يعمل فلابد ان تحفظ اسم المستخدم و كلمة المرور في الكوكيز حيت تتمكن من تحميل الملفات علي سيرفرك واليكم الطريقة لتحويل وصلات الربيد شير لوصلات مباشرة من سيرفرك

Turn Your Rapidshare Links to Direct Links

قم بالولوج الي سيرفرك عن طريق SSH ثم اكثب الأمر التالي

1
2
3
4
5
6

wget \
--save-cookies /home/mywebsite/.cookies/rapidshare \
--post-data "login=UserName&password=PASSWORD" \
-O - \
https://ssl.rapidshare.com/cgi-bin/premiumzone.cgi \
> /dev/null

حيث /home/mywebsite/.cookies هوالمسار الذي سيخزن فيه الكوكيز و لا بد ان يكون المجلد .cookies موجود حيث يتم تخزين الملف rapidshare فية

لمن لا يحب او لا يملك برنامج wget مثبتا علي سيرفره يمكن استخدام برنامج curl عن طريق الأمر

1
2
3
4
5
6
7

 
curl \
--cookie-jar /home/amaikocn/.cookies/rapidshare \
--data "login=UserName&password=PASSWORD" \
https://ssl.rapidshare.com/cgi-bin/premiumzone.cgi \
 
> /dev/null

الآن يمكنك التحميل بسهولة عن طريق الامر

1

wget -c --load-cookies /home/mywebsite/.cookies/rapidshare http://rapidshare.com/myfile.rar

حيث http://rapidshare.com/myfile.rar هو الرابط المراد رفعه للسيرفر
الآن يمكنك ان تسفاد من سرعة التحميل الخاصة بسيرفرك حيث قد تصل معك ل 10 ميجا في الثانية و لكن بالنسبة لي مع الربيدشير فانها لا تتعد 1 ميجا فالثانية ان ان الفيلم 700 ميجا يأخد أقل من 15 دقيقة ليكون جاهزا علي سيرفرك و هكذا يمكنك ان تجعل اشتراك شهر في الربيدشير كانه اشتراك 4 شهور و توفر مساحة علي الهارد ديسك الخاص بك بل و يمكنك مشاركة الوصلات مع اصدقائك من من لا يملكون حساباً في الربيد شير

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

خارج الموضوع : تم تحديث رابط ملف الخلاصات . ايضا ربما ستجد الفترة الحالية ان شاء الله بعض التحديثات في المدونة ارجو ان تنال اعجباكم.

مقالات متعلقة

• أخبار و راوبط (1) (0)