我要一个现成的易语言工具，功能是可以模拟键盘1~9的无线循环，按F10开始，按F11暂停，按F12停止。 5
我要一个现成的易语言工具，功能是可以模拟键盘1~9的无线循环，按F10开始，按F11暂停，按F12停止。...
我要一个现成的易语言工具，功能是可以模拟键盘1~9的无线循环，按F10开始，按F11暂停，按F12停止。
展开
2个回答
展开全部
PrivateDeclareSubkeybd_eventLib"user32"(ByValbVkAsByte,ByValScanAsByte,ByValdwFlagsAsLong,ByValdwExtraInfoAsLong)PrivateConstKEYEVENTF_KEYUP=&H2'释放按键常数DimiiAsIntegerPrivateSubCommand1_Click()ii=ii+1SelectCaseiiCase1Timer1.Enabled=FalseCommand1.Caption="开始"Case2Timer1.Enabled=TrueCommand1.Caption="停止"ii=0EndSelectEndSubPrivateSubForm_Load()Timer1.Interval=1000Command1.Caption="停止"EndSubPrivateSubTimer1_Timer()IfFormat(Time,"s")Mod2=0ThenCallkeybd_event(121,0,0,0)'按下f11Callkeybd_event(121,0,KEYEVENTF_KEYUP,0)'释放f11ElseCallkeybd_event(122,0,0,0)'按下f12Callkeybd_event(122,0,KEYEVENTF_KEYUP,0)'释放f12EndIfEndSub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
