VERSION 5.00
Begin VB.Form frmStaffmsg
BackColor = &H00400000&
BorderStyle = 4 'Festes Werkzeugfenster
Caption = "Staff Konsolennachricht"
ClientHeight = 2715
ClientLeft = 45
ClientTop = 315
ClientWidth = 4335
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2715
ScaleWidth = 4335
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows-Standard
Begin VB.TextBox Text2
Height = 285
Left = 3000
TabIndex = 11
Top = 1920
Width = 1215
End
Begin VB.OptionButton Option2
BackColor = &H00400000&
Caption = "An folgenden User (muss on sein):"
ForeColor = &H8000000E&
Height = 255
Left = 120
TabIndex = 10
Top = 1920
Width = 2775
End
Begin VB.OptionButton Option1
BackColor = &H00400000&
Caption = "An Alle die ON sind"
ForeColor = &H8000000E&
Height = 255
Left = 120
TabIndex = 9
Top = 1680
Value = -1 'True
Width = 2775
End
Begin VB.CommandButton Command1
Caption = "Senden"
Height = 255
Left = 120
TabIndex = 7
Top = 2280
Width = 4095
End
Begin VB.TextBox Text1
Height = 285
Left = 120
TabIndex = 0
Text = "Hallo %username%,
Willkommen im H4bbo!"
Top = 360
Width = 4095
End
Begin VB.Frame Frame1
BackColor = &H00400000&
Caption = "Codes"
ForeColor = &H8000000A&
Height = 855
Left = 120
TabIndex = 2
Top = 720
Width = 4095
Begin VB.Label Label5
BackColor = &H00400000&
Caption = "Jeweiliger Habboname"
ForeColor = &H8000000E&
Height = 255
Left = 1680
TabIndex = 6
Top = 480
Width = 2295
End
Begin VB.Label Label4
BackColor = &H00400000&
Caption = "Zeilenumbruch"
ForeColor = &H8000000E&
Height = 255
Left = 1680
TabIndex = 5
Top = 240
Width = 2295
End
Begin VB.Label Label3
BackColor = &H00400000&
Caption = "%username%"
ForeColor = &H8000000E&
Height = 255
Left = 120
TabIndex = 4
Top = 480
Width = 975
End
Begin VB.Label Label2
BackColor = &H00400000&
Caption = "
"
ForeColor = &H8000000E&
Height = 255
Index = 0
Left = 120
TabIndex = 3
Top = 240
Width = 975
End
End
Begin VB.Label Label6
BackColor = &H00400000&
Caption = "Nachricht:"
ForeColor = &H8000000E&
Height = 255
Left = 120
TabIndex = 8
Top = 120
Width = 4095
End
Begin VB.Label Label1
BackColor = &H00400000&
Caption = "Nachricht (
für neue Zeile):"
Height = 255
Left = 120
TabIndex = 1
Top = 360
Width = 4095
End
End
Attribute VB_Name = "frmStaffmsg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim Message As String
For a = 1 To frmMain.SockI
If frmMain.socket(a).State = sckConnected And modHabFunc.Client(a).Name <> "" Then
If LCase(Text2.Text) = LCase(modHabFunc.Client(a).Name) Or Option1.Value = True Then
Message = Text1.Text
Message = Replace(Message, "
", Chr(13))
Message = Replace(Message, "%username%", modHabFunc.Client(a).Name)
frmMain.socket(a).SendData "BE" & Chr(2) & "H4bbo" & Chr(2) & Message & Chr(2) & Chr(1)
End If
End If
Next a
End Sub