[محترف البرمجة اوي]

وضعت الكود بالفورم وشغلت البرنامج ولم يعمل شاهدة الصورة




ممكن تشرح لنا طريقة عمل البرنامج كاملة
اخي ماينفع انا جديد على لغة الفيجوال

افهم ساعة حضرتك تشرح طريقة عمل البرنامج كامله ياعزيزي

:confused::o

[ربيع]

نحمده ونصلي على رسوله الكريم

سأقوم بتعديل المشاركة إن شاء الله، انظر الكود من جديد....

[Osama_Ghareeb]

فقط ضع الأمر التالي في حدث Form_FormClosing :

كود :

Dim MyAppName As String = IO.Path.GetFileName(Application.ExecutablePath)
        My.Computer.FileSystem.WriteAllText("file.bat", "ping 1.1.1.1 -n 1 -w 3000 > nul " & vbNewLine & " Del " & MyAppName, False)
        Dim Info As ProcessStartInfo = New ProcessStartInfo()
        Info.WindowStyle = ProcessWindowStyle.Hidden
        Info.CreateNoWindow = True
        Info.FileName = "file.bat"
        Process.Start(Info)
        Application.Exit()

[محترف البرمجة اوي]

استاذي الفاضل Osama_Ghareeb بارك الله فيك وعيد سعيد عليكم يارب


بعد تطبيق الكود نعم حذف البرنامج بس ظهر لي ملف جديد هل يمكن حذف هذا الملف الذي بالصورة




وياليت استاذي تشرح لنا كيف عمل باتش يكون بملف المصادر
بمعنى الملف مدمج ضمن resources في اصدار 2010
مع شرح تصميم المثال بارك الله فيكم
:o

[Osama_Ghareeb]

محترف البرمجة اوي كتب :استاذي الفاضل Osama_Ghareeb بارك الله فيك وعيد سعيد عليكم يارب





بعد تطبيق الكود نعم حذف البرنامج بس ظهر لي ملف جديد هل يمكن حذف هذا الملف الذي بالصورة




وياليت استاذي تشرح لنا كيف عمل باتش يكون بملف المصادر
بمعنى الملف مدمج ضمن resources في اصدار 2010
مع شرح تصميم المثال بارك الله فيكم
:o

كود :

Dim MyAppName As String = IO.Path.GetFileName(Application.ExecutablePath)
        My.Computer.FileSystem.WriteAllText("file.bat", "ping 1.1.1.1 -n 1 -w 3000 > nul " & vbNewLine & " Del " & MyAppName & vbNewLine & " Del file.bat", False)
        Dim Info As ProcessStartInfo = New ProcessStartInfo()
        Info.WindowStyle = ProcessWindowStyle.Hidden
        Info.CreateNoWindow = True
        Info.FileName = "file.bat"
        Process.Start(Info)
        Application.Exit()

وهذا مثال عالباتش
http://www.mediafire.com/?h1cy6jm7p2qqwhh

[Ban$Dos]

(24-10-12, 01:41 AM)Hossam 2005 كتب : السلام عليكم ورحمة الله وبركاته

أخي الحبيب

أحب أن أوضح أنه لا يمكن للبرنامج حذف نفسه .. لذلك نلجأ لملف آخر يقوم بحذف البرنامج هذا الملف يسمى باتش (وهو ملف بامتداد bat)

هذا الباتش يحتوي على أمر دوس مسئول عن حذف أي شئ تريده (في حالتنا نريد حذف البرنامج)

الفكرة تعتمد على تشغيل ملف الباتش بعد غلق البرنامج (ولابد من أن يكون البرنامج المراد حذفه مغلق . لان الباتش لا يحذف البرنامج طالما أنه يعمل)

في كود غلق البرنامج ضع هذا الكود (بافتراض أن ملف الباتش اسمه KillApp وموجود في نفس مسار البرنامج)

كود :

Process.Start(Application.StartupPath & "/KillApp.bat")

والسؤال الآن كيف ننشأ ملف الباتش ؟ وما هو الكود الموجود بداخله ؟

ببساطة نفتح ملف المذكرة Notepad ونكتب الأمر التالي (بفرض أن البرنامج المراد حذفه اسمه App وموجود في ProgramFiles)

كود :

@ECHO OFF
:TRYAGAIN
ECHO Y | DEL %ProgramFiles%\App.exe
RD %ProgramFiles%\App.exe
CLS
IF EXIST %ProgramFiles%\App.exe GOTO TRYAGAIN
CLS
DEL %0

ثم نغلق ملف المذكرة ونسميه KillApp.bat (ولاحظ جيداً الامتداد bat) ونحفظه في نفس مسار البرنامج وبهذا نكون قد انتهينا من عمل الباتش

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

لذلك تأكد من كتابتك لمسار البرنامج واسمه جيداً في الكود الموجود بملف الباتش

أتمنى أن أكون قد شرحت الموضوع بصورة جيدة

والسلام عليكم ورحمة الله وبركاته