Imprimir Página - Cadenas Aleatorias? [ayudita easy]

Título: Cadenas Aleatorias? [ayudita easy]
Publicado por: 3k1n0x en 29 Febrero 2008, 01:02 am

hola, se que es facil pero no se, como hacer para seleccionar una cadena aleatoria, no se como usar randomize en este caso para despues escribir la cadena, es para cambiar mi direccion mac utilizando un metodo chapuzero, x ejemplo se tienen

uno = "cadena blabla"
dos = "2da cadena kdla"
tres = "3ra"
' y mas

se debe seleccionar una al azar para despues usar eso

debe ser

Código:

dim azar
randomize
azar = '>aki debe ser lo de randomize creo<'
sendkeys (azar)

km puedo hacer eso, una ayudita plz, salu2s

Título: Re: Cadenas Aleatorias? [ayudita easy]
Publicado por: naderST en 29 Febrero 2008, 01:16 am

Hola esta puede ser una manera de hacerlo

Código:

Option Explicit

Private Sub Command1_Click()
Dim Cadenas() As Variant
Cadenas = Array("cadena01", "cadena02")
MsgBox Cadenas(Int(Rnd() * (UBound(Cadenas) + 1)))
End Sub

Título: Re: Cadenas Aleatorias? [ayudita easy]
Publicado por: 3k1n0x en 29 Febrero 2008, 01:25 am

genial che naderst justo lo q buscaba !! muuchas gracias bye salu2s ;)

Título: Re: Cadenas Aleatorias? [ayudita easy]
Publicado por: 3k1n0x en 29 Febrero 2008, 01:36 am

hay un problema si alguien sabe plz, sucede que si da el numero aleatorio, pero siempre es el mismo y debe ser diferente cada ves q se ejecute el prog :huh:

Título: Re: Cadenas Aleatorias? [ayudita easy]
Publicado por: naderST en 29 Febrero 2008, 01:43 am

Guarda el ultimo numero que genero, luego que vuelvan a abrir la aplicacion genere un numero difrente al ultimo numero que genero.

Título: Re: Cadenas Aleatorias? [ayudita easy]
Publicado por: Ch3ck en 29 Febrero 2008, 01:46 am

Esto?

Código:

Private Sub CommandButton1_Click()
Randomize
Numero = Int(Rnd * 50) + 1
MsgBox Numero
End Sub

Saludos.

Título: Re: Cadenas Aleatorias? [ayudita easy]
Publicado por: naderST en 29 Febrero 2008, 01:52 am

Si Ch3ckM4t3r creo que eso era lo que queria porque el codigo que le di siempre genera el mismo numero al abrir el programa.

Título: Re: Cadenas Aleatorias? [ayudita easy]
Publicado por: 3k1n0x en 29 Febrero 2008, 01:58 am

Cita de: naderST en 29 Febrero 2008, 01:43 am

Guarda el ultimo numero que genero, luego que vuelvan a abrir la aplicacion genere un numero difrente al ultimo numero que genero.

eso debe ser :), voy a probar guardando el dato en un txt para que al abrir compare el dato, salu2s

Cita de: Ch3ckM4t3r en 29 Febrero 2008, 01:46 am

Esto?

Código:

Private Sub CommandButton1_Click()
Randomize
Numero = Int(Rnd * 50) + 1
MsgBox Numero
End Sub

Saludos.

si mas o menos es lo q busco no exctamnte pero si, salu2s

Título: Re: Cadenas Aleatorias? [ayudita easy]
Publicado por: Chefito en 29 Febrero 2008, 02:20 am

Uiuiuiuiui, clonando macs? ;D. Esto te da una Mac completa aleatoria:

Código:

Private Sub Form_Load()
Randomize
Dim Numero As String, Mac As String
For n = 0 To 5
    Numero = Hex(Int(Rnd * 256))
    Mac = Numero & Mac
Next
MsgBox Mac
End Sub

Y lo mismo pero separados cada par de dígitos por dos puntos:

Código:

Private Sub Form_Load()
Randomize
Dim Numero As String, Mac As String
For n = 0 To 5
    Numero = Hex(Int(Rnd * 256))
    Mac = Mac & ":" & Numero
Next
Mac = Right(Mac, 17)
MsgBox Mac
End Sub

