hola, saludos a todos, veran mi duda se basa en si seria posible crear un generador de claves como las que muestro a continuacion y como podria hacerlo en vbasic o html pues son los unicos que conozco un poquito
los codigos a generar serian algo asi
aaikmte0mJe5otq4nace35hzkLYaWliVIUs8
 aaijnJG3mtKWmtG2aitFKpaNTcyf0cdTXcS
aaikmtqZmZK5mtKYoace35d6CC.YqqXya_cT
aaikmtaXmdi1odGYnGce35d8z.vY9AqSWpom
aaipmtaWmdaWnZC5mtCZnJa3aitFKymaFemVsZ90Px0
aaipmtaWmdaWmJqZmdm4mJK2aitFKyCBu_Z4EwUwR_G
aaijnJG0ndmXmJq0aitFKyDIZPqAYyHvEGm
aaikmtC4ntq2ntqWnWce35gxlpI97iAH2o6F
aaipmtaWmdaWmJm2mZeYmZG4aitFKDe.iGTj8DFKc_C
aaikmte0mJe5otq4nace35hxyguagupiu_b4
si los observamos todos comienzan con las letras "aai" pero tiene distintos tamaños finales y creo que son generados en un servidor pero no se mas, solo que con esos codigo obtengo tokens para el hotel city de facebook
y en la pagina que los genero solo da un token por dia y cuenta, entonces he pensado si seria posible de crear algun programa que los genere o simplemente no es posible puesto que es el propio servidor quien los genera y los alamcena hasta que sean usados por una cuenta(esto ultimo son divagaciones de un novato en el tema)
espero que alguien me oriente sobre el asunto
gracias.

hola nuevamente, yo la verdad que de apis se muy poco y esa la encontre en un ejemplo y despues de ver como funcionaba pues vi que me venia bien para mi proyecto y por eso la use, referente a la duplicidad del codigo tienes toda la razon, intentare ver la forma de crear una funcion y llamarla desde donde sea nesesario, en cuanto me sea posible me pondre a intentar reducir el codigo amigo
gracias por el comentario.

Hola a todos, una vez mas les escribo aunque en esta ocacion no es para pedirles su ayuda sino para mostrarles  mi ultimo proyecto ya terminado por si puedo contribuir a ayudar a alguien que al igual que yo este comenzando a programar.
Aquí les pongo una captura del resultado final de mi aplicación.



Este programa esta destinado a personas que apenas conocen de informatica para que les ayude a ver  las imágenes que tengan en su pc ademas de poder cambiarlas por el fondo del escritorio con un simple clic  o pulsando intro ademas de pulsando el boton  de cambiar fondo.
Para escribir este code me base en un ejemplo que encontre buscando por la web y adaptandolo a mi necesidad, aparte de la ayuda que me prestaron en este foro para resolver las dudas que me ivan surgiendo, y una vez terminado, aquí les dejo el code esperando que le sea util a alguien que comienza al igual que yo.

Code:

 
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Dim ruta As String
Const SPIF_UPDATEINIFILE = &H1
Const SPI_SETDESKWALLPAPER = 20
Const SPI_SETDESKPATTERN = 21
Const SPIF_SENDWININICHANGE = &H2
 
Private Sub Check1_Click()
Image1.Visible = Check2.Value
End Sub
 
Private Sub Command1_Click()
Dim ruta As String
If Right(File1.Path, 1) <> "" Then
  ruta = File1.Path & "\" & File1.FileName
 Else
  ruta = File1.Path & "\" & File1.FileName
End If
SavePicture LoadPicture(ruta), "c:\windows\Foto.BMP"
ruta = "c:\windows\Foto.BMP"
X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, _
    ruta, SPIF_UPDATEINIFILE Or _
    SPIF_SENDWININICHANGE)
End Sub
 
Private Sub Command2_Click()
Dim X As Long
    'Para sacar el papel Tapiz se le envia una cadena vacia en lpvParam
    X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "", SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
End Sub
 
