Randomize
a = Int((350 * Rnd) + 50)
If a<401 Then
End If
FindPic 0,0,1440,900,"Attachment:\工会聊天.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX+200, intY+a
    LeftDown 1
    MoveR -230, 0
    LeftUp 1
    Delay 5
    KeyDown 17, 1
    KeyPress 67, 1
    KeyUp 17, 1
End If
    FindPic 0,0,1440,900,"Attachment:\输入.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    MoveTo intX+10, intY+30
        LeftClick 1
        LeftClick 1
        KeyDown 17, 1
        KeyPress 86, 1
        KeyUp 17, 1
End If
        FindPic 0,0,1440,900,"Attachment:\cdk确定.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
        MoveTo intX, intY
            LeftClick 1
End If