游戏挂机机器人框架

来源：互联网发布：java常见面试题及答案编辑：程序博客网时间：2024/04/30 18:36

非动作类游戏,一般对实时性要求不高,一般有几种事件：

1、快速的事件，几秒钟或者十几秒发生一次；

2、慢速事件，几分钟或者几十分钟触发一次，时间间隔相对固定；

3、定时事件，一般是中午12点或者晚上6点，发体力或者做活动；

4、集中事件，一般是活动，比如答题什么的，这种一般还是手动操作，没必要机器做：

1重复度不高，2时间较短，3复杂度高，当然非得要机器做也可以，等价于定时事件包含快速事件或慢速事件；

5、随机事件或突发事件

按键精灵9+大漠插件

一种框架是一个事件开一个线程，优点是无脑，缺点是每个线程需要绑定一次图形插件，且需要自定义互斥量结构（保护临界资源鼠标和键盘，实现某项操作时一般有连续的鼠标键盘操作，不能错序或者中断，当然如果你非要写个操作栈将当前状态入栈，类似linux进程切换一样，也是可以的）。

另一种框架开两个线程，类似不带操作系统的简单单片机程序，一个主循环，一个辅循环（单片机中断源）

，相当于一个监察者，一个执行者，监察者轮询事件容器中事件是否触发，若是其中有事件触发，则等待执行者当前事务完成，然后交给执行者去完成，执行者完成任务后若是没有接到下一个任务，则执行默认任务（快速事件）。

两个循环最好在两个线程，逻辑会比较清晰，如果非得要单线程，也是可以的。

//---------------------------------------------------------------------------------------------------------/

伪代码：

定义状态标识集合（一般将快速事件设置为默认状态，其余的事件各自定义）。

辅循环（监察者）：

while 1

获取当前时间

与定时事件时间比较

如果时间已到达

则等待状态标识回归默认状态（此处的等待实际是隐含的加锁，保护状态标识，确保只有一个事件在等待被处理，不会错过事件，且不会有双生产者修改状态标识，产生竞态，当然也可以写一个事件队列，然而对这个编程语言不是很了解，貌似是vb）将状态设置为此超时事件等待处理

与慢速事件超时时间相比较

如果时间已经超时

则等待状态标识回归默认状态，将状态设置为超时事件等待处理

检验随机事件触发条件

如果随机事件达到触发条件

则等待状态标识回归默认状态，将状态设置为随机事件等待处理

//-------------------------------------------------------------------------------------------------------------------------------

主循环（执行者）：

While 1

While 当前状态标识为快速事件等待处理

执行快速事件

如果，当前状态标识为慢速事件等待处理

则处理事件，事件处理完成后，重新设置此事件的超时时间，将状态标识设置为默认状态

如果，当前状态标识为定时事件或者随机事件等待处理

则处理事件，事件处理完成后，将状态标识设置为默认状态

//------------------------------------------------------------------------------------------

以下是用按键精灵9+大漠插件+天天模拟器的《大富豪2》策略经营手游自动机器人

买卖股票属于快速事件（默认状态）

员工鼓励属于慢速事件（15分钟间隔）

挑战属于集中事件（定时事件包含慢速事件）（11点开始,8分钟一次）

