标题:
谁能帮忙写个QQ华夏自动寄售的脚本啊。
[打印本页]
作者:
em25251325
时间:
2009-9-1 18:57
标题:
谁能帮忙写个QQ华夏自动寄售的脚本啊。
代码在网上找到有就是不会写。会的帮忙下啊。谢谢。写好请发送到:
em25251325@163.com
别人写的代码如下:
脚本1(只寄售1样物品)
要卖的东西请放物品样右上角那个格子,并且不要动物品栏。
UserVar wpjj=0 请输入物品金价
UserVar wpyj=0 请输入物品银价
UserVar wptj=0 请输入物品铜价
VBS dim i
VBS i=1
Plugin hx=Window.Find(0,"QQ华夏")
//MessageBox ""&hx&""
Plugin Window.Active(hx)
While i=1
Delay 1000
IfColor 816,302,292829,1
MoveToS 816,302
Delay 400
LeftClickS 1
Delay 400
Gosub 挂东西
Else
i=i+1
EndIf
EndWhile
EndScript
Sub 挂东西
MoveToS 198,327
Delay 400
LeftClickS 1
Delay 400
MoveToS 167,409
Delay 400
LeftClickS 1
Delay 400
LeftClickS 1
Delay 400
KeyPressS 8,1
SayString wpjj
MoveToS 207,409
Delay 400
LeftClickS 1
Delay 400
KeyPressS 8,1
SayString wpyj
MoveToS 238,409
Delay 400
LeftClickS 1
Delay 400
KeyPressS 8,1
SayString wptj
MoveToS 193,551
Delay 400
LeftClickS 1
Delay 400
Return
脚本2(10个相同物品)适合挂商城道具
物品请放物品栏右边两竖行从上往下各5个.
UserVar wpjj=0 请输入物品金价
UserVar wpyj=0 请输入物品银价
UserVar wptj=0 请输入物品铜价
VBS dim i
VBS i=1
Plugin hx=Window.Find(0,"QQ华夏")
//MessageBox ""&hx&""
Plugin Window.Active(hx)
While i=1
Delay 1000
IfColor 816,302,292829,1
MoveToS 816,302
Delay 400
LeftClickS 1
Delay 400
Gosub 挂东西
Else
Goto 1
EndIf
EndWhile
Rem 1
While i=1
Delay 1000
IfColor 816,343,292829,1
MoveToS 816,343
Delay 400
LeftClickS 1
Delay 400
Gosub 挂东西
Else
Goto 2
EndIf
EndWhile
Rem 2
While i=1
Delay 1000
IfColor 816,384,292829,1
MoveToS 816,384
Delay 400
LeftClickS 1
Delay 400
Gosub 挂东西
Else
Goto 3
EndIf
EndWhile
Rem 3
While i=1
Delay 1000
IfColor 816,425,292829,1
MoveToS 816,425
Delay 400
LeftClickS 1
Delay 400
Gosub 挂东西
Else
Goto 4
EndIf
EndWhile
Rem 4
While i=1
Delay 1000
IfColor 816,466,292829,1
MoveToS 816,466
Delay 400
LeftClickS 1
Delay 400
Gosub 挂东西
Else
Goto 5
EndIf
EndWhile
Rem 5
While i=1
Delay 1000
IfColor 775,302,292829,1
MoveToS 775,302
Delay 400
LeftClickS 1
Delay 400
Gosub 挂东西
Else
Goto 6
EndIf
EndWhile
Rem 6
While i=1
Delay 1000
IfColor 775,343,292829,1
MoveToS 775,343
Delay 400
LeftClickS 1
Delay 400
Gosub 挂东西
Else
Goto 7
EndIf
EndWhile
Rem 7
While i=1
Delay 1000
IfColor 775,384,292829,1
MoveToS 775,384
Delay 400
LeftClickS 1
Delay 400
Gosub 挂东西
Else
Goto 8
EndIf
EndWhile
Rem 8
While i=1
Delay 1000
IfColor 775,425,292829,1
MoveToS 775,425
Delay 400
LeftClickS 1
Delay 400
Gosub 挂东西
Else
Goto 9
EndIf
EndWhile
Rem 9
While i=1
Delay 1000
IfColor 775,466,292829,1
MoveToS 775,466
Delay 400
LeftClickS 1
Delay 400
Gosub 挂东西
Else
Goto 10
EndIf
EndWhile
Rem 10
EndScript
Sub 挂东西
MoveToS 198,327
Delay 400
LeftClickS 1
Delay 400
MoveToS 167,409
Delay 400
LeftClickS 1
Delay 400
LeftClickS 1
Delay 400
KeyPressS 8,1
SayString wpjj
MoveToS 207,409
Delay 400
LeftClickS 1
Delay 400
KeyPressS 8,1
SayString wpyj
MoveToS 238,409
Delay 400
LeftClickS 1
Delay 400
KeyPressS 8,1
SayString wptj
MoveToS 193,551
Delay 400
LeftClickS 1
Delay 400
Return
想挂10个不同的东西,只需要把脚本2修改下,多加点自定义变量就行了,也可以用脚本1一个一个的挂。没试过宽屏的显示器1024X768分辨率的,不同的电脑找色可能不一样,不能工作的请自己找色。
注:帮忙做可以寄售10个物品的脚本。
作者:
shmily7007
时间:
2009-9-1 22:37
不会啊
作者:
slp07272
时间:
2009-10-28 21:57
我也想要个
欢迎光临 紫菀论坛 (http://bbs.szyin.com/)
Powered by Discuz! 7.1