تعویض چپ کلیک با راست کلیک

:40:تعویض کلیک چپ و راست موس

یک پروژه جدید باز کنید و تو فرمتون یک Command Button و دو تا Option Button بزارید و کد زیر رو تو قسمت جنرال فرمتون کپی کنید :


Private Declare Function SwapMouseButton Lib "User32" (ByVal bSwap As Long) As Long

Private Sub Command1_Click()
Call SwapMouseButton(Option1.Value)
End Sub

Private Sub Form_Load()
Option1.Caption = "Right"
Option2.Caption = "Left"
End Sub


حالا برنامه رو اجرا کنید و با کلیک روی Option Button ها و بعد کلیک روی Command1 جای کلیک چپ و راست موس رو عوض کنید. به همین سادگی. موفق باشید.

اگر شما این کد ها رو در داخل یک حلقه بی نهایت قرار دهید یک ویروس آزار دهنده می شود