VB6.0 按键鼠标自动运行

VB6.0 按键鼠标自动运行

OptionExplicitPrivateDeclareFunctionSetCursorPosLib“user32”(ByValXAsLong,ByValyAsLong)AsLongPrivateDeclareFunctionGetCursorPosLib“user32”(lpPointAsPOINTAPI)AsLongPrivateTypePOINTAPIXAsLongyAsLongEndTypePrivateDeclareSubSleepLib“kernel32”(ByValdwMillisecondsAsLong)

PrivateDeclareSubmouse_eventLib“user32”(ByValdwFlagsAsLong,ByValdxAsLong,ByValdyAsLong,ByValcButtonsAsLong,ByValdwExtraInfoAsLong)PrivateConstMOUSEEVENTF_LEFTDOWN=&H2PrivateConstMOUSEEVENTF_LEFTUP=&H4PrivateConstMOUSEEVENTF_MIDDLEDOWN=&H20PrivateConstMOUSEEVENTF_MIDDLEUP=&H40PrivateConstMOUSEEVENTF_MOVE=&H1PrivateConstMOUSEEVENTF_ABSOLUTE=&H8000PrivateConstMOUSEEVENTF_RIGHTDOWN=&H8PrivateConstMOUSEEVENTF_RIGHTUP=&H10

PrivateDeclareFunctionSetCaptureLib“user32”(ByValhwndAsLong)AsLongPrivateDeclareFunctionReleaseCaptureLib“user32”()AsLong

