lu1
Plugin hx=Window.Foreground()
Plugin s=Window.GetClientRect(hx)
c=split(s,"|",-1,1):qx=c(0):qy=c(1)
VBSCall ReadMemory(&H604A60,2,jdz)
VBS gdx="&H" & hex(jdz+43036)
VBS gdy="&H" & hex(jdz+43036+4)
//***********************************************************
Rem 1
VBSCall FindPic(qx+0,qy+0,qx+640,qy+480,"Attachment:\制符台.bmp",1,fx,fy)
If fx>0
    tx=fx:ty=fy:jqd=5
    Gosub movetoxy
    LeftClick 1
    Delay 2000
Else 
    Delay 200
    Goto denglu1
EndIf 
Rem 2
VBSCall FindPic(qx+0,qy+0,qx+640,qy+480,"Attachment:\开始.bmp",0.8,fx,fy)
If fx>0
    Delay 200
    tx=fx+70:ty=fy+7:jqd=5
    Gosub movetoxy
    Delay 500
    LeftClick 1
    Delay 2000
Else 
EndIf 
Rem 3
VBSCall FindPic(qx+0,qy+0,qx+640,qy+480,"Attachment:\羊毛笔.bmp",1,fx,fy)
If fx>0
    Delay 500
    tx=fx+265:ty=fy-15:jqd=3
    Gosub movetoxy
    Delay 300
    LeftClick 1
    Delay 300
    LeftClick 1
    Delay 300
    LeftClick 1
    Delay 300
    LeftClick 1
Else 
EndIf 
Delay 1500
Rem 4
VBSCall FindPic(qx+0,qy+0,qx+640,qy+480,"Attachment:\确定.bmp",1,fx,fy)
If fx>0
    tx=fx:ty=fy-3:jqd=3
    Gosub movetoxy
    LeftClick 1
    Delay 1000
    Delay 5000
    Goto denglu1
Else 
EndIf 
Goto denglu1
Sub movetoxy
    Plugin dh=Window.Foreground()
    sx=tx+(320-tx)*0.3+qx
    sy=ty+(240-ty)*0.3+qy
    Rem move
    VBSCall GetCursorPos(x,y)
    If x>qx+640 or x<qx+0 or y>qy+480 Or y<qy+0
        sx=qx+tx:sy=qy+ty
    EndIf 
    MoveTo sx,sy
    Delay 70
    VBSCall ReadMemory(gdx,2,mx)
    VBSCall ReadMemory(gdy,2,my)
    //MessageBox(mx&","&my)
    rx=tx-mx
    ry=ty-my
    If abs(tx-mx)<=jqd and abs(ty-my)<=jqd
        // MoveR rx,ry
    Else 
        sx=sx+rx*0.7
        sy=sy+ry*0.7
        Goto move
    EndIf 
Return