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

 

 


Tema destacado: Security Series.XSS. [Cross Site Scripting]


  Mostrar Mensajes
Páginas: 1 ... 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 [36] 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 ... 55
351  Informática / Electrónica / Re: ayuda con leds en: 17 Julio 2005, 05:25 am
Quizá un 7805 o 7809 sea más conveniente, esos parecen led de alta luminocidad y con 3v te podrías quedar corto, ya que son más de uno.
352  Programación / Programación Visual Basic / Re: Transferencia de archivos, AYUDA en: 17 Julio 2005, 00:16 am
La instrucción Mod devuelve el resto de una división, por eso la uso para obtener lo que falta del archivo.

Saludos.
353  Programación / Programación Visual Basic / Re: Transferencia de archivos, AYUDA en: 16 Julio 2005, 04:54 am
Ah me olvidé de ese detalle en el code que puse antes ;D. La forma de solucionar eso sería asi:

Código:
Tam = 1024
Trozos = FileLen(Arch) / Tam
Falta = FileLen(Arch) Mod Falta

If Falta > 0 Then Trozos = Trozos + 1

Saludos.
354  Programación / Programación Visual Basic / Re: Analizar parámetros en una cadena en: 16 Julio 2005, 01:06 am
Utiliza las funciones InStr, Mid y Val para obtener los parámetros. Por ej:

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))
  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)
    Else
      'Por si es el último parámetro que se especifica.
      '
      sIp = Mid$(ParamSpec, iFirstPos + 3)
    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)
    Else
      'Por si es el último parámetro que se especifica.
      '
      sPass$ = Mid$(ParamSpec, iFirstPos + 9)
    End If
  End If
End Sub

Y la próxima vez que postees algo ponele un título adecuado.

Saludos.
355  Programación / Programación Visual Basic / Re: Transferencia de archivos, AYUDA en: 16 Julio 2005, 00:49 am
Intenta hacer una pausa entre cada llamada a Send. Por ejemplo con el siguiente código (incorporalo al procedimiento).

Código:
      Dim snTime!

  snTime = Timer

  Do While (Time - snTime) < .25
   'Espera 0.25 segundos.
  Loop

  Call Winsock_server.SendData("archi" & vbParseData & Buffer)

Saludos.
356  Programación / Programación Visual Basic / Re: Pregunta estupida en: 16 Julio 2005, 00:46 am
Cita de: Ertai
Pero eso es para hacer mas claro el codigo, cuando una linea es mas larga de lo normal, pues metes el '_' para tenerlo en varias lineas.

si es para hacerlo claro, pero con "& vbCrLf & _ " baja una linea tambien

un saludo.

No habla del código sino del TextBox.

Saludos.
357  Programación / Programación Visual Basic / Re: Pregunta estupida en: 15 Julio 2005, 06:02 am
Establece la propiedad Multiline del TextBox a True, y lee un tutorial de VB :).

Saludos.
358  Programación / Programación Visual Basic / Re: Procesos en: 15 Julio 2005, 02:12 am
Código:
App.TaskVisible = False
359  Programación / Programación Visual Basic / Re: sql server con cristal report en: 14 Julio 2005, 01:48 am
Qué error te da?
360  Programación / Programación Visual Basic / Re: Camara de vigilancia en: 14 Julio 2005, 01:28 am
Mira el siguiente post:

Como transmitir webcam desde un server a su cliente

Saludos.
Páginas: 1 ... 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 [36] 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 ... 55
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines