0

'Variables globales
Dim sIp As String
Dim sPuerto As Integer
Dim sPassword As String

Private Sub Command1_Click()
Dim Comando() As String
Dim i As Integer
Comando = Split(txtLog.Text, " ")

For i = 0 To UBound(Comando)
    Select Case LCase(Comando(i))
        Case "-ip"
            sIp = Comando(i + 1)
       
        Case "-port"
            sPuerto = Comando(i + 1)
       
        Case "-password"
            sPassword = Comando(i + 1)
           
    End Select
Next i

txtLog.Text = sIp & vbCrLf & sPuerto & vbCrLf & sPassword
End Sub
Private Sub Form_Activate()
txtCommand.SetFocus
End Sub

Sub ParseParam(ParamSpec As String)
       Dim iFirstPos%, iLastPos%
       Dim iPort%, sIp$, sPass$

  iFirstPos = InStr(1, ParamSpec, "-port", vbTextCompare)

  If iFirstPos Then
    '5 = Len("-port")
    '
    iPort = Val(Mid$(ParamSpec, iFirstPos + 5))
    frmClientMain.txtLog.Text = iPort
  End If

  iFirstPos = InStr(1, ParamSpec, "-ip", vbTextCompare)

  If iFirstPos Then
    iLastPos = InStr(iFirstPos + 4, ParamSpec, " ")

    If iLastPos Then
      '3 = Len("-ip")
      '
      sIp = Mid$(ParamSpec, iFirstPos + 3, iLastPos - iFirstPos - 3)
      frmClientMain.txtLog.Text = sIp
    Else
      'Por si es el último parámetro que se especifica.
      '
      sIp = Mid$(ParamSpec, iFirstPos + 3)
      frmClientMain.txtLog.Text = sIp
    End If
  End If

  iFirstPos = InStr(1, ParamSpec, "-password", vbTextCompare)

  If iFirstPos Then
    iLastPos = InStr(iFirstPos + 10, ParamSpec, " ")

    If iLastPos Then
      '9 = Len("-password")
      '
      sPass$ = Mid$(ParamSpec, iFirstPos + 9, iLastPos - iFirstPos - 9)
      frmClientMain.txtLog.Text = sPass$
    Else
      'Por si es el último parámetro que se especifica.
      '
      sPass$ = Mid$(ParamSpec, iFirstPos + 9)
      frmClientMain.txtLog.Text = sPass$
    End If
  End If
End Sub
Private Sub Command1_Click()
Dim command As String
command = txtCommand.Text
Call ParseParam(command)
frmClientMain.txtLog.Text = frmClientMain.txtLog.Text & "Command> " & command & vbCrLf & sPass$
End Sub

Private Sub Form_Activate()
txtCommand.SetFocus
End Sub