by Prashant Mehta (1 Submission)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 26th February 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Send messages across the network and also shows the good use of Timers.
API Declarations
'make two text boxes
'make two timers
'All with their default name
Dim ExecuteVal As Variant
Dim Dest As String
Dim Strval As String
Dim t, m
t = Trim(Text2.Text)
m = Trim(Text1.Text)
If t = "" Then
MsgBox "Enter Remote Computer Name" & Chr(13) & "For this message"
Text2.SetFocus
ElseIf m = "" Then
MsgBox "Enter Some Message"
Text1.SetFocus
End If
Strval = "net send " & t & " " & m
ExecuteVal = Shell(Strval)
End Sub
Private Sub Command2_Click()
Me.bandh
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
Me.bandh
End Sub
Private Sub Timer1_Timer()
Label4.Caption = "Bye Prashant !!"
End Sub
Private Sub Timer2_Timer()
End
End Sub
Public Sub bandh()
Timer1.Enabled = True
Timer2.Enabled = True
Timer1.Interval = 200
Timer2.Interval = 1400
End Sub
No comments have been posted about Send messages across the network and also shows the good use of Timers.. Why not be the first to post a comment about Send messages across the network and also shows the good use of Timers..