VFP調(diào)用API實現(xiàn)代碼模擬鼠標(biāo)鍵盤動作

VFP調(diào)用API實現(xiàn)代碼模擬鼠標(biāo)鍵盤動作*--VFP調(diào)用API實現(xiàn)代碼模擬鼠標(biāo).鍵盤動作*--模擬鍵盤協(xié)作，如Ctrl+VDeclarekeybd_eventInWin32APIShortbVk,ShortbScan,IntegerdwFlags,IntegerdeExtraInfokeybd_event(17,0,0,0)keybd_event(Asc('V'),0,0,0)keybd_event(Asc('V'),0,2,0)keybd_event(17,0,2,0)*或#DefineVK_CONTROL0x11#DefineKEYEVENTF_KEYUP0x02DeclareLongkeybd_eventIn"user32"IntegerbVk,IntegerbScan,LongdwFlags,LongdwExtraInfoClearTypeaheadkeybd_event(VK_CONTROL,0,0,0)&&模擬按下Ctrl鍵keybd_event(Asc('V'),0,0,0)&&模擬按下V鍵keybd_event(Asc('V'),0,KEYEVENTF_KEYUP,0)&&松開V鍵keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0)&&松開Ctrl鍵*KEYEVENTF_KEYUP=&H2'Releasekey*VK_RETURN=&HD'enter*VK_SHIFT=&H10'Shift*VK_CONTROL=&H11'Ctrl*VK_CAPITAL=&H14'capslock*VK_ESCAPE=&H1B'escape*--模擬鼠標(biāo)動作，如單擊左鍵MOUSEEVENTF_LEFTDOWN=0x2MOUSEEVENTF_LEFTUP=0x4MOUSEEVENTF_MIDDLEDOWN=0x20MOUSEEVENTF_MIDDLEUP=0x40MOUSEEVENTF_MOVE=0x1MOUSEEVENTF_ABSOLUTE=0x8000MOUSEEVENTF_RIGHTDOWN=0x8MOUSEEVENTF_RIGHTUP=0x10Declaremouse_eventInWin32APIIntegerdwFlags,Integerdx,Integerdy,IntegercButtons,IntegerdwExtraInfo*在鼠標(biāo)坐標(biāo)系統(tǒng)中，不管什么分辨率屏幕在水平和垂直方向上均勻分割成65535×65535個單元=mouse_event(MOUSEEVENTF_ABSOLUTE+MOUSEEVENTF_MOVE,10000,10000,0,0)&&移動鼠標(biāo)到絕對位置10000,10000=mouse_event(MOUSEEVENTF_LEFTDOWN+MOUSEEVENTF_LEFTUP,0,0,0,0)&&單擊左鍵（按下再松開的組合）*=mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0)*=mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0)'--以下為VB模擬鼠標(biāo)的說明及例子'-------------------------------------------''模擬鼠標(biāo)的左鍵單擊和右鍵單擊''-------------------------------------------''程序說明：''本例采用API函數(shù)實現(xiàn)模擬的鼠標(biāo)事件，程序運行后會''產(chǎn)生十分有趣的效果。也來試一試。''本例中只使用了相對鼠標(biāo)坐標(biāo)，我們也可以使用絕對''鼠標(biāo)坐標(biāo)來試一試。''-------------------------------------------''【VB聲明】''PrivateDeclareSubmouse_eventLib"user32"(ByValdwFlagsAsLong,ByValdxAsLong,ByValdyAsLong,ByValcButtonsAsLong,ByValdwExtraInfoAsLong)''【說明】''模擬一次鼠標(biāo)事件''【備注】''進(jìn)行相對運動的時候，由SystemParametersInfo函數(shù)規(guī)定的系統(tǒng)鼠標(biāo)軌跡速度會應(yīng)用于鼠標(biāo)運行的速度''【參數(shù)表】''dwFlags--------Long，下述標(biāo)志的一個組合''MOUSEEVENTF_ABSOLUTE''dx和dy指定鼠標(biāo)坐標(biāo)系統(tǒng)中的一個絕對位置。在鼠標(biāo)坐標(biāo)系統(tǒng)中，屏幕在水平和垂直方向上均勻分割成65535×65535個單元-''MOUSEEVENTF_MOVE移動鼠標(biāo)''MOUSEEVENTF_LEFTDOWN模擬鼠標(biāo)左鍵按下''MOUSEEVENTF_LEFTUP模擬鼠標(biāo)左鍵抬起''MOUSEEVENTF_RIGHTDOWN模擬鼠標(biāo)右鍵按下''MOUSEEVENTF_RIGHTUP模擬鼠標(biāo)右鍵抬起''MOUSEEVENTF_MIDDLEDOWN模擬鼠標(biāo)中鍵按下''MOUSEEVENTF_MIDDLEUP模擬鼠標(biāo)中鍵抬起''dx-------------Long，根據(jù)是否指定了MOUSEEVENTF_ABSOLUTE標(biāo)志，指定水平方向的絕對位置或相對運動''dy-------------Long，根據(jù)是否指定了MOUSEEVENTF_ABSOLUTE標(biāo)志，指定垂直方向的絕對位置或相對運動''cButtons-------Long，未使用''dwExtraInfo----Long，通常未用的一個值。用GetMessageExtraInfo函數(shù)可取得這個值。可用的值取決于特定的驅(qū)動程序'OptionExplicitPrivateDeclareSubmouse_eventLib"user32"_(_ByValdwFlagsAsLong,_ByValdxAsLong,_ByValdyAsLong,_ByValcButtonsAsLong,_ByValdwExtraInfoAsLong_)'Option_Tag標(biāo)示選擇了哪一種模擬事件'DimOption_TagAsInteger'OnTest標(biāo)示是否處于模擬狀態(tài)，以便我們停止模擬'DimOnTestAsBoolean'對API變量的定義'ConstMOUSEEVENTF_LEFTDOWN=&H2ConstMOUSEEVENTF_LEFTUP=&H4ConstMOUSEEVENTF_MIDDLEDOWN=&H20ConstMOUSEEVENTF_MIDDLEUP=&H40ConstMOUSEEVENTF_MOVE=&H1ConstMOUSEEVENTF_ABSOLUTE=&H8000ConstMOUSEEVENTF_RIGHTDOWN=&H8ConstMOUSEEVENTF_RIGHTUP=&H10'控制模擬的開始與結(jié)束'PrivateSubCommand1_Click()'如果不處于模擬狀態(tài)'IfOnTest=FalseThenCommand1.Caption="快停下來吧"Timer1.Enabled=TrueOnTest=True'如果處于模擬狀態(tài)'ElseCommand1.Caption="試一試"Timer1.Enabled=FalseOnTest=FalseEndIfEndSub'窗體加載時一些變量需要設(shè)置'PrivateSubForm_Load()Option_Tag=1Timer1.Enabled=FalseOnTest=FalseEndSub'選擇了模擬“鼠標(biāo)左鍵單擊事件”'PrivateSubOption1_Click()Option_Tag=1'左鍵單擊事件Option2.Value=FalseOption3.Value=FalseEndSub'選擇了模擬“鼠標(biāo)右鍵單擊事件”'PrivateSubOption2_Click()Option_Tag=2'右鍵單擊事件Option1.Value=FalseOption3.Value=FalseEndSub'選擇了模擬“鼠標(biāo)雙擊事件”'PrivateSubOption3_Click()Option_Tag=3'雙擊事件Option1.Value=FalseOption2.Value=FalseEndSub'每隔一秒中模擬一次鼠標(biāo)事件'PrivateSubTimer1_Timer()IfOption_Tag=1Then'調(diào)用了mouse_event函數(shù)，其參數(shù)的設(shè)置見前面說明''如果同時要模擬兩個鼠標(biāo)事件，可以用Or將兩個參數(shù)連接''這里是鼠標(biāo)左鍵按下和松開兩個事件的組合即一次單擊'mouse_eventMOUSEEVENTF_LEFTDOWNOrMOUSEEVENTF_LEFTUP,0,0,0,0ElseIfOption_Tag=2Then'模擬鼠標(biāo)右鍵單擊事件'mouse_eventMOUSEEVENTF_RIGHTDOWN