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