VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form Form1 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "客戶端 Client"
   ClientHeight    =   3210
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5055
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3210
   ScaleWidth      =   5055
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin MSWinsockLib.Winsock wsckClient 
      Left            =   5160
      Top             =   120
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "退出程序"
      Height          =   375
      Left            =   3480
      TabIndex        =   12
      Top             =   2760
      Width           =   1455
   End
   Begin VB.CommandButton cmdDisConnect 
      Caption         =   "斷開連接"
      Enabled         =   0   'False
      Height          =   375
      Left            =   1800
      TabIndex        =   11
      Top             =   2760
      Width           =   1455
   End
   Begin VB.CommandButton cmdConnect 
      Caption         =   "連接服務器"
      Height          =   375
      Left            =   120
      TabIndex        =   10
      Top             =   2760
      Width           =   1455
   End
   Begin VB.Frame Frame4 
      Caption         =   "連接狀態"
      Height          =   855
      Left            =   120
      TabIndex        =   8
      Top             =   1800
      Width           =   2295
      Begin VB.Label lbStatus 
         AutoSize        =   -1  'True
         Caption         =   "等待連接中 ..."
         BeginProperty Font 
            Name            =   "宋體"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   210
         Left            =   240
         TabIndex        =   9
         Top             =   360
         Width           =   1470
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "發送數據輸入"
      Height          =   2535
      Left            =   2520
      TabIndex        =   4
      Top             =   120
      Width           =   2415
      Begin VB.CommandButton cmdCancel 
         Caption         =   "取消"
         Enabled         =   0   'False
         Height          =   375
         Left            =   1320
         TabIndex        =   7
         Top             =   2040
         Width           =   975
      End
      Begin VB.CommandButton cmdSend 
         Caption         =   "發送"
         Enabled         =   0   'False
         Height          =   375
         Left            =   120
         TabIndex        =   6
         Top             =   2040
         Width           =   1095
      End
      Begin VB.TextBox txtDataSend 
         Height          =   1695
         Left            =   120
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   5
         Text            =   "frmClient.frx":0000
         Top             =   240
         Width           =   2175
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "選擇所需要的服務種類"
      Height          =   735
      Left            =   120
      TabIndex        =   2
      Top             =   960
      Width           =   2295
      Begin VB.ComboBox cmboServiceType 
         Height          =   300
         Left            =   120
         TabIndex        =   3
         Top             =   240
         Width           =   2055
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "服務器的IP地址"
      Height          =   735
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   2295
      Begin 工程1.ipBox ipBox 
         Height          =   375
         Left            =   120
         TabIndex        =   1
         Top             =   240
         Width           =   2000
         _ExtentX        =   5318
         _ExtentY        =   661
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmboServiceType_Click()
    Select Case cmboServiceType.Text
        Case "銑床"
            wsckClient.SendData "xichaung"
        Case "車床"
            wsckClient.SendData "chechuang"
        Case "液壓"
            wsckClient.SendData "yeya"
        Case "機械手"
            wsckClient.SendData "jixieshou"
    End Select
End Sub

Private Sub cmdConnect_Click()
    '調用connect方法連接服務器
    If wsckClient.State <> sckClosed Then
        With wsckClient
            .Close
        End With
    End If
        '指定遠程主機的ip地址。如果是localhost，
        '代表的ip地址為127.0.0.1，并且也代表本機。
    With wsckClient
        .RemoteHost = ipBox.Address
        '設置本機連接端口的localport屬性的內容
        '請注意！必須是整體值
        .RemotePort = 3025
        '.Bind
        .Connect
    End With
End Sub

Private Sub cmdDisConnect_Click()
    wsckClient.Close
    wsckClient.SendData "clearall"
    cmdConnect.Enabled = True
    cmdDisConnect.Enabled = False
    cmdSend.Enabled = False
    cmdCancel.Enabled = False
    lbStatus.Caption = "等待連接中 ..."
    lbStatus.ForeColor = vbRed
End Sub

Private Sub cmdExit_Click()
    Unload Me
End Sub

Private Sub cmdSend_Click()
    wsckClient.SendData txtDataSend.Text
End Sub

Private Sub Form_Load()
    Me.Width = 5145
    With ipBox
        .Address = "192.168.1.102"
    End With
    With cmboServiceType
        .FontSize = 12
        .Text = ""
        .AddItem "銑床"
        .AddItem "車床"
        .AddItem "液壓"
        .AddItem "機械手"
    End With
End Sub


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    cmdDisConnect_Click
End Sub

Private Sub wsckClient_Close()
    If cmboServiceType.Text Then
    End If
End Sub

Private Sub wsckClient_Connect()
    'MsgBox "連接成功！"
    lbStatus.Caption = "已成功連接服務器!"
    lbStatus.ForeColor = vbGreen
    cmdConnect.Enabled = False
    cmdDisConnect.Enabled = True
    cmdSend.Enabled = True
    cmdCancel.Enabled = True
End Sub

Private Sub wsckClient_DataArrival(ByVal bytesTotal As Long)
    Dim ReceiveData As String
    wsckClient.GetData ReceiveData
    'MsgBox ReceiveData
    Select Case ReceiveData
        Case "mang"
            MsgBox "機器忙"
            cmboServiceType.Text = ""
        Case "xian"
            MsgBox "機器可用"
    End Select
End Sub