: //这是一款人人网下的种植养殖游戏,里面带有打猎小游戏,其实就是打地鼠游戏 //游戏名称“庄园时代”,我通常是用人人桌面打开应用程序。 //做此脚本就是为了在打猎过程中节省鼠标的点击从而延长鼠标的使用寿命 //使用方法:进入到打猎界面,右下角出现“开始游戏”按钮时,按F10 //脚本开始运行,鼠标每0.1秒会敲击一次,你只需要移动鼠标到要敲的怪上即可 //但是为了不敲击灰色的怪而扣蘑菇的话,建议不要一直把鼠标停在洞口上 // //以下进入正题,开始编写脚本 // //获得游戏窗口句柄和位置尺寸等信息 //得到鼠标指向的窗口句柄 hw = Plugin.window.MousePoint() //得到窗口客户区大小 clintrect = Plugin.window.GetClientRect(hw) rect = split(clintrect, "|", - 1 , 1) // xoffset = cint(rect(0)) yoffset = cint(rect(1)) xwinsize = cint(rect(2)) ywinsize = cint(rect(3)) // //系统和窗口初始化完毕 // //以下语句判断是否获得的是游戏窗口 //由句柄信息得到,游戏窗口大小是 :760*600 If xwinsize <> 760 or ywinsize <> 600 Then MessageBox "请将鼠标放在游戏窗口内。" goto 结束 Else End If //定义变量 //dx_s和dy_s是“开始按钮”的相对位置 //dx_pk和dy_pk是PK条紫色的相对位置 //dx_end和dy_end是判断该局是否结束的标准,其实就是右下角“离开”按钮的相对位置 Dim dx_s, dy_s, dx_pk, dy_pk, dx_end, dy_end dx_s = 467 : dy_s = 447 : dx_pk = 479 : dy_pk = 370 : dx_end = 661 : dy_end = 534 // //功能:移动鼠标到“开始游戏”按钮 MoveTo xoffset+dx_s,yoffset+dy_s Delay 200 LeftClick 1 Delay 1000 //进入游戏:打地鼠界面 Rem start // IfColor xoffset+dx_pk,yoffset+dy_pk, "C43888", 2 Then For 10 LeftClick 1 Delay 80 Next Else LeftClick 1 Delay 100 End If IfColor xoffset+dx_end,yoffset+dy_end,"1C2941", 1 Then goto 结束 Else End If Goto start //脚本停止运行 Rem 结束 EndScript