UserVar num=1 "卖几种商品"
UserVar price=1 "出售数量"
hwnd=Plugin.Window.Foreground()
Rect = Plugin.Window.GetClientRect(Hwnd)
//下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
MyArray = Split(Rect, "|")
//下面这句将字符串转换成数值(左|上|右|下)
L = Clng(MyArray(0)): T = Clng(MyArray(1))
R = Clng(MyArray(2)): B = Clng(MyArray(3))
//MessageBox "得到窗口句柄的客户区坐标 左上："&L&","&T&" 右下："&R&","&B

StopScript=0
//定义变量，是否停止脚本控制

Do while StopScript=0
    MoveTo 685+L,357+T
    //点出售按钮
    LeftClick 1
    pColor=GetPixelColor(92+L,94+T)
    If pColor="BBBBBB" Then
        i=0
        While i < num
            pX=115+55*i
            MoveTo pX+L,115+T
            //      移动到第i个商品
            Delay 100
            LeftClick 1
            Delay 100
            MoveTo 170+L,210+T
            //      点一下价格输入窗
            LeftClick 1
            Delay 100
            call InputText4KeyPress(price)
            Delay 100
            pColor=GetPixelColor(190+L,302+T)
            If pColor<>"FFFFFF" Then
                //如果无法点击计算器确定按钮，则点击MAX按钮
                KeyPress "Num +", 1
                pColor=GetPixelColor(148+L,94+T)
                If pColor <> "BBBBBB" Then //如果第二格商品不存在，则卖完暂停脚本
                    StopScript=1	
                End If
            End If
            Delay 100
            KeyPress 13,1
            i=i+1
        Wend
        MoveTo 631+L,411+T
        LeftClick 1
        //      点确认出售
        Delay 500
    End if
Loop

function InputText4KeyPress(y)
    y=CStr(y)
    while Len(y) > 0
    
        ch = Left( y, 1 )
        y = Right( y, Len(y) - 1)
        KeyPress ch,1
    wend
end function