22-12-13, 04:02 PM
مثلآ
يعنى يرسل الحرف فقط الى Notepad حتى لو Notepade Hide
هذا الكود يعمل على هذه الحاله
المشكله فى هذا الكود عندما يعمل لا استطيع فتح اى شيء اخر يظهر Notepade امامى ولا يكون لى الحرية فى استخدام اى شيء هل يمكن التعديل عليه
كود :
SendKeys.Send("Notepad","{S}")
هذا الكود يعمل على هذه الحاله
كود :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim hWnd As IntPtr = FindWindow(Nothing, "s - Notepad")
If hWnd.Equals(IntPtr.Zero) Then
Return
Else
SendKeys.Send("{W}")
SetForegroundWindow(hWnd)
End If
End Sub