[VB6] Socket COmmands.

Discussion in 'Scripts, 3rd Party Apps, and Programming' started by Shadow121, Jan 29, 2008.

  1. Shadow121

    Shadow121 Member

    Messages:
    901
    Likes Received:
    0
    Trophy Points:
    16
    My Current Code:
    Code:
    Private Sub txtCom_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then 
    LastCOM = txtCom
        If txtCom <> "" Then
        If InStr(txtCom, "%") And InStr(txtCom, " ") Then
             multiParam txtCom
        ElseIf Not InStr(txtCom, " ") And InStr(txtCom, "%") Then
            singleParam txtCom.Text 
        ElseIf Not InStr(txtCp, "%") And Not InStr(txtCom, " ") Then 
            WriteLine (NickName & ": " & txtCom)
        End If
        txtCom.Text = "" 
        End If
    ElseIf KeyCode = vbKeyUp Then 
        txtCom = LastCOM 
    End If 'end if
    End Sub
    When i go to put in %port 8000 It won't change it because it wants to think its still a Single parameter instead of a multi

    Another problem is when i go to use the close command which is %close.

    The code is:
    Code:
    Case "%close", "%Close"
    Unload Me
    But when i put it in and hit enter it says its an invalid use of the Me Keyword.

    Can anyone help out?
     
    Last edited: Jan 29, 2008

Share This Page