
线程ID = BeginThread(试用子程键扒胡序)
你的主程序
sub 试用子程序
t=now
do
if DateDiff("n",t,now)=testtime then 'testtime 表示试用时间
Plugin.Msg.Tips "测试时间结稿拦束!"
Delay 1000
ExitScript
else
Delay 1000
end if
loop
End Sub
代码隐滑如下 好像向下没有效果 你测试看看do
w = WaitClick()
If w = 32782 Then'32782是向汪携激上困袜 32781是向下
KeyPress "F", 1
End If
Delay 100
loop
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)