Private Sub File1_Click()
On Error Resume Next
Dim ruta As String
If Right(File1.Path, 1) <> "" Then
  ruta = File1.Path & "\" & File1.FileName
 Else
  ruta = File1.Path & "\" & File1.FileName
End If
Image1.Picture = LoadPicture(ruta)
End Sub
Private Sub File1_DBLCLICK()
On Error Resume Next
Dim ruta As String
If Right(File1.Path, 1) <> "" Then
  ruta = File1.Path & "\" & File1.FileName
 Else
  ruta = File1.Path & "\" & File1.FileName
End If
SavePicture LoadPicture(ruta), "c:\windows\Foto.BMP"
ruta = "c:\windows\Foto.BMP"
X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, _
    ruta, SPIF_UPDATEINIFILE Or _
    SPIF_SENDWININICHANGE)
Image1.Picture = LoadPicture(ruta)
End Sub
 
Private Sub File1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
On Error Resume Next
Dim ruta As String
If Right(File1.Path, 1) = "\" Then
  ruta = File1.Path & File1.FileName
 Else
  ruta = File1.Path & "\" & File1.FileName
End If
SavePicture LoadPicture(ruta), "c:\windows\Foto.BMP"
ruta = "c:\windows\Foto.BMP"
X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, _
    ruta, SPIF_UPDATEINIFILE Or _
    SPIF_SENDWININICHANGE)
Image1.Picture = LoadPicture(ruta)
End If
End Sub
 
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
End
End If
End Sub
 
Private Sub Form_Resize()
On Error Resume Next
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 'Centra el formulario completamente
End Sub
 
Private Sub Dir1_Change()
File1.Path = Dir1.Path
Label1.Visible = File1.ListCount > 0
If Label1.Visible Then
File1.ListIndex = 0
End If
End Sub
 

Y sin mas que dar las gracias a todos los que me ayudaron  me despido hasta otra ocacion.

gracias sebas pero me surge dos dudas amigo:
el source lo posteo en este mismo hilo (solo el proyecto) y el programa compilado en la sección de software
nuevaente gracias a todos.

Bueno amigos ya tengo mi aplicacion lista para distribuirla de forma gratuita gracias a vuestra colaboracion ahora y como muestra de agradecimiento, me gustaria postearla en este foro aunque no se en que apartado iria pero de todas formas agradezco mucho vuestra ayuda.
por cierto es una aplicacion destinada a personas que apenas empiezan a manejar un pc y ni siquiera saben cambiar el fondo del escritorio, el programa en si le muetsra una vista previa de la imagen en cuestion que elijen y la cambia el mismo, se que para muchos es mas sencillo cambiarla directamente con el mousse pero como he dicho antes esta destinado a personas que empiezan y ademas le añadi unas cuantas imagenes que he ido recopilando y me parecian bonitas ademas de servirme para practicar y aprender un poco mas sobre este maravilloso mundo de la programacion.
pd:
en cuanto sepa si se puede postear el programa lo hago y os dejo aqui un enlace
nuevamente gracias a todos.

LeandroA eso es precisamente lo que andaba buscando amigo , asi de sencillo fue pero quien no sabe es como quien no ve  
y estuve bastante tiempo buscando en google pero todo hacia referencia a lo contrario aunque entre todas las paginas que mire solo en una haye una solucion igual pero no sabia aplicarla y con lo que me has puesto mas un poco de pensamiento he logrado solucionar el problema.
nuevamente gracias a todos.

gracias sebas si tengo algun problema con lo que me han puesto aqui lo hare descuide.
nuevamente gracias a todos.

muchas gracias xcryptor lo probare tambien a vere si logro solucionar lo que tengo en mente
nuevamente muchas gracias a todos

muchas gracias amigo al menos ya tengo material para ir probando y ver que tal funciona
gracias nuevamente a todos
doy el post por solucionado

muchas gracias pero apenas comienzo con el vbasic y hay muchas cosas que no entiendo aun
como eso de averiguar para que sirve cada byte pero gracias de todos modos.