[صالح عبدالله]

السلام عليكم ورحمة الله وبركاته 
كيف استطيع إغلاق ملف  pdf  له المسار التالي بواسطة الكود   

                                          D:\myGoal\Goal1.Pdf

أو إغلاق برنامج Acrobat  بالكامل

[asmarsou]

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

PHP كود :

Dim processes() As Process = Process.GetProcessesByName("AcroRd32")
        For Each process As Process In processes
            process.Kill()
        Next 


[صالح عبدالله]

السلام عليكم ورحمة الله وبركاته
الشكر الجزيل لك على إهتمامك سأجرب الكود ثم أعطيك النتيجة 

لقد قمت بتجربة الكود التالي ونجح معي 

        'Dim tProcess() As Process = System.Diagnostics.Process.GetProcessesByName("Acrobat")

        'For Each AcrobatProcess As Process In tProcess

        '    AcrobatProcess.Kill()

        'Next

[صالح عبدالله]

السلام عليكم ورحمة الله وبركاته
الشكر الجزيل لك أخي تم تجربة الكود وهو ناجح معي 100 \100

[asmarsou]

تمام الحمد و الشكر لله

[aljzazy]

لإغلاق ملف PDF أو برنامج Adobe Acrobat بالكامل باستخدام الكود في Visual Basic.NET، يمكنك استخدام Process.Kill لإغلاق العملية المرتبطة بالملف أو البرنامج.

---

إغلاق الملف المحدد فقط (باستخدام المسار):
لا يمكن إغلاق ملف PDF مباشرة عن طريق المسار فقط، لأنه يعمل ضمن برنامج (مثل Adobe Acrobat). لذا، يجب أن تقوم بإغلاق العملية المرتبطة ببرنامج Acrobat إذا كان يفتح الملف المحدد.

---

إغلاق برنامج Acrobat بالكامل:
إذا كنت تريد إغلاق جميع عمليات Adobe Acrobat المفتوحة (بما في ذلك الملف المطلوب)، يمكنك استخدام الكود التالي:
الكود:
vb
نسخ الكود

كود :

Imports System.Diagnostics

Private Sub CloseAcrobatProcess()
   Try
       ' الحصول على جميع العمليات المرتبطة ببرنامج Acrobat
       For Each proc As Process In Process.GetProcessesByName("Acrobat")
           proc.Kill() ' إغلاق العملية
       Next
   Catch ex As Exception
       MessageBox.Show("تعذر إغلاق برنامج Acrobat: " & ex.Message)
   End Try
End Sub

---

إغلاق ملف PDF محدد فقط:
لإغلاق ملف PDF معين، يمكنك التأكد من إغلاق جميع العمليات المفتوحة لـ Adobe Acrobat أو التحقق إذا كان الملف قيد الاستخدام.
vb
نسخ الكود

كود :

Imports System.Diagnostics

Private Sub CloseSpecificPdf(pdfPath As String)
   Try
       ' التحقق من العمليات المرتبطة بـ Adobe Acrobat
       For Each proc As Process In Process.GetProcessesByName("Acrobat")
           ' التحقق من سطر الأوامر إذا كان يشير إلى الملف المحدد
           If proc.MainWindowTitle.Contains(pdfPath) Then
               proc.Kill() ' إغلاق العملية
           End If
       Next
   Catch ex As Exception
       MessageBox.Show("تعذر إغلاق الملف المحدد: " & ex.Message)
   End Try
End Sub

استدعاء الكود:
vb
نسخ الكود

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   CloseSpecificPdf("D:\myGoal\Goal1.Pdf")
End Sub

---

ملاحظات:

1. اسم العملية: اسم العملية الافتراضي لبرنامج Adobe Acrobat Reader هو
   Acrobat
2. . في حالة استخدام برامج أخرى، قد تحتاج إلى التحقق من اسم العملية الفعلي باستخدام Task Manager.
   
3. الأذونات: قد تحتاج إلى تشغيل البرنامج كمسؤول لإغلاق العمليات.
   
4. Kill(): قد يؤدي إلى فقدان أي تغييرات غير محفوظة