VB
Sub Sendkey(text$, Optional wait As Boolean = False)
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys text, wait
Set WshShell = Nothing
End Sub
Sendkeys "{Enter}"
وبالنسبة للسي شارب دوت نت
اعمل فورم وفيها Button
وفي الايفنت بتاع الكليك لل Button
ضيف كود
SendKeys.Send("{ENTER}");
زي الصورة كده