Attribute VB_Name = "Module1"
Public Sckbuffer As String
Public Indentify As String
Public Packet As String
Public AccountName As String
Public credits As String
Public Email As String
Public LastAccess As String
Public Access As String
Public Users As String
Public Sex As String
Public Figure As String
Public Mission As String
Public PHTickets As Integer
Public Birthday As String
Public AccessCount As Integer
Public Film As Integer
Public PublicKey As String

Public Sub UpdateStatus(PacketStatus As String, Sckbuffer As String)
On Error Resume Next

'Gets account details
If PacketStatus = "@E" Then

AccountName = Split(Sckbuffer, "name=")(1)
AccountName = Split(AccountName, "email=")(0)
AccountName = Split(AccountName, Chr(13))(0)

Figure = Split(Sckbuffer, "figure=")(1)
Figure = Split(Figure, "sex=")(0)
Figure = Split(Figure, Chr(13))(0)

Sex = Split(Sckbuffer, "sex=")(1)
Sex = Split(Sex, "customData=")(0)
Sex = Split(Sex, Chr(13))(0)

Mission = Split(Sckbuffer, "customData=")(1)
Mission = Split(Mission, "ph_tickets=")(0)
Mission = Split(Mission, Chr(13))(0)



PHTickets = Split(Sckbuffer, "ph_tickets=")(1)
PHTickets = Split(PHTickets, "ph_figure=")(0)
PHTickets = Split(PHTickets, Chr(13))(0)

Film = Split(Sckbuffer, "photo_film=")(1)
Film = Split(Film, "directMail=")(0)
Film = Split(Film, Chr(13))(0)

' Display the data
Form100.Text1.Text = AccountName
Form100.Text2.Text = Figure
Form100.Text3.Text = Mission
Form100.Text4.Text = Sex
Form100.Text5.Text = PHTickets
Form100.Text6.Text = Film

End If
End Sub