谁有学校自动点怪刷怪的脚本
，能给个么
急啊......_qq华夏吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0可签7级以上的吧50个
本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：121,092贴子：
谁有学校自动点怪刷怪的脚本
，能给个么
急啊......
谁有 能给一个不 跪求啊.......
麻烦各位大神发我邮箱
楼主手残，最多三关！
贴吧热议榜
使用签名档&&
保存至快速回贴你的位置：
自己做的第一个脚本 QQ华夏学校前台自动点怪源码绝对好用
20:54:31 |
来源: 按键精灵资源站
本帖最后由 ggdht 于
01:06 编辑
Hwnd = Plugin.Window.Find(0, &QQ华夏&)
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(sRect,&|&)
Ux=CLng(MyArray(0))
Uy = CLng(MyArray(1))
LockMouse下载地址请访问原帖
FindPic Ux,Uy,Ux+800,Uy+500,&Attachment:\w.bmp&,0.9,intX,intY
If intX & 0 And intY & 0 Then
MoveTo intX, intY + 30
RightClick 1
FindPic Ux,Uy,Ux+800,Uy+500,&Attachment:\t.bmp&,0.9,Xj,Yj
If Xj & 0 And Yj & 0 Then
MoveTo Xj,Yj
LeftClick 1
有什么问题，可以给我留言
玩QQ华夏的，朋友一起研究啊