创新路
我们一直在努力

游戏办公自动化

第七章

还记得上一章的内容吗?咋们今天就来解读一下上一章到底我们写了那些东西!

Delay 3000                                            按照惯例首先先延迟3秒

MessageBox"请将鼠标放入游戏中"        弹出一个对话框告知用户

Hwnd = Plugin.Window.MousePoint()获取当前鼠标所在对话框的句柄

Delay 3000                                            同样按照惯例延迟3秒

MessageBox"自动BOSS开始"                提示对话框任务开始

Delay 3000                                            同样按照惯例延迟3秒

For 10                                                    循环10次

    Call 自动Boss                                     第一调用自动Boss

     Call 世界Boss                                    第二调用世界Boss

Next                                                      结束循环

sub 自动Boss                                        子程序名字自动Boss

XY = Plugin.Bkgnd.FindPic(Hwnd, 0, 0, plugin.sys.GetScRX-1, plugin.sys.GetScRY-1, "C:\PIC.bmp", 0, 0.9)

                                                              找值(获取当前对话框内的一个图片)

iZB = InStr(XY, "|")                               赋值给当前找到的值,如果存在多个用|隔开

X = CLng(Left(XY, iZB – 1))                  赋值给图片确定左上角的值

Y = CLng(Right(XY, Len(XY) – iZB))     赋值给图片确定右下角的值

If X >= 0 Then                                     判断X是否大于等于0

Delay 100                                            延迟0.1秒

Call Plugin.Bkgnd.LeftClick(Hwnd, X + 5, Y + 5)鼠标左键点击X+5Y+5这个点

End If                                                   结束判断

Function世界BOSS                              函数名世界BOSS

XY = Plugin.Bkgnd.FindWordShape(Hwnd, 0, 0, plugin.sys.GetScRX-1, plugin.sys.GetScRY-1, "我的电脑", "宋体", 9, 0, 0.9)

iZB = InStr(XY, "|")

X = CLng(Left(XY, iZB – 1))

Y = CLng(Right(XY, Len(XY) – iZB))

If X >= 0 Then

   Delay 100

   Call Plugin.Bkgnd.LeftClick(Hwnd, X + 5, Y + 5)

End If

第二段的内容跟一段差不多,这里就不详细写了,那么问题来了,如果有细心的朋友一定发现了,为什么内容差不多,为什么不写在同一段的,这里我为什么不写同一段呢,因为在同一个程序里面不能存在相同的东西,而且差距不大,这种就最好用调用的方式来实现,不用反反复复的写,前面我写了,这个东西要重复10边,你总不能真去写10遍吧,所以有了可以方便的调用程序,这样就可以重复调用重复的语句了,好了,今天就分享到这里吧

客官点个赞呗! (0)
分享到:

评论 抢沙发

评论前必须登录!

天府云博 - 做有态度的开发&运维&设计学习分享平台!

联系我们百度云主机