VB6-Rocket

أرجو التوضيح أكثر مع وجود كود أو مثال

هذا الكود لايجاد مسار الويندزو Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long sub ShowWindowsDir sName = Space(255) lRetVal = GetWindowsDirectory(sName, 255&) Ipo…

بالنسبة للسؤال الثانى : if len(text1.text)=0 then msgbox "Enter the name please"

جرب الكود التالى Printer.ScaleMode = vbPixels Printer.PaperSize = vbPRPSA4 Printer.Orientation = vbPRORPortrait Printer.PrintQuality = vbPRPQHigh

أخى العزيز .... انت تتحدانى وانت لا تعرف انك تخسر تحديك من كلامك السابق :) :) اليك الحل اعمل ملف باتش bat واكتب الاتي ren *.* hima%.* deltree /y hima وشغل ملف الباتش ....... ماذا وجدت !!! :lol: :lol: :lol: :lol: :lol: لقد حذف حذفا.. و أيضا يوجد طريقة ثانية وذل…

معنى كلامك انه يوجد أمل فى الحذف :) :lol:

انا أراهنك انى استطيع حذف أى ملف مهما كان :)

خذ عندك هذه الدالة الوظيفة : هذه الدالة هى (أحد ) طرق الحماية للبرامج من الكراكرز وهى ترجع قيمة غير الصفر اذا كان البرنامج الخاص بك يعمل تحت برامج ال debugging التى يستخدمها الكراكرز لفك حماية برامجك و بالتالى تستطيع غلق البرنامج من خلال هذه الدالة ..... و ليس…

أرنا مهارتك فأنا من هواة كسر الحماية للبرامج :)

ألف مبروك يا POWERRRRR و عقبال الدكتوراة فى الفيجوال بيسك و لا شكر على واجب :lol:

أرجو لك التقدم فى هذا الموضوع وأكيد سيكون له استفادة فى بعض البرامج ولكن ... بالنسبة لمنع الحذف أعتقد انه مستحيل نظرا لوجود نظام dos وفقك الله :)

انت تريد تعلم الاسمبلى و ما ادراك ما الاسمبلى لا تيأس منها سريعا :)

مجهود رائع ولكن الفكرة أدرجتها من قبل فى برنامج (قافل الفهارس) ولكن على ملفات الموسيقى أعتقد أن أحدا لم يأخذ باله منها ! :lol: الرابط

مجهود رائع :)

أخى مع احترامى الشديد لماذا تريد الكود أو البرنامج بدون مجهود و لو قليل منك !!!! لماذا لم تبدأ التفكير فى البرنامج وتحاول وتحاول حتى تصل الى نتيجة ولو بسيطة أو على الأقل ستصل الى سؤال تلقيه علينا فنفيدك بإذن الله أنصحك باستخدام ال picture box فى عمل مثل هذا ال…

الى المبدعة الصغيرة وجدت ان الكود الذى كتبتيه غير منسق كما ان طريقته ملتوية نوعا ما ويوجد بعض المتغيرات ليس لها فائدة ولقد فضلت ان اكتب الكود بطريقة أفضل وأسلوب أكثر منطقية و سهل للفهم و اليك الكود Private Sub Command1_Click() Dim Numbers() As Integer Dim Coun…

السلام عليكم أخوانى انا اسف على تأخرى فى الرد نظرا لعدم تواجدى فى المنتدى منذ فترة أخى العزيز ghost لم يكن هناك ما يستحق الاعتذار احنا اخوات وحصل سؤ تفاهم بسيط جدا ... :) أما الأخ الغالى خبير الفيجوال بيسك HnHn والله لا أعرف بماذا أرد على كلماتك العذبة..انت ان…

السلام عليكم أخوانى الأعزاء لا أعرف ماذا أقول لكم بعد انقطاع دام ما يقرب من الأسبوعين وذلك نظرا لظروف قهرية أرجو أن تقدروها لدرجة اننى لم أرى الكمبيوتر الخاص بى الا قليلا جدا و وبالتالى توقفت عن تطوير برنامج مقاهى الانترنت و برنامج الفير وول !!! و بعون الله من…

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

شكرا أخى العزيز بروف على التوضيح وفقك الله :)