一个很有个性的装饰网测试完整发布【已测源码】

一个很有个性的装饰网测试完整发布

一个很有个性的装饰网测试完整发布

http://down.qiannao.com/space/fi ... 801SHOP16.rar/.page

好东西 支持了

一个很有个性的装饰网测试完整发布【已测源码】

{:05:}{:05:}

{:29:}{:29:}

看一下是否完整

支持一下~~~~~~~~

个性的装饰网测试完整

看下后台怎么样

FindPic 0,0,1920,1080,"Attachment:\31.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    LeftClick 1
    Delay 1200
End If

FindPic 0,0,1920,1080,"Attachment:\32.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX-110, intY-110

    RightClick 1
    Delay 300
    KeyPress "V", 1
    Delay 300
    KeyPress "1", 3
    KeyPress "Down", 1
    Delay 300
    KeyPress "Enter", 1
    Delay 200
    KeyPress "Left", 1
    Delay 300
    KeyDown 18, 1
    KeyPress 89, 1
    KeyUp 18, 1
    Delay 300
End If

FindPic 0,0,1920,1080,"Attachment:\33.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    LeftClick 1
    Delay 300
    KeyPress "F2", 1
    Delay 300
    MoveTo intX, intY
    LeftClick 1
     Delay 300
End If


FindPic 0,0,1920,1080,"Attachment:\22.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    LeftClick 1
    Delay 300
    KeyPress "1", 1
    Delay 200
    KeyPress "Down", 1
    Delay 400
    KeyPress "Enter", 1
    KeyPress "Enter", 1
    Delay 400
    KeyPress "Esc", 1
    Delay 400
End If

FindPic 0,0,1920,1080,"Attachment:\24.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    LeftClick 1
    Delay 1500
MoveTo intX-50, intY+150

    LeftClick 1
End If


FindPic 0,0,1920,1080,"Attachment:\27.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    LeftClick 1
End If

Delay 500
FindPic 0,0,1920,1080,"Attachment:\34.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    LeftClick 1
End If
Delay 500
FindPic 0,0,1920,1080,"Attachment:\35.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    LeftClick 1
    KeyPress "Down", 1
    KeyPress "Enter", 1
End If
Delay 500
FindPic 0,0,1920,1080,"Attachment:\36.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    LeftClick 1
    KeyPress "Down", 2
    KeyPress "Enter", 1
    MoveTo intX-100, intY
    LeftClick 1
    KeyPress "End", 1
End If

Delay 300
FindPic 0,0,1920,1080,"Attachment:\10.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX+400, intY
    RightClick 1
    Delay 300
    KeyPress "W", 1
End If