منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - اصلاح خطأ بسيط في الضغط على زر لوحة المفاتيح

السلام عليكم Heart

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

كود :

   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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

farfour

محمد كريّم