|
 
- UID
- 5466
- 帖子
- 142
- 积分
- 477
- 紫菀
- 10 朵
- 花瓣
- 254 片
- 花蕊
- 48 朵
- 野草莓
- 21 个
- 蒲公英
- 33276 朵
- 社区等级
- 19 级
- 在线时间
- 302 小时
- 注册时间
- 2007-1-18
- 蜗居何地
- 济南
- 登录状态
-
当前离线
|
楼主
发表于 2009-2-24 23:11
| 只看该作者
QQ自由幻想抢摊位辅助原代码
UserVar Var1=DropList{F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119|F9:120|F10:121}=0 银币快捷键
UserVar sa=100 延时秒数[毫秒]
UserVar wq=DropList{是:1|否:2}=0 是否与游戏兼容性抢店成功
UserVar sg=0 商店名称
Plugin hwnd = Window.GetKeyFocusWnd()
Plugin Window.Move(hwnd,20,20)
Rem 抢店
KeyPress var1,1
Delay sa
VBSCall FindPic(491,538,514,561,"Attachment:\1.bmp",0.5,x,y)
If x>=0 and y>=0
MoveTo 616,284
LeftClick 1
MoveTo 430,308
LeftClick 1
MoveTo 364,432
LeftClick 1
MoveTo 339,521
LeftClick 1
SayString sg
MoveTo 347,548
LeftClick 1
If wq=1
Goto 与游戏兼容性状态
ElseIf wq=2
Goto jieshu
EndIf
EndIf
Goto 抢店
Rem 与游戏兼容性状态
Delay 2500
VBSCall FindPic(491,538,514,561,"Attachment:\1.bmp",0.5,x1,y1)
If x1>=0 and y1>=0
MoveTo 558,143
LeftClick 1
Goto 抢店
EndIf
//==============================================================================================
Rem jieshu
EndScript
参考交流` |
|
晚上真的RP爆发了呢有掉卡给我，太感谢啦
看起来好复杂啊