home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / Habbo_Whac19512011262005.psc / Form6.frm < prev    next >
Text File  |  2005-11-26  |  2KB  |  112 lines
  1. VERSION 5.00
  2. Begin VB.Form Form6 
  3.    Caption         =   "Form6"
  4.    ClientHeight    =   4545
  5.    ClientLeft      =   60
  6.    ClientTop       =   450
  7.    ClientWidth     =   2895
  8.    LinkTopic       =   "Form6"
  9.    ScaleHeight     =   4545
  10.    ScaleWidth      =   2895
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.ListBox lstnombres 
  13.       Height          =   4545
  14.       Left            =   1680
  15.       TabIndex        =   1
  16.       Top             =   0
  17.       Width           =   1215
  18.    End
  19.    Begin VB.ListBox lstusers 
  20.       Height          =   4545
  21.       Left            =   0
  22.       TabIndex        =   0
  23.       Top             =   0
  24.       Width           =   1215
  25.    End
  26. End
  27. Attribute VB_Name = "Form6"
  28. Attribute VB_GlobalNameSpace = False
  29. Attribute VB_Creatable = False
  30. Attribute VB_PredeclaredId = True
  31. Attribute VB_Exposed = False
  32. Public remover As String
  33. Public vEncontrado As Integer
  34. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  35. Form6.Hide
  36. End Sub
  37. Public Function BuscarChars(texto As String, Buscar As String) As String
  38. Dim Found() As String
  39. Found() = Split(Buscar, texto)
  40. vEncontrado = UBound(Found)
  41. End Function
  42. Public Function retirarusuario()
  43. Dim id1 As Integer
  44. Dim id2 As Integer
  45.  
  46. remover = Split(SckBuffer, "@]")(1)
  47. remover = Split(remover, "")(0)
  48.  
  49. id1 = remover
  50.  
  51. nVariables = lstusers.ListCount
  52.  
  53. For V = 0 To nVariables - 1
  54. lstusers.ListIndex = V
  55.  
  56. id2 = lstusers.Text
  57. If id1 = id2 Then
  58. lstusers.RemoveItem (V)
  59. lstnombres.RemoveItem (V)
  60. GoTo salir:
  61. End If
  62. Next V
  63. salir:
  64. End Function
  65. Public Function separarid(packete As String)
  66. Dim ID As String
  67. Dim nombre As String
  68. Dim Found() As String
  69.  
  70. ID = Split(packete, "i:")(1)
  71. ID = Split(ID, "n:")(0)
  72.  
  73. nombre = Split(packete, "n:")(1)
  74. nombre = Split(nombre, "f:")(0)
  75.  
  76. Found() = Split(nombre, "")
  77. nChars = UBound(Found)
  78.  
  79. If nChars > 0 Then
  80. nombre = Split(nombre, "")(1)
  81. lstnombres.AddItem ("(Pet)" & nombre)
  82. Else
  83. lstnombres.AddItem (nombre)
  84. End If
  85.  
  86. lstusers.AddItem (ID)
  87.  
  88. End Function
  89. Public Function ChecarNombre(UsersID As Integer)
  90. Dim id1 As Integer
  91. Dim id2 As Integer
  92. Dim HabboName As String
  93.  
  94. id1 = UsersID
  95.  
  96. nVariables = lstusers.ListCount
  97.  
  98. For V = 0 To nVariables - 1
  99. lstusers.ListIndex = V
  100.  
  101. id2 = lstusers.Text
  102. If id1 = id2 Then
  103. lstnombres.ListIndex = V
  104. HabboName = lstnombres.Text
  105. GoTo salir:
  106. End If
  107. Next V
  108. HabboName = "not found"
  109. salir:
  110. Call ModSockFuncts.submitname(HabboName)
  111. End Function
  112.