www.pudn.com > netserver.zip > frmSendMsg.frm

VERSION 5.00 
Begin VB.Form frmSendMsg  
   BorderStyle     =   1  'Fixed Single 
   Caption         =   "发送信息" 
   ClientHeight    =   3510 
   ClientLeft      =   45 
   ClientTop       =   330 
   ClientWidth     =   4995 
   Icon            =   "frmSendMsg.frx":0000 
   LinkTopic       =   "Form1" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   3510 
   ScaleWidth      =   4995 
   StartUpPosition =   2  '屏幕中心 
   Begin VB.TextBox Text1  
      Height          =   2895 
      Left            =   0 
      MaxLength       =   255 
      MultiLine       =   -1  'True 
      ScrollBars      =   2  'Vertical 
      TabIndex        =   0 
      Top             =   0 
      Width           =   4935 
   End 
   Begin VB.CommandButton Command2  
      Cancel          =   -1  'True 
      Caption         =   "取消(&C)" 
      Height          =   375 
      Left            =   3240 
      TabIndex        =   2 
      Top             =   3000 
      Width           =   975 
   End 
   Begin VB.CommandButton Command1  
      Caption         =   "发送(&S)" 
      Height          =   375 
      Left            =   1680 
      TabIndex        =   1 
      Top             =   3000 
      Width           =   975 
   End 
End 
Attribute VB_Name = "frmSendMsg" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Public IndexJSJ As Integer 
Public SelectCom As String 
Public ISText As Boolean 
 
Private Sub Command1_Click() 
On Error Resume Next 
With frmMain.Data1.Recordset 
aa = .AbsolutePosition 
 
 
If Text1.Text = "" Then 
 MsgBox "所发的信息不能为空！", vbQuestion 
 Exit Sub 
End If 
Select Case SelectCom 
Case "当前所选计算机" 
 If ISText = True Then 
 frmMain.Winsock1(IndexJSJ).SendData "_comm" + Chr(0) + "settext" + Chr(0) + Text1.Text + Chr(0) + "OK$" 
 DoEvents 
   
 Else 
 frmMain.Winsock1(IndexJSJ).SendData "_msgb" + Chr(0) + Text1.Text + Chr(0) + "OK$" 
 DoEvents 
 End If 
Case "所有待机计算机" 
  
 .MoveFirst 
 For i = 1 To .RecordCount 
  If .Fields("状态") = "S" Then 
    For j = 0 To frmMain.Winsock1.Count - 1 
        If .Fields("IP") = frmMain.Winsock1(j).RemoteHostIP Then 
             If ISText = True Then 
              frmMain.Winsock1(j).SendData "_comm" + Chr(0) + "settext" + Chr(0) + Text1.Text + Chr(0) + "OK$" 
              DoEvents 
             Else 
             frmMain.Winsock1(j).SendData "_msgb" + Chr(0) + Text1.Text + Chr(0) + "OK$" 
             DoEvents 
             End If 
            Exit For 
        End If 
    Next j 
  End If 
  .MoveNext 
 Next i 
 .MoveFirst 
 .Move aa 
  
Case "所有记费中的计算机" 
 .MoveFirst 
 For i = 1 To .RecordCount 
  If .Fields("状态") = "Y" Then 
    For j = 0 To frmMain.Winsock1.Count - 1 
        If .Fields("IP") = frmMain.Winsock1(j).RemoteHostIP Then 
             If ISText = True Then 
              frmMain.Winsock1(j).SendData "_comm" + Chr(0) + "settext" + Chr(0) + Text1.Text + Chr(0) + "OK$" 
              DoEvents 
             Else 
             frmMain.Winsock1(j).SendData "_msgb" + Chr(0) + Text1.Text + Chr(0) + "OK$" 
             DoEvents 
             End If 
             Exit For 
          End If 
    Next j 
  End If 
  .MoveNext 
 Next i 
 .MoveFirst 
 .Move aa 
Case "所有暂停的计算机" 
 .MoveFirst 
 For i = 1 To .RecordCount 
  If .Fields("状态") = "P" Then 
    For j = 0 To frmMain.Winsock1.Count - 1 
        If .Fields("IP") = frmMain.Winsock1(j).RemoteHostIP Then 
             If ISText = True Then 
              frmMain.Winsock1(j).SendData "_comm" + Chr(0) + "settext" + Chr(0) + Text1.Text + Chr(0) + "OK$" 
              DoEvents 
             Else 
             frmMain.Winsock1(j).SendData "_msgb" + Chr(0) + Text1.Text + Chr(0) + "OK$" 
             DoEvents 
             End If 
            Exit For 
        End If 
    Next j 
  End If 
  .MoveNext 
 Next i 
 .MoveFirst 
 .Move aa 
Case "全部计算机" 
   
    For j = 0 To frmMain.Winsock1.Count - 1 
             If ISText = True Then 
              frmMain.Winsock1(j).SendData "_comm" + Chr(0) + "settext" + Chr(0) + Text1.Text + Chr(0) + "OK$" 
              DoEvents 
             Else 
             frmMain.Winsock1(j).SendData "_msgb" + Chr(0) + Text1.Text + Chr(0) + "OK$" 
             DoEvents 
             End If 
         DoEvents 
    Next j 
 
Case Else 
 MsgBox SelectCom & "错误" 
  
End Select 
End With 
Unload Me 
End Sub 
 
Private Sub Command2_Click() 
Unload Me 
 
End Sub