home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / checko1a / netsend.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-08  |  2.8 KB  |  94 lines
  1. VERSION 5.00
  2. Begin VB.Form frmNetSend 
  3.    Caption         =   "Send Message"
  4.    ClientHeight    =   1995
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   1995
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton cmdSend 
  13.       Caption         =   "&Send"
  14.       Enabled         =   0   'False
  15.       Height          =   495
  16.       Left            =   3060
  17.       TabIndex        =   3
  18.       Top             =   1380
  19.       Width           =   1515
  20.    End
  21.    Begin VB.TextBox txtMessage 
  22.       Height          =   855
  23.       Left            =   120
  24.       MultiLine       =   -1  'True
  25.       ScrollBars      =   2  'Vertical
  26.       TabIndex        =   2
  27.       ToolTipText     =   "Use the enter key to break lines to avoid WIDE messages"
  28.       Top             =   480
  29.       Width           =   4455
  30.    End
  31.    Begin VB.ComboBox cmbUsers 
  32.       Height          =   315
  33.       Left            =   1200
  34.       Sorted          =   -1  'True
  35.       TabIndex        =   0
  36.       ToolTipText     =   "Must be a valid Window NT logon user name."
  37.       Top             =   48
  38.       Width           =   3375
  39.    End
  40.    Begin VB.Label Label1 
  41.       Caption         =   "Message To:"
  42.       Height          =   255
  43.       Left            =   120
  44.       TabIndex        =   1
  45.       Top             =   120
  46.       Width           =   1095
  47.    End
  48. Attribute VB_Name = "frmNetSend"
  49. Attribute VB_GlobalNameSpace = False
  50. Attribute VB_Creatable = False
  51. Attribute VB_PredeclaredId = True
  52. Attribute VB_Exposed = False
  53. Option Explicit
  54. Private Sub cmbUsers_Change()
  55.     If txtMessage <> "" And cmbUsers <> "" Then
  56.         cmdSend.Enabled = True
  57.     Else
  58.         cmdSend.Enabled = False
  59.     End If
  60. End Sub
  61. Private Sub cmbUsers_Click()
  62.     Call cmbUsers_Change
  63. End Sub
  64. Private Sub cmdSend_Click()
  65.     On Error Resume Next
  66.     Shell "net send " & cmbUsers & " Message from: " & frmCheckInOut.User$ & vbCrLf & vbCrLf & txtMessage, vbMinimizedNoFocus
  67.     If Err <> 0 Then
  68.         MsgBox "Error: could do 'net send'."
  69.     End If
  70.     On Error GoTo 0
  71. End Sub
  72. Private Sub Form_Load()
  73.     Dim oneuser$
  74.     oneuser$ = Dir$(frmCheckInOut.GetUserListFileDir("*"))
  75.     While oneuser$ <> ""
  76.         oneuser$ = Mid$(oneuser$, 10)
  77.         oneuser$ = Left$(oneuser$, Len(oneuser$) - 4)
  78.         If UCase$(oneuser$) <> UCase$(frmCheckInOut.User$) Then
  79.             cmbUsers.AddItem oneuser$
  80.         End If
  81.         oneuser$ = Dir$
  82.     Wend
  83. End Sub
  84. Private Sub Form_Unload(Cancel As Integer)
  85.     frmCheckInOut.Show
  86. End Sub
  87. Private Sub txtMessage_Change()
  88.     If txtMessage <> "" And cmbUsers <> "" Then
  89.         cmdSend.Enabled = True
  90.     Else
  91.         cmdSend.Enabled = False
  92.     End If
  93. End Sub
  94.