ارسال کلید های ترکیبی ( HOT KEY) به برنامه دیگر

[سپهر-111]

سلام دوستان گل


من میخوام با استفاده از تایمر (هر چند ثانیه یک بار) کلید های ترکیبی (Alt + B) را به یک برنامه دیگر که در حال اجرا هست را ارسال کنم .


میخوام از طریق VB6 این کلیدهای ترکیبی به اون برنامه فرستاده بشه ....

ممنون میشم اساتید گرامی راهنمایی بفرماییند

باتشکر از حسن توجه دوستان

[امین مستانی]

سلام علیکم


کد زیر برنامه نوت پد رو فعال میکنه و بعد کلید Ctrl + A رو ارسال میکنه :


Private Sub Command1_Click()
AppActivate "Untitled - Notepad"
SendKeys "^a"
End Sub





کلید های ترکیبی (Alt + B)


Private Sub Command1_Click()
AppActivate "Untitled - Notepad"
SendKeys "%b"
End Sub



لیست کلید ها :
http://msdn.microsoft.com/en-us/library/office/aa202943(v=office.10).aspx
http://www.developerfusion.com/article/57/sendkeys-command/
http://www.autoitscript.com/autoit3/docs/appendix/SendKeys.htm



موفق باشید

[امین مستانی]

البته تابع SendKeys ممکنه در ویندوز ویستا یا 7 خطا عدم اجازه رو بدهد بهتره از کد زیر استفاده کنید :


Private Sub Command1_Click()
AppActivate "Untitled - Notepad"
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^a"
Set WshShell = Nothing
End Sub


موفق باشید

[Haj Lorenzo]

سلام. من کد زیر رو تو vb6 میزنم موقع اجرا این ارور رو میده. compile error : syntax error

Private Sub Command1_Click()
AppActivate "Untitled - Notepad"
SendKeys "%b"
End Sub

ویندوز 7 دارم.