ahmad shaker
07-22-2008, 09:02 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
أرجو منكم مساعدتي في برمجة برنامج بالفيجوال بيسك 2005 يعمل في SEND TO
***********************************
مثال :ـ
هذا برنامج يرفع الملف إلى موقع VIRUS TOTAL ليفحصه بـ 33 برنامج فيروسات
ملاحظة بعد تنصيب البرنامج إختر ملف تريد أن تفحصه (مثلا أحد باتشات البرامج ) بالزر اليمين ثم إرسال إلى/ VIRUS TOTAL
لتحميل البرنامج هنــــــــــــــــــا (http://www.snapdrive.net/files/549158/vtsetup.zip)
************************************
المطلوب الكود البرمجي الذي يتيح لي التشغيل من إرسال إلى للتعامل مع الملف المشار إليه مباشرة ...............
وليكن مثلا برنامج يقوم بحذف الملف بعد إظهار رسالة على الموافقة
وهذا كود الحذف :ـ
Dim ASK As Integer
ASK = MessageBox.Show("هل أنت متأكد من الحذف ", "سؤال عن التأكد ", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
If ASK = Windows.Forms.DialogResult.Yes Then
My.Computer.FileSystem.DeleteFile(الملف المشار إليه)
END IF
*****************************************
ومكان SEND TO هو
C:\********s and Settings\ user\SendTo
*********************************
وشكرا لكم جميعا
والسلام عليكم ورحمة الله وبركاته
السلام عليكم ورحمة الله وبركاته
أرجو منكم مساعدتي في برمجة برنامج بالفيجوال بيسك 2005 يعمل في SEND TO
***********************************
مثال :ـ
هذا برنامج يرفع الملف إلى موقع VIRUS TOTAL ليفحصه بـ 33 برنامج فيروسات
ملاحظة بعد تنصيب البرنامج إختر ملف تريد أن تفحصه (مثلا أحد باتشات البرامج ) بالزر اليمين ثم إرسال إلى/ VIRUS TOTAL
لتحميل البرنامج هنــــــــــــــــــا (http://www.snapdrive.net/files/549158/vtsetup.zip)
************************************
المطلوب الكود البرمجي الذي يتيح لي التشغيل من إرسال إلى للتعامل مع الملف المشار إليه مباشرة ...............
وليكن مثلا برنامج يقوم بحذف الملف بعد إظهار رسالة على الموافقة
وهذا كود الحذف :ـ
Dim ASK As Integer
ASK = MessageBox.Show("هل أنت متأكد من الحذف ", "سؤال عن التأكد ", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
If ASK = Windows.Forms.DialogResult.Yes Then
My.Computer.FileSystem.DeleteFile(الملف المشار إليه)
END IF
*****************************************
ومكان SEND TO هو
C:\********s and Settings\ user\SendTo
*********************************
وشكرا لكم جميعا
والسلام عليكم ورحمة الله وبركاته