//刚接触按键，写的不好的请原谅。最近发现热舞派对那个游戏，觉得玩的人不是特别多，有点类似其他的跳舞的游戏，自己玩的不怎么样，老被同学笑。。。。。o(∩_∩)o...哈哈这论坛里好像没有类似的脚本，闲来无聊，决定写一个，自动按方向键。原理是通过查找上下左右四个按键的图标（反键和8key的同理，用查找颜色方法其实也类似），得到坐标后再判断出最小正的横坐标那个（因为同一区域出现的方向键是不定的，每次按键正确后图标颜色会变化，再找就找不到了，玩热舞的人都知道），再点对应的方向键。算法会不会和劲乐团等不一样？本人没仔细看过。经测试，除非机器很卡，否则很快就能自动按完方向键，再搭配什么按空格，那效果就是。。。个别语言写得不简练的请大家指正

Rem start
//查找的图片分别为up,down,left,right,分别对应的是向上，向下，向左，向右四个箭头的按键
VBSCall FindPic(385,580,895,635,"up.bmp",0.8,a,b)
VBSCall FindPic(385,580,895,635,"down.bmp",0.8,c,d)
VBSCall FindPic(385,580,895,635,"left.bmp",0.8,e,f)
VBSCall FindPic(385,580,895,635,"right.bmp",0.8,g,h)
VBS Dim M(4)
VBS M(0)=a:M(1)=c:M(2)=e:M(3)=g
VBS i=0
//如果a，c，e，g中有一个是大于0的话，传送到最小值MM
If a>=0
    VBS MM=a
ElseIf c>=0
    VBS MM=c
ElseIf e>=0
    VBS MM=e
ElseIf g>=0
    VBS MM=g
EndIf
//判断找到的图片对应的横坐标中最小的
For 4
    If MM-M(i)>=0 and M(i)>=0
        VBS MM=M(i)
    EndIf
    VBS i=i+1
EndFor
//对应的坐标按对应的箭头
If a>=0 and b>=0 and a=MM
    KeyPress 38,1
    Delay 40
ElseIf c>=0 and d>=0 and c=MM
    KeyPress 40,1
    Delay 40
ElseIf e>=0 and f>=0 and e=MM
    KeyPress 37,1
    Delay 40
ElseIf g>=0 and h>=0 and g=MM
    KeyPress 39,1
    Delay 40
EndIf
Goto start

要怎么才能躲避开封号程序