Puedes enviar el par de dígitos metiendo la función sendkeys dentro del for .... next, sustituyendo la linea Mac = Numero & Mac por sendkeys(numero), si es lo que te interesa claro. Si tienes que enviarla entera, puedes poner el sendkeys(mac) después del next. Si quieres trabajar con los 6 bloques de dos caracteres, utiliza una matriz de 6 elementos y almacenalos ahi.
Saludos.

Título: Re: Cadenas Aleatorias? [ayudita easy]
Publicado por: Ch3ck en 29 Febrero 2008, 02:22 am

naderST tu codigo está bien, solo hay que colocarle mas rango.

He hecho otra version jeje

Código:

Private Sub CommandButton1_Click()
Dim Numero() As String
Mensaje = "Vacio;Numero1;Numero2;Numero3"
Numero = Split(Mensaje, ";")
Randomize
NumeroA = Int(Rnd * 3) + 1
MsgBox Numero(NumeroA)
End Sub

Porque lo de las MACS?????

Saludos...

Título: Re: Cadenas Aleatorias? [ayudita easy]
Publicado por: Chefito en 29 Febrero 2008, 02:36 am

Cita de: Ch3ckM4t3r en 29 Febrero 2008, 02:22 am

Porque lo de las MACS?????

Saludos...

Lo dice en el primer mensaje:

Cita de: T3fL0n en 29 Febrero 2008, 01:02 am

Título: Re: Cadenas Aleatorias? [ayudita easy]
Publicado por: Ch3ck en 29 Febrero 2008, 02:39 am

Asi jejejeje ;D

Lei la pregunta, pero cuando observé el problema del Randomize quede perdido, lo siento...

Saludos!!!:

Título: Re: Cadenas Aleatorias? [ayudita easy]
Publicado por: 3k1n0x en 29 Febrero 2008, 02:45 am

Código:

[quote author=Chefito link=topic=202351.msg961230#msg961230 date=1204248000]
Uiuiuiuiui, clonando macs?  ;D. Esto te da una Mac completa aleatoria:

nada q ver :xD es simplemente para q al usar la aplicacion cambie la ip y ya, usar el programa

http://cryptload.info/
http://foro.elhacker.net/index.php/topic,201997.0.html

Cita de: Ch3ckM4t3r en 29 Febrero 2008, 02:22 am

naderST tu codigo está bien, solo hay que colocarle mas rango.

He hecho otra version jeje

Código:

Private Sub CommandButton1_Click()
Dim Numero() As String
Mensaje = "Vacio;Numero1;Numero2;Numero3"
Numero = Split(Mensaje, ";")
Randomize
NumeroA = Int(Rnd * 3) + 1
MsgBox Numero(NumeroA)
End Sub

Porque lo de las MACS?????

Saludos...

excelente !!! eso es lo justo, lo de las macs es nad mas para q cambie la ip terminada una descarga d rapidshare :xD

jojo creo q termino esto sencillo en unos min ;D grax salu2s ;)

Título: Re: Cadenas Aleatorias? [ayudita easy]
Publicado por: 3k1n0x en 29 Febrero 2008, 03:39 am

hola, de new, una ultima ayudita plz, como el randomize es un problema, me parece que mejor seria agarrar a los segundos del reloj y usar ese numero, ya que es poco probable q se repita, entonces como se podria hacer eso y colocar el dato en un textbox o donde sea x ejemplo :huh: salu2s

Título: Re: Cadenas Aleatorias? [ayudita easy]
Publicado por: naderST en 29 Febrero 2008, 04:10 am

Hola lo puedes hacer asi

Código:

Text1.Text = Second(Time)

Título: Re: Cadenas Aleatorias? [ayudita easy]
Publicado por: Chefito en 29 Febrero 2008, 14:52 pm

naderST tiene razón. Lo malo es que si no he entendido mal necesitarias siempre un conjunto de dos digitos, por lo tanto el codigo habría que variarlo:

Código:

Dim Segundos As String
Segundos = Second(Time)
If Len(Segundos) = 1 Then Segundos = "0" & Segundos   'añade un 0 cuando la longitud de los seguntos es un digito

P.D. Pero sigo pensando que la mejor manera es adaptando el primer código que te puse a lo que quieres.

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: 3k1n0x en 29 Febrero 2008, 01:02 am