老大！！！快帮帮忙，看能否把2个脚本合成一个！

zhen3661

这个是QQ英雄岛的后台挂机脚本 看能否在这上面在添加后台自动喊话功能？ 如果能的话 又该怎样设置（行的话源代码给做好 老大最好啦）！ 本人属于菜鸟级别  

//使用方法:设置脚本循环1次,开好自动战斗,在英雄岛窗口按M打开大地图,并把鼠标放在地图需要设定的挂机坐标开启脚本
VBS dim x,y,x0,y0
//获得当前窗口句柄，放在hwnd变量中
Plugin Hwnd=Window.MousePoint()
//获取鼠标当前位置
VBSCall GetCursorPos(x,y)
//获得该窗口的客户区参数字符串，放在clintrect变量中
Plugin clintrect=Window.GetClientRect(hwnd)
//把获得的字符串分解，各部分数据存放在名字为rect 的数组中，数组名字可以自己取
rect=split(clintrect,"|",-1,1)
//则这个数组的前两个元素就是窗口原点的坐标
x0=cint(rect(0))
y0=cint(rect(1))
//最小化窗口
Plugin Window.Min(Hwnd)
//Delay 300
//Plugin Bkgnd.KeyPress(Hwnd,77)
Rem 开始
Gosub 挂机
//设置回归挂机点的时间(毫秒)
//Delay 60000
//循环20次,每3秒按一次空格键
For 20
    Delay 3000
    Plugin bkgnd.KeyPress(Hwnd,32)
EndFor
Goto 开始
Sub 挂机
    Delay 300
    Plugin Bkgnd.MoveTo(Hwnd,x-x0,y-y0)
    Delay 300
    Plugin Bkgnd.rightClick(Hwnd,x-x0,y-y0)
    Delay 300
    Plugin Bkgnd.rightClick(Hwnd,x-x0,y-y0)
Return