<span style="font-size:18px;">Set dm = createobject("dm.dmsoft")TracePrint dm.Ver()dm.SetPath "d:\dmtemp"hwnd = dm.GetMousePointWindow()//dm_ret = dm.SetWindowSize(hwnd, 1024, 768)//----------> I  :normal;gdi;gdi2;dx2;dx3;dx//----------> II :normal;windows;windows2;windows3;dx;dx2//----------> III:normal;windows;dx//----------------------DimEnv cur_stateDimEnv stock //Dimenv return_main Dimenv encourageDimEnv chanlengeDimEnv encourage_timeDimenv encourage_longDimEnv chanlenge_timeDimEnv chanlenge_longencourage_long = 15*60*1000chanlenge_long = 8*60*1000stock       = 1//return_main = 2encourage   = 3chanlenge   = 4cur_state = encourage//----------------------Dim debugDim issellissell = 1debug = 0If debug=1 Then     dm_ret = dm.BindWindow(hwnd, "normal", "normal", "normal", 0)Else     dm_ret = dm.BindWindow(hwnd, "normal", "windows", "normal", 0)End IfDelay 1000BeginThread stateM//股市按钮 47,836//培养序列 286,842；146,763；252,761；405,168；355,763；；DimEnv now_timeSub stateM//MessageBox "inthethread"encourage_time = 99999999999chanlenge_time = 99999999999While 1now_time = Plugin.GetSysInfo.GetTimeTracePrint now_timeIf now_time >= encourage_time Then While cur_state <> stockDelay 1000WendIf now_time >= encourage_time Then cur_state = encourageEnd IfEnd Ifnhour = hour(now)If nhour = 11 Then If chanlenge_begain = 0 thenWhile cur_state <> stockDelay 1000Wendcur_state = chanlengechanlenge_begain = 1End ifElse chanlenge_begain = 0End IfIf chanlenge_begain = 1 and now_time >= chanlenge_time Then While cur_state <> stockDelay 1000Wendcur_state = chanlengeEnd IfDelay 1000WendEnd SubSub ret2maindm_ret = dm.FindPic(0,0,2000,2000,"培养ret.bmp|股票ret.bmp","000000",0.9,0,intX,intY)If intX >= 0 and intY >= 0 Then    dm.moveto intX, intY    dm.leftclickEnd IfEnd SubWhile 1Call 鼓励Call 挑战Call 股票Wend//挑战序列 364,840；161,312；334,761；248,520；；；；；；；；Sub 挑战While cur_state = chanlengecall m_c(364,840) call m_c(161,312) call m_c(334,761) call m_c(248,520) chanlenge_time = Plugin.GetSysInfo.GetTimechanlenge_time = chanlenge_time + chanlenge_longTracePrint chanlenge_timecur_state = stockWendDelay 2000Call ret2mainDelay 2000End SubFunction m_c(a,b)dm.moveto a,bdm.leftclick Delay 3000End FunctionSub 鼓励While cur_state = encouragecall m_c(286,842) call m_c(146,763) call m_c(252,761) call m_c(405,168) call m_c(355,763) encourage_time = Plugin.GetSysInfo.GetTimeencourage_time = encourage_time + encourage_longTracePrint encourage_timecur_state = stockWendDelay 2000Call ret2mainDelay 2000End Sub//股市按钮 47,836Sub 股票Call m_c(47,836)    While cur_state=stock           dm.moveto 293, 243        dm.leftclick         Delay 2000                dm_ret = dm.FindColor(125,371,342,603,"edfcfd-884444",1.0,8,intX,intY)        If intX >= 0 and intY >= 0 Then            //MessageBox "找到"            dm.moveto intX, intY            If intY >= 599-15 Then                 dm.moveto 378,763                dm.leftclick            End If        End If                Delay 2000                if issell=1 then            dm_ret = dm.FindColor(125,371,342,603,"edfcfd-884444",1.0,6,intX,intY)            If intX >= 0 and intY >= 0 Then                //MessageBox "找到"                dm.moveto intX, intY                                If intY <=372 Then                     dm.moveto 117,765                    dm.leftclick                End If                End If        End If                Delay 1000        dm.moveto 205,241        dm.leftclick         Delay 2000                dm_ret = dm.FindColor(125,371,342,603,"edfcfd-884444",1.0,8,intX,intY)        If intX >= 0 and intY >= 0 Then            //MessageBox "找到"            dm.moveto intX, intY            If intY >= 599-15 Then                 dm.moveto 378,763                dm.leftclick            End If        End If                Delay 2000                if issell=1 then            dm_ret = dm.FindColor(125,371,342,603,"edfcfd-884444",1.0,6,intX,intY)            If intX >= 0 and intY >= 0 Then                //MessageBox "找到"                dm.moveto intX, intY                                If intY <=372 Then                     dm.moveto 117,765                    dm.leftclick                End If                End If        End If                Delay 2000            Wend        Delay 2000    Call ret2main    Delay 2000    End SubSub OnScriptExit()    dm_ret = dm.UnBindWindow()End Sub</span>

0 0