创新路
我们一直在努力

办公游戏自动化

第六章

 咋们今天来点实际的,前面也学习了这么多命令了,给大家来个我曾经自己做的自动游戏耍BOSS的脚本,当然只是初级版本,高级的要涉及很强大的逻辑,这里不适合,所以来个简单的如下。

Delay 3000

MessageBox"请将鼠标放入游戏中"

Hwnd = Plugin.Window.MousePoint()

Delay 3000

MessageBox"自动BOSS开始"

Delay 3000

For 10

    Call 自动Boss

     Call 世界Boss

Next

sub 自动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

Delay 100

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

End If

Function世界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

这就是我曾经写的一个游戏脚本代码,如果有同学看了前面的教程,就来试一试翻译这段简单代码的意思。那今天就写到这里,下期我来翻译这代码看和你翻译的是否一样。

未经允许不得转载:天府数据港官方信息博客 » 办公游戏自动化

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

评论 抢沙发

评论前必须登录!

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

联系我们百度云主机