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
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