Sendkeys komutu ile o an aktif olan programa klavyeden tuşa basılırmış gibi
’mesaj gonderebiliriz.
’Komutun Kullanımı:SendKeys "tuş",bekleme formatındadır.
’SendKeys "V", True v harifini gonderir.
’SendKeys "123", True 123 gonderir.

’CTRL,ALT,Shift gibi tuşlarla kombinasyon:
’CTRL-C:SendKeys "^c"
’ALT -F4: SendKeys "%"
’Shift-V:SendKeys "+V"
’Burada "^":CTRL "%":ALT "+":Shift ’i temsil eder
’Şimdi Hesap Makinesini acan verilen sayının logaritmasını alıp panoya kopyalayıp
’daha sonra hesap makinesini kapatıp sonucu programda gosteren basit bir ornek yapalım.
’Bunun icin formumuza 1 Textbox 1 CommandButton 1 Label koyuyoruz.

Private Sub Command1_Click()
’Textbox ın adı text1 olmalı ve logaritması alınacak sayı text1’e yazılmalı.

Dim y ’Hesap makinesinde logaritma almanın kısa yolu L harfidir y değişkeni
’hem text1 deki sayıyı alacak hemde L
Dim x
Clipboard.Clear ’ O An Panoda ne varsa temizlenir
y = Val(Text1.Text) & "L" ’işte hesap makinesine gondereceğimiz sayı ve komut hazır.
x = Shell("calc.exe") ’ Hesap makinesini calıştırıyoruz.
AppActivate x ’Hesap makinesini aktif hale getiriyoruz.
SendKeys y, True ’Logaritmasını alacağımız sayıyı yolladık ve logu alındı.
SendKeys "^c", True ’CTRL-C yolladık.Yani sonucu panoya kopyaladık.
SendKeys "%", True ’Hesap Makinesini kapadık.
Me.Show ’Formumuzu one getirdik.
Label1.Caption = Clipboard.GetText ’ Nihayet Sonuc Burda.

End Sub


’SendKeys ""
’SendKeys ""
’bu iki tuşu gonderirseniz farenin kilitlendiğini gorebilirsiniz.


Bazı Tuşların Kodları
Backspace Delete
Escape Home
Insert End
F1 Sol Ok [LEFT}
F2 Sağ Ok
....... .......... Yukarı Ok
F12 Aşağı Ok
Numlock Capslock
Help Break
Tab Enter
__________________