Tusu komutla nasil kontrol ederim

Merhaba. Alt+D, Tab, Enter gibi tuslara basmadan, kodlarla nasil kullanirim. Mesela , belirledigim bir saatte, halihazirda calisan programi kodlarla nasil harekete gecirebilirim.

selam benim bildiğin bunun için şöyle bir kod kullanabilirsin.
sendkeys "{home}+{end}"
bu kodla bilgisayara home ve end tuşlarına beraber basılmış gibi davranmasını sağlayabiliyorsun yani sendkeys kullanıyorsun .
Burada diğer tuşların ascii kodlarını bilmen lazım sanırım zaten özel tuşların isimlerini yazman yeterli tab,enter,end,home... gibi...

bunlari kullanabilirsin...
BACKSPACE {BACKSPACE}, {BS}, veya {BKSP}
BREAK {BREAK}
CAPS LOCK {CAPSLOCK}
DEL veya DELETE {DELETE} veya {DEL}
DOWN ARROW {DOWN}
END {END}
ENTER {ENTER} veya ~
ESC {ESC}
HELP {HELP}
HOME {HOME}
INS veya INSERT {INSERT} veya {INS}
LEFT ARROW {LEFT}
NUM LOCK {NUMLOCK}
PAGE DOWN {PGDN}
PAGE UP {PGUP}
PRINT SCREEN {PRTSC}
RIGHT ARROW {RIGHT}
SCROLL LOCK {SCROLLLOCK}
TAB {TAB}
UP ARROW {UP}
F1 {F1}
F2 {F2}
F3 {F3}
F4 {F4}
F5 {F5}
F6 {F6}
F7 {F7}
F8 {F8}
F9 {F9}
F10 {F10}
F11 {F11}
F12 {F12}
SHIFT +
CTRL ^
ALT %

istersen mouse da kontrol edebilirsin. Sana bir modulümü gönderiiim:

bunları bir module olutur ve içine kopyala sonra istediğin yerde komut olarak kullan.


'------------------------------------------------------------------
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Const MOUSEEVENTF_MOVE = &H1 ' mouse move
Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
Const MOUSEEVENTF_RIGHTDOWN = &H8 ' right button down
Const MOUSEEVENTF_RIGHTUP = &H10 ' right button up
Const MOUSEEVENTF_MIDDLEDOWN = &H20 ' middle button down
Const MOUSEEVENTF_MIDDLEUP = &H40 ' middle button up

Sub MouseLeftDown()
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 1, 0)
End Sub

Sub MouseLeftUp()
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 1, 0)
End Sub

Sub MouseRightDown()
Call mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 2, 0)
End Sub

Sub MouseRightUp()
Call mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 2, 0)
End Sub

Sub MouseMiddleDown()
Call mouse_event(MOUSEEVENTF_MIDDLEDOWN, 0, 0, 3, 0)
End Sub

Sub MouseMiddleUp()
Call mouse_event(MOUSEEVENTF_MIDDLEUP, 0, 0, 3, 0)
End Sub

Function SetMousePos(X_Pos As Long, Y_Pos As Long)
SetMousePos = SetCursorPos(X_Pos, Y_Pos)
End Function

Sub MouseLeftClick()
MouseLeftDown
MouseLeftUp
End Sub

Sub MouseRightClick()
MouseRightDown
MouseMiddleUp
End Sub

Sub MouseMiddleClick()
MouseMiddleDown
MouseRightUp
End Sub

Sub MouseDbClick()
MouseLeftClick
Sleep 10
MouseLeftClick
End Sub

tsk...

Tsk..

Merhaba. Ozur dilerim ama bir ornek sorabilirmiyim ,
alt+i veya alt+e yi nasiı kodlayacagim. DEniyorum ama bir turlu olmuyor.
sendkeys (ALT) + chr(72) gibiseyler yaptim ama olmadi. Tsk...

sendkey "{home}+{end}" şeklini bir dene yani tırnak işaretli ve liste parantezli...

Tsk.ler. Benim istedigim Alt+i veya Alt+b gibi falandi. Kodlamayi yapamamistim, oldu.

Sendkeys "%i" gibi olacakmis. Sagol.