Ver Mensaje Individual
  #36 (permalink)  
Antiguo 09/12/2004, 19:58
Avatar de pempas
pempas
 
Fecha de Ingreso: diciembre-2003
Ubicación: Barcelona
Mensajes: 985
Antigüedad: 20 años, 10 meses
Puntos: 6
Aquí pongo mi pequeña aportación:

Genera un código aleatorio de 40 caracteres, números y letras.

***********************************************
Function Codigo_Aleatorio
Dim confirmado, valor
randomize

For I = 1 to 40
confirmado = Int((90 - 48 + 1) * Rnd + 48)
valor = valor & chr(confirmado)
next

Codigo_Aleatorio = valor
End Function
***********************************************

Para que genere más solo teneis que incrementar el valor del for por el número que quieras.

Saludos a tod@s