• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

jsa2jack

اعضاء جدد
  • عدد المشاركات

    17
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

1 عادي

عن jsa2jack

  • الرتبة
    عضو جديد
  1. عفوا لماذا لا اجد موضوعي الجديد الذي قمت بنشره تحت هذا الرابط http://www.arabteam2000-forum.com/index.php?showtopic=213059 امن مشكلة ما
  2. نعم فالعنوان صحيح فهذه المكتبة التي لم يسمع عنها الا القليلون هي اهم منتج من هذه الشركة وبالرغم من ذلك القليل من المبرمجون العرب يعرفون عنها اقدم لكم مجموعة expression studio محتويات المكتبة 1- Expression Blend™ + SketchFlow Expression Blend وهي افضل وسيلة تسهل عليك تصميم واجهة برامجك بكل سهولة من الالف الي الياء كا تدعم تمكين واجهة silver light وتضمينها ببرنامجك مع العلم ان عندما تقوم بتنصيب هذه المجموعة مع الــ VS.NET سيمكنك البرمجة مباشرة من خلالها sketchflow وهي اداة خطيرة لتصميم الــ flow chart لبرنامجك بالإضافة الي امكانية عمل documentation لبرنامجك ووصف تفصيلي لكل مراحله وطريقة استخدامة بكل سهولة 2- Expression Web 3 لكل من يحلموا بالدخول الي عالم تصميم الويب كل البرامج المتاحة اما احترافية جدا وتحتاج الي شهور لتعلمها مثل dream waver او flash actions ....... الخ او برامج سهلة الإستخدام لكن لا تعطي كافة الامكانيات المطلوبة ولكن هذه الاداة فوق اي تصور فهي اداة تصمم كل انواع صفح الويب من html , asp , php , aspx , java , scripting , .............. والميزة انها سهلة جدا لدرجة انك لن تشعر انك تبرمج فقط رتب موقعك كما تريد علي طريقة frontpage واترك الاداة تقوم بالباقي فهي تصمم css وحدها بل وبها تصميمات جاهزة للإستفادة منها وايضا طرق ادماج للــ silver light داخل مشروعك و تصميمات جاهزة له حتي انه يستخدم صور الــ photoshop بطبقاتها منفصلة !!! لم و لن تجد ما هو افضل منها في تصميم المواقع بكل انواعها 3- expression design 3 جميعنا عندما نسمع كلمة تصيمي جرافيك تاتي اذهاننا مباشرة الي الــ photoshop فهو (كان) افضل اداة بلا منازع في هذا المجال حتي دمرت شركة ميروسوفت هذا المفهوم هذه الاداة هي افضل بكثير من الــ photoshop وبها كل المميزات الخاصة به و تصاعدك علي التنقل بصورك المصممة مباشرة الي تصميم المواقع من خلال الــ expression web او داخل واجهة برامجك من خلال expression blend وايضا بها تصميم خاص بثلاثية الابعاد و تحريكها بل وبرمجتها !!! وبالنسبة للمهندسين هذا البرنامج يتيح التصاميم المعمارية والصلبة وتطبيق معادلات التصميم مباشرة وبالنسبة لاساتذه الرياضة فهو حل كامل لتصميم ورسم المعادلات بل ورسم الحلول 4- Expression Encoder 3 + IIS Smooth Streaming ماذا بذهنكم ينقص هذه المجموعة بالطبع برنامج لتصميم و تعديل الفيديو و الصوت ليتناسب مع برامجك و مواقعك هذا هو الحل expression encoder انه برنامج اعتقد انه سيفيد من يقدمون خدمان مرئية خلال مواقعهم او برامجهم ( لا استطيع الحكم علي جودته لاني لست ضليعا بهذا الشق من علوم الحاسب ولكن اعتقد انه سيكون الافضل في فئته و الحكم للخبراء في هذا المجال) ولكن كيف نستخدم هذه المجموعة حسنا اقدم الان موقع اصدرته شركة ميكروسوفت خصيصا للتعليم المباشر لكل امكانيات هذه البرامج رابط الموقع وهو به روابط لتحميل البرامج و تحميل شروحات الفيديو الخاص بها مرفق مع الموضوع نسخة طلابية student edition من هذه المجموعة قد تم توزيعها بالجامعة بمركز الشركة كنوع من الدعاية وهي بالطبع للإستخدام الشخصي (تم إزالة المرفق من قبل الإدارة لاحتواءه على نسخة مخصصة لجهة معينة، توزيعها يجعلها نسخة غير قانونية) وسأوافيكم لاحقا بشروحات فيديو كاملة من انتاج شركة total training خاصة بكل مجموعة ولكن صبرا فرفع كل اسطوانة يستغرق حوالي 20 ساعة مني ولكن اعدكم برفعها كلها حتي يستفاد الجميع اترككم مع المجموعة القوية هذه واحب ان اري تعليقاتكم
  3. من الواضح ان مواضيعي ستكون تحت الميكروسكوب :happy: عموما الملف المرفق لبس بكراك ولا بتسجيل فهذه اغلي حزمة ممكن ان تتخيلها في اي مجال ولا تتوقع ان يكون كسرها سهلا لكن الملف السابق يقي من رسالة التسجيل الخاصة بالــ framework لهذه الحزمة (زي ما تقول هروب من التسجيل) واترك الموضوع تحت تصرفك فيما تريد وانا احتاج للتحدث معك قليلا علي الخاص ان امكن
  4. نعم فهو مسجل الــ frameworks الخاص بالبرنامج لا داعي للقلق
  5. لقد تم دعم العربية من اليمين لليسار في بعض الادوات وانا عن نفسي الاداة التي لا تدعم من اليمين الي اليسار استخدم الاداة المقبلة لها في الــframeworks شكرا علي مرورك اخي
  6. مشكلة صغيرة megaupload واخد pan عندي وانا real ip وباقي المواقع الملفات بتفضل عليها 30 يوم علي الاكثر ده الموقع الوحيد الممتاز في الموضوع ده اسف علي ذلك ارجو ان لو في اي حاجة تاني ممكن اقدمها انا تحت الامر
  7. ما معني زر و نص شفاف ممكن توضح اكتر ما الفائدة منهم لكي نفيدك
  8. الصورة غير واضحة ولكن يمكنك إستخدام مجموعة الادوات التي قمت بوضعها في المنتدي راجع هذا الموضوع http://www.arabteam2000-forum.com/index.php?showtopic=212773
  9. اقدم لكل المحترفين في تصميم الواجهات مجموعة رائعة من الايقونات و الصور بصيغة png ذات النقاء العالي والخلفية الشفافة للإستخدام في تزيين و تجميل برنامجك إجمالي العدد تقريبا 200 ايقونة وصورة إجمالي المساحة المضغوطة 26 ميجا باسوور فك الضغط waqwaq icons.txt
  10. قم بالتنصيب واتبع الخطوات السابقة تماما ستجد الادوات قد تمت إضافتها تلقائيا في الــ tool box الخاص بالــ visual studio وبخصائص كل اداه ستخد الخصائص الاساسية كما في الــ frameworks العادية و مميزات إضافية ستوفر لك الكثير من العناء كمثال textedit وهي اداه مطابقة تماما للاداه textbox الموجودة في الــ VS العادية واعني بكلمة مطابقة ان الخصائص و الــ attributes و الاحداث موجودة كما الاصلية بالإضافة الي مميزات اخري لاحظ خصائص الأداة ستجد معظمها مألوف لديك ولكن انظر لهذه الخصائص فهي جديدة تماما عليك فقائمة properties جديدة تمام علي الــ textbox عند فتحها ستجد معظم ما تبحث عنه وتتمناه في الــ text box انظر خاصية mask هذه يمكنك إستخدام numeric لعدم قبول اي حروف داخل الــ text box وهكذا date تسمح فقط بإدخال التاريخ الم تكن تبحث علي الدوام عن اكواد لهذه الخصائص؟؟؟ هاهي امامك دون التعب في المزيد من الاكواد وانا قد شرحت خاصية من اداة واحدة فقط علي سبيل المثال اليك كل ما تتمناه من ادوات مع العلم ان كل الادوات يمكنك تغيير شكلها الوانها كما تريد من lookandfeel والاشكال الاساسية التي تاتي بها بالاصل تتعدي كلمة الرائعة واعتقد ان كل الذين يتعاملوا مع قواعد البيانات سيعجبون جدا بألــ xtradatagrid فهي بلا منازع تحتوي علي كل ما تتمنوه في الــ grid العادية بالإضافة الي اشكال و طرق عرض متحركة خطيرة لدرجة اني استمتع بالبرمجة بها بعض الادوات الجديدة وأيضا المميزات المضافة للــ vs التي ذكرتها سالفا ولهواة تصميم الفورم ستجد اداة جميلة إسمها skin editor تم تنصيبها مع المجموعة يمكنك من خلالها تصميم الفورم بل اي اداة تحلم بها من خيالك فقط صممها وإحفظ تصميمك ومن lookandfeel إختر تصميمك ولا تنسي تعديل use default lookandfeel بــ false إنطلق مع هذه الداة والشكل ان هذه المكتبة قد اعطت مفهوم جديد للبرمجة وانا تحت الامر في اي اداة وخصائص اي منها ولكن عذرا فالرد الواحد قد يتطلب مني تجهيزه الي عدة ساعات ولكن لن ابخل به !!
  11. devexpress اقدم لكم اجمل ما قدمته هذه الشركة من ادوات بمميزات عديدة قد تتطلب منك الكثير من الاكواد كي تقوم بها من خلا الــ frameworks العادية وعن نفسي لقد إستغنيت عن كل الادوات الموجودة داخل الــ frameworks العادية وإستخدمت الملحقة بهذه المجموعة والكثير و الكثير من الادواات الجاهزة التي تقدمها هذه المجموعة وأيضا ملحق بالمجموعة refactor الخاص بها وهو الدليل الافضل لكل المبتدئين بالبرمجة وايضا ملحق dxcore الخاص بالمجموعة وملحق coderush وهي نماذج جاهزه للكود تستخدم تلقائيا لتسهل عملية الكتابة روابط التحميل بالمرفقات (تم إزالة المرفق من قبل الإدارة لاحتواءه على نسخة مخصصة لجهة معينة، توزيعها يجعلها نسخة غير قانونية) كلمة سر فك الضغط waqwaq قم بتنصيب DXperience-9.2.6 ثم IDETools-9.2.6 ثم فك ضغط DevExpress.Registration.Setup.2009.10.14 وقم بتنصيب DevExpress.Registration.Setup.2009.10.14.msi
  12. ممكن كود صعب

    الحل عندك في حدث الــ keyup
  13. شكرا اخوتي الكرام علي مروركم و ردكم الجميل اتمني ان تفيد المكتبة الجميع كما استفدت منها وارجو الا يتأخر اي احد يحتاج الي اي شيء غير مفهوم عن السؤال وانا تحت الامر في اي وقت
  14. إهتتمت بالبحث خلال العديد من المنتديات العربية والاجنبية عن حل لهذه المشكلة و إقتصرت علي حلين اما قراءة مسلسل المحركpartition او قراءة مسلسل القرص الصلب لكن لاتعمل مع الاقراس من النوع sata وايضا تعمل فقط مع vb6 لذا اقدم لكم مكتبة ( منقولة للامانة) ولكن قمت ببعض التعديلات عليها وهي تعمل حاليا علي windows xp harddisk sata , ata visual studio 2002,2005,2008,2010 واترك باقي الاحتمالات لتجربتكم إسم المكتبة Interop.HWINFOCOMLib.dll بالطبع يلزم مسبقا قبل استخدامها ان تضاف الي مسجل الــ windows فقط اكتب في قائمة run regsvr32 %SystemRoot%\System32\Interop.HWINFOCOMLib.dll وبعد ذلك يمكنك إستيرادها كمرجع داخل مشروعك من قائمة add reference داخل visual studio ولمعرفة رقم مسلسل القرص الخاص بك Dim harddiskserial As New HWINFOCOMLib.HD dim ser as string = harddiskserial.serialnumber المتغير ser يحتوي علي رقم مسلسل الخاص بالمصنع للقرص الاساسي علي الجهاز كما ايضا ارفق مع الموضوع مكتبة Chilkat وهي اعتبرها من ناحيتي انها افضل مكتبة علي الإطلاق في كل المجالات التي نتعامل معها مميزات المكتبه مكتبة الــ Chilkat الموقع الرسمي للمكتبة http://www.chilkatsoft.com/ فوائد المكتبة Bounced Mail Bz2 Character Encoding CSV Digital Certificates Digital Signatures Email FTP HTML to XML HTTP IMAP Encryption MHT / HTML Email POP3 PFX RSA S/MIME SMTP Socket Spider SSH SSH Tunnel SSH Key SFTP Tar Archive Upload XML XMP Zip Compression Misc وبالطبع من اهم هذه المميزات التشفير encryption وإرسال البريد الإلكتروني smtp وضغط الملفات بصورة zip , rar ,tar,7z بكلمة مرور او بدون يمكنكم مراجعة شرح المكتبة وكل الدوال بها علي حدي من علي الموقع الخاص بها chilkatsoft.com المكتبة مجانية تماما (ليست للدعايا وانما للإفادة العامة) اولا الـــ Encryption انا عارف اهمية التشفير في الموضوع ده قد ايه علشان كده هبتدي بيه بس قبل ما ابدأ لازم نعرف اننا لازم نضيف المكتبة كمرجع داخل المشروع وطبعا كنوع من تنظيم مشروعك يفضل ان كل ما هو يتعلق بالتشفير يكون في class خارجي علشان تقدر تستخدمه بعد كده وانا من ناحيتي هسهل عليكم طرق الإستخدام جدا جدا بس المهم انكم تستخدموا صح!!! هفترض ان في class مخصصة للتشفير داخل مشروعك ولنفترض انها ENCODING_CLASS وكل طريقة او ميزة للمكتبة هستخدمها في هيئة داله داخل ال class و برضه هوريكم ازاي تستخدموا الclass دي علي فكرة في 200 طريقة تشفير جوه المكتبة انا هشرح 3 منهم و الباقي تقدروا تفهموه من عل الموقع 1- blowfish2 ودي انا عن نفسي بعتبرها من اصعب دوال التشفير في الكسر و من اكثرها امانا طبعا مش هدخل في التفاصيل (لو حد عاوز يعرف اي حاجه زياده عنها يسأل) الإستخدام دالة التشفير الداله التي سيتم وضعها في الــ class Function cryp2(ByVal inp As String, ByVal i As Integer) As String Dim crypt As New Chilkat.Crypt2() Dim success As Boolean success = crypt.UnlockComponent("Anything for 30-day trial") crypt.CryptAlgorithm = "blowfish2" ' CipherMode may be "ecb", "cbc", or "cfb" crypt.CipherMode = "cbc" ' KeyLength (in bits) may be a number between 32 and 448. ' 128-bits is usually sufficient. The KeyLength must be a ' multiple of 8. crypt.KeyLength = 128 ' The padding scheme determines the contents of the bytes ' that are added to pad the result to a multiple of the ' encryption algorithm's block size. Blowfish has a block ' size of 8 bytes, so encrypted output is always ' a multiple of 8. crypt.PaddingScheme = 0 ' EncodingMode specifies the encoding of the output for ' encryption, and the input for decryption. ' It may be "hex", "url", "base64", or "quoted-printable". crypt.EncodingMode = "hex" ' An initialization vector is required if using CBC or CFB modes. ' ECB mode does not use an IV. ' The length of the IV is equal to the algorithm's block size. ' It is NOT equal to the length of the key. Dim ivHex As String ivHex = "0001020304050607" crypt.SetEncodedIV(ivHex, "hex") ' The secret key must equal the size of the key. For ' 256-bit encryption, the binary secret key is 32 bytes. ' For 128-bit encryption, the binary secret key is 16 bytes. Dim keyHex As String keyHex = "000102030405060708090A0B0C0D0E0F" crypt.SetEncodedKey(keyHex, "hex") If i = 0 Then Return (crypt.EncryptStringENC(inp)) Else Return (crypt.DecryptStringENC(inp)) End If End Function ويعدين هنطلب الداله . بس في إضافه انا عاملها و هي ان الداله دي هي اللي بتشفر و بتفك التشفير و الفرق في المتغير i بمعني اني لما اطلب الدالة لو i ب 0 يبقي الداله هترجعلك ناتج التشفير و لو ب 1 هترجعلك ناتج فك التشفير الطريقة الثانية 2- AES ودي طريقة بتعتمد علي معادلة الــ salt ودي معادلة شهرتها في ان طريقة التشفير مبنية علي كلمة سر بتستخدمها في التشفير ودي اهم بكتييييييير من اي حاجة في المعادله والناتج مش unique يعني كل مرة ناتج تشفير شكل لكن المتعة في ان ناتج فك التشفير ثابت و دي طريقة روعة ----- طول التشفير 128 بت زي اللي قبلها وطبعا كل الفارق مابينها و مابين اللي قبلها هي الداله اللي هستخدمها و الباقي نفس الشرح السابق دالة التشفير Function crypt_file(ByVal inp As String, ByVal i As Integer) As String Dim crypt2 As New Chilkat.Crypt2() crypt2.UnlockComponent("anything for 30-day trial") crypt2.CryptAlgorithm = "aes" crypt2.EncodingMode = "base64" crypt2.KeyLength = 128 crypt2.SecretKey = crypt2.GenerateSecretKey("[email protected]!") If i = 0 Then Return (crypt2.EncryptStringENC(inp)) Else Return (crypt2.DecryptStringENC(inp)) End If End Function وهي كمثيل سابقتها الطريقة الثالثة والأخيرة 3-3des ودي طريقة بتقوم بالتشفير 3 مرات لكل بلوك بالــ blowfish و طبعا مش هعد في المميزات لكن العيب الوحيد انها ممكن تاخد وقت طويل في فك التشفير ( مش كتير حوالي 10 ثواني بس طبعا بالنسبة لنا الوقت عامل مهم وفي الاول والاخر المعالج له دوره!!) وطبعا مش محتاج الا ان اضيف الدالة والباقي انتم عارفينه دالة التشفير Function cryp_db(ByVal inp As String, ByVal i As Integer) As String Dim crypt As New Chilkat.Crypt2() Dim success As Boolean success = crypt.UnlockComponent("Anything for 30-day trial") ' Specify 3DES for the encryption algorithm: crypt.CryptAlgorithm = "3des" ' CipherMode may be "ecb" or "cbc" crypt.CipherMode = "ecb" ' Set the key length crypt.KeyLength = 112 ' Choose a padding scheme... crypt.PaddingScheme = 0 ' EncodingMode specifies the encoding of the output for ' encryption, and the input for decryption. ' It may be "hex", "url", "base64", or "quoted-printable". crypt.EncodingMode = "hex" ' An initialization vector is required if using CBC or CFB modes. ' ECB mode does not use an IV. ' The length of the IV is equal to the algorithm's block size. ' It is NOT equal to the length of the key. Dim ivHex As String = "0001020304050607" crypt.SetEncodedIV(ivHex, "hex") ' The secret key must equal the size of the key. ' Remember, DES (i.e. 3DES) uses a parity bit in the key, ' so 112-bit 3DES requires 128 bits of key material ' (i.e. 16 bytes) Dim keyHex As String = "11265395389c904862912aba16d315b8" crypt.SetEncodedKey(keyHex, "hex") If i = 0 Then Return (crypt.EncryptStringENC(inp)) Else Return (crypt.DecryptStringENC(inp)) End If End Function ثانيا email sender تحتوي هذه المكتبة الرائعة علي طريقة لإرسال البريد الإلكتروني وطبعا الميزة دي مهمة للمبرمجين المحترفين (يعني لو عوز البرنامج يبعتلك مثلا كود التسحيل عن طريق البريد ) ودالهة الارسال بتاخد الرسالة و الايميل المرسل ليه و إسم المستخدم الخاص بالايميل وكلمة السر و smtp server و بورت الارسال طبعا اللي فاهمين اكيد يعرفوا البيانات دي لكن اللي مش فاهمين احب اقولهم انك مش كل انواع الإيميل بتدعم smtp (simple mail transfer protocol ) انا هوصف ايميل جوجل لانه بيدعم الخاصية دي كمثال كود الداله Function sendmail(ByVal body As String, ByVal emailto As String, ByVal userr As String, ByVal passs As String, ByVal smtp As String, ByVal portf As Integer) Dim mailman As New Chilkat.MailMan() Dim success As Boolean = mailman.UnlockComponent("Hello World") mailman.SmtpHost = smtp mailman.SmtpPassword = passs mailman.SmtpUsername = userr mailman.SmtpSsl = True mailman.SmtpPort = portf Dim email As New Chilkat.Email() email.Body = body email.Subject = "email subject" email.AddTo("to name", emailto) email.From = "from name" ' Send mail. success = mailman.SendEmail(email) If success Then MessageBox.Show("تم إرسال رسالة ") Else MessageBox.Show(mailman.LastErrorText) End If End Function ولنفترض ان إسم الكائن المنبثق من الــ class هو obj فتكون هذه طريقة إستدعائها (وضعت بريد الكتروني خاص للتوضيح علي الــ gmail) obj.sendmail("emailbody", "[email protected]", "username", "password", "smtp.gmail.com", 465) ثالثا FTP upload and download طبعا كلنا عارفين اننا ممكن نحتاج للبرنامج انه يرفع ملفات للنت زي مثلا التقارير او نسخ إحتياطية لقواعد البيانات ......الخ وبقدملكم طريقه لرفع و تنزيل الملفات من علي الويب بإستخدام المكتبة دالة الرفع upload و التنزيل download function uploadfile(byval file_name as string, byval i as integer) Dim ftp As New Chilkat.Ftp2() Dim success As Boolean ' Any string unlocks the component for the 1st 30-days. success = ftp.UnlockComponent("Anything for 30-day trial") ftp.Hostname = "ftp.chilkatsoft.com" ftp.Username = "****" ftp.Password = "****" ' The default data transfer mode is "Active" as opposed to "Passive". ' Connect and login to the FTP server. success = ftp.Connect() If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub End If ' Change to the remote directory where the file will be uploaded. success = ftp.ChangeRemoteDir("junk") If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub End If ' Upload a file. Dim localFilename As String localFilename = file_name Dim remoteFilename As String remoteFilename = file_name if i =0 then success = ftp.PutFile(localFilename,remoteFilename) If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub End If else success = ftp.GetFile(remoteFilename,localFilename) If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub End If end if ftp.Disconnect() end function وهي كسابقتها غذا كان i بــ 1 معناها تحميل و 0 معناها رفع وهنالك الكثير و الكثير في هذه المكتبة الرائعة وانا تحت الامر في اي شيء في المكتبة غير مفهوم رابط تحميل المكتبة وملف قراءة مسلسل القرص الصلب في المرفقات كلمة سر فك الضغط waqwaq روابط التحميل.txt