VERSION 5.00
Begin VB.Form Form1
BackColor = &H00000000&
Caption = "Online Elites"
ClientHeight = 2025
ClientLeft = 120
ClientTop = 420
ClientWidth = 2835
Icon = "whosonline.frx":0000
LinkTopic = "Form1"
ScaleHeight = 2025
ScaleWidth = 2835
StartUpPosition = 3 'Windows Default
Begin VB.TextBox Text1
BackColor = &H80000001&
ForeColor = &H000000FF&
Height = 1815
Left = 120
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 0
Top = 120
Width = 2295
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
HabboList = ""
HabboList2 = ""
HabboCount = 0
BlockedIPs = ""
For a = 1 To frmMain.SockI
If frmMain.socket(a).State = sckConnected And Client(a).Name <> "" Then
If InStr(BlockedIPs, frmMain.socket(a).RemoteHostIP) Then GoTo NextA
If HabboCount <= 30 Then HabboList = HabboList & "
" & Client(a).Name & " " & frmMain.socket(a).RemoteHostIP Else HabboList2 = HabboList2 & "
" & Client(a).Name & " " & frmMain.socket(a).RemoteHostIP
HabboCount = HabboCount + 1
For b = 1 To frmMain.SockI
If frmMain.socket(a).RemoteHostIP = frmMain.socket(b).RemoteHostIP And a <> b And frmMain.socket(b).State = sckConnected And Client(b).Name <> "" Then
If HabboCount <= 30 Then HabboList = HabboList & "
" & Client(b).Name & " " & frmMain.socket(b).RemoteHostIP Else HabboList2 = HabboList2 & "
" & Client(b).Name & " " & frmMain.socket(b).RemoteHostIP
HabboCount = HabboCount + 1
End If
Next b
BlockedIPs = BlockedIPs & frmMain.socket(a).RemoteHostIP & ","
End If
NextA:
Next a
Text1.Text = HabboCount & " users online:" & HabboList
End Sub