Incorporating NEt Send INto VB

RPBLEA

Active member
Joined
Apr 26, 2005
Messages
36
Programming Experience
1-3
OKay I'm having some problems here, I'm trying to create a visual interface for Net Send, I'm using it in house for a small company, very small, But I wanted to incorporate the features of it, instead of building some type of socket instant Messenger, Now I'm able to send messages via the user interface but I am unable to recieve messages, Is their any documentation on how Net Send Recieves messages and displays them, Is their any way when a message is recieved to place it in a text box in VB and then close the netsend Pop up Box, Here's the code I have so far, Pretty self explanatory.


Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
lstNum.Items.Add(txtNum.Text)
txtNum.Text =
""
End Sub

Private Sub btnSub_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSub.Click
lstNum.Items.RemoveAt(lstNum.SelectedIndex)
End Sub

Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
Dim IDNumber As Integer
IDNumber = txtID.Text
txtChat.Text =
"Message to:" & lstNum.SelectedItem & "- " & txtMsg.Text
Shell(
"netsend" & IDNumber & txtMsg.Text)
End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
txtMsg.Text =
""
End Sub
End
Class
 
Back
Top