filelineMax = filelineMax + fileline
        zhx=zhx+1
    Next

    ZhangHao=Plugin.File.ReadLine(fileHandle)    
    Call Plugin.File.CloseFile(fileHandle)      
    //MessageBox "读取" & VarZhanghao & "文件一行长度内容是：" & fileline
End Function

Function 按键输入(x)
	
    MyArrayString = Split(x, ",")

    If UBound(MyArrayString) > 0 Then 
        xk=0
        For UBound(MyArrayString)
				
            KeyPress ""&MyArrayString(xk),1
            xk=xk+1
        Next
    End If
End Function

Function 输入帐号(z,m)
    MoveTo DlX + 157, DlY - 66
    LeftClick 1
    KeyPress "Delete", 20
    KeyPress "BackSpace", 20
    Delay 500
    Call 按键输入(""&z)
    Delay 500
    KeyPress "Tab", 1
    Delay 500
    Call 按键输入(""&m)
    MoveTo DlX + 5, DlY + 6
    Delay 500
    LeftClick 1
    Call 点击进入游戏
End Function

Sub 点击进入游戏
    i=0
    While i = 0
        FindPic L+458,T+704, R-424, B-4,"Attachment:\进入游戏.bmp", 0.9, JRYXX, JRYXY
        If JRYXX > 0 Then 
            MoveTo JRYXX, JRYXY
            Delay 300
            LeftClick 1
            i=1
        Else 
            Delay 500
        End If
		
    Wend
End Sub
Sub 是否在登陆界面
    FindPic L,T,R,B,"Attachment:\登陆.bmp",0.9,DlX,DlY
    If DlX > 0 And DlY > 0 Then
        IsDenglu=1
    Else 
        IsDenglu=0
    End If
End Sub

Sub 查找包裹
    FindPic L,T,R,B,"Attachment:\包裹.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
    End If
End Sub