lm357cn1 lm357cn1
手机自动化app开发,小程序
关注数: 11 粉丝数: 40 发帖数: 761 关注贴吧数: 13
百度四方消砖块源码 Hwnd=Plugin.Window.Find("IEFrame","#game - Microsoft Internet Explorer")If Hwnd>0 then HwndEx=Plugin.Window.Findex(Hwnd,0,"Shell DocObject View",0) If HwndEx>0 then HwndEx=Plugin.Window.Findex(HwndEx,0,"Internet Explorer_Server",0) If HwndEx>0 then HwndEx=Plugin.Window.Findex(HwndEx,0,"MacromediaFlashPlayerActiveX",0) Else TracePrint "错误!!标题为:“” 类名为:“Internet Explorer_Server”的句柄未能找到" End If Else TracePrint "错误!!标题为:“” 类名为:“Shell DocObject View”的句柄未能找到" End IfElse TracePrint "错误!!标题为:“#game - Microsoft Internet Explorer” 类名为:“IEFrame”的句柄未能找到"End IfTracePrint "最终查找到的句柄保存在:HwndEx中,它的值HwndEx=" & HwndEx TracePrint "本工具由EZ脚本工作室友情提供,导师QQ:23316911"hwnd=hwndexsRect = Plugin.Window.GetClientRect(Hwnd)TracePrint srect拆分=split(srect,"|")起始点X = 拆分(0)起始点Y = 拆分(1)起点X = 起始点X + 40起点Y = 起始点Y + 60DoCall 点击()Loop Sub 点击()For y = 0 To 360 Step 39 For x = 0 To 360 Step 39 颜色 = GetPixelColor(起点X + x, 起点Y + y) For xx = x+39 To 360 Step 39 对比颜色 = GetPixelColor(起点X + xx, 起点Y + y) If 对比颜色 = 颜色 Then For yy = y + 39 To 360 Step 39 下面对比颜色 = GetPixelColor(起点X+x, 起点Y + yy) If 下面对比颜色 = 颜色 Then 第四个点的颜色 = GetPixelColor(起点X + xx, 起点Y + yy) If 第四个点的颜色 = 颜色 Then //找到了 MoveTo 起点X + x, 起点Y + y LeftClick 1 Delay 500 MoveTo 起点X + xx, 起点Y + y LeftClick 1 Delay 500 MoveTo 起点X+x, 起点Y + yy LeftClick 1 Delay 500 MoveTo 起点X + xx, 起点Y + yy LeftClick 1 Delay 2000 Exit Sub End If End If Next End If Next NextNextEnd Sub
1 下一页