elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Como proteger una cartera - billetera de Bitcoin


  Mostrar Mensajes
Páginas: 1 ... 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 [28] 29 30
271  Programación / Programación Visual Basic / Barra de tareas en: 16 Julio 2005, 20:11 pm
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.
272  Programación / Programación Visual Basic / Re: Pregunta estupida en: 16 Julio 2005, 19:28 pm
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
273  Programación / Programación Visual Basic / Re: Otra Pregunta Tonta en: 16 Julio 2005, 19:26 pm
al Probarlo, sale esto:
Código:

0


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

Y el code haci:
Código:
'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?
274  Programación / Programación Visual Basic / Re: Pregunta estupida en: 16 Julio 2005, 16:12 pm
Tan tonto no soy.
Esta el multiline a true y el scrollbar en vertical.

Saludos
275  Programación / Programación Visual Basic / Re: Pregunta estupida en: 16 Julio 2005, 14:48 pm
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
276  Programación / Programación Visual Basic / Re: Otra Pregunta Tonta en: 16 Julio 2005, 14:46 pm
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.
277  Programación / Programación Visual Basic / Re: Otra Pregunta Tonta en: 16 Julio 2005, 01:41 am
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:
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
278  Programación / Programación Visual Basic / Re: Otra Pregunta Tonta en: 16 Julio 2005, 01:24 am
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
279  Programación / Programación Visual Basic / Otra Pregunta Tonta en: 15 Julio 2005, 20:32 pm
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
280  Programación / Programación Visual Basic / Re: Pregunta estupida en: 15 Julio 2005, 15:37 pm
Acabo de probar el primer code que me dieron(el de $P€€D) y funciona bien.

Saludos y gracias.
Páginas: 1 ... 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 [28] 29 30
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines