cishu=1 "上架次数"
UserVar sjsl=0 "每次上架数量"
UserVar wpdj=0 "物品单价"
UserVar slsd=100 "输入数量速度（默认100毫秒）"
s=1
sss=1
pmykj=wpdj*sjsl
pmqsj=pmykj-10
HwndEx = Plugin.Window.Search("地下城与勇士")
MyArray = Split(HwndEx, "|")
If UBound(MyArray)>=0
    i=0
    For UBound(MyArray)
        //下面这句将字符串转换成数值
        If i=0 Then
            hh=Clng(MyArray(0))
        ElseIf i=1 Then
            hh=Clng(MyArray(0))
            ha=Clng(MyArray(1))
        End If 
        i=i+1
    EndFor 
EndIf 
Delay 200
Call Plugin.Window.Move(hh, 0, 0)
Call Plugin.Window.Top(hh, 0)
Call Plugin.Window.Top(hh, 1)


Rem 测试



MoveTo 5, 468
Delay 100
LeftClick 1
For 3
FindPic 0,0,384,92,"Attachment:\拍卖.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 5, 468
Else
Delay 20
KeyPress "B", 1
End If
Next
FindPic 0,0,1024,768,"Attachment:\识别上架.bmp",0.7,intX,intY
If intX > 0 And intY > 0 Then

Else
FindPic 0,0,1024,768,"Attachment:\上架.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
Delay 200
LeftDoubleClick 1
Delay 50
End If
End If
Delay 50
MoveTo 96, 459
LeftDown 1
Delay 50
MoveTo 196, 206
Delay 50
LeftUp 1

Delay 100
If s=1 Then
PSW=sjsl
End If

Delay 100
Goto 输入
Rem 拍卖一
If s=2 Then
MoveTo 222, 261
Delay 100
LeftDoubleClick 1
Delay 50
PSW=pmqsj
Goto 输入
End If


Rem 拍卖二
Delay 100
MoveTo 226, 285
Delay 100
LeftDoubleClick 1
Delay 50
If s=3 Then
PSW=pmykj
Goto 输入
End If