三千吧 关注:37,640贴子:4,168
  • 1回复贴,共1

阿斯顿发送到发斯蒂芬撒打发斯蒂芬

只看楼主收藏回复

KeyPress "F11", 1
Delay 1000//全屏
MoveTo 1336, 121
Delay 500
LeftClick 1
Delay 1000//关闭通知
Rem a0//定位
Delay 2000
MoveTo 1030, 238
Delay 500
LeftClick 1
Delay 2000//排序
IfColor 1030, 238, "F7B57A", 0 Then//如果排序为新
MoveTo 1030, 238
Delay 500
LeftClick 1
Delay 1500//则点击
Else
Goto a1
End If
Rem a1
Delay 1500//如果为旧则跳过
KeyDown 17, 1
KeyPress 70, 1
KeyUp 17, 1
Delay 500
SayString "修改详情"
Delay 2500//查找修改详情
FindColor 1200,0,1300,1080,"3296FF",intX,intY
If intX > 0 And intY > 0 Then
End If
MoveTo intX, intY
Delay 500
LeftClick 1
Delay 500
//第一次执行
for 19//19次执行
KeyDown 17, 1
KeyPress 70, 1
KeyUp 17, 1
Delay 2500//查找
FindColor 1200,0,1300,1080,"3296FF",intX,intY
If intX > 0 And intY > 0 Then
End If
MoveTo intX, intY
Delay 500
LeftClick 1
Delay 500
next
KeyPress "Home", 1
Delay 1500
KeyPress "F3", 1
Delay 1500
For 9999
Rem a3
IfColor 366, 60, "0073FF", 0 Then
Goto a2
Delay 500
Else
Goto a3
Delay 500
End If
Rem a2
Delay 1000
KeyDown 17, 1
KeyPress 70, 1
KeyUp 17, 1
Delay 500
SayString "最小起"
Delay 500
KeyPress "Space", 1
Delay 500
KeyPress "BackSpace", 1
Delay 1000
MoveTo 521, 541
Delay 500
LeftClick 1
Delay 500
KeyPress "Delete", 1
Delay 500
KeyPress "Delete", 1
Delay 500
MoveTo 957, 1059
LeftClick 1
Delay 3000
KeyPress "Enter", 1
Delay 2000
Rem b2
IfColor 467, 38, "73FF", 0 Then
Goto b1
Else
Goto b2
End If
Rem b1
KeyDown 17, 1
KeyPress 87, 1
KeyUp 17, 1
Delay 1000
IfColor 366, 60, "0073FF", 0 Then//颜色对 说明已进入下一产品 则继续执行
Goto a3
Delay 1000
Else //如果不是则说明执行完毕 则跳转到a0 商品列表页
Goto a0
Delay 500
End If
next