PrivateDeclareFunctionFindWindowLib“user32”Alias“FindWindowA”(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLongPrivateDeclareFunctionGetDesktopWindowLib“user32”()AsLong

PrivateDeclareFunctionGetPixelLib“gdi32”(ByValhdcAsLong,ByValXAsLong,ByValyAsLong)AsLongPrivateDeclareFunctionGetDCLib“user32”(ByValhwndAsLong)AsLong

PrivateDeclareFunctionGetForegroundWindowLib“user32”()AsLongPrivateDeclareFunctionGetWindowTextLib“user32”Alias“GetWindowTextA”(ByValhwndAsLong,ByVallpStringAsString,ByValcchAsLong)AsLongPrivateDeclareFunctionGetWindowTextLengthLib“user32”Alias“GetWindowTextLengthA”(ByValhwndAsLong)AsLong

PrivateDeclareSubkeybd_eventLib“user32”(ByValbVkAsByte,ByValbScanAsByte,ByValdwFlagsAsLong,ByValdwExtraInfoAsLong)

PrivateConstVK_ADDAsLong=&H6B‘加号键PrivateConstVK_APPSAsLong=&H5D’Applications键（相当于鼠标右键）PrivateConstVK_BACKAsLong=&H8‘BackSpace键PrivateConstVK_CAPITALAsLong=&H14’CapsLock键（大小写转换键）PrivateConstVK_CANCELAsLong=&H3‘Ctrl+Break过程PrivateConstVK_CONTROLAsLong=&H11PrivateConstVK_DECIMALAsLong=&H6E’小数点号键PrivateConstVK_DELETEAsLong=&H2EPrivateConstVK_DIVIDEAsLong=&H6F‘除号键PrivateConstVK_DOWNAsLong=&H28PrivateConstVK_ENDAsLong=&H23PrivateConstVK_ESCAPEAsLong=&H1BPrivateConstVK_F1AsLong=&H70PrivateConstVK_F10AsLong=&H79PrivateConstVK_F11AsLong=&H7APrivateConstVK_F12AsLong=&H7BPrivateConstVK_F2AsLong=&H71PrivateConstVK_F3AsLong=&H72PrivateConstVK_F4AsLong=&H73PrivateConstVK_F5AsLong=&H74PrivateConstVK_F6AsLong=&H75PrivateConstVK_F7AsLong=&H76PrivateConstVK_F8AsLong=&H77PrivateConstVK_F9AsLong=&H78PrivateConstVK_HOMEAsLong=&H24PrivateConstVK_INSERTAsLong=&H2DPrivateConstVK_LCONTROLAsLong=&HA2PrivateConstVK_LEFTAsLong=&H25PrivateConstVK_LMENUAsLong=&HA4’左Alt键PrivateConstVK_LSHIFTAsLong=&HA0PrivateConstVK_LWINAsLong=&H5BPrivateConstVK_MENUAsLong=&H12‘Alt键PrivateConstVK_MULTIPLYAsLong=&H6A’乘号键PrivateConstVK_NEXTAsLong=&H22‘下翻页键PrivateConstVK_NUMLOCKAsLong=&H90PrivateConstVK_NUMPAD0AsLong=&H60PrivateConstVK_NUMPAD1AsLong=&H61PrivateConstVK_NUMPAD2AsLong=&H62PrivateConstVK_NUMPAD3AsLong=&H63PrivateConstVK_NUMPAD4AsLong=&H64PrivateConstVK_NUMPAD5AsLong=&H65PrivateConstVK_NUMPAD6AsLong=&H66PrivateConstVK_NUMPAD7AsLong=&H67PrivateConstVK_NUMPAD8AsLong=&H68PrivateConstVK_NUMPAD9AsLong=&H69PrivateConstVK_PAUSEAsLong=&H13PrivateConstVK_PRINTAsLong=&H2APrivateConstVK_PRIORAsLong=&H21’上翻页键PrivateConstVK_RCONTROLAsLong=&HA3PrivateConstVK_RETURNAsLong=&HD‘回车键PrivateConstVK_RIGHTAsLong=&H27PrivateConstVK_RMENUAsLong=&HA5’右Alt键PrivateConstVK_RSHIFTAsLong=&HA1PrivateConstVK_RWINAsLong=&H5CPrivateConstVK_SCROLLAsLong=&H91‘ScrollLock键PrivateConstVK_SEPARATORAsLong=&H6C’小键盘上的回车键PrivateConstVK_SHIFTAsLong=&H10PrivateConstVK_SLEEPAsLong=&H5F‘休眠键PrivateConstVK_SNAPSHOTAsLong=&H2C’PrintScreen键PrivateConstVK_SPACEAsLong=&H20PrivateConstVK_SUBTRACTAsLong=&H6D‘减号键PrivateConstVK_TABAsLong=&H9PrivateConstVK_UPAsLong=&H26PrivateConstVK_OEM_1AsLong=&HBA’Windows2000：对于US标准键盘，是“;:”键PrivateConstVK_OEM_2AsLong=&HBF‘Windows2000：对于US标准键盘，是“/?”键PrivateConstVK_OEM_3AsLong=&HC0’Windows2000：对于US标准键盘，是“`~”键PrivateConstVK_OEM_4AsLong=&HDB‘Windows2000：对于US标准键盘，是“[{”键PrivateConstVK_OEM_5AsLong=&HDC’Windows2000：对于US标准键盘，是“|”键PrivateConstVK_OEM_6AsLong=&HDD‘Windows2000：对于US标准键盘，是“]}”键PrivateConstVK_OEM_7AsLong=&HDE’Windows2000：对于US标准键盘，是“单/双引号”键PrivateConstVK_OEM_COMMAAsLong=&HBC‘Windows2000：对于任何国家/地区，是“,”键PrivateConstVK_OEM_MINUSAsLong=&HBD’Windows2000：对于任何国家/地区，是“-”键PrivateConstVK_OEM_PERIODAsLong=&HBE‘Windows2000：对于任何国家/地区，是“.”键PrivateConstVK_OEM_PLUSAsLong=&HBB’Windows2000：对于任何国家/地区，是“+”键

PrivateConstKEYEVENTF_KEYUP=&H2

DimAAAsLongDimMouseCurposAsPOINTAPI

DimPcolorAsLongDimRAsLong,GAsLong,BAsLong

DimsAsStringDimhwdAsLong

PrivateSubCommand1_Click()SetCursorPosCLng(Text1.Text),CLng(Text2.Text)

EndSub

PrivateSubCommand2_Click()GetCursorPosMouseCurposText3.Text=“鼠标位置为:”+CStr(MouseCurpos.X)+“–”+CStr(MouseCurpos.y)Timer2.Enabled=TrueEndSub

PrivateSubCommand3_Click()Sleep500

SetCursorPos292,437mouse_eventMOUSEEVENTF_LEFTDOWN,292*⁶⁵⁵³⁶⁄₁₉₂₀,437*⁶⁵⁵³⁶⁄₁₀₈₀,0,0mouse_eventMOUSEEVENTF_LEFTUP,292*⁶⁵⁵³⁶⁄₁₉₂₀,437*⁶⁵⁵³⁶⁄₁₀₈₀,0,0

Sleep500

keybd_eventAsc(“V”),0,0,0‘模拟回车Sleep200keybd_eventAsc(“V”),0,KEYEVENTF_KEYUP,0’撤消回车Sleep300

keybd_eventAsc(“B”),0,0,0‘模拟回车Sleep200keybd_eventAsc(“B”),0,KEYEVENTF_KEYUP,0’撤消回车Sleep300

keybd_eventAsc(“F”),0,0,0‘模拟回车Sleep200keybd_eventAsc(“F”),0,KEYEVENTF_KEYUP,0’撤消回车Sleep300

keybd_eventAsc(“O”),0,0,0‘模拟回车Sleep200keybd_eventAsc(“O”),0,KEYEVENTF_KEYUP,0’撤消回车Sleep300

keybd_eventAsc(“R”),0,0,0‘模拟回车Sleep200keybd_eventAsc(“R”),0,KEYEVENTF_KEYUP,0’撤消回车Sleep300

keybd_eventAsc(“M”),0,0,0‘模拟回车Sleep200keybd_eventAsc(“M”),0,KEYEVENTF_KEYUP,0’撤消回车Sleep300

keybd_eventAsc(“8”),0,0,0‘模拟回车Sleep200keybd_eventAsc(“8”),0,KEYEVENTF_KEYUP,0’撤消回车

‘Sleep1000’‘keybd_eventVK_F1,0,0,0’模拟回车‘Sleep500’keybd_eventVK_F1,0,KEYEVENTF_KEYUP,0‘撤消回车’

EndSub

PrivateSubCommand4_Click()Sleep500

SetCursorPos291,593

‘1920和1080为自己电脑屏幕的最大像素

mouse_eventMOUSEEVENTF_LEFTDOWN,291*⁶⁵⁵³⁶⁄₁₉₂₀,593*⁶⁵⁵³⁶⁄₁₀₈₀,0,0

mouse_eventMOUSEEVENTF_LEFTUP,291*⁶⁵⁵³⁶⁄₁₉₂₀,593*⁶⁵⁵³⁶⁄₁₀₈₀,0,0

’Sleep500

SetCursorPos362,593

‘1920和1080为自己电脑屏幕的最大像素mouse_eventMOUSEEVENTF_LEFTDOWN,362*⁶⁵⁵³⁶⁄₁₉₂₀,593*⁶⁵⁵³⁶⁄₁₀₈₀,0,0

mouse_eventMOUSEEVENTF_LEFTUP,362*⁶⁵⁵³⁶⁄₁₉₂₀,593*⁶⁵⁵³⁶⁄₁₀₈₀,0,0’‘’‘Sleep500

SetCursorPos434,593

’1920和1080为自己电脑屏幕的最大像素mouse_eventMOUSEEVENTF_LEFTDOWN,434*⁶⁵⁵³⁶⁄₁₉₂₀,593*⁶⁵⁵³⁶⁄₁₀₈₀,0,0

mouse_eventMOUSEEVENTF_LEFTUP,434*⁶⁵⁵³⁶⁄₁₉₂₀,593*⁶⁵⁵³⁶⁄₁₀₈₀,0,0

‘Sleep800

SetCursorPos515,593Sleep500

’1920和1080为自己电脑屏幕的最大像素mouse_eventMOUSEEVENTF_LEFTDOWN,515*⁶⁵⁵³⁶⁄₁₉₂₀,593*⁶⁵⁵³⁶⁄₁₀₈₀,0,0

mouse_eventMOUSEEVENTF_LEFTUP,515*⁶⁵⁵³⁶⁄₁₉₂₀,593*⁶⁵⁵³⁶⁄₁₀₈₀,0,0

EndSub

PrivateSubTimer2_Timer()Text3.Text=“”AA=GetDC(0)

Pcolor=GetPixel(AA,CStr(MouseCurpos.X),CStr(MouseCurpos.y))

R=PcolorAnd&HFFG=(PcolorAnd65280)/256B=(PcolorAnd&HFF0000)/65536

Text5.BackColor=Pcolor

GetCursorPosMouseCurpos

Text3.Text=“鼠标位置为:”+CStr(MouseCurpos.X)+“–”+CStr(MouseCurpos.y)&“RGB=>”&R&“+”&G&“+”&B

EndSub