加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

【LOL全自动挂机脚本源码】

(2013-08-16 04:35:21)
标签:

杂谈

分类: 按键精灵
Hwnd=Plugin.Window.Find("ApolloRuntimeContentWindow","PVP.net 客户端")
Winrect Plugin.Window.GetClientRect(hwnd)//得到窗口客户端大小
xyarr split(winrect, "|")
ux CLng(xyarr(0)) uy CLng(xyarr(1))

MoveTo ux 647,uy 41//移动到PLAY
LeftClick 1
Delay 1000
MoveTo ux 329, uy   179//移动到人机对战
LeftClick 2
Delay 200
MoveTo ux   494, uy   151//移动到经典对战模式
LeftClick 1
Delay 200
MoveTo ux   682, uy   162//移动到召唤师峡谷
LeftClick 1
Delay 200

MoveTo ux   862, uy   151 //选择人简单还是一般
LeftClick 1
Delay 200
MoveTo ux   752, uy   710//点击 匹配队友
LeftClick  
Delay 1000

TracePrint "进入匹配无问题"


Rem 循环游戏
do
FindPic ux 580,uy 346,ux 727,uy 425,"Attachment:\2.bmp",0.9,intX,intY//出现进入英雄图片
If intX And intY Then 
Exit Do
end if
loop
MoveTo ux   721, uy   483
LeftClick //进入选择英雄
Delay 1000
MoveTo ux   320, uy   209//就选择随机英雄吧哈哈
LeftClick 1
Delay 500
MoveTo ux   864, uy   507//点击确定
LeftClick 1

Delay 2000
Delay 180000//加载游戏窗口,就等3分钟吧
TracePrint "进入游戏没问题"


Call 等待胜利
Delay 2000

Sub 等待胜利()
    hwndb Plugin.Window.Find("RiotWindowClass", "League of Legends (TM) Client")
    Winrectb Plugin.Window.GetClientRect(hwndb)//得到窗口客户端大小
    xyarrb split(winrectb, "|")
    bx CLng(xyarrb(0)) by CLng(xyarrb(1))
    Do //好吧!在家里瞎走
      MoveTo bx 622,by 410
       
      RightClick 1
      delay 1000
        MoveTo bx 532,by 397
      
        RightClick 1
        delay 1000
        
FindPic bx   574, by   300, bx   704, by   362, "Attachment:\1.bmp", 0.9, intXb, intYb
    If intXb And intYb Then  //找到图片胜利
    
    Exit Do
    End If
    Loop
    
    MoveTo  bx   643, by   533  
    LeftClick   //退出游戏  
    Delay  15000 //等待10秒钟 
                  //到这里出点问题。有空再处理
    MoveTo  ux   1112, uy   737
    LeftClick //点击再来一局
    Delay 2000
  
    Goto 循环游戏
End Sub

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有