你的位置：
自己做的第一个脚本 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华夏的，朋友一起研究啊