Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Function package_createChar(ByVal cName As String) As String
- '
- ' @ maTih.-
- With auxBuffer
- ' @@ Packet
- Call .WriteByte(client_Packets.createNewChar)
- '1D-1B ?????????????????
- ' algo falta acá? pero si agrego quedarían 4 ..... por que agregaría un byte o algo
- ' @@ Nick
- Call .WriteASCIIString("ZH_ZH_") ' AAAAAA(cName)
- ' @@ Pass
- Call .WriteASCIIString("zzzzzz") 'AAAAA
- ' @@ Pin
- Call .WriteASCIIString("zh127zh") 'aasaasaas
- ' @@ App.Version - App.Major - App.Minor
- Call .WriteByte(26) '1
- Call .WriteByte(26) '1
- Call .WriteByte(28) '7
- ' Head, clase, head
- Call .WriteByte(26) '1
- Call .WriteByte(26) '1
- Call .WriteByte(26) '1
- Call .WriteInteger(27) '17 CREO XD
- Call .WriteASCIIString("z[z5z") ' a@a.a
- 'hogar
- Call .WriteByte(26) ' 1
- Call .WriteASCIIString("*)*" & Chr(34) & "," & Chr(34) & "*)#(") ' el codigo raro del final
- 'Call .WriteASCIIString("12345678")
- package_createChar = .ReadASCIIStringFixed(.length)
- End With
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement