标题:
老大!!!快帮帮忙,看能否把2个脚本合成一个!
[打印本页]
作者:
zhen3661
时间:
2010-7-1 02:47
标题:
老大!!!快帮帮忙,看能否把2个脚本合成一个!
这个是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
欢迎光临 紫菀论坛 (http://bbs.szyin.com/)
Powered by Discuz! 7.1