[RESOLVED] Winsock problem with sending data

Printable View

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

VB Code:

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

Re: Winsock problem with sending data

I could only post 10000 characters so sorry for the double post :)

This is the program I use to test the program I put together. Its a chat program made by Dunghill Dave.

VB Code:

Option Strict Off
Option Explicit On
Friend Class Form1
    Inherits System.Windows.Forms.Form
    Public Sub about_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles about.Click
        MsgBox("This chat program was written to go with the tutorial at: [url]http://www.vbwm.com/forums/topic.asp?TOPIC_ID=1660[/url] and was written by Dunghill_Dave")
        'as IFontDisp the user could forget my name :-)
    End Sub
    
    
    Private Sub cmdclear_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdclear.Click
        Dim msgresult As String
        msgresult = CStr(MsgBox("Are you sure you want to clear the chat box?", MsgBoxStyle.YesNoCancel))
        If msgresult = CStr(MsgBoxResult.Yes) Then txtmain.Text = "" 'here we can clear the chat box if we have too much, just click it and everything goes!
        'if they click anything else, we carry on...
    End Sub
    
    Private Sub cmdconnect_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdconnect.Click
        If txtIP.Text <> "" Then 'make sure the user has entered someting, IP or hostname
            With Winsock 'what we are talking about
                .RemoteHost = txtIP.Text 'what we want to connect to
                .RemotePort = CInt(txtport.Text) 'port we are going to connect to
                .Connect() 'connect to the server!
            End With 'stop talking about winsock
            Call areconnected() 'make the buttons look right
        Else
            MsgBox("You must enter an IP address!") 'you cant connect without the ip address
        End If
    End Sub
    
    Private Sub cmddisconnect_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmddisconnect.Click
        Winsock.Close() 'close the winsock control
        Call aredisconnected() 'get the buttons looking right
    End Sub
    
    Private Sub cmdhost_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdhost.Click
        On Error Resume Next
        Winsock.LocalPort = CInt(txtport.Text) 'tell the control port to use
        Winsock.Listen() 'listen to the port above
        Call areconnected() 'get the buttons looking right
        MsgBox("Your IP address is: " & Winsock.LocalIP) 'just in case we want to tell the person we want to talk to what to connect to
        txtIP.Text = Winsock.LocalIP 'and stick it in the ip box too
    End Sub
    
    Private Sub areconnected()
        'get the buttons looking right
        cmdhost.Enabled = False 'so we cant host while connected
        cmdconnect.Visible = False 'so we cant try to connect again
        cmdsend.Enabled = True 'make sure we can send data when we're connected
        With cmddisconnect 'we dont really need with here, but
            .Enabled = True 'it saves a lot of typing when you
            .Visible = True 'have a lot of properties to set
        End With 'end it so it doesnt think we are still refering to the button
        'get the text boxes locked so info cant be changed:
        txtport.ReadOnly = True 'lock the port box, this isnt really important as you cant change the port the winsock is using after you are connected anyway,
        txtIP.ReadOnly = True 'lock ip box, (isnt really important, as above
        txtname.ReadOnly = True 'stop people changing their usernames half way through chat, not important now, but if you have more users...
    End Sub
    Private Sub aredisconnected()
        'get the buttons looking right, (opposite to areconnected)
        cmdsend.Enabled = False 'we cant send if we're not connected, so dont even try!
        cmdhost.Enabled = True 'we can host, so show that button
        cmdconnect.Visible = True 'we could connect too!
        With cmddisconnect 'we dont really need with here, but
            .Enabled = False 'it saves a lot of typing when you
            .Visible = False 'have a lot of properties to set
        End With 'end it so it doesnt think we are still refering to the button
        
        'get the text boxes locked so info cant be changed:
        txtport.ReadOnly = False 'lock the port box, this isnt really important as you cant change the port the winsock is using after you are connected anyway,
        txtIP.ReadOnly = False 'lock ip box, (isnt really important, as above
        txtname.ReadOnly = False 'stop people changing their usernames half way through chat, not important now, but if you have more users...
    End Sub
    
    
    Private Sub cmdmore_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdmore.Click
        MsgBox("We will use this button in a later tutorial: sending files")
        'just in case you forget vbwm.com, and me of course!
    End Sub
    
    Private Sub cmdsend_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdsend.Click
        'UPGRADE_NOTE: State was upgraded to CtlState. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"'
        If Winsock.CtlState = MSWinsockLib.StateConstants.sckConnected Then 'chack the connection is alive
            Winsock.SendData((txtname).Text & ": " & (txtchat).Text) 'send your chat name, a ":" and the info you typed
            'NOTE: there is a space after the : so that it will appear chatname: typedinfo and not: chatname:typedinfo
            System.Windows.Forms.Application.DoEvents() 'this makes sure all the data gets their
            txtmain.Text = txtmain.Text & vbCrLf & (txtname).Text & ": " & (txtchat).Text 'puts the data you typed into your txtmain chat box too
            txtmain.SelectionStart = Len(txtmain.Text) 'takes you to the end of the chat session so far
            txtchat.Text = "" 'empty the box so you can type some more
        End If
        'If the winsock controll is not alive,
        'nothing will happen when you press the send button
    End Sub
    
    Public Sub elp_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles elp.Click
        MsgBox("The tutorial which acompanies this is at: [url]http://www.vbwm.com/forums/topic.asp?TOPIC_ID=1660[/url] and was written by Dunghill_Dave.  Please post any questions there.")
        'just in case you forget vbwm.com, and me of course!
    End Sub
    
    Public Sub exit_Renamed_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles exit_Renamed.Click
        Me.Close()
        End 'exit the program of course
    End Sub
    
    Private Sub Winsock_ConnectEvent(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Winsock.ConnectEvent
        MsgBox("Connected to server!") 'just to let you know we are connected
    End Sub
    
    Private Sub Winsock_ConnectionRequest(ByVal eventSender As System.Object, ByVal eventArgs As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles Winsock.ConnectionRequest
        'this part is only used if serving the chat.
        Winsock.Close() 'close the control as it can only do one thing at a time
        Winsock.Accept(eventArgs.requestID) 'accept the incoming connection
        MsgBox("Connection recieved from: " & Winsock.RemoteHostIP) 'find out who connected (their ip address at least!)
    End Sub
    
    Private Sub Winsock_DataArrival(ByVal eventSender As System.Object, ByVal eventArgs As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles Winsock.DataArrival
        Dim strrecieved As String
        Winsock.GetData(strrecieved) 'the incoming data will be set in a variable called strrecieved
        txtmain.Text = (txtmain).Text & vbCrLf & strrecieved 'add the data to the main chat box, the first bit makes sure the old data remains, the next bit vbCrLf put the new data on a new line and the new data is written in the text box
        txtmain.SelectionStart = Len(txtmain.Text) 'takes you to the end of the chat session
    End Sub
    
    Private Sub Winsock_Error(ByVal eventSender As System.Object, ByVal eventArgs As AxMSWinsockLib.DMSWinsockControlEvents_ErrorEvent) Handles Winsock.Error
        'if we get an error, we can get told the problem, and the
        'program will not close itself.
        MsgBox("Error: " & eventArgs.Description & "Connection Closed")
        Winsock.Close() 'close the connection to save confusion (sometimes the errors close the connection, sometimes not, best close them to make sure.
        Call aredisconnected() 'make sure all the buttons are correct
    End Sub
End Class

Jan 5th, 2006, 02:05 AM
dglienna

Re: Winsock problem with sending data

You are trying to jump from first to third. Like trying to fix your flat tire with a new transmission.
Jan 5th, 2006, 02:08 AM
Darkstorm

Re: Winsock problem with sending data

Ok, what am I supposed to do then? :) I usually jump over reading books and just jump into making something :D
Jan 5th, 2006, 02:18 AM
dglienna

Re: Winsock problem with sending data

Press F9 to create a Breakpoint on a line, and then press F8 to step line thru line thru the code. Press F5 to resume the code.

Re: Winsock problem with sending data

Thank you, I will try that

Edit:

That was great :)

Ok, the code stops here:

VB Code:

Private Sub Winsock_DataArrival(ByVal eventSender As System.Object, ByVal eventArgs As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles Winsock.DataArrival
        Dim strData As String <-- It jumps over this
        ' get the data
        Winsock.GetData(strData) <-- This is the last thing it does
        ' display it in the main textbox
        LogData(strData)
 
    End Sub

I tried putting in txtMain.Text = strData (instead of the LogData(strData)) so it would just delete everything in the textbox and put the data from strData there. That didnt work either...

Why does it jump over Dim strData As String? Is that the problem?

Edit Nr2: It works now! :D For some reason it couldnt handle strData because it had no value from the start so I gave it a value and now it works :D

VB Code:

Private Sub Winsock_DataArrival(ByVal eventSender As System.Object, ByVal eventArgs As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles Winsock.DataArrival
        Dim strData As String
        strData = "whatever" <-- I added that
        ' get the data
        Winsock.GetData(strData)
        ' display it in the main textbox
        LogData(strData)
 
    End Sub