谁能帮忙写个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个物品的脚本。