مشاركة رقم : 1 (permalink)   22-10-2007, 12:28 PM MaZeN مشرف سابق رقم العضوية : 95 تاريخ التسجيل : Jan 2007 العمر : 23 المشاركات : 4,901 بمعدل : 6.64 يوميا الجنس : على النت: 1999 المؤهل الدراسي : جامعي الجوال : Motorola L7 المنتدى : منتدى لغات البرمجة صنع برنامج لارسال رسالة مجهولة اليوم رح ورجيكون كيف منعمل برنامج صغير على الفيجول بيسك مشان نبعت رسالة للاشخاص و توصلون الرسالة باسم مجهول( غير معروف) و الطريقة كتير سهلة وهي الطريقة اولا :افتح الفجوال بيسك وفورم جديد وادرج كما في الصورة التالية : [عزيزي الزائر يتوجب عليك التسجيل للمشاهدة الرابطللتسجيل اضغط هنا] ثم ادرج الاداة كما في الصورة وسمها باسم Sender1 او باي اسم بتحبوا تسموا ناتي الي الاكواد وهي سهلة جدا ضع هذا الكود في زر الارسال : كود: Private Sub Command1_Click() Command1.Enabled = False ' لابطال زر الارسال بعد الارسال Sender1.From ****1.**** 'ايميل المرسل Sender1.Recipient ****2.**** 'ايميل المرسل اليه Sender1.Subject ****3.**** 'عنوان الرسالة Sender1.Message ****4.**** 'مضمون الرسالة Sender1.send 'بعد كتابة البيانات تعمل الاداة على ارسال البيانات Command1.Enabled = True 'تمكين زر الارسال بعد الانتهاء من كتابة البيانات End Sub ثم ضع هذا في زر مسح ليتم مسح البيانات وكتابة بيانات جديدة : كود: Private Sub command2_Click() ****1.**** = "" ****2.**** = "" ****3.**** = "" ****4.**** = "" 'يعمل هذا الكود على مسح البيانات لكتابة بيانات جديدة End Sub وهيك بيكون صار البرنامج جاهز عندكون شا يفين ما اسهلوا توقيع MaZeN