Dim t
UserVar shuru="t" "这里是输入的内容"

Call a
Call b
Call c
 SayString shuru
    Delay 1000
Call e
Call f
Call h
Sub a //寻找章鱼头像
    FindPic 0,0,1024,768,"Attachment:\章鱼.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        LeftClick 1
        
        Delay 2100
    End If
End Sub
Sub b //点击开始聊天
    FindPic 0,0,1024,768,"Attachment:\开始聊天.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        MoveTo intX, intY
        LeftClick 1
       
        Delay 2500
    End If
End Sub
Sub c //点击文本框
    MoveTo 610, 536
    Delay 200
    LeftClick 1
    Delay 500
End Sub

Sub e //发送文本
    KeyPress "Ctrl", 1
    Delay 200
    KeyPress "Enter", 1
    Delay 200
    KeyUp "Enter", 1
    KeyUp "Ctrl", 1
    Delay 700
End Sub
Sub f //关闭
    MoveTo 931, 137
    LeftClick 1
End Sub
Sub h
	FindPic 0,0,1024,768,"Attachment:\重新发牌.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 200
    LeftClick 1
    Delay 1000

End If



End Sub