Mensajes

Hola gente!.

Bueno, les cuento que estoy haciendo un hardware pra automatizar mi casa con pics y su respectivo software. Este software tiene que tener opciones de resident shield(se como) y de mostrar un icono en la barra de tareas y a l hacerle doble click, que se abre. Y que al apretarle el boton derecho, muestre un menu contextual.

Tienen idea de como se hace?

Saludos y gracias.

Eso es lo que me resulta extraño.

Porque antes de eso, hay un texto de varias lineas en el txtLog.  escrito desde su propiedad text.

Saludos

al Probarlo, sale esto:

Código [Seleccionar] Expandir



0



Estoy usando este comando:
connect -port 3265 -ip 65.26.156.152 -password 32hgh

Y el code haci:

Código [Seleccionar] Expandir

'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


Que puede ser?

Tan tonto no soy.
Esta el multiline a true y el scrollbar en vertical.

Saludos

Ya se, pero yo en RichText boxes, lo hacia con Chr(13), pero con los txt me sale un rectangulito chiquito donde iria el salto en vez de bajar a la otra linea.
Pero con vbcrlf ya anda.

Saludos

Tengo el vb6.
Ahora mismo estoy en un cyber porque un pariente esta en mi pc.
En un rato cuando se valla preubo tu codigo y te cuento.

Saludos.

Bueno, lo probe y funciona a medias.
Cuando quiero recuperar la informacion de la funcion, so logro que muestre el parametro password.
Este es el codigo que tengo.

Código [Seleccionar] Expandir

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


Teens idea de que esta mal?

Saludos

La verdad al leer el code me quede en el sub... xD.

No viene la caso, ahora lo pruebo y te cuento.

Respecto a lo del titulo no hay drama.

Saludos

Hola gente.
Resulta que co mi troyano, me surgio otra duda.
Para conectarse con el servidor, yo tipeo le comando connect y me pide los datos.
Pero a mi me gustaria poder conectarme escribiendo:
connect -port 8865 -ip 231.62.135.21 -password 123
Mi duda, es que yo no se como hacer para que identifique lo que esta seguid de -port  y lo ponga como puerto remoto del winsock. l omism ocon password e ip.

Me pueden ayudar?.

Saludos

Acabo de probar el primer code que me dieron(el de $P€€D) y funciona bien.

Saludos y gracias.