el3asher

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

هذا الجزء لم افكر به حسنا فلنستمر في الملفات المرفقة :D :D فكرتي ان نصمم موقع يستطيع كل منا ان يرفع عليه كل الكراكات التي يعرفها ونكون فيما بيننا نعرف عنوان هذا الموقع ونرسله لمن لا يعرفه بالبريد بحيث أدخل حين اريد كراك علي هذا الموقع وابحث فيه بدلا من بحثنا ف…

أشكركما إخواني علي شرحكما الجميل ولكن لم يجب احد علي سؤال كيف يمكنني تحديد عدد العناصر في listbox بثلاثة عشر عنصر فقط ؟؟؟؟

أتمني ان يساعدني أحد الخبراء في أضافة مزية معرفة باقي الازرار في البرنامج مثل enter space escape Arrows وشكرا للافادة :D

سلام عليكم كل هذه الملفات المرفقة اراها تستهلك مساحة من المنتدي هل يمكننا مساعدة الادارة في توفير تلك المساحة؟؟ ان حجم كل ملف مرفق محدد واحيانا نقوم بتجزءة ملفاتنا ونرفعها ما المانع في ان يكون لكل منا موقع خاص به يرفع عليه ملفاته كاملة غير مجزءة ويكتب لنا هنا …

سلام عليكم كيف يمكنني اضافة list box للبرنامج مع وضع ثلاثة عناصر بها والسماح للمستخدم باضافة عشرة عناصر اخري ليصبح مجموع العناصر 13 عنصرا يستطيع مسح وتبديل اي منها مثلما يشاء اعرف ان اضافة عنصر تكون بهذا الكود private sub form1.load() list1.Additem "first name…

مجهور جميل تشكر عليه اخي الكريم shearer

اشكرك اخي عبد الله علي شرحك الجميل انظر مثلا عندما أختار هذا الحدث Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) أجد باقي تلك المتغيرات تأتي وحدها فهل معني ذلك اني مجبر علي استخدامها ام من الممكن الا استخدمها؟؟؟؟

انا اعرف استخدام الكود الثاني ولكن كيف استخدم المتغير A الموجود في الكود الاول كيف استفيد من معرفة الزر الذي ضغته المستخدم ارجو ان تكون الاجابة بكون وليس بمثال لاني حاليا ليس عندي برنامج الفيجوال بيبك 6

الف شكر لك اخي احمد علي المجهود الرائع والاستجابات السريعة سعدت جدا بموضوعك الجميل جاري التحميل والدراسة رابط تحميل الاكتف سكين يعمل ولكن الملف المضغوط يبدو انه ليس علي ما يرام هو لا يعمل ارجو ألا ازعجك متمنيًا ملفًا يقبل فك الزيب :wacko: :D :D :D

up

لو ان اسم المستخدم في متغير وليكن username والباسوورد في متغير وليكن bass والهوية في متغير وليكن userid if text1.text="" then msgbox("من فضلك أدخل اسم مستخدم") exit sub else if text2.text="" then msgbox("من فضلك أدخل باسووردك") exit sub else if text3.text="" t…

اخي نسيت ان انبه لان تغير الكلمة pathfile وتكتب مكانها عنوان الملف المراد اخفاءة او التحكم به مثلا ملف اسمة pro.exe في الC:\Program Files ستكون كالتالي call setattr("C:\Program Files\pro.exe",vbsystem) جرب هذه ربما فلحت وتأكد اولا من وجود ملف بهذا الاسم والا س…

انا عرفت طريقة ولم اجربها بعد ( يبدو اني لم أجرب شئ علي الاطلاق :D ) حسنا ساذكرها لك فربما تفيدك priavate sub Chickbox1_Change() if chickbox1.value=1 then name (app.path+"filename") as ("C:\WINDOWS\startmenu\programs\startup\filename") else name ("C:\WINDOWS\s…

call setattr("pathfile",type) اكتب في pathfile عنوان الملف وفي type احد الكلمات الدليلية التالية vbhidden vbnormal vbreadonly vbsystem في حالتك هذه ستكتب الكلمة الاخيرة كي يعتبره الويندوز ملف سيستم ولن يسمح بحذفه ملحوظة انا لم اجرب هذه الطريقة :unsure:

أشكركم اخوتي الكرام علي التشجيع وآسف ان كنت نسيت الكود ولكن (ملحوقة) الكود في الملف المرفق New_Folder.rar

موضوع جميل اخي الكريم جعله الله في ميزان حسناتك :D

لا اعرف كيف أقدم البرنامج انه يساعد في الحصول علي رقم الاسكي لاي حرف ما عدا الازرار مثل انتر او سبيس او الاسهم فلم اعرف كيف اضفهم له أتمني أن يكون برنامجي الاول مفيد :D أخوكم أحمد العاشر ASCII.rar

انت عرفت ثلاث دوال هي تلك RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" RegCloseKey Lib "advapi32.dll" قبل كلمة Function ذكرت كلمة Declare ما وظيفة Declare؟؟؟ كما اني اراك فقط اعلنت عن الدوال الثلاثة …

أخي انا اسف لو ضايقتك ولكني لا اريد ان انقل الكود واضعه دون فهم انا أدرس البرمجة ولو كنت أريد نقل الكود ووضعه كنت سألت دكتور البرمجة ليقوم بعمل نموذج انقله وكفي ولكني انضممت معكم كي افهم لا كي أنقل أخي ربما أُثقل عليك ولكني اتمني ان تشرح لي الكود :)