26-11-19, 04:58 AM
السلام عليكم
ممكن اصلاح خطأ هذا الكود
كل ما اريده هو التحكم في Notepad عن طريق برنامجي
يعني اذا ضغط على زر تعديل يقوم بضغط على Ctrl & H في لوحة المفاتيح و يظهر لي نافذة remplace
ممكن اصلاح خطأ هذا الكود
كود :
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