宝峰科技

 找回密码
 注册

QQ登录

只需一步,快速开始

智能终端设备维修查询系统注册会员邮箱认证须知!
查看: 3540|回复: 0

一段按键精灵跳舞的脚本源码

[复制链接]
  • TA的每日心情
    开心
    2024-12-9 18:45
  • 签到天数: 124 天

    [LV.7]常住居民III

    admin 发表于 2009-12-9 21:26:46 | 显示全部楼层 |阅读模式

    欢迎您注册加入!这里有您将更精采!

    您需要 登录 才可以下载或查看,没有账号?注册

    x

    1. General]
    2. Description=跳舞色
    3. BeginHotkey=222
    4. BeginHotkeyMod=0
    5. PauseHotkey=0
    6. PauseHotkeyMod=0
    7. StopHotkey=186
    8. StopHotkeyMod=0
    9. RunOnce=1
    10. EnableWindow=
    11. Enable=1
    12. AutoRun=0
    13. [Repeat]
    14. Type=0
    15. Number=1
    16. [Relative]
    17. SetupOCXFile=
    18. [Comment]
    19. Content=
    20. [Script]
    21. VBS dim i
    22. //循环开始标记
    23. Rem 开始
    24. Delay 32
    25. //找开始键
    26. MoveTo 697,291
    27. IfColor 569,146,c9e2f6,0
    28.     LeftClick 1
    29. EndIf
    30. //找上下左右
    31. i =0
    32. Rem 找
    33. While i <9
    34.     //空格
    35.     IfColor 722,494,e0b27c,0
    36.         IfColor 507,519,ffffff,0
    37.             KeyPress 32,1
    38.         EndIf
    39.     EndIf
    40.     //上
    41.     IfColor i*64+249,528,a5f2fd,2
    42.         IfColor i*64+261,528,a6f1fd,2
    43.             IfColor i*64+255,542,3787b3,2
    44.                 KeyPress 38,1
    45.                 i = i + 1
    46.                 Goto 找
    47.             EndIf
    48.         EndIf
    49.     EndIf
    50.     //下
    51.     IfColor i*64+249,535,3787b3,2
    52.         IfColor i*64+261,535,3787b3,2
    53.             IfColor i*64+255,522,e8fcff,2
    54.                 KeyPress 40,1
    55.                 i = i + 1
    56.                 Goto 找
    57.             EndIf
    58.         EndIf
    59.     EndIf
    60.     //左
    61.     IfColor i*64+251,526,c1f6fe,2
    62.         IfColor i*64+251,538,3787b3,2
    63.             IfColor i*64+266,532,4ab6d7,2
    64.                 KeyPress 37,1
    65.                 i = i + 1
    66.                 Goto 找
    67.             EndIf
    68.         EndIf
    69.     EndIf
    70.     //右
    71.     IfColor i*64+259,526,c0f6fe,2
    72.         IfColor i*64+259,538,3787b3,2
    73.             IfColor i*64+245,532,4ab6d7,2
    74.                 KeyPress 39,1
    75.                 i = i + 1
    76.                 Goto 找
    77.             EndIf
    78.         EndIf
    79.     EndIf
    80.     //红右
    81.     IfColor i*64+259,526,0000fe,2
    82.         IfColor i*64+259,538,0000b3,2
    83.             IfColor i*64+245,532,0000d7,2
    84.                 KeyPress 37,1
    85.                 i = i + 1
    86.                 Goto 找
    87.             EndIf
    88.         EndIf
    89.     EndIf
    90.     //红上
    91.     IfColor i*64+249,528,0000fd,2
    92.         IfColor i*64+261,528,0000fd,2
    93.             IfColor i*64+255,542,0000b3,2
    94.                 KeyPress 40,1
    95.                 i = i + 1
    96.                 Goto 找
    97.             EndIf
    98.         EndIf
    99.     EndIf
    100.     //红下
    101.     IfColor i*64+249,535,0000b3,2
    102.         IfColor i*64+261,535,0000b3,2
    103.             IfColor i*64+255,522,0000ff,2
    104.                 KeyPress 38,1
    105.                 i = i + 1
    106.                 Goto 找
    107.             EndIf
    108.         EndIf
    109.     EndIf
    110.     //红左
    111.     IfColor i*64+251,526,0000fe,2
    112.         IfColor i*64+251,538,0000b3,2
    113.             IfColor i*64+266,532,0000d7,2
    114.                 KeyPress 39,1
    115.                 i = i + 1
    116.                 Goto 找
    117.             EndIf
    118.         EndIf
    119.     EndIf
    120.     i = i + 1
    121. EndWhile
    122. //空格
    123. IfColor 722,494,e0b27c,2
    124.     IfColor 507,519,ffffff,0
    125.         KeyPress 32,1
    126.     EndIf
    127. EndIf
    128. //找结束
    129. IfColor 765,139,0c0ccb,0
    130.     MoveTo 765,139
    131.     LeftClick 1
    132.     Delay 1000
    133. EndIf
    134. VBSCall FindPic(756,129,782,153,"guan.bmp",0.9,intX,intY)
    135. If intX>0
    136.     MoveTo 769,141
    137.     LeftClick 1
    138.     Delay 1000
    139. EndIf
    140. VBSCall FindPic(549,169,592,189,"kaishi.bmp",0.9,intX,intY)
    141. If intX>0
    142.     MoveTo 567,179
    143.     LeftClick 1
    144. EndIf

    复制代码
    您需要登录后才可以回帖 登录 | 注册

    本版积分规则

    免责声明

    本站中所有被研究的素材与信息全部来源于互联网,版权争议与本站无关。本站所发布的任何软件编程开发或软件的逆向分析文章、逆向分析视频、补丁、注册机和注册信息,仅限用于学习和研究软件安全的目的。全体用户必须在下载后的24个小时之内,从您的电脑中彻底删除上述内容。学习编程开发技术或逆向分析技术是为了更好的完善软件可能存在的不安全因素,提升软件安全意识。所以您如果喜欢某程序,请购买注册正版软件,获得正版优质服务!不得将上述内容私自传播、销售或者用于商业用途!否则,一切后果请用户自负!

    QQ|Archiver|手机版|小黑屋|联系我们|宝峰科技 ( 滇公网安备 53050202000040号 | 滇ICP备09007156号-2 )

    Copyright © 2001-2023 Discuz! Team. GMT+8, 2024-12-22 22:51 , File On Powered by Discuz! X3.49

    快速回复 返回顶部 返回列表