frmcharuser.frm

能用的网吧计费管理系统(客户端).zip

VERSION 5.00
Begin VB.Form frmCharUser 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "登陆聊天室"
   ClientHeight    =   1590
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5745
   Icon            =   "frmCharUser.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1590
   ScaleWidth      =   5745
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox Text1 
      Height          =   270
      Left            =   2160
      TabIndex        =   0
      Top             =   240
      Width           =   1935
   End
   Begin VB.ComboBox Combo1 
      Height          =   300
      ItemData        =   "frmCharUser.frx":0442
      Left            =   2160
      List            =   "frmCharUser.frx":044C
      TabIndex        =   1
      Text            =   "男生"
      Top             =   960
      Width           =   1935
   End
   Begin VB.CommandButton Command2 
      Cancel          =   -1  'True
      Caption         =   "取消"
      Height          =   375
      Left            =   4440
      TabIndex        =   3
      Top             =   960
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "进入"
      Default         =   -1  'True
      Height          =   375
      Left            =   4440
      TabIndex        =   2
      Top             =   240
      Width           =   975
   End
   Begin VB.Label Label2 
      Caption         =   "请选择你的标识："
      Height          =   255
      Left            =   360
      TabIndex        =   5
      Top             =   960
      Width           =   1935
   End
   Begin VB.Label Label1 
      Caption         =   "在些输入你的大名："
      Height          =   255
      Left            =   360
      TabIndex        =   4
      Top             =   240
      Width           =   1815
   End
End
Attribute VB_Name = "frmCharUser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
On Error Resume Next
If Text1.Text = "" Or Text1.Text = "大家" Then
 MsgBox "不能不起个名字呀！", vbInformation + vbSystemModal, "小小问题"
 Text1.SetFocus

 Exit Sub
End If

If LockName Then

 Exit Sub
End If
frmChat.mThisName = Text1.Text
frmChat.mThisSex = Combo1.Text
frmChat.IsLogin = True
frmChat.Show
frmButton.Winsock1.SendData "_talk" + Chr(0) + "login" + Chr(0) + Text1.Text + Chr(0) + Combo1.Text

Unload frmCharUser
End Sub

Private Sub Command2_Click()
frmChat.IsLogin = False
'frmChat.Visible = False
frmChat.Visible = False
Unload frmChat
DoEvents
Unload frmCharUser
End Sub

Private Function LockName() As Boolean
 If InStr(1, Text1.Text, "爸") <> 0 Or InStr(1, Text1.Text, "妈") <> 0 Or _
      InStr(1, Text1.Text, "爹") <> 0 Or InStr(1, Text1.Text, "娘") <> 0 Or _
      InStr(1, Text1.Text, "爷") <> 0 Or InStr(1, Text1.Text, "奶") <> 0 Or _
      InStr(1, Text1.Text, "叔") <> 0 Or InStr(1, Text1.Text, "姑") <> 0 Or _
      InStr(1, Text1.Text, "舅") <> 0 Or InStr(1, Text1.Text, "姨") <> 0 Or _
      InStr(1, Text1.Text, "她") <> 0 Or InStr(1, Text1.Text, "他") <> 0 _
      Then

  LockName = True
  
  MsgBox "这个名字不好吧，可能要被人骂了！对了，你是不是想找事呀？", vbExclamation + vbSystemModal, "问题不小"

  Text1.SetFocus
  Exit Function
 End If
 If InStr(1, Text1.Text, "鸡巴") <> 0 Or InStr(1, Text1.Text, "机吧") <> 0 Or _
      InStr(1, Text1.Text, "屄") <> 0 Or InStr(1, Text1.Text, "操") <> 0 Or _
      InStr(1, Text1.Text, "肏") <> 0 Or InStr(1, Text1.Text, "机巴") <> 0 Or _
      InStr(1, Text1.Text, "鸡吧") <> 0 Or InStr(1, Text1.Text, "屌") <> 0 _
      Then

  LockName = True
  
  MsgBox "你这个名字太不象话了，你必须要换一个！！！", vbExclamation + vbSystemModal, "问题严重"
  
  Text1.SetFocus
  Exit Function
 End If


End Function


Private Sub Form_Load()
'Me.Show
End Sub