MiCcSoft

هذا الموضوع قديم لكن لم أعرفها بعد أخي هنالك برامج خاصة تقوم بتفريغ الذاكرة ما هو الكود الذي يقوم بذلك !

أخي أعتقد أنه هناك حل لمشكلتك وهي أعمل برنامج ضغير خفي وعمله جميع الملفات التي تحول عن طريق الأمر السابق الذي وضعته أنت يمرره إلى البرنامج عن طريق المراسلات بين البرامج لو جلعنا أسم الملف الهدف : c:\myapp.exe Com = Add c\:file.bin myapp.exe هو أسم البرنامج الص…

تسهيل : يتم تقطيع الملفات الصوتية عن طريق تقطيع الملف نفسه أي خذ حوالي 40 كيلو بايت من ملف صوتي وضعها في ملف جديد يصبح لديك ملف صوتي جديد كل ثانية = 3000,000 \ 96 = 31250 بايت تريد ثلاث ثواني يعني 31250 × 3 = 93750 بايت أعمل مصفوفة عدد عناصرها 93750 من النوع B…

لقد طورت البرنامج لدرجة كبيرة : 1- يستطيع وضع الكثير من الملفات داخل الملف التنفيذي و استخراجها 2 - حذف أي ملف منه وأستعطت حفظ حجم الملف الأصلي في نهاية الملف بطريقة فعالة الكود : Imports System.Reflection Public Class MainFrm Structure AllFiles Dim AllFileTyp…

أخي وجدت طريقة أخرى وهي عن طريق قراءة بايتات الملف التنفيذي والملف المطلوب وضعه ودمجهما ثم كتابتهما إلى ملف أخر والقراءة قراءة الملف من مثلا البايت 34464 إلى نهاية الملف فيكون لدينا الملف الموضوع داخل الملف التنفيذي لكن يوجد مشكلة بسيطة وهذا الكود : Public Cla…

لنفرض أي لديك ملف صوتي حجمه 3000,000 بايت ووقته 96 ثانية أعمل كود يأخذ قسم من الملف أي ثلاث ثواني فقط أو أي وقت أخر ويضعه في ملف أخر تنبيه :أريد ثلاث ثواني من وسط الوقت أي ليس الثلاث الأولى البرنامج معي جاهز الصورة في المرفقات

أخي يتم إرسال مفتاح إلى النظام عن طريق Sendkeys وهذا كود لتصوير الفورم الخاص بالبرنامج أو الشاشة بكاملها Public Function GetScreenCapture( _ Optional ByVal FullScreen As Boolean = False) As Image ' Captures the current screen and returns as an Image object Dim…

أخي هذا كود بسيط يفتح المستندات ب 2003 Dim a As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) Process.Start(a) مسار المستندات هو المتغير a حاول استكشاف ل Environment.SpecialFolder لأخذ مجلدات ثانية

أخي بشا الكود السابق يعمل مع vb 2005 فقط وبالنسبة لل 2003 : Dim s As String For Each s In System.Environment.GetCommandLineArgs If s = Application.ExecutablePath Then Else 'الكود هنا MsgBox(s) End If Next الان يجب أن يكون لديك برنامج يفتح أكثر من ملف يعني صمم …

Dim s As String For Each s In My.Application.CommandLineArgs If IO.File.Exists(s) Then 's هي مسار الملف End If Next المتغير S هو مسار الملف طبعا إذا حددت أكثر من ملف سيتغير المتغير s ليشمل جميع الملفات المحددة أعطني الكود الخاص ببرنامج الذي يقوم بإستخدام المتغ…

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

أخي ولله أعلم أنها لاتعمل بنفسها لكن كنت أريد التعبير عن Windows Control library وظهرت هذه الكلمة :angry: :angry: :angry: ( :D ) والحمد لله لاقيت طلبي في رد الاخ moudey

أقصد Windows Control Library

أخي المشكلة ليست في برمجة Dll لكن في كيفية تشغيله مع المجلد ؟! حيث جربت برمجة Dll مرئية ولم تنجح حيث لم يقم Explorer بتقبلها

بسم الله الرحمين الرحيم واجهتني مشكلة وهي في صنع مجلد في جهاز الكمبيوتر وقد نجحت في وضع المجلد في جهاز الكمبيوتر لكن المشكلة في فتحه . الكود المستعمل : 'يجب فتح المسار التالي في الريجستري لإضافة كلاسيد Dim So As Microsoft.Win32.RegistryKey = Win32.Registry.Loc…

أخي هذه التويكات يتم تنفيذها عن طريق برامج الويندوز وقليل منها له مسار في الريجيستري

تفضل أخوي MiCcSoft_Code_Library.rar

الجزء الأول الجزء الثاني الجزء الثالث الجزء الرابع registry.part1.rar registry.part2.rar registry.part3.rar registry.part4.rar

أنظر إلى شعاري

لدي كود أتصال باي جهاز أو موقع من خلال عنوان الأيبي وهو Dim Soc As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) Soc.Connect(New IPEndPoint(Dns.Resolve("www.arabteam2000-forum.com").AddressList(0), 21)) If Soc.Connected = True The…