1楼2020-03-27 13:38回复
    KeyPress "F11", 1
    Delay 1000//全屏
    MoveTo 1336, 121
    Delay 500
    LeftClick 1
    Delay 1000//关闭通知
    Rem a0//定位
    Delay 2000
    MoveTo 1030, 238
    Delay 500
    LeftClick 1
    Delay 2000//排序
    IfColor 1030, 238, "F7B57A", 0 Then//如果排序为新
    MoveTo 1030, 238
    Delay 500
    LeftClick 1
    Delay 1500//则点击
    Else
    Goto a1
    End If
    Rem a1
    Delay 1500//如果为旧则跳过
    KeyDown 17, 1
    KeyPress 70, 1
    KeyUp 17, 1
    Delay 500
    SayString "修改详情"
    Delay 2500//查找修改详情
    FindColor 1200,0,1300,1080,"3296FF",intX,intY
    If intX > 0 And intY > 0 Then
    End If
    MoveTo intX, intY
    Delay 500
    LeftClick 1
    Delay 500
    //第一次执行
    for 19//19次执行
    KeyDown 17, 1
    KeyPress 70, 1
    KeyUp 17, 1
    Delay 2500//查找
    FindColor 1200,0,1300,1080,"3296FF",intX,intY
    If intX > 0 And intY > 0 Then
    End If
    MoveTo intX, intY
    Delay 500
    LeftClick 1
    Delay 500
    next
    KeyPress "Home", 1
    Delay 1500
    KeyPress "F3", 1
    Delay 1500
    For 9999
    Rem a3
    IfColor 366, 60, "0073FF", 0 Then
    Goto a2
    Delay 500
    Else
    Goto a3
    Delay 500
    End If
    Rem a2
    Delay 1000
    KeyDown 17, 1
    KeyPress 70, 1
    KeyUp 17, 1
    Delay 500
    SayString "最小起"
    Delay 500
    KeyPress "Space", 1
    Delay 500
    KeyPress "BackSpace", 1
    Delay 1000
    MoveTo 521, 541
    Delay 500
    LeftClick 1
    Delay 500
    KeyPress "Delete", 1
    Delay 500
    KeyPress "Delete", 1
    Delay 500
    KeyDown 17, 1
    KeyPress 70, 1
    KeyUp 17, 1
    Delay 500
    SayString "发货时间"
    Delay 500
    KeyPress "Space", 1
    Delay 500
    KeyPress "BackSpace", 1
    Delay 1000
    MoveTo 624, 755
    Delay 500
    LeftClick 1
    Delay 1000
    MoveTo 617, 778
    Delay 500
    LeftClick 1
    Delay 1000
    MoveTo 957, 1018
    LeftClick 1
    Delay 3000
    KeyPress "Enter", 1
    Delay 2000
    Rem b2
    IfColor 467, 38, "73FF", 0 Then
    Goto b1
    Else
    Goto b2
    End If
    Rem b1
    KeyDown 17, 1
    KeyPress 87, 1
    KeyUp 17, 1
    Delay 1000
    IfColor 366, 60, "0073FF", 0 Then//颜色对 说明已进入下一产品 则继续执行
    Goto a3
    Delay 1000
    Else //如果不是则说明执行完毕 则跳转到a0 商品列表页
    Goto a0
    Delay 500
    End If
    next
    KeyPress "F11", 1
    Delay 1000//全屏
    MoveTo 1336, 121
    Delay 500
    LeftClick 1
    Delay 1000//关闭通知
    Rem a0//定位
    Delay 2000
    MoveTo 1030, 238
    Delay 500
    LeftClick 1
    Delay 2000//排序
    IfColor 1030, 238, "F7B57A", 0 Then//如果排序为新
    MoveTo 1030, 238
    Delay 500
    LeftClick 1
    Delay 1500//则点击
    Else
    Goto a1
    End If
    Rem a1
    Delay 1500//如果为旧则跳过
    KeyDown 17, 1
    KeyPress 70, 1
    KeyUp 17, 1
    Delay 500
    SayString "修改详情"
    Delay 2500//查找修改详情
    FindColor 1200,0,1300,1080,"3296FF",intX,intY
    If intX > 0 And intY > 0 Then
    End If
    MoveTo intX, intY
    Delay 500
    LeftClick 1
    Delay 500
    //第一次执行
    for 19//19次执行
    KeyDown 17, 1
    KeyPress 70, 1
    KeyUp 17, 1
    Delay 2500//查找
    FindColor 1200,0,1300,1080,"3296FF",intX,intY
    If intX > 0 And intY > 0 Then
    End If
    MoveTo intX, intY
    Delay 500
    LeftClick 1
    Delay 500
    next
    KeyPress "Home", 1
    Delay 1500
    KeyPress "F3", 1
    Delay 1500
    For 9999
    Rem a3
    IfColor 366, 60, "0073FF", 0 Then
    Goto a2
    Delay 500
    Else
    Goto a3
    Delay 500
    End If
    Rem a2
    Delay 1000
    KeyDown 17, 1
    KeyPress 70, 1
    KeyUp 17, 1
    Delay 500
    SayString "最小起"
    Delay 500
    KeyPress "Space", 1
    Delay 500
    KeyPress "BackSpace", 1
    Delay 1000
    MoveTo 521, 541
    Delay 500
    LeftClick 1
    Delay 500
    KeyPress "Delete", 1
    Delay 500
    KeyPress "Delete", 1
    Delay 500
    KeyDown 17, 1
    KeyPress 70, 1
    KeyUp 17, 1
    Delay 500
    SayString "发货时间"
    Delay 500
    KeyPress "Space", 1
    Delay 500
    KeyPress "BackSpace", 1
    Delay 1000
    MoveTo 624, 755
    Delay 500
    LeftClick 1
    Delay 1000
    MoveTo 617, 778
    Delay 500
    LeftClick 1
    Delay 1000
    MoveTo 957, 1018
    LeftClick 1
    Delay 3000
    KeyPress "Enter", 1
    Delay 2000
    Rem b2
    IfColor 467, 38, "73FF", 0 Then
    Goto b1
    Else
    Goto b2
    End If
    Rem b1
    KeyDown 17, 1
    KeyPress 87, 1
    KeyUp 17, 1
    Delay 1000
    IfColor 366, 60, "0073FF", 0 Then//颜色对 说明已进入下一产品 则继续执行
    Goto a3
    Delay 1000
    Else //如果不是则说明执行完毕 则跳转到a0 商品列表页
    Goto a0
    Delay 500
    End If
    next


    2楼2020-04-18 17:35
    回复