borderAndreaVB free resources for Visual Basic developersborder

borderAndreaVB Visual Basic and VB.NET source code resources - Copyright © 1999-2007 Andrea Tincaniborder

AndreaVB | Forum | News | Downloads | Register | Help | Member List | Statistics | Search | PM | Profile

Print This Topic
Previous Topic (need help!!)Next Topic (RAS connected Users) New Topic New Poll Post Reply
AndreaVB Forum : Network : new to network HELP please
Poster Message
jahsen
Level: Professor

Registered: 08-01-2005
Posts: 72

icon new to network HELP please

I need to create a program where i can send a message to a certain computer (using its computer name) , the message will be recieved by a program i will create as well.

I have found a program in the download section where it sends a message to all computers connected to the network,  however i only need to send the message to a specific computer

can someone give me an idea.... on how to start these on both the sender and the reciever (the reciever need not to send a message back)

05-09-2005 at 02:56 PM
View Profile Send Email to User Show All Posts | Quote Reply
TJ_01
Level: VB Lord


Registered: 24-08-2005
Posts: 320
icon Re: new to network HELP please

Would this code helps?

'make two command buttons
'make two text boxes
'make two timers
'All with their default name

Dim ExecuteVal As Variant
Dim Dest As String
Dim Strval As String


Private Sub Command1_Click()
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 !!"
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


[Edited by TJ_01 on 06-09-2005 at 01:08 AM GMT]

____________________________
Im JAMES  

06-09-2005 at 01:07 AM
View Profile Send Email to User Show All Posts | Quote Reply
AndreaVB Forum : Network : new to network HELP please
Previous Topic (need help!!)Next Topic (RAS connected Users) New Topic New Poll Post Reply
Surf To:


Not Logged In? Username: Password: Lost your password?
Partners: Download Actual Software | Free Software Download
borderAndreaVB free resources for Visual Basic developersborder

borderAndreaVB Visual Basic and VB.NET source code resources - Copyright © 1999-2007 Andrea Tincaniborder