SendKeys Metodu

BACKSPACE : {BACKSPACE} veya {BS}
BREAK : {BREAK}
CAPS LOCK : {CAPSLOCK}
CLEAR : {CLEAR}
DELETE : {DELETE} veya {DEL}
DOWN ARROW : {DOWN}
END  : {END}
ENTER (numerik tuş takımındaki) : {ENTER}
ENTER : ~
ESC : {ESCAPE} veya {ESC}
HELP : {HELP}
HOME : {HOME}
INS : {INSERT}
LEFT ARROW : {LEFT}
NUM LOCK : {NUMLOCK}
PAGE DOWN  : {PGDN}
PAGE UP : {PGUP}
RETURN : {RETURN}
RIGHT ARROW : {RIGHT}
SCROLL LOCK : {SCROLLLOCK}
TAB : {TAB}
UP ARROW : {UP}

Kod: [Seç]


Dim ProcID As Integer
' Hesap makinesini çalıştıralım
ProcID = Shell("CALC.EXE", AppWinStyle.NormalFocus)
' Etkin hale getir
AppActivate(ProcID)
' Tuş gönder
My.Computer.Keyboard.SendKeys("22", True)
My.Computer.Keyboard.SendKeys("*", True)
My.Computer.Keyboard.SendKeys("44", True)
My.Computer.Keyboard.SendKeys("=", True)
' Sonuç 22 * 44 = 968.

Categories: Visual Basic