[RESOLVED] Winsock problem with sending data

[Darkstorm]

Hi, I've been browsing these forums (and some others) and I have yet to find a solution to my problem so I decided to sign up and post a thread. I'm really new to VB, been doing this for two days to be honest I'm using Visual Basic 2005 Express Edition to do the program.

My program is for the moment just a really simple chatprogram (just trying to learn here you know), but in the end it will end up as (I hope) a program to connect to a device using telnet and be able to change and view the settings for the device. (The device currently has to be configure manually through telnet).

I use "my" program and another one called SimpleChat by Dave Dunghill. The SimpleChat program had to be updated in order for VB to open and run it (dont know if it got messed up somewhere on the way).

The problem is that neither program is sending or receiving data from the other. Even if I run two copies of the chatprogram by Dave no data is sent (doesn't show up in the textbox anyway). Both programs indicate that they are connected after I tried to connect them.

I also tried to install the chatprogram by Dave onto my home computer to see if it would work (by using the Publish function and set it to be installed from CD/DVD). It downloaded and installed .NET Frameworks 2 on my computer but the program itself wont start. First time I tried it put itself in the Start-meny, but after several tries it din't even do that anymore.

I'd be grateful if someone could please help me with this

This is the program I've put together (copy/paste mostly )

Option Strict Off
Option Explicit On
Friend Class Form1
    Inherits System.Windows.Forms.Form
 
    Private Sub buttonConnect_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles buttonConnect.Click
 
        ' reset the socket
        Winsock.Close()
 
        ' set the new properties
        Winsock.RemoteHost = "localhost" 'I put localhost here just now instead of my real IP
        Winsock.RemotePort = "1234"
 
        ' initiate the connection
        txtMain.Text = txtMain.Text & vbCrLf & "Connecting to " & comboDSLAM.Text & "..."
        Winsock.Connect()
 
    End Sub
 
    Private Sub cmdSend_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles buttonSend.Click
        ' make sure we're connected
        If Winsock.CtlState = MSWinsockLib.StateConstants.sckConnected Then
            ' send the data
            Winsock.SendData(txtCommand.Text & vbCrLf)
            System.Windows.Forms.Application.DoEvents()
            ' log the data in the main window
            LogData(txtCommand.Text)
            ' clear the text ready for the next command
            txtCommand.Text = ""
        Else
            txtMain.Text = txtMain.Text & vbCrLf & "You're not connected to anything"
        End If
    End Sub
 
    Private Sub Winsock_ConnectEvent(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Winsock.ConnectEvent
        ' alert the user that we're connected
        txtMain.Text = txtMain.Text & vbCrLf & "Connection established to " & Winsock.RemoteHostIP
    End Sub
 
    Private Sub Winsock_CloseEvent(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Winsock.CloseEvent
        ' alert the user when disconnected
        txtMain.Text = txtMain.Text & vbCrLf & "The connection to " & comboDSLAM.Text & " (" & Winsock.RemoteHostIP & ") has been terminated"
    End Sub
 
    Private Sub Winsock_DataArrival(ByVal eventSender As System.Object, ByVal eventArgs As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles Winsock.DataArrival
        Dim strData As String
        ' get the data
        Winsock.GetData(strData)
        ' display it in the main textbox
        LogData(strData)
 
    End Sub
 
    Private Sub Winsock_Error(ByVal eventSender As System.Object, ByVal eventArgs As AxMSWinsockLib.DMSWinsockControlEvents_ErrorEvent) Handles Winsock.Error
        ' alert the user to the error
        txtMain.Text = txtMain.Text & vbCrLf & "Error: " & eventArgs.description
    End Sub
 
    Private Sub LogData(ByVal strData As String)
        ' add string to the end of the textbox
        txtMain.Text = txtMain.Text & vbCrLf & strData
        ' scroll the textbox down
        txtMain.SelectionStart = Len(txtMain.Text)
    End Sub
 
    Private Sub Form_Unload(ByVal Cancel As Integer)
        Winsock.Close()
    End Sub
 
End Class