[bassant]

السلام عليكم 


ماهو كود ب .net يقوم باعادة تشغيل مستكشف ملفات الووندوز windows explorer  اقصد يقوم بعمل RESTART  ل WINDOWS EXPLORER

وشكرا

[Taha Okla]

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

أنشئ موديل جديد وضع في الكود التالي :

كود :

Imports System.Diagnostics
Imports System.Runtime.InteropServices

Module Module1

   <DllImport("user32.dll", SetLastError:=True)>
   Private Function PostMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Boolean

   End Function

   <DllImport("user32.dll", SetLastError:=True)>
   Private Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr

   End Function
   Const WM_USER As Integer = &H400

   Public Sub RestatrtWinExp()
       Try
           Dim ptr = FindWindow("Shell_TrayWnd", Nothing)
           PostMessage(ptr, WM_USER + 436, CType(0, IntPtr), CType(0, IntPtr))

           Do
               ptr = FindWindow("Shell_TrayWnd", Nothing)

               If ptr.ToInt32() = 0 Then
                   Exit Do
               End If
           Loop While True

       Catch ex As Exception
       End Try

       Dim explorer As String = String.Format("{0}\{1}", Environment.GetEnvironmentVariable("WINDIR"), "explorer.exe")
       Dim process As Process = New Process()
       process.StartInfo.FileName = explorer
       process.StartInfo.UseShellExecute = True
       process.Start()
   End Sub

End Module

التنفيذ : يكون بإستدعاء الأمر :

كود :

RestatrtWinExp()

[bassant]

(01-07-24, 04:33 PM)Taha Okla شكرا جزيلا لك الكود يعمل بنجاح ولكنه  يقوم باعادة تشغيل ال file explore انا اريد اعادة تشغيل ال windows explorer ارجو المساعدة  ولك الشكر الجزيل كتب : وعليكم السلام ورحمة الله وبركاته

أنشئ موديل جديد وضع في الكود التالي :

كود :

Imports System.Diagnostics
Imports System.Runtime.InteropServices

Module Module1

   <DllImport("user32.dll", SetLastError:=True)>
   Private Function PostMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Boolean

   End Function

   <DllImport("user32.dll", SetLastError:=True)>
   Private Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr

   End Function
   Const WM_USER As Integer = &H400

   Public Sub RestatrtWinExp()
       Try
           Dim ptr = FindWindow("Shell_TrayWnd", Nothing)
           PostMessage(ptr, WM_USER + 436, CType(0, IntPtr), CType(0, IntPtr))

           Do
               ptr = FindWindow("Shell_TrayWnd", Nothing)

               If ptr.ToInt32() = 0 Then
                   Exit Do
               End If
           Loop While True

       Catch ex As Exception
       End Try

       Dim explorer As String = String.Format("{0}\{1}", Environment.GetEnvironmentVariable("WINDIR"), "explorer.exe")
       Dim process As Process = New Process()
       process.StartInfo.FileName = explorer
       process.StartInfo.UseShellExecute = True
       process.Start()
   End Sub

End Module

التنفيذ : يكون بإستدعاء الأمر :

كود :

RestatrtWinExp()

[Taha Okla]

شو الفرق بين :
Windows Explorer   ///   File Explorer    
؟

العملية أنه قامت مايكروسوفت بتغيير اسمه في النسخ الحديثة من الويندوز لا أكثر، كلاهما واحد..
هما نفس البرنامج ( explorer.exe)

أثناء تنفيذ الكود السابق يقوم أولا بإنهاء عمل explorer.exe
ثم يقوم بإعادة تشغيله ..
تلاحظ ذلك من خلال أغلاق (كل مستعرضات الملفات + شريط ابدأ).

إن لم يستطع الكود إغلاق البرنامج (لسبب ما)  : يقوم بتشغيل مستعرض الملفات ويبقى المستعرض شغال.

--

هذه الكود مناسب لويندوز 11   لم أجربه على أي نسخ أخرى من الويندوز..

[ابو روضة]

قد ينفعك هذا

PHP كود :

Dim sami() As Process = Process.GetProcessesByName("explorer")
            For Each p As Process In sami
                p.Kill()
            Next 


[bassant]

(03-07-24, 04:16 PM)Taha Okla كتب : شو الفرق بين :
Windows Explorer   ///   File Explorer    
؟

العملية أنه قامت مايكروسوفت بتغيير اسمه في النسخ الحديثة من الويندوز لا أكثر، كلاهما واحد..
هما نفس البرنامج ( explorer.exe)

أثناء تنفيذ الكود السابق يقوم أولا بإنهاء عمل explorer.exe
ثم يقوم بإعادة تشغيله ..
تلاحظ ذلك من خلال أغلاق (كل مستعرضات الملفات + شريط ابدأ).

إن لم يستطع الكود إغلاق البرنامج (لسبب ما)  : يقوم بتشغيل مستعرض الملفات ويبقى المستعرض شغال.

--

هذه الكود مناسب لويندوز 11   لم أجربه على أي نسخ أخرى من الويندوز..

شكرا جزيلا لك على مساعدتك وعلى متابعتك للردود اخي الكريم  ..الكود يعمل بنجاح  لكن المشكلة انه يغلق مستعرض الملفات ويعيد تشغيله مرة اخرى ولكن لا يغلق شريط ابدأ فانا اريد ايضا ان يغلق شريط ابدأ ويعيد تشغيله مرة اخرى

[bassant]

(03-07-24, 04:16 PM)Taha Okla شكرا جزيلا لك على مساعدتك وعلى متابعتك للردود اخي الكريم  ..الكود يعمل بنجاح  لكن المشكلة انه يغلق مستعرض الملفات ويعيد تشغيله مرة اخرى ولكن لا يغلق شريط ابدأ فانا اريد ايضا ان يغلق شريط ابدأ ويعيد تشغيله مرة اخرى كتب : شو الفرق بين :
Windows Explorer   ///   File Explorer    
؟

العملية أنه قامت مايكروسوفت بتغيير اسمه في النسخ الحديثة من الويندوز لا أكثر، كلاهما واحد..
هما نفس البرنامج ( explorer.exe)

أثناء تنفيذ الكود السابق يقوم أولا بإنهاء عمل explorer.exe
ثم يقوم بإعادة تشغيله ..
تلاحظ ذلك من خلال أغلاق (كل مستعرضات الملفات + شريط ابدأ).

إن لم يستطع الكود إغلاق البرنامج (لسبب ما)  : يقوم بتشغيل مستعرض الملفات ويبقى المستعرض شغال.

--

هذه الكود مناسب لويندوز 11   لم أجربه على أي نسخ أخرى من الويندوز..