呼叫.frm

VOD卡拉OK点歌系统源码

VERSION 5.00
Begin VB.Form 呼叫 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   5100
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   7155
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   Picture         =   "呼叫.frx":0000
   ScaleHeight     =   5100
   ScaleWidth      =   7155
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Label Label7 
      BackStyle       =   0  'Transparent
      Caption         =   " 返  回"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   24
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080C0FF&
      Height          =   495
      Left            =   2400
      MouseIcon       =   "呼叫.frx":37ED
      MousePointer    =   99  'Custom
      TabIndex        =   6
      Top             =   4050
      Width           =   2055
   End
   Begin VB.Label Label6 
      BackStyle       =   0  'Transparent
      Caption         =   " 火   警"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   24
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   615
      Left            =   4320
      MouseIcon       =   "呼叫.frx":3AF7
      MousePointer    =   99  'Custom
      TabIndex        =   5
      Top             =   3120
      Width           =   2055
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "电脑故障"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   24
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   615
      Left            =   1080
      MouseIcon       =   "呼叫.frx":3E01
      MousePointer    =   99  'Custom
      TabIndex        =   4
      Top             =   3120
      Width           =   2055
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "需要茶水"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   24
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   615
      Left            =   4440
      MousePointer    =   99  'Custom
      TabIndex        =   3
      Top             =   2040
      Width           =   2055
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "音箱故障"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   24
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   615
      Left            =   1080
      MousePointer    =   99  'Custom
      TabIndex        =   2
      Top             =   2040
      Width           =   2055
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "话筒故障"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   24
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   615
      Left            =   4440
      MousePointer    =   99  'Custom
      TabIndex        =   1
      Top             =   960
      Width           =   2055
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "需要帮助"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   24
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   615
      Left            =   1080
      MousePointer    =   99  'Custom
      TabIndex        =   0
      Top             =   960
      Width           =   2055
   End
End
Attribute VB_Name = "呼叫"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Winsock1_Connect()

End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

End Sub

Private Sub Form_Load()
'clint.RemoteHostIP = "192.168.0.1"
'clint.RemotePort = "1068"
'clint.Connect

End Sub

Private Sub Label1_Click()
工程.Winsock1.SendData pf.pcname & "   " & "需要帮助"
End Sub

Private Sub Label2_Click()
工程.Winsock1.SendData pf.pcname & "   " & "话筒故障"
End Sub

Private Sub Label3_Click()
工程.Winsock1.SendData pf.pcname & "   " & "音箱故障"
End Sub

Private Sub Label4_Click()
工程.Winsock1.SendData pf.pcname & "   " & "需要茶水"
End Sub

Private Sub Label5_Click()
工程.Winsock1.SendData pf.pcname & "   " & "电脑故障"
End Sub

Private Sub Label6_Click()
工程.Winsock1.SendData pf.pcname & "   " & "起火！！！"
End Sub