I think this applies more here than the topic "Profile Help" I originally posted in of Outlawz-Gosu.

When I request my keys, whether it be:
[code] PacketBuf.InsertNTString "System\Username"
PacketBuf.InsertNTString "System\Account Created"
PacketBuf.InsertNTString "System\Last Logon"
PacketBuf.InsertNTString "System\Last Logoff"
PacketBuf.InsertNTString "System\Time Logged"[/code]
or
[code] PacketBuf.InsertNTString "profile\sex"
PacketBuf.InsertNTString "profile\age"
PacketBuf.InsertNTString "profile\location"
PacketBuf.InsertNTString "profile\description"[/code]
They are return in the order that I sent them, but not in the order that they Split().

IE:
[quote]'[6:41:54 PM] 2 29608520 1681102539 created
'[6:41:54 PM] 3 29623872 3218976033 logon
'[6:41:54 PM] 4 29623863 3142340068 log off
'[6:41:54 PM] 5 97642 time logged[/quote]
Today is being returned as:
[quote]
[7:33:35 AM] 4 29622090 1673424946 created
[7:33:35 AM] 5 29623980 2731395027 logon
[7:33:35 AM] 6 29623979 2869513927 logoff
[7:33:35 AM] 7 509 time logged
[/quote]
The index of the order in the string as each is returned is infront of the rest for the string. Is there a way to display the Profile info with trying to display SplitProfile(4)?


EDIT:Forgot Splitting code
[code]
For i = 1 To UBound(SplitProfile)
If i = 3 Then
SPP = Split(SplitProfile(3), " ")
FT.dwHighDateTime = SPP(0)
FT.dwLowDateTime = SPP(1)
Call FileTimeToLocalFileTime(FT, FT)
Call FileTimeToSystemTime(FT, st)
TIMEO = st.wHour & ":" & st.wMinute & ":" & st.wSecond
TIMEO = Format(TIMEO, "hh:mm:ss ampm")
AddChat vbGreen, "Account Created: ", vbCrLf & &HC0C000, st.wMonth & "/" & st.wDay & "/" & st.wYear, vbCrLf & vbRed, " @ ", vbCrLf & &HC0C000, TIMEO
ElseIf i = 4 Then
SPP = Split(SplitProfile(4), " ")
FT.dwHighDateTime = SPP(0)
FT.dwLowDateTime = SPP(1)
Call FileTimeToLocalFileTime(FT, FT)
Call FileTimeToSystemTime(FT, st)
TIMEO = st.wHour & ":" & st.wMinute & ":" & st.wSecond
TIMEO = Format(TIMEO, "hh:mm:ss ampm")
AddChat vbGreen, "Last Logon: ", vbCrLf & &HC0C000, st.wMonth & "/" & st.wDay & "/" & st.wYear, vbCrLf & vbRed, " @ ", vbCrLf & &HC0C000, TIMEO
ElseIf i = 5 Then
SPP = Split(SplitProfile(5), " ")
FT.dwHighDateTime = SPP(0)
FT.dwLowDateTime = SPP(1)
Call FileTimeToLocalFileTime(FT, FT)
Call FileTimeToSystemTime(FT, st)
TIMEO = st.wHour & ":" & st.wMinute & ":" & st.wSecond
TIMEO = Format(TIMEO, "hh:mm:ss ampm")
AddChat vbGreen, "Last Log Off: ", vbCrLf & &HC0C000, st.wMonth & "/" & st.wDay & "/" & st.wYear, vbCrLf & vbRed, " @ ", vbCrLf & &HC0C000, TIMEO
ElseIf i = 6 Then
AddChat vbGreen, "Time Logged: ", vbCrLf & &HC0C000, ConvertTime(SplitProfile(6) * 1000)
End If
Next i[/code]

[code]dim ReadNow as boolean
ReadNow =false
For i = 0 To UBound(Array())

if ReadNow then
    if i = CR+1 then
       stuff for cr+1
    end if
    if i= CR+2 then
       stuff for cr+2
    end if
    if i= CR+3 then
       stuff for cr+3
    end if
    if i= CR+4 then
       stuff for cr+4
    end if
    :
end if
If instr(1,Array(i),ProfName) > 0 Then
    ReadNow = true
    CR = i
end if

next i[/code]

I got that from ppl @ visualbasicforum.com, they helped quite good.

both parse codes posted look ridiculous

I thought so too, but it works so ... pfft