یک کد که شیفت و کنترل را همزمان فشار دهد

سلام به شما عزیزان
من امروز برای اولین بار هست که مزاحمتون می شوم
یک کد می خواستم
که وقتی وارد فرم می شوم خودکار کلیدهای شیفت و کنترل را فشار دهد (راست و یا چپ)

يك كم ميگشتي پيدا ميكردي

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

SendKeys يك يا چند كاركتر يا دكمه هاي كيبرد رو به پنجره ي فعال ارسال ميكنه درست مثل اينكه دكمه هاي كيبرد فشار داده شده باشن.2 تا آرگومان ميگيره كه دومي اختياريه.آرگومان اولي كاراكتر هايي هستن كه ميخواهيم ارسال كنيم مثلا “vb” .واسه دكمه هاي خاص كيبرد مثل HOME ها DELETE و ... بايد اون ها رو توي آكلاد قرار بدين مثلا :
براي insert از “{INSERT}” يا “{INS}” استفاده ميشه.
براي end از “{END}” استفاده ميشه.
براي delete از “{DELETE}” يا “{DEL}” استفاده ميشه.
براي page down از “{PGDN}” استفاده ميشه.
براي page up از “{PGUP}” استفاده ميشه.
براي home از “{HOME}” استفاده ميشه.
براي علامت چپ از “{LEFT}” استفاده ميشه.
براي علامت بالا از “{UP}” استفاده ميشه.
براي علامت راست از “{RIGHT}” استفاده ميشه.
براي علامت پايين از “{DOWN}” استفاده ميشه.
براي print screen از “{PRTSC}” استفاده ميشه.
براي scroll lock از “{SCROLLLOCK}” استفاده ميشه.
براي break از “{BREAK}” استفاده ميشه.
براي back space از “{BACKSPACE}” يا“{BS}” يا “{BKSP}” استفاده ميشه.
براي enter از “{ENTER}” يا "~" (بدون آكلاد) استفاده ميشه.
براي F1 ، F2 و... هم از “{F1}” ، “{F2}” و ... استفاده ميشه.
براي escape از “{ESC}” استفاده ميشه.
براي tab از “{TAB}” استفاده ميشه.
براي caps lock از “CAPSLOCK” استفاده ميشه.

و همين تور اينجا

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

با تشکر از شما
شاید من منظورم را بد گفتم
من کدی می خواهم که خودکار کنترل و شیفت (راست) را برای راست چین کردن بفشارد و بالعکس آن را برای چپ چین کردن
این تابع این کار را انجام نمی دهد و یا اینکه من بلد نیستم
لطفا تبق این موضوع من را راهنمایی کنین

اگر منظور شما وقتي هست كه برنامه شما اجرا ميشود بايد در فرم لود بزارد يا هرجاي ديگه كه ميخواهيد كار كنه

الات اگه من به خواهم شیفت و کنترل راست اجرا شود چه کری را بگزارم
من همه این هایی رو که شما گفتین امتحان کردم

ببین دوست عزیز هر کاری که شما در حالت عادی تو وی بی نمی تونی انجام بدی از طریق دی ال ال ها -
تی ال بی ها - ا سی ایکس ها - توابع api و ... امکان پذیره
برای مثال دستورات API خیلی عالیند !
-

کد:

---

Private Const VK_LSHIFT = &HA0
Private Const VK_RSHIFT = &HA1
Private Const VK_LCONTROL = &HA2
Private Const VK_RCONTROL = &HA3
Private Const VK_LMENU = &HA4
Private Const VK_RMENU = &HA5

Private Const KEYEVENTF_KEYUP = &H2
Private Const KEYEVENTF_KEYDOWN = &H0
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
keybd_event VK_RCONTROL, 0, KEYEVENTF_KEYDOWN, 0
keybd_event VK_RSHIFT, 0, KEYEVENTF_KEYDOWN, 0
keybd_event VK_RSHIFT, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_RCONTROL, 0, KEYEVENTF_KEYUP, 0
End Sub

Private Sub Command2_Click()
keybd_event VK_LCONTROL, 0, KEYEVENTF_KEYDOWN, 0
keybd_event VK_LSHIFT, 0, KEYEVENTF_KEYDOWN, 0
keybd_event VK_LSHIFT, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_LCONTROL, 0, KEYEVENTF_KEYUP, 0
End Sub

---

با تشکر از شما دوست عزیز
یه رفرنس خوب برای استفاده از این چیز هایی که گفتین می شه معرفی کنین
ممنون می شم

دوست عزیز می تونی به این تاپیک مراجعه کنی :

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

و یا سایت زیر :

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]