frmclient.frm

用VB做的简单的局域网通信程序

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