Mensajes

HOLA!!!

1ro. Donde guarda la password gral? (me suena que es re crackeable o descifrable) Se lo doy a uno de inge inv y lo descuartiza en 5 minutos.

2do. Hay demasiados programas que hacen lo mismo.

3ro. El diseño lastima la vista, cambialo, hace algo mas minimalista, mas oscuro o mas claro.

4to. por lo que veo usas bases de datos para guardar las passwords no son de lo mas seguras.

Espero que lo hagas mas seguro.

Eso es un queso gruyere con hongos y muy feo.

GRACIAS POR LEER!!!

HOLA!!!

@Kub0x: No, mi codigo no extrae los Separadores y los borra...

Mi codigo lo que hace es tomar un string cualquiera y seararlo por los separadores colocados en el array "Delimiter()" y vuelca todos los items resultantes en un nuevo array (resultado de la funcion).

Si sabes lo que hace la funcion Split, lo vas a entender, sino no.

Testeala y lee bien el ejemplo.

Y por que no es recomendable? ...  Utilizo funciones fuera del framework, osea mejor!

GRACIAS POR LEER!!!

HOLA!!!

Averigua sobre "Skins"

GRACIAS POR LEER!!!

HOLA!!!

Si somos Extrictos, el servicio de una "masajista" no esta incluido en esa lista .

GRACIAS POR LEER!!!

HOLA!!!

Este codigo que hice el año pasado te sirve para lo que queres hacer...

Es para vb6 pero creo que es 100% compatible con VBNET

Se llama "MultiSplit"

HOLA!!!

Hoy queria hacer un split que devuelva un array con varios delimitadores y aparte tenga la opcion de guardar el delimitador... en fin... hice esta funcion, espero que les sirva.

Antes que el codigo Ejemplo:

Código (vb) [Seleccionar] Expandir

Private Sub Ejemplo()
Dim dels(3) As String
Dim result() As String
Const ss As String = "hola+como--andas(((esto====es+una--prueba"
   dels(0) = "+"
   dels(1) = "--"
   dels(2) = "((("
   dels(3) = "===="
   
   'sin preservar delimitadores
   result = MultiSplit7913(ss, dels, False)
   'result = ("hola";"como";"andas";"esto";"es";"una";"prueba")
   
   'preservando delimitadores
   result = MultiSplit7913(ss, dels, True)
   'result = ("hola";"+como";"--andas";"(((esto";"====es";"+una";"--prueba")
End Sub

El Codigo

Código (vb) [Seleccionar] Expandir

Private Function MultiSplit7913(expression As String, Delimiter() As String, PreserveDel As Boolean) As String()
Dim DelCount    As Long
Dim lExp        As Long
Dim X           As Long
Dim Pos         As Long
Dim DelPos()    As Long
Dim AuxArr()    As String
Dim LastPos     As Long
Dim LastLen     As Long
Dim LastInstr   As Long

   expression = expression & Delimiter(0)
   lExp = Len(expression)
   DelCount = UBound(Delimiter)
   ReDim DelPos(lExp)

   For X = 0 To DelCount
       Pos = 1
       LastInstr = InStr(Pos, expression, Delimiter(X))
       Do While LastInstr <> 0
           DelPos(LastInstr) = X + 1
           Pos = LastInstr + Len(Delimiter(X)) + Pos
           LastInstr = InStr(Pos, expression, Delimiter(X))
       Loop
   Next

   ReDim AuxArr(0)

   LastPos = 1

   For X = 0 To lExp
       If DelPos(X) <> 0 Then
           ReDim Preserve AuxArr(UBound(AuxArr) + 1)
           If PreserveDel Then
               AuxArr(UBound(AuxArr) - 1) = Mid$(expression, LastPos, X - LastPos)
           Else
               AuxArr(UBound(AuxArr) - 1) = Mid$(expression, LastPos + LastLen, X - LastPos - LastLen)
               LastLen = Len(Delimiter(DelPos(X) - 1))
           End If
           LastPos = X
       End If
   Next

   ReDim Preserve AuxArr(UBound(AuxArr) - 1)

   MultiSplit7913 = AuxArr

End Function

GRACIAS POR LEER!!!

GRACIAS POR LEER!!!

HOLA!!!

No creo que haya ningun problema con poner a disposicion de la gente un nro o un mail para contratarlas, lo malo seria mostrar imagenes pornograficas o eroticas de ellas...

P.D: Graphixx = Pervertido

GRACIAS POR LEER!!!

HOLA!!!

Mi idea era diseñar el arbol y luego recorrer la matriz de alguna manera y numerar los nodos, luego simplemente buscar el nodo nro sin requerir la columna.

Aunque con la manera que hago los nodos te puedo decir las filas de los nodos correspondientes a una columna.

GRACIAS POR LEER!!!

HOLA!!!

Como digas, no voy a crear un flame para ver si un lenguaje es mejor que el otro.

Solo te voy a decir que estas en el subforo equivocado.

GRACIAS POR LEER!!!

HOLA!!!

Que grande BadStupidMonkey!!

GRACIAS POR LEER!!!

HOLA!!!

Ahora si, ya que pusiste las etiquetas paso a decirte los errores:

1. Tengo la leve sospecha que estas utilizando VB.NET en vez de VB6, en ese caso Este seria tu subforo correcto.

2. En la cita de aqui abajo pusiste una apertura de corchetes de mas antes de Timer1.Enabled = False

Hacemos doble click sobre Parar y pegamos esto:

Código (vb) [Seleccionar] Expandir

[Timer1.Enabled = False

3. En VB6 no se utiliza My.Computer.Keyboard.SendKeys, eso se reemplaza por solo SendKeys.

4. En VB6 no existe "Aplicacion de Windows Form" el que utilizaremos es Exe Estandar



Dejando todo correjido y funcionando para vb6 seria:

Para los que no saben, un flooder es un programa/aplicacion que sirve para repetir un texto continuamente ya sea en un chat, tuenti, facebook...

Bien abrimos un Nuevo proyecto de VB como:
EXE Estandar

Añadimos 2 CommandButton un TextBox y un Timer

Ahora le agregaremos un interval al Timer:
Clickean el timer y van a el cuadro de propiedades y colocan el tiempo (en milisiegundos) cada cuando quieren que se envie el flood.

Ahora vamos a ponerle Enabled False al timer para que no se ejecute solo al inicio.
Buscamos en el cuadro de propiedades la propiedad Enabled y la cambiamos por "FALSE".

Ahora cambiaremos los Caption de los Button a Empezar y Parar

Hacemos doble click sobre Empezar y pegamos esto:

Código (vb) [Seleccionar] Expandir

Timer1.Enabled = True

Hacemos doble click sobre Parar y pegamos esto:

Código (vb) [Seleccionar] Expandir

Timer1.Enabled = False

Ahora, damos doble click sobre el Timer y pegamos esto:

Código (vb) [Seleccionar] Expandir

SendKeys(TextBox1.Text)
SendKeys("{enter}")

Ya tenemos nuestro flooder, damos a "play" o F5 y listo

(Lo correjido esta subrayado.)

GRACIAS POR LEER!!!