Question

vb模拟右键点击问题。

vb模拟右键点击问题。没有反映，换成左键就好了。

Answer 1

使用API函数mouse_event可以模拟鼠标事件，比如左键单击、双击和右键单击等。这个实例利用此函数产生了十分有趣的效果，无论鼠标处于屏幕的任何位置，每隔一秒程序会使鼠标在那个位置单击或双击一次，这会给我们造成什么样的混乱呢？试一试就知道了。先在程序中加入如下的声明后，就能引用mouse_event函数：PrivateDeclareSubmouse_eventLib"user32"(ByValdwFlagsAsLong,ByValdxAsLong,ByValdyAsLong,ByValcButtonsAsLong,ByValdwExtraInfoAsLong)其中各个参数的意义如下表所示：参数意义dwFlagsLong，下表中标志之一或它们的组合dx，dyLong，根据MOUSEEVENTF_ABSOLUTE标志，指定x，y方向的绝对位置或相对位置cButtonsLong，没有使用dwExtraInfoLong，没有使用dwFlags常数意义MOUSEEVENTF_MOVE&H1，移动鼠标MOUSEEVENTF_LEFTDOWN&H2，模拟鼠标左键按下MOUSEEVENTF_LEFTUP&H4，模拟鼠标左键抬起MOUSEEVENTF_RIGHTDOWN&H8，模拟鼠标右键按下MOUSEEVENTF_RIGHTUP&H10，模拟鼠标右键抬起MOUSEEVENTF_MIDDLEDOWN&H20，模拟鼠标中键按下MOUSEEVENTF_MIDDLEUP&H40，模拟鼠标中键抬起MOUSEEVENTF_ABSOLUTE&H8000，标示是否采用绝对坐标程序中我们这样使用mouse_event函数：1、这里是鼠标左键按下和松开两个事件的组合即一次单击：mouse_eventMOUSEEVENTF_LEFTDOWNOrMOUSEEVENTF_LEFTUP,0,0,0,02、模拟鼠标右键单击事件：mouse_eventMOUSEEVENTF_RIGHTDOWNOrMOUSEEVENTF_RIGHTUP,0,0,0,03、两次连续的鼠标左键单击事件构成一次鼠标双击事件：mouse_eventMOUSEEVENTF_LEFTDOWNOrMOUSEEVENTF_LEFTUP,0,0,0,0mouse_eventMOUSEEVENTF_LEFTDOWNOrMOUSEEVENTF_LEFTUP,0,0,0,0如上面所示如果我们要使用两个dwFlags常数的组合时，可以用Or将其连接起来。本例中我们把dx，dy参数都设为0，是指每次模拟事件的位置是鼠标的当前位置，dx，dy在没有使用MOUSEEVENTF_ABSOLUTE标志时是相对于鼠标当前位置的坐标，如果设置为使用绝对坐标，则dx，dy是相对于屏幕的坐标。然后把这些语句放在Timer控件的Timer事件中，就能实现每一定间隔模拟一次鼠标事件了。说明：我不是很会VC，所以只给出VB里面调用得方法。抱歉。