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

[Hawrehh]

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

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

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

[www.pc3enter.tk]

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


Dim Registry As Object

Set Registry = CreateObject("WScript.Shell")

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


منابع: https://www.vbforums.com/showthread.php?303892-Disable-Mouse-right-click

https://stackoverflow.com/questions/45185149/disabling-mouse-right-click-on-image-control-vb6

https://www.daniweb.com/programming/software-development/threads/409582/disable-right-click-on-textbox

[Hawrehh]

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


Dim Registry As Object

Set Registry = CreateObject("WScript.Shell")

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


منابع: https://www.vbforums.com/showthread.php?303892-Disable-Mouse-right-click

https://stackoverflow.com/questions/45185149/disabling-mouse-right-click-on-image-control-vb6

https://www.daniweb.com/programming/software-development/threads/409582/disable-right-click-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

[www.pc3enter.tk]

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