这个东西属 科技产品 谢绝模范抄袭 转帖请联系
我还式不放里面下载了 免的看我等级低 怕有毒
我把原代码放出来算了
看的懂的就用
我没什么时间去搞简单版的
这个代码仅供学术交流
请忽用于游戏
以免影响游戏平衡
使用者用与游戏
与作者无关
[General]
Description=QQ炫舞自动跳
BeginHotkey=119
BeginHotkeyMod=0
PauseHotkey=114
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=0
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=【功能说明】
脚本仅供参考，不保证能够正常使用
【使用说明】
只要是窗口模式就可以使用
【作者介绍】
liuhaiqing
[Attachment]
UEsDBBQAAgAIAKp7JTpWSlXZbQEAAC4CAAAGABEAMXQuYm1wVVQNAAdRJ2JJUSdiSVEnYklz8tVjYgADMyDWAGJOIBYCYkYGCbD4D0YGDPB1pc/sbAMjJX4IF8gAcoGCQMQAZGFqcNQVAckpS3CDeArBDOa9IARksAsCBRYXGoOVsXAy2E5l6P7P0POfIeUUg6w3UCzVTZ6BhRnsCOMW+0XfQXIFNxlU44ACrgaiDGaqIBMYNNKNex/yTPzP0PiBwaAKKCDMywbWCwSy3sqlp5Tm/mfo/Q8ynwXkRYaKYFUQJeUkn3fIfMV/hr7/DH6rGfjVQILb6yxBFLcMn/8Sh7X/GSb8Z0g4BFQKErw5zRniVBb7qTZAuUn/GdKhTgV5E+ph816lpf8Zpv5nqHoIdBosGICeBXo5bjfDjP8g1AF1KgPEkQzZpxhm/Qeh2f8ZapH1STnJFR6y2PhfePF/3gX/GSI2Mwjpw+T41aRjVped/O+55IVA/GaQ+SgAEtY6hQyi5hCBkgAVhpZoTcw4AkqA4gg5boHxlegsd6rbHhq3AFBLAwQUAAIACACCeyU6e8EPYasBAACeAgAABgARADZ0LmJtcFVUDQAHESdiSREnYkkRJ2JJc/Kdx8QABmZArAHEfFDMyCABFs+AymMBouYMOoUM5r0oSDWOgU8FIr+9zhLCkPVi8FjCUPWCoec/Ciq4yeA0h0HSAahEWYIbSLILgwTavkPle2EIwm38wGA7lYGFE2KolBNP6iGuSf85J/9XW/A/Ytv/nH0glLr7v8UKsKb4Q0A1ELWqcTL1N/mn/2eY9J8hejfcsUx2U8Xn/GeY8J+h9gXIK2Cgka7R81B8/n+GKWDlE8EIqGQyWGTqf4bWDwwGVTBztTtvaqz8zzDrP8Ps/wxzYGj2f9Y5/5mAggUXGRRDYe5VKjlktfU/08L/Iiv/2+z4n3MSilKP/dee/JDRbioDlzRELbeMQNASvwP/BdYAbfyAHsQa6QxCusgRoZHuvPCh6Z7/DAv+MxRdRFcORArBcLVCuiKhSxLP/uff+p9h8X+GeVD3gnww8z8DMIjCNzMI6TMwsDAzgpQrBOuX7c65/N/m6H/+7f8ZNv9n2PifYf1/hrVg3WmQIJ6eoQ81XSFYIWl18o4XhVf/AzWB0MX/ORf+ux0Ext5NUNpg+LrSJ9VNHl8KQiQiAFBLAwQUAAIACADeeyU6NPk4I4oBAACaAgAABgARADh0LmJtcFVUDQAHpydiSacnYkmnJ2JJfZLZK4RRGMYfNMYyaEJEsqW+LJkkw6UhF5YLMWWpKWUp5kayJPwFlDWDL9m3KdIIRS6+UrJcTJRcuptLN64f5xwMIW+/t07P+5y3p+98jrrFUKgqEa2Jtoi2ig5BstLbP+bfa6nHVpQV91sXohi97tYK8G91VKVLj9mKjAbYJ34iRFXlBQny3H6Ncf6k+UyOzDKrPP82vCPuqm2pg/4kD6Nnqa2y9YTuC0nTMU1TxATh0GGOzxn1564T04TTFwxTPGRUHBCTRMc10moyu8+qj4hZos34Cly9Ee5RYt8TclywDVduv2CBmCNmFGI0T6kIW7/yaF3a9HPsJrFKrH1jhdCJbhXbNpy/8WLZY4yXhafsvKH7ju5bNl3StKVWVerI7y3dDGinxC5RpQcjWXqN2H1iWcQ2kOLIGzHqr5Tnfb+uDjuElxAZugyERYhVLb5A4w3TzgnfJ4eMPFTORq/81Il2c/lcrcc/8Ej3g+Je4rqjtc8IPhyiUpHp/PtlwyJOxsqyk6P//0PeAFBLAwQUAAIACACefSU6cy6Q+MEBAABOAwAABgARADV0LmJtcFVUDQAH7ypiSe8qYknvKmJJc/L1Y2YAAzMg1gBiPiAWAmJGBgmwuARUHhnMzjYwUuJnwAaUJbgTneVOddt/XekDRAxEgZZoTYhaZg4GhWAG814sSKeQQdQconx6hj6QlHJiiDvE0P2foQcDVb9g8FsNMomBgYWZEeQhfbHYzVbLkJT0ourwWMIgpAsxnV2Y12NO5ZH/OftQUNa+/z4b/jP0/Wcoe8igkQ53Ow73inS+YJj4n6H/P4PtVAYWTohaIA3kldwEyUyAoUn/Gab8Z5gKZjjPAVoPUQv0Xsohhpn/GWb9Z5iNQEyz//PN/8/Q+YHBoAruBp1C+akv2Bf951v633Dz/8wT/3NOglDm8f8uqz6w+C5hkHRAUqs/74Xk2v8MS/4z2E9FcTXQRCSFQKAaZzz5ptmu/wxAGyM2Y/En0PPsghC1/GoScatDj/9nWP2fYcF/hjkwJwOdD/TEjP8MWacYZL2RjPaedzPmzH+l3f8ZNoIRMHDX/2cAOmzpf4aqm0AF4HQBUsunAuS59Jwqv/o/5zIYXfqfc/F/zoX/Ecf/s82CBMWbxZ7AtAeOQEGciQjqQ2BiAyp31BUhIm3e2FwJScp4Er0wL1uQhSQDAwBQSwMEFAACAAgAAHwlOoUcV+SCAQAAjgIAAAYAEQA5dC5ibXBVVA0ABxAoYkkQKGJJEChiSXPy7WNiAAMzINYAYl4g5gdiRgYJsHgEVJ4kEGYtfarbHsxUCGYw78WCgOLMHDD13DIMHksYuv8z9GCg+EMMOoUMouYwpea9rqv/80/GprT6BYPtVAY+FbA6ncK4ZS8KD/zP2YdACTv/ay74z9D7n6HgJoNqHFgd0GSg+aiOU4pbnbDlu9is/wz9/xn8ViN5DNM3sbv5Zv9nmPSfoegmAwszI1RR7G6GyWBRCJryn2H6f4aZYLLnO8zL3ksY5/1nACKgmxbCEJA9Hyw47T9YnZiFcMZu1Q3/OVb8V9z0P+Dw/5wz/3PP/k89+d9pz3+u5f8ZZkPUCemLJW+22fOfYcV/huJTcPcxu88RXviBdRXYVBBg4WRzmBp67D/rOrB1c8AGAMkl/xlW/WddC2R/Z1CW4Ib4w6TuUOq5/3r7/rNu/s+wCYw2/ufc9J9343+GnEMMs7MNQOqA8agQbFS2u/D099zL/3NgKO7cf/GyQ6DQ+LrSB5gioEEo68Vg3II9NQAAUEsDBBQAAgAIAEaAJTpidR3p4wEAAMYDAAAGABEAMnQuYm1wVVQNAAf7LmJJ+y5iSfsuYklz8j3GzAAGZkCsAcT8QCwMxIwMEmDxCVB5ZPB1pQ8EvVzggRXBFZzvsoGon51tYKTEz4ADKEtwJzrLneq2B6oEch11RRiIA0AtUBa7IINCMIN5L3akU8ggag5UBbQFqh6oOOUUQ89/7Kj6BUgL2GEgxdwyzJ5LuCf+x6keiIC2wIGQvnDMZqMl/zkn/Vee9z9k8/+cfShIcuZ/Bo8lQGNhjhfm9pgTsPk///T/DImHsHsB6GAGBhZmRqgWxVCHzotWa/4zTPrPUPeCIQGsSzWOQcwCOXymZ+hDWVzSQNngmTdTD/5XX/mfYRpYY/FNhujdUMPZheG6oDHFpwLUIuA9x7ruUPmZ//57/3Ms+s8w4z/D5P8M6acYnOcwyHpB1AMjF2El0BxwRGhkbfaafLHk7H/bHf8Z5v5n6PsO0gI0Ex6qOOKLJ/8Q54r/DLP/M5TdBPkIAlg4GeymMiz+zzDrP8NMMIIwgCYDBZf9ZwC6bdJ3BuMWUPrlZQNpMaiyXf9BZst/BmAorf3PsA5MAtmr/jOu/M8C1NIJjWVXA1GQetU4nzk3Sy7+z7mAis7/zzr732PHd+bQ1ZBU1BKtCQ8fnEkO6BJY+LxZ7An1MnEAmAuAWoC24MkywJQAzCary0yBbABQSwMEFAACAAgASIclOmRH+ksXAQAA2gEAAAYAEQAzdC5ibXBVVA0AB0w8YklMPGJJNCliSXPyvcXIAAZmQKwBxJxAzA/EjAwSYPElUHk8QJiXLchCclej1deVPjgVtURrMjCY96IggyoGSQeYgp7/KKjxA4PfagaFYGxyEBS8GaQ7Z99/OMra+z9w03+Gvv8MTR9AhqPZ5zrhpurC/wz9/xlCNsNsBVoAkU46xDrtP8PE/wyJh8AS7MIMLnMYgEKT/4PI6f8Zpv4HKoLpM26xX/ddYMl/hnn/Geb+Z5jxnyEMbqZOYez6F4Vn/med/B944D/D/P8MnR8w/G7eK9h+k2Hpf4ZZ/xkY5oBNAKKZYAQ0E2jycjDDaPt/hhX/GVb9Z1j9n2ENiGRc9Z937X+G2d8ZKi78zzn7P+fc/5zzUJR17r//nu9s4asZAFBLAwQUAAIACABwiSU6fTw54JABAABSAgAABgARADR0LmJtcFVUDQAHPD9iSTw/YklwKmJJbVHLK0RxFP7GzIKRxgJ5N4QsKG8LGc+8X7leG5RGeS2QlGJH5F0MyvW+poQsbpGmxC0WoszSf4DVbDTL49xHKE7f+XV+5/vu/X2dU1rfHAAt8jhTOYM5bZwmRGr9WIP/Hbez7R+HjZ8ndTq2BzOyEm06xQVfudCp9/0qRltBDP6LkvQwi9n0czcHwi4gf0kFF/9GdCm6FCwQFgmFLliC1GZcDbKnjQ91CLJ5SdM0nMKWomqqJMz6wc1vLGvgoltRfwuEzrxhhbD6B9zsfURcrTon0Re7S9ZNSjmijmsauqPBOxKuCGuEqTekjbAmd8ZbIRM2CJ2eb0uOeW+CxJb8qlUgpFrsuPCFHrAHP6olRBWzh/hRJe2M4CKUiarnqOKIFsl5T9gjzPlQLnInvEd28HNbhDbZmIldSO6TOx8Ih4R5TeZwWdyEHYJT+RmdXciZUlpZdkwQCfy0WzsnXpkca0oyVpDQWrnudT5Rpoes52Q60fSTr/pOjVVaY1iWNe7pv/ENv9DAMxVd+gPqJWa+AFBLAwQUAAIACAAGiiU61HckYkIBAAAWAgAABgARADd0LmJtcFVUDQAHg0BiSYNAYkmAKGJJc/IVY2IAAzMg1gBiXiDmAWJGBgmw+ANGBgwwf9XCEyur7q1M/rrSB4KUJbhBEjqFZlNfsE/+z9DxncG4heH9yiCI9MsFHhAUZi0NUqcYqlF/UW3Rf4YJ/xlspzIAVczONjBS4ke3SMpJIveQ9ML/DJP+M/ivZigJUGHAClTj2KtvMsz8zzD1P0PMbpioQjCDeS8KCt/MMOs/w5z/DDP+g9ggIKQPYk35zzARbMtksBlARfP+cywCM+ymgtWxC3N6zHHe8p8VqHv2f4a5IBVMC/4LLP0vv/o/Q94pkG0szODAMm4pPPA999j/nONgdOJ/5vH/Aes/iGftBiliF2Rw1BUBqZP1AgUSmhMNqhgkHaAeWF1mykAIpLrJg8IPqBRoKtQBSECYly3IQnJXoxVQDcOz5aHwGINHCQTBxd+tDGIAAFBLAwQUAAIACADktDA6/H6TfJYAAAAWAQAABQARADEuYm1wVVQNAAeGDHFJjQxxSbMIcUlz8hVjZAADMyDWAGJOIOYAYkYGCbD4AwZM8H4aTsTwZgI6etHHcLuN4VYrA8PLTnT0pI1hXwHDpkwGhmdN6Oj5RIUP7969ev6C4VENFvT24fVnj58w3C8FoTvFDNcLGe6UQLlA9PzOZYbbeSB0uYB3TxzDyVSGG7lQESBiuJ4KQrdmxL9/+3a+F8P2MIbziQw3MkCIAQBQSwMEFAACAAgAVLQwOqEVHq+FAAAA9gAAAAUAEQAzLmJtcFVUDQAHYgtxSZYMcUkfBnFJc/L9xgABZkCsAcTsQMwBxIwMEmDxAwyY4Hkvw5sJ6AgIHrUyvOxER0DwpJHhWRM6AqmvwYKA4H4pCN0tYbhRyHC7GMoFgtt5DDdzGc6kMRxIFziXAeICERBcS2c4mchwuM33xrYZJxIYbmSAEBDsCGJ49ujBi2fPLm2aeSSC4Uo8CAEBAFBLAwQUAAIACAButDA6ntE5Oo4AAAD2AAAABQARAHguYm1wVVQNAAe7C3FJ3gxxSdoEcUlz8v3GAAFmQKwBxFxAzAbEjAwSYPEDDJjgdT/DG9yIgeFlFz7EwPC8leEZELWAEJANQXAuA8PjeoZ7NQy3Khnu1zI8qQchoMhdoEgVw8M6oPztcobTRdynquVvljI8qgKhB5UMNzu09qczXCgAyh/P5X52fsfpft8rBQz3S0HobgnD29Mrzi7I2xQLlAcAUEsDBBQAAgAIAKi1MDpD3WWcrgAAABIBAAAFABEAeS5ibXBVVA0AByAOcUkgDnFJIA5xSXPyFWJkAAMzINYAYjYg5gZiRgYJsPgdBkywJU/0eD7D3RqGx/UMT8CIgeHtvfMny0RvlDI8rGR4VAVCQLHTy59vrrpTwnCvlOE+GAHNy0dHDAw3s9ARA8PVFBC6lspwHYYYGPaHMRyOYDgXy3AlAYoYGLbmWxwqNjsVwXgphgGCGBi+fv58tSvkXBjDhXAoYmC41BF6JpjhXAgUnQ4Gip3yZzgTAEUn/Rl2ewDFAFBLAwQUAAIACADYtTA6sgPdU48AAADqAAAABQARAHouYm1wVVQNAAdEDnFJRA5xSUQOcUlz8n3FAAFmQKwBxGxAzAnEjAwSYPEtDJjgURUU3a9kuDPb99vnTwwM90thqF7s7cnFb08vZ2C4k4+OGBhuZqEjBobrqQh0LYXhagpQ7EoCFF2KZzgVzXAwHCh2KQaKLqfwn6uy3FNkycBwPpzhAhhdjGJ5uGfh169fGRiOBDCcDWY4FwJC58NZ7u1cxMAAAFBLAwQUAAIACABQtjA6Nq3kJHAAAAAyAQAABQARADkuYm1wVVQNAAdAD3FJQA9xSUAPcUlz8jViZAADMyDWAGJOKGZkkACL/2HABEvcGE6GMVyIZLiIgRjOLmrd48twJpjhXAg6Ynj75s1RH4ZTfgxn/NERwylvnIjhpAdOhFdurwsWtMeZYZczA8NsC+xoBjAgTp44gYaOHzt2+NChvbt3MwAAUEsDBBQAAgAIALq5MDpG21mgjQAAABYBAAAFABEAcy5ibXBVVA0AB4kUcUmJFHFJiRRxSXPyFWNkAAMzINYAYk4g5gBiRgYJsPgDBkxwrdbyy4f3lzp8z0YyXIqBohdHVr65uJ/hQjjDtSqL6w1O58NBbAi6Oyv7Qhwvw7kQnIjhTABOxHDcm+G0L3bEsMWJ4agHw0kvDOTJwDDbgmGLI8NRN4aTHgh0woPhoCsDw8Vta2abM2xxQEhDJNYFKTIAAFBLAwQUAAIACADGuTA6IIbZNpsAAAB2AQAABQARADcuYm1wVVQNAAfLFHFJyxRxScsUcUlz8i1jZAADMyDWAGIuKGZkkACLO0DlkcHpeIbrqVD0aG783Qm+V1Og3BsZQPkTUQxX4rGjczFA+WMhDBcjsaDzEQxbfYHyh/0ZzoVgQSeCGD6+fsXAcNCb4Yw/FnS9zu3rp08MDPvdGU5540QMDHucGU564EQMDFscGI6745Gfa8Gw2QFkyl4XLAjo/rk9U0wZZpkzzLbAghgYAFBLAQIXCxQAAgAIAKp7JTpWSlXZbQEAAC4CAAAGAAkAAAAAAAAAIACAgQAAAAAxdC5ibXBVVAUAB1EnYklQSwECFwsUAAIACACCeyU6e8EPYasBAACeAgAABgAJAAAAAAAAACAAgIGiAQAANnQuYm1wVVQFAAcRJ2JJUEsBAhcLFAACAAgA3nslOjT5OCOKAQAAmgIAAAYACQAAAAAAAAAgAICBggMAADh0LmJtcFVUBQAHpydiSVBLAQIXCxQAAgAIAJ59JTpzLpD4wQEAAE4DAAAGAAkAAAAAAAAAIACAgUEFAAA1dC5ibXBVVAUAB+8qYklQSwECFwsUAAIACAAAfCU6hRxX5IIBAACOAgAABgAJAAAAAAAAACAAgIE3BwAAOXQuYm1wVVQFAAcQKGJJUEsBAhcLFAACAAgARoAlOmJ1HenjAQAAxgMAAAYACQAAAAAAAAAgAICB7ggAADJ0LmJtcFVUBQAH+y5iSVBLAQIXCxQAAgAIAEiHJTpkR/pLFwEAANoBAAAGAAkAAAAAAAAAIACAgQYLAAAzdC5ibXBVVAUAB0w8YklQSwECFwsUAAIACABwiSU6fTw54JABAABSAgAABgAJAAAAAAAAACAAgIFSDAAANHQuYm1wVVQFAAc8P2JJUEsBAhcLFAACAAgABoolOtR3JGJCAQAAFgIAAAYACQAAAAAAAAAgAICBFw4AADd0LmJtcFVUBQAHg0BiSVBLAQIXCxQAAgAIAOS0MDr8fpN8lgAAABYBAAAFAAkAAAAAAAAAIACAgY4PAAAxLmJtcFVUBQAHhgxxSVBLAQIXCxQAAgAIAFS0MDqhFR6vhQAAAPYAAAAFAAkAAAAAAAAAIACAgVgQAAAzLmJtcFVUBQAHYgtxSVBLAQIXCxQAAgAIAG60MDqe0Tk6jgAAAPYAAAAFAAkAAAAAAAAAIACAgRERAAB4LmJtcFVUBQAHuwtxSVBLAQIXCxQAAgAIAKi1MDpD3WWcrgAAABIBAAAFAAkAAAAAAAAAIACAgdMRAAB5LmJtcFVUBQAHIA5xSVBLAQIXCxQAAgAIANi1MDqyA91TjwAAAOoAAAAFAAkAAAAAAAAAIACAgbUSAAB6LmJtcFVUBQAHRA5xSVBLAQIXCxQAAgAIAFC2MDo2reQkcAAAADIBAAAFAAkAAAAAAAAAIACAgXgTAAA5LmJtcFVUBQAHQA9xSVBLAQIXCxQAAgAIALq5MDpG21mgjQAAABYBAAAFAAkAAAAAAAAAIACAgRwUAABzLmJtcFVUBQAHiRRxSVBLAQIXCxQAAgAIAMa5MDoghtk2mwAAAHYBAAAFAAkAAAAAAAAAIACAgd0UAAA3LmJtcFVUBQAHyxRxSVBLBQYAAAAAEQARAAUEAACsFQAAAAA=
[Script]
//先定义变量
dim x,y,bx,by,lx,ly,i,hm
dim jt(7),t(8)
jt(0)="s":jt(1)="x":jt(2)="z":jt(3)="y":jt(4)="1":jt(5)="3":jt(6)="7":jt(7)="9"
t(0)="1t":t(1)="2t":t(2)="3t":t(3)="4t":t(4)="5t":t(5)="6t":t(6)="7t":t(7)="8t":t(8)="9t"
y=501:by=542
Rem 从头开始
//检查游戏有没有开始，不然还没有开始就执行的哟？
IfColor 376,484,c4efff,1
Goto 从头开始
EndIf
//如果已经出现在了箭头，就调用找数字的子程序，以确定它的起、始位置
Gosub 找数字
bx=x+35
While bx<hm
i=0
For 8
//按照变量上的图片循环找色
VBSCall findpic(x,y,bx,by,"Attachment:\"&jt(i)&".bmp",0.7,lx,ly)
If lx>0
//如果找到，就调用按箭头子程序
Gosub 按箭头
Delay 30
//为了节省再找的时间，跳出寻找
Goto 结束按键
EndIf
//如果没有找到，就再加上1，继续下找
i=i+1
EndFor
Rem 结束按键
//再继续往下找另一个箭头
bx=bx+35
EndWhile
Rem re
//按空格的位置，如果大约是这个颜色就跳到标记re
IfColor 652,482,f7f0e9,2
Goto re
Else
//如果不等颜色就按空格
KeyPressS 32,1
Delay 200
Goto 从头开始
EndIf
Goto 从头开始
Sub 按箭头
If i=0
KeyPressS 38,1
ElseIf i=1
KeyPressS 40,1
ElseIf i=2
KeyPressS 37,1
ElseIf i=3
KeyPressS 39,1
ElseIf i=4
KeyPressS 97,1
ElseIf i=5
KeyPressS 99,1
ElseIf i=6
KeyPressS 103,1
ElseIf i=9
KeyPressS 105,1
EndIf
Return 按箭头
//这个是检察出现的箭头数量
Sub 找数字
IfColor 455,485,98ff,0
IfColor 479,485,a1ff,0
x=359:hm=740
Goto 14277
EndIf
EndIf
IfColor 455,485,98ff,0
IfColor 474,484,9aff,0
x=341:hm=765
Goto 14277
EndIf
EndIf
i=0
For 9
VBSCall findpic(438,470,485,502,"Attachment:\"&t(i)&".bmp",0.9,lx,ly)
If lx>0
//如果找到就调用结果的数据
Gosub 数字结果
Goto 14277
EndIf
i=i+1
EndFor
Rem 14277
Return 找数字
Sub 数字结果
If i=0
//如果出再的是一个箭头，那么它的位置是如下，以此类推
x=520:hm=561
ElseIf i=1
x=497:hm=579
ElseIf i=2
x=482:h=595
ElseIf i=3
x=466:h=613
ElseIf i=4
x=447:hm=632
ElseIf i=5
x=430:hm=653
ElseIf i=6
x=411:hm=666
ElseIf i=7
x=395:hm=679
ElseIf i=8
x=380:hm=697
EndIf
hm=hm+30
Return 数字结果
版主点亮撒 假如非法
你们自己要想点办法咯 很容易的
o(∩_∩)o... 我还是 不说了 懂的就好了 免得说我变态
