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
dim azar
randomize
azar = '>aki debe ser lo de randomize creo<'
sendkeys (azar)
km puedo hacer eso, una ayudita plz, salu2s
Hola esta puede ser una manera de hacerlo
Option Explicit
Private Sub Command1_Click()
Dim Cadenas() As Variant
Cadenas = Array("cadena01", "cadena02")
MsgBox Cadenas(Int(Rnd() * (UBound(Cadenas) + 1)))
End Sub
genial che naderst justo lo q buscaba !! muuchas gracias bye salu2s ;)
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:
Guarda el ultimo numero que genero, luego que vuelvan a abrir la aplicacion genere un numero difrente al ultimo numero que genero.
Esto?
Private Sub CommandButton1_Click()
Randomize
Numero = Int(Rnd * 50) + 1
MsgBox Numero
End Sub
Saludos.
Si Ch3ckM4t3r creo que eso era lo que queria porque el codigo que le di siempre genera el mismo numero al abrir el programa.
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?
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
Uiuiuiuiui, clonando macs? ;D. Esto te da una Mac completa aleatoria:
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:
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.
naderST tu codigo está bien, solo hay que colocarle mas rango.
He hecho otra version jeje
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...
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
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
Asi jejejeje ;D
Lei la pregunta, pero cuando observé el problema del Randomize quede perdido, lo siento...
Saludos!!!:
[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
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 ;)
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
Hola lo puedes hacer asi
Text1.Text = Second(Time)
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:
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.