کلیک کردن مصنوعی

دوستان ببخشید به خاطر عنوان تایپک چیزی به زهنم نرسید
من نیاز دارم که توی وژوال بیسیک چک کنم که اگه دکمه چپ موس خار از برنامه زده شد یک اتفاقی بیافته ولی نمیخوام در اون لحظه کلیک عمل کنه

فرض کننید یک تایمر رو فعال کردیم و مدام چک میکنه که اگه کلید چپ موس زده شد غیر فعال بشه و در این حال برنامه مخفیه و وقتی کلید زده شد برنامه ظاهر میشه

این کارو انجام دادم اما نمیخوام کلیکی که میزنم روی پنجره های دیگه یا هر جایی که هست عمل کنه

بیا، یک جستجوی ساده میکردی بد نبودا


Dim Registry As Object

Set Registry = CreateObject("WScript.Shell")

Registry.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\Policies\Explorer"& "\NoViewContextMenu", 1, "REG_DWORD"


منابع: https://www.vbforums.com/showthread....se-right-click

https://stackoverflow.com/questions/...ge-control-vb6

https://www.daniweb.com/programming/...ick-on-textbox

نقل قول:

---

نوشته شده توسط www.pc3enter.tk

بیا، یک جستجوی ساده میکردی بد نبودا


Dim Registry As Object

Set Registry = CreateObject("WScript.Shell")

Registry.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\Policies\Explorer"& "\NoViewContextMenu", 1, "REG_DWORD"


منابع: https://www.vbforums.com/showthread....se-right-click

https://stackoverflow.com/questions/...ge-control-vb6

https://www.daniweb.com/programming/...ick-on-textbox

---

این کد ها کار نکردن منظور من این بود ولی ممنون داداش

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()

    BlockInput True

    Sleep 5000

    BlockInput False

End Sub

اینکه که گذاشتی رو قبلاً خودم می‌دونستم، این کد که میاد کامل موس و کیبورد را از کار میاندازه