[farfour]

السلام عليكم 

ممكن اصلاح خطأ هذا الكود

كود :

   Dim path As String = "C:\Windows\system32\notepad.exe"
   Private Declare Function SetForegroundWindow Lib "User32.dll" (point As IntPtr) As Integer

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Dim process As Process = process.GetProcessesByName("notepad").FirstOrDefault(Of Process)()
       If process IsNot Nothing Then
           Dim mainWindowHandle As IntPtr = process.MainWindowHandle
           Form1.SetForegroundWindow(mainWindowHandle)
           SendKeys.SendWait("^{H}") 'replace Ctrl & H
       End If

   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Process.Start(path)
   End Sub

كل ما اريده هو التحكم في Notepad عن طريق برنامجي 
يعني اذا ضغط على زر تعديل يقوم بضغط على Ctrl & H  في لوحة المفاتيح و يظهر لي نافذة remplace

[محمد كريّم]

كود :

       Dim process As Process = Process.GetProcessesByName("notepad").FirstOrDefault()
       If process IsNot Nothing Then
           Dim mainWindowHandle As IntPtr = process.MainWindowHandle
           Form1.SetForegroundWindow(mainWindowHandle)

           SendKeys.SendWait("^{h}") 'replace Ctrl & H
       End If

غير H إلى شكل